shaniqua-smeggdrop

_index

Evaluated proc string_length_noctrl str {string length [string map [list [^B_] {} [^B] {} [^O] {} [^U] {} [^C] {} {}] $str]}

2024-07-11 13:58:13 -07:00

0f5ea8f842abed5122e1428751fe537222877287

Evaluated proc tnbtube {} {. 0,4 ► TnbTube}

2023-03-30 00:39:36 -07:00

0fc1fa5c2a01f14226e42c6fba796c4f126b1fe3

Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};join $ret ""}

2022-12-26 18:31:42 -08:00

1de53d931a484bf54036f9c202ed3ffb32cfed6f

Evaluated proc strip_colour str {regsub -all {\d{1,2}(,\d{1,2})?} $str {}}

2023-01-07 18:00:20 -08:00

1f43992289e17f4997e5911f49123bfd6088da6e

Evaluated proc rexec {nigger} {[wget $nigger]}

2023-08-25 15:16:01 -07:00

1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d

Evaluated proc NASA_GRADE_ENCRYPTION {evil_code the_key} {set ret {}; set thecharacter {}; foreach thecharacter [split $evil_code {}] thesecret [split $the_key {}] {lappend ret [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]}; return $ret}

2020-09-28 22:06:29 +02:00

2d931b665420e63cb8ef8b9ce33f1e0ff66c109a

Evaluated proc test234535 {} {. testo}

2020-09-28 20:51:17 +02:00

3baf09c618e19a34cf07d03aad8a9ca6bdef4564

Evaluated proc stock_yahoo_v10 {symbol} {dict get [lindex [dict get [dict get [json2dict [wget https://query2.finance.yahoo.com/v10/finance/quoteSummary/$symbol?formatted=false&modules=price%2CsummaryDetail%2CpageViews%2CfinancialsTemplate ]] quoteSummary] result] 0] summaryDetail}

2023-01-06 07:41:01 -08:00

4cd6aa22af199e746253fd437122ed790cbabdd3

Evaluated proc random_word_alt args {set dict [?? $::dicts_singleword]; ?? [set ::[subst $dict]]}

2023-01-08 16:39:15 -08:00

4e55d43392c0033c6ea4174b1e196f5cb3f21373

Evaluated proc settuB args {. "I asked serious question. I will interpret any efforts of derailing it as a sign that _you_ are the man of the \"system\", thank you for understanding. Now, have you read [choose {Turner Diaries}] ?"}

2022-12-23 17:40:41 -08:00

4f2fcfac11b586cc810f9858a5b5613f19d25525

Evaluated proc strip_all str {regsub -all {[\x0f\x02\x1f\]\[]} [strip_color $str] ""}

2023-01-07 18:21:25 -08:00

5a1df4f81f8e92fe879f3e9370f132b24e43daae

Evaluated proc _lex_fridman_reading {{ll 10}} {each [zip [.. $ll] [lrange [zip [shuffle $::easy_book] [shuffle $::hard_book]] 0 $ll-1]] {{i _} {list [list "Week [format "%02d" $i]" "$_" "[expr "1 + [rand 5]"]hr@[format "%04d" [rand 2000]] WPM"]}}}

2023-01-06 08:08:18 -08:00

5a40678c150205d31ffbd01d683d1508fdb8bbd5

Evaluated proc testo4444 args {. "work you piece of shit"}

2020-09-14 23:06:23 +02:00

5f40c53e11b442eae40e80737ff6a6e6be340b79

Evaluated proc nigger7 {} {nigger5}

2023-08-24 17:39:34 -07:00

6b7604a4d4fc5b6af26660c5162642135d33857e

Evaluated proc d2d3 {{w1 {[nick]}} {w2 {[name]}}} {ajoin "" [subst ${w1}] [ncock 0] "\n*~~~*\n\nBZZT!" [flip [ncock 6]] [subst ${w2}]}

2023-03-30 13:23:27 -07:00

6dd0fe8001145bec4a12d0e22da711c4970d000b

Evaluated proc color args {if ![llength $args] {return };if {[lindex $args 0] eq "default"} {return };set ret \x03[color_of [lindex $args 0]]; if {[llength $args] > 1} {if {[lindex $args 1] eq "on"} {append ret ,[color_of [lindex $args 2]]} {append ret ,[color_of [lindex $args 1]]}}; return $ret}

2023-01-07 19:08:19 -08:00

7cfa62dca748eb0d3e538d92e6de770f0aed3899

Evaluated proc rand_onion {} {set randstr ""; for {set i 1} {$i<=56} {incr i} {append randstr [?? $::onion_chars]}; return "$randstr"}

2023-01-13 11:18:17 -08:00

7d1d02d6635d653a60b8681b144ef62e9dc3d21a

Evaluated proc lex_fridman_reading args {fuckingcolumns [apply {_lex_fridman_reading} $args]}

2023-01-06 08:06:28 -08:00

8c049c6d78040627af4bfb51ac20f7141e24bb84

Evaluated proc bkabait {{prez {Olaf Scholz}}} {subst "I am going to kill $prez, Bundeskanzlerin der BRD."}

2023-07-30 15:48:54 -07:00

9c10d20ef25f4c3fb4c51b91640338fd3629cddf

Evaluated rename lex_fridman_reading _lex_fridman_reading_inner

2023-01-04 11:02:15 -08:00

9dee0e0c9de58ce43e88d97c66a4ded3761de9fd

Evaluated eval [wget https://dpaste.com/7VZMTHQSK.txt ]

2023-01-13 16:03:20 -08:00

01bc7842cd7d641aa5c9b5328d0b36099c4c96ca

Evaluated proc happynewyear {{channel #gamme}} {string map "PLACEHOLDER [rainbow $channel]" $::happynewyear}

2022-12-31 09:24:52 -08:00

33c9fb259b538f9370551722cfe518c59d4b06f6

Evaluated proc bgt args {text gaybowchar [join $args]}

2023-03-22 07:08:55 -07:00

44b7497c4bb5f3e8c071b12b7ece82766a88068d

Evaluated proc sr {s} {set r {}; set i [string len $s]; while {$i > 0} {append r [string index $s [incr i -1]]}; . $r}

2023-09-02 15:31:47 -07:00

61d461e02e7bcef8ea98f079a322145ce65e0754

Evaluated rename n_r_r _n_r_r

2023-01-04 11:10:07 -08:00

64ff39213d131bca6787051448e1f381ed85ec13

Evaluated rename strip_all_old strip_color

2023-01-07 18:21:55 -08:00

71fafc4e2fc1e47e234762a96b80512b6b5534c2

Evaluated proc char c {if [catch {regsub -all {\\*} [decode $::alphabet([string toupper $c])] " "} err] {return [join [string repeat "{ } " 5] \n]} {return $err}}

2020-10-23 15:07:35 +02:00

74aad8611ba1acc7c81a70baded69422a60f1acb

Evaluated proc fuckyousam444 {} b

2023-03-30 13:03:31 -07:00

446e36f703ad4368f85a4fb396371f7e6ec4d86e

Evaluated proc isgitworkingatall args {}

2022-12-06 16:57:57 -08:00

647d53bb581c343b1c3f4fd7b829076e9d613396

Evaluated proc d2d2 {{w1 {[nick]}} {w2 {[name]}}} {ajoin "" [subst ${w1}] [ncock 14] "\n*~~~*\n\nBZZT!" [flip [ncock 14]] [subst ${w2}]}

2023-03-26 16:11:36 -07:00

657bc30942d1570b7235e64128e671947718ce97

Evaluated proc {unknown:2:cmd/^(.+?)agenda$/} {match args} { agenda__ [last $match] [bif [second $args] [second $args] 5] }

2020-10-07 16:25:05 +02:00

689f4294eb670cf61758663926c0fe538d7021c6

Evaluated proc nist_rand' {{when {}} {n 1}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};lrange [hex2dec [n_r_r $when]] 0 $n-1}

2022-12-26 18:22:50 -08:00

778ea439ab6c6ee8718b27fa17634bef1ffad57b

Evaluated eval [wget https://dpaste.com/DN86PD2GE.txt ]

2023-01-13 15:39:26 -08:00

0278add4d156077f214a8c921e96a6f0dd4fe7cf

Evaluated proc stock3 symbol {set __results [stock_yahoo_v10 $symbol]; set __columns [list previousClose open bid ask marketCap fiftyTwoWeekHigh fiftyTwoWeekLow];set __info "[list [list ticker $symbol]]"; map $__columns {c {catch {lappend __info "$c [dict get $__results $c]"}}};fuckingcolumns $__info}

2023-01-08 16:18:14 -08:00

2980d6f3cfa6465f4081ae1edd40a2f34124aa0b

Evaluated proc screensaver {} {giga stampsay nigger}

2023-02-10 12:41:11 -08:00

3890c04a958c9138800ac51342588002c2877e7c

Evaluated rename strip_color strip_color_broken

2023-01-07 18:03:30 -08:00

6620f95d7dde25913cb3b010cb101bf3db16f371

Evaluated rename incogagenda:event _incogagenda:event_old

2020-10-07 16:10:13 +02:00

7350d9495ac03aaeea097bcb716a52eacbda7ce0

Evaluated proc gay_real {} {next_in_list {04 08 09 11 10 13 06}}

2022-12-13 19:05:26 -08:00

68155ff44e6210ac8e37cd9894e4a4610383677e

Evaluated proc goodmorning {} {. good morning [nicks]}

2023-03-13 01:57:48 -07:00

2871591e64f027a23fadafaa00305a8bd3484292

Evaluated proc gay {} {return "[next_in_list {04 08 09 11 10 13 06}]"}

2022-12-13 19:03:37 -08:00

7606229a99684f69dfa352a0e134b43af0cc78a6

Evaluated proc NASA_GRADE_DECRYPTION {the_cipher the_key} {set ret {}; set thecharacter {}; set thesecret {}; foreach thecharacter $the_cipher thesecret [split $the_key {}] {lappend ret [format "%c" [expr $thecharacter ^ [scan $thesecret %c]]]};join $ret ""}

2020-09-28 22:16:14 +02:00

8588302756d95736b219f846584ebd1294ef08ad

Evaluated proc goddoodle {} randart

2023-03-08 07:47:21 -08:00

a2c78031d562b80be32190e894f4b5801512b492

Evaluated proc tater2 {} {return "[wget http://churchturing.org/w/randart/?w=88&h=666&a=&t=]"}

2023-02-09 13:34:41 -08:00

a3e6e7c6889bff09f43e89d8f76d174a078fee8e

Evaluated rename bgt bgt_fuckyouwinkie

2023-03-22 07:08:43 -07:00

a5bc1d9b2ae74e7a8a249659c13b14f5c2eac13f

Evaluated proc et args {subst [string map {* {[gay]*}} [strip_all [bgbt $args]]]}

2023-01-07 18:24:27 -08:00

a07fa5b8c3bdcc395bb9e27240b191b0f767a294

Evaluated eval [wget https://dpaste.com/5FS85HBAX.txt ]

2023-01-08 17:06:40 -08:00

a71f60c101e24e504c21586c54443b208ad325e2

Evaluated proc niggerdeath args {bt niggerdeath}

2023-05-23 05:37:10 -07:00

a698c49cad760393dd92abe54f19e69e0e4f7f5f

Evaluated rename ricky_word ricky_word_

2020-10-20 21:14:46 +02:00

a5248a7559f86ae24053f685d285219f58c35906

Evaluated eval [wget https://dpaste.com/BFHL43A2T.txt ]

2023-01-13 16:01:24 -08:00

a7765cbdd8817e06abf7b341e9a77adb891b4643

Evaluated proc ricky_word {} {choose hellfire diarrhea smell fart poo piss sausage hamburger unicorn prolapse}

2020-10-20 21:16:06 +02:00

ace1f91d5a51d0d04d50399f12b176e50c1d7a8c

Evaluated proc persian_rug {} {aflip [randart]}

2023-03-09 00:50:54 -08:00

ad24ffbb9db0b76ebeca9cee2c550dc7915e0daf

Evaluated proc string_length_noctrl str {string length [string map [list [^B_] {} [^B] {} [^O] {} [^U] {} [^C] {} {}] $str]}

2024-07-11 13:58:13 -07:00

b97b92d30ce8f6c872670f177fa384e61df3b004

Evaluated proc testo444 args {join $args}

2020-09-14 22:59:31 +02:00

b800a73f299f8d07d59d415cce99644eca6d1648

Evaluated rename t+agenda +agenda

2020-10-07 16:21:51 +02:00

ba7a82a9819c5a1c19a8ff6c426d3365e2735678

Evaluated proc urban args {set c 0; . [^B][^_][string totitle $args]\n\x20\n[regsub -all {(\\r\\n|\\n\\n|\\n|\\r)} [join [map [top [pwget {"definition":"(.+?)"} https://api.urbandictionary.com/v0/define?term=[urlencode [args]]] 3] {x {incr c; . "[^B]$c)[^B] $x\n"}}] \n] \n]}

2023-04-05 04:58:11 -07:00

bcdfd11e8c234b51147cb33c5b5ece3cf5e21758

Evaluated proc alex_fridman_reading args {apply {lex_fridman_reading} $args}

2023-01-05 07:54:45 -08:00

bd59ab4421bf29724e5029877b02d68fc70a58b7

Evaluated proc nigger6 {} {nigger7}

2023-08-24 17:39:43 -07:00

be4fc6825952b2d54286259ef360a9b8a073d5e1

Evaluated proc nist_rand {{when {}}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};set ret 0;set i 0; foreach x [lrange [hex2dec [n_r_r $when]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret}

2022-12-26 18:03:34 -08:00

BOGERED

Evaluated proc char c {if [catch {regsub -all {\\*} [decode $::alphabet([string toupper $c])] " "} err] {return [join [string repeat "{ } " 5] \n]} {return $err}}

2020-10-23 14:59:11 +02:00

c6dc95559aae5947af780d6ecc6f8c9221e68bb7

Evaluated eval [string map {{if {$who eq ""} {set who [lindex_random [names]]}; } {} {$who} {[or $who [nick]]}} [src phpgoon]]

2024-04-17 15:18:37 -07:00

c6eebebb88f70a40e755c79d2506b5829945cb13

Evaluated proc xmasbowchar c {set c [string toupper $c]; if ![info exists ::alphabet($c)] {return [join [string repeat "{ } " 5] \n]}; set ret [list]; foreach line [split [decode $::alphabet($c)] \n] {set g [xmas_colours]; lappend ret [regsub -all {\*($|\n| )} [regsub -all {(^|\n| )\*} $line "\\1$g*"] "*\\1"]}; join $ret \n}

2023-02-16 06:29:37 -08:00

d2aee9543bb4d625863781234a7a0967026a85f1

Evaluated proc n_r_r args n_r_r'

2023-01-04 11:10:31 -08:00

d2c8fcf37d752333c55f1466e21e14e4fa890e27

Evaluated proc bluecheck {} {. 0,12✓}

2023-03-29 18:02:07 -07:00

d8a3c1513a7b4e5edf7a3cc4bd3e3e898f6b502e

Evaluated proc WORDOFGOD args {set ret ""; foreach {a b c d e} [split [n_r_r'] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e" %x] % [llength $::english_words]]]}; return $ret}

2022-12-27 15:28:09 -08:00

d8eb095fe42bb7e4a3daa9d4831b99407a9b9664

Evaluated rename +agenda old+agenda

2020-10-07 16:21:49 +02:00

d29dec8aebfb16af893c14419516f0d83de4f4a7

Evaluated rename niggerdeath_RIP RIP_niggerdeath

2020-10-12 16:53:51 +02:00

d097491444068b183dd4a78abcb7b90d3a94163f

Evaluated proc NumberOfGod {} {dict get [dict get [json2dict [ wget https://beacon.nist.gov/beacon/2.0/pulse/last ]] pulse ] localRandomValue }

2020-10-14 00:54:03 +02:00

dbe0cbd1b5f7bc866fe4775a9b82c4c319740c70

Evaluated proc n_arsebackwards_rands' {n max} {set aret [list]; foreach z [nist_rand' {} $n] {lappend aret [expr $z % $max]}; return $aret}

2022-12-26 18:17:09 -08:00

dc9bb7c7ab363164beeb7cbc5181e1ecb96fbe50

Evaluated proc nigger5 {} {nigger6}

2023-08-24 17:33:48 -07:00

dfc48b42a115fab2be7d88319176e80432aaa6e0

Evaluated eval [wget https://dpaste.com/42YDYQULE.txt ]

2023-01-08 17:10:59 -08:00

e81d45ec6e2f3c540f4b8df4e6177d3c6327d216

Evaluated proc gaybowchar c {set c [string toupper $c]; if ![info exists ::alphabet($c)] {return [join [string repeat "{ } " 5] \n]}; set ret [list]; foreach line [split [decode $::alphabet($c)] \n] {set g [gay]; lappend ret [regsub -all {\*($|\n| )} [regsub -all {(^|\n| )\*} $line "\\1$g*"] "*\\1"]}; join $ret \n}

2023-01-07 18:23:31 -08:00

e88decc1b9755cdcc30ba794600a16ab959eeb2d

Evaluated eval [string map {"Majesty Elizabeth the Second" "His Majesty Charles the Third" "Her" "His" "Queen" "King"} [inspect ctcbait]]

2023-03-30 05:57:49 -07:00

e59618b8fea2a2c6a44577eacfb5ecf791927487

Evaluated eval [wget https://dpaste.com/42YDYQULE.txt ]

2023-01-08 17:10:59 -08:00

f1b80b9c62d71ff793e5084f5c0747b47586405b

Evaluated proc n_r_r' args {join [lindex [split [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/last ]]]] 6]}

2022-12-27 15:26:06 -08:00

f82f87b4bb1f1de348aea420ff40c4697f8cc41f

Evaluated proc fart' {{fart random.cgi}} { get_fart $fart}

2020-09-27 21:25:37 +02:00

fa1e647398c4636182437f7b138ec65abd2edd35

Evaluated rename {unknown:2:cmd/^(.+?)agenda$/} temp_off

2020-10-07 16:22:29 +02:00

facc3d7d8888cd922098694ce61fda1e33c879b8

Evaluated proc NASA_GRADE_ENCRYPTION' evil_code {set ret {}; set the_key [rot13 $evil_code]; set thecharacter {}; foreach thecharacter [split $evil_code {}] thesecret [split $the_key {}] {lappend ret [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]}; return $ret}

2020-09-28 22:05:44 +02:00

fbb08ed9c2636f900a49c4fb3c0d60790562fd5c

Evaluated proc random_word args {?? $::english_words}

2023-01-08 16:39:41 -08:00

ff93d9d9f418fcc87a0f804f5d284ab3c4a4b530

Evaluated rename split_on_formatting split_on_formatting_FUCKYOU

2023-01-08 17:04:42 -08:00