203 Commits

Author SHA1 Message Date
radical_honesty on #flashsupport
d34e09b599 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 [join $ret]} 2022-12-26 18:29:42 -08:00
radical_honesty on #flashsupport
02f1b53b97 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 10 128] {lappend ret [lindex [.. a z] [expr $z % 26]]};join $ret} 2022-12-26 18:29:04 -08:00
radical_honesty on #flashsupport
2e8ed67808 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
radical_honesty on #flashsupport
ede8e9cba8 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 10 128] {lappend ret [format %c [expr $z + 32]]};join $ret} 2022-12-26 18:20:42 -08:00
radical_honesty on #flashsupport
6389b57ea1 Evaluated proc word_of_american_god' {} {set ret [list]; foreach z [n_arsebackwards_rands' 5 128] {lappend ret [format %c [expr $z + 32]]};join $ret} 2022-12-26 18:19:38 -08:00
radical_honesty on #flashsupport
d99a5b9b93 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
radical_honesty on #flashsupport
e430ea4106 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:16:10 -08:00
radical_honesty on #flashsupport
664fc34caa Evaluated proc nist_rand' {{when {}} {n 1}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};lrange [hex2dec [n_r_r $when]] 0 4} 2022-12-26 18:08:30 -08:00
radical_honesty on #flashsupport
3e25591e6b 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
radical_honesty on #flashsupport
3432e3a495 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 [last [regexp -inline {<outputValue>(.*?)</outputValue>} [n_r_r $when]]]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret} 2022-12-26 18:03:03 -08:00
radical_honesty on #flashsupport
4826a98b0f Evaluated proc n_r_r when {join [lindex [split [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 6]} 2022-12-26 18:02:17 -08:00
radical_honesty on #flashsupport
515b3a22cb Evaluated proc n_r_r when {lindex [split [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 6} 2022-12-26 18:02:00 -08:00
radical_honesty on #flashsupport
13d5bcd432 Evaluated proc n_r_r when {lrange [split [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0 19} 2022-12-26 18:01:17 -08:00
radical_honesty on #flashsupport
6f37e039bf Evaluated proc n_r_r when {lrange [join [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0 19} 2022-12-26 18:00:30 -08:00
radical_honesty on #flashsupport
56897b40d4 Evaluated proc n_r_r when {lrange [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]] 0 19} 2022-12-26 17:59:45 -08:00
radical_honesty on #flashsupport
d406ea0fca Evaluated proc n_r_r when {lrange [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]] end-129 end-1} 2022-12-26 17:59:01 -08:00
radical_honesty on #flashsupport
c73712081b Evaluated proc n_r_r when {lindex [list [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0} 2022-12-26 17:57:26 -08:00
radical_honesty on #flashsupport
8b695700c8 Evaluated proc n_r_r when {lindex [list [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 2} 2022-12-26 17:57:00 -08:00
radical_honesty on #flashsupport
414a879d79 Evaluated proc n_r_r when {lindex 2 [list [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]]} 2022-12-26 17:55:24 -08:00
radical_honesty on #flashsupport
8fc71e9a2d 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 [last [regexp -inline {<outputValue>(.*?)</outputValue>} [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret} 2022-12-26 17:39:20 -08:00
General_Quadrangle on #flashsupport
da05820b1d 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
General_Quadrangle on #flashsupport
b71c2b244a 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:30 -08:00
General_Quadrangle on #flashsupport
b3eaa5458a 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:39:39 -08:00
General_Quadrangle on #flashsupport
b5371acda2 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:39:25 -08:00
General_Quadrangle on #flashsupport
1d9fc2fb11 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:38:44 -08:00
General_Quadrangle on #flashsupport
a23b4be4a8 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:38:17 -08:00
General_Quadrangle on #flashsupport
5c00263489 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:38:06 -08:00
GML(gamme_markup_language) on #flashsupport
7d65589af1 Evaluated proc gay_real {} {next_in_list {04 08 09 11 10 13 06}} 2022-12-13 19:05:26 -08:00
GML(gamme_markup_language) on #flashsupport
fdbcdf3688 Evaluated proc gay {} {return "[next_in_list {04 08 09 11 10 13 06}]"} 2022-12-13 19:03:37 -08:00
GML(gamme_markup_language) on #flashsupport
df4376d4e5 Evaluated proc strip_all str {regsub -all {[\[\]]} [strip_color $str] ""} 2022-12-13 19:00:46 -08:00
TheGreatGammo on #flashsupport
845624cc8b Evaluated babak 2022-12-07 13:26:05 -08:00
lindows on #flashsupport
e3d7280388 Evaluated set ::canadian_food_dict [list "pountine" "cheese" "maple logs" "moose jerky"] 2022-12-06 17:14:33 -08:00
lindows on #flashsupport
de4f56c0bc Evaluated set ::fatgoon_finale [list "time to take the batteries out of my scale"] 2022-12-06 17:11:23 -08:00
TheGreatGammo on #flashsupport
ec0cb10aca Evaluated proc isgitworkingatall args {} 2022-12-06 16:57:57 -08:00
hastur on #computerchat
26aecba13b 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
hastur on #computerchat
49d7825eb5 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
hastur on #computerchat
ec2b6f7167 Evaluated proc ricky_word {} {choose hellfire diarrhea smell fart poo piss sausage hamburger unicorn prolapse} 2020-10-20 21:16:06 +02:00
hastur on #computerchat
e2865dfb61 Evaluated rename ricky_word ricky_word_ 2020-10-20 21:14:46 +02:00
jbs on #computerchat
a578077bc2 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
jbs on #computerchat
b4cf90a20d Evaluated set ::a [json2dict [ wget https://beacon.nist.gov/beacon/2.0/pulse/last ]]] 2020-10-14 00:51:24 +02:00
hastur on #computerchat
c4b863e13c Evaluated rename niggerdeath_RIP RIP_niggerdeath 2020-10-12 16:53:51 +02:00
hastur on #computerchat
f03cfd9ef6 Evaluated rename niggerdeath niggerdeath_RIP 2020-10-12 16:52:40 +02:00
jbs on #computerchat
da84bb8766 Evaluated if [catch {regsub -all {\*} [decode $::alphabet([string toupper "N"])] " "} err] {return [join [string repeat "{ } " 5] \n]} {return $err} 2020-10-12 16:27:28 +02:00
hastur on #computerchat
13fab5b81f Evaluated array set alphabet [urldecode [wget https://pastebin.com/raw/DFvEybSR]] 2020-10-12 16:23:49 +02:00
jbs on #computerchat
99a8c1eb06 Evaluated unset ::alphabet 2020-10-12 16:22:57 +02:00
hastur on #computerchat
d885e302fc Evaluated array set ::alphabet [wget https://shortwave.gamme.co/static/alphabet] 2020-10-12 16:21:21 +02:00
hastur on #computerchat
e4b7680332 Evaluated unset ::alphabet 2020-10-12 16:21:04 +02:00
jbs on #computerchat
266d75899c Evaluated set ::alphabet [array get [wget https://shortwave.gamme.co/static/alphabet]] 2020-10-12 16:19:37 +02:00
jbs on #computerchat
74dea89cb1 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
jbs on #computerchat
462ec4b39e Evaluated rename {unknown:2:cmd/^(.+?)agenda$/} temp_off 2020-10-07 16:22:29 +02:00