shaniqua-smeggdrop

_index

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

2023-01-05 07:54:21 -08: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

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

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 {[\[\]]} [strip_color $str] ""}

2022-12-13 19:00:46 -08:00

5a40678c150205d31ffbd01d683d1508fdb8bbd5

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

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

7d1d02d6635d653a60b8681b144ef62e9dc3d21a

Evaluated rename lfl lex_fridman_reading

2023-01-04 13:55:44 -08:00

9c10d20ef25f4c3fb4c51b91640338fd3629cddf

Evaluated rename lex_fridman_reading _lex_fridman_reading_inner

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

01bc7842cd7d641aa5c9b5328d0b36099c4c96ca

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

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

61d461e02e7bcef8ea98f079a322145ce65e0754

Evaluated rename n_r_r _n_r_r

2023-01-04 11:10:07 -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

446e36f703ad4368f85a4fb396371f7e6ec4d86e

Evaluated proc isgitworkingatall args {}

2022-12-06 16:57:57 -08: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

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

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

a698c49cad760393dd92abe54f19e69e0e4f7f5f

Evaluated rename ricky_word ricky_word_

2020-10-20 21:14:46 +02: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

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

bcdfd11e8c234b51147cb33c5b5ece3cf5e21758

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

2023-01-05 07:54:45 -08: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

d2aee9543bb4d625863781234a7a0967026a85f1

Evaluated proc n_r_r args n_r_r'

2023-01-04 11:10:31 -08: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

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