219 Commits

Author SHA1 Message Date
1c34ef8343 Evaluated proc jonathan_blow args {string map "{. } {[newline]}" $::jai} 2025-04-21 02:04:22 -07:00
1a0b858b6a Evaluated proc jonathan_blow args {. $::jai} 2025-04-21 01:52:11 -07:00
de28db6532 Evaluated proc jonathan_blow args $jai 2025-04-21 01:51:37 -07:00
66e582f784 Evaluated proc zirc args {. $::zirc} 2025-03-25 13:57:13 -07:00
f2c7fd6633 Evaluated rename lmoot2024 lmoot 2024-11-03 13:42:28 -08:00
f11d5707ed Evaluated proc lmoot2024 args {. [subst $::hnggggg45]} 2024-11-03 13:38:26 -08:00
66241ce017 Evaluated rename lmoot lmmot_orig_broken 2024-11-03 13:18:19 -08:00
fc480ceb44 Evaluated rename lmiot2024 lmiot 2024-11-03 13:17:47 -08:00
e46bc5924f Evaluated rename lmiot lmiot_orig 2024-11-03 13:17:11 -08:00
88be810db0 Evaluated proc lmiot2024 args {. [subst $::hnggggg44]} 2024-11-03 13:13:31 -08:00
cd44e4db28 Evaluated proc lmiot2024 args {. [subst $hnggggg44]} 2024-11-03 13:13:14 -08:00
4e50254049 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
bd6377e837 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
166f22d6d2 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
30c7898fdc Evaluated proc rexec {nigger} {[wget $nigger]} 2023-08-25 15:16:01 -07:00
a4f5bd949b Evaluated proc nigger6 {} {nigger7} 2023-08-24 17:39:43 -07:00
d847e1a547 Evaluated proc nigger7 {} {nigger5} 2023-08-24 17:39:34 -07:00
0bb4dc08d2 Evaluated proc nigger6 {} {nigger5} 2023-08-24 17:33:54 -07:00
cd78458c33 Evaluated proc nigger5 {} {nigger6} 2023-08-24 17:33:48 -07:00
04f95c6ab0 Evaluated proc bkabait {{prez {Olaf Scholz}}} {subst "I am going to kill $prez, Bundeskanzlerin der BRD."} 2023-07-30 15:48:54 -07:00
c6369e6a83 Evaluated proc niggerdeath args {bt niggerdeath} 2023-05-23 05:37:10 -07:00
56921ce8e6 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
efe78e85d0 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
6b9efd90a5 Evaluated proc fuckyousam444 {} b 2023-03-30 13:03:31 -07:00
11328749df Evaluated proc fuckyousam444 {} a 2023-03-30 13:03:15 -07:00
1f9a2775c0 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
16be86528e Evaluated proc tnbtube {} {. 0,4 ► TnbTube} 2023-03-30 00:39:36 -07:00
5c0ea44596 Evaluated proc tnbtube {} {. 0,4►TnbTube} 2023-03-30 00:39:12 -07:00
eb85c9428e Evaluated proc bluecheck {} {. 0,12✓} 2023-03-29 18:02:07 -07:00
fe94fdf1de 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
456c763d24 Evaluated proc d2d2 {{w1 {[nick]}} {w2 {[name]}}} {ajoin "" [subst ${w1}] [ncock 14] "\n*~~~*\n\nBZZT!" [flip [ncock 14] [subst ${w2}]} 2023-03-26 16:10:58 -07:00
254ad2ddc5 Evaluated proc bgt args {text gaybowchar [join $args]} 2023-03-22 07:08:55 -07:00
abee6a2f8a Evaluated rename bgt bgt_fuckyouwinkie 2023-03-22 07:08:43 -07:00
a1659f2ef7 Evaluated proc goodmorning {} {. good morning [nicks]} 2023-03-13 01:57:48 -07:00
f0aedebf98 Evaluated proc persian_rug {} {aflip [randart]} 2023-03-09 00:50:54 -08:00
3068b94a61 Evaluated proc goddoodle {} randart 2023-03-08 07:47:21 -08:00
3c51fa285a 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
c043e77e01 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,$g*"] "*\\1"]}; join $ret \n} 2023-02-16 06:29:14 -08:00
db75ebb8ee 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,$g*"] "*\\1"]}; join $ret \n} 2023-02-16 06:25:13 -08:00
c13bdd454a 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:23:49 -08:00
e2dcf78a6c Evaluated proc screensaver {} {giga stampsay nigger} 2023-02-10 12:41:11 -08:00
636d8b52df Evaluated proc tater2 {} {return "[wget http://churchturing.org/w/randart/?w=88&h=666&a=&t=]"} 2023-02-09 13:34:41 -08:00
277c106d9c Evaluated proc tater2 {} {return "[wget http://churchturing.org/w/randart/?w=88&h=88&a=&t=]"} 2023-02-09 13:33:21 -08:00
5cb3e3ac21 Evaluated eval [wget https://dpaste.com/7VZMTHQSK.txt] 2023-01-13 16:03:20 -08:00
e4db2f690f Evaluated eval [wget https://dpaste.com/BFHL43A2T.txt] 2023-01-13 16:01:24 -08:00
63d2df2ea0 Evaluated eval [wget https://dpaste.com/9RSAV65EW.txt] 2023-01-13 15:59:47 -08:00
250a01b24c Evaluated eval [wget https://dpaste.com/HXY65MWT5.txt] 2023-01-13 15:59:03 -08:00
04d6625683 Evaluated eval [wget https://dpaste.com/6EM52ENEH.txt] 2023-01-13 15:55:40 -08:00
28db36d520 Evaluated eval [wget https://dpaste.com/8HLF79NYP.txt] 2023-01-13 15:50:10 -08:00
bd13f8bd2b Evaluated eval [wget https://dpaste.com/DN86PD2GE.txt] 2023-01-13 15:39:26 -08:00