Compare commits

...

95 Commits

Author SHA1 Message Date
f0aedebf98 Evaluated proc persian_rug {} {aflip [randart]} 2023-03-09 00:50:54 -08:00
54ed02a351 Evaluated set vflip_pairs_better {} 2023-03-09 00:38:40 -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
4c0349e17a Evaluated set ::chinkmap [list {l} {r} {r} {l}] 2023-02-14 07:23:17 -08:00
9c3c0342ac Evaluated set ::tranny_dict [list dialator not-passing {programming socks}] 2023-02-10 16:46:48 -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
3e3d36d664 Evaluated mm 1 2 3 4 2023-02-09 11:01:03 -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
4edae87313 Evaluated eval [wget https://dpaste.com/45NFJ9E7D.txt] 2023-01-13 15:37:53 -08:00
bf91966b98 Evaluated eval [wget https://dpaste.com/HS975PZ3C.txt] 2023-01-13 12:53:22 -08:00
510acda9e8 Evaluated eval [wget https://dpaste.com/CA93WW37P.txt] 2023-01-13 12:50:39 -08:00
bbd4982404 Evaluated eval [wget https://dpaste.com/42UT6A5K2.txt] 2023-01-13 12:27:09 -08:00
a47f3f88dd Evaluated eval [wget https://dpaste.com/C8U7QH44L.txt] 2023-01-13 12:23:25 -08:00
d65434ad64 Evaluated eval [wget https://dpaste.com/8ZSXLH4L9.txt] 2023-01-13 12:12:13 -08:00
0e8e0a4813 Evaluated eval [wget https://dpaste.com/EBF3RN263.txt] 2023-01-13 12:09:27 -08:00
d4b00068ac Evaluated eval [wget https://dpaste.com/GKWSV7XME.txt] 2023-01-13 12:08:16 -08:00
a168a48563 Evaluated eval [wget https://dpaste.com/CFH85HDYB.txt] 2023-01-13 12:00:55 -08:00
74bf0fd5e7 Evaluated eval [wget https://dpaste.com/DA9Z3FZYV.txt] 2023-01-13 11:59:46 -08:00
163cae0843 Evaluated eval [wget https://dpaste.com/BUDDSCQ3Y.txt] 2023-01-13 11:56:55 -08:00
c5b92d0a99 Evaluated rename csplit_fuckyou csplit 2023-01-13 11:50:57 -08:00
7803befb63 Evaluated rename csplit {} 2023-01-13 11:50:56 -08:00
0219d52731 Evaluated proc csplit s {split_on_formatting $s} 2023-01-13 11:48:26 -08:00
b7d6f3f567 Evaluated proc csplit s {split [strip_all $s] {}} 2023-01-13 11:47:28 -08:00
35080506cb Evaluated proc csplit s {split [strip_formatting $s] {}} 2023-01-13 11:47:15 -08:00
efbcdaa0cc Evaluated proc csplit s {split [strip_all $s] {}} 2023-01-13 11:46:52 -08:00
c43404514c Evaluated rename csplit csplit_fuckyou 2023-01-13 11:30:43 -08:00
3611d1ceeb Evaluated set niggermen Obama 2023-01-13 11:25:21 -08:00
5c7b005693 Evaluated set crw_dict trannies 2023-01-13 11:22:06 -08:00
b0748baaf4 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
971db11e8b Evaluated set ::onion_chars [list a b c d e f g h] 2023-01-13 11:16:52 -08:00
1a238d2994 Evaluated unset ::programming_language 2023-01-10 05:44:43 -08:00
94a814cc57 Evaluated set ::programming_language_dict $::programming_language 2023-01-10 05:44:18 -08:00
f0b69fed27 Evaluated set ::programming_language {} 2023-01-10 05:42:42 -08:00
0c9893b914 Evaluated set ::w_topic [list "gay sex"] 2023-01-09 16:31:14 -08:00
8913e4f343 Evaluated set ::eastern_european_dict [list Transnistria Ukraine Belarus Moldova Serbia Croatia Bosnia Magyar] 2023-01-09 16:21:09 -08:00
322c3fc022 Evaluated eval [wget https://dpaste.com/42YDYQULE.txt] 2023-01-08 17:10:59 -08:00
fdf2dfff87 Evaluated set flip_pairs {\ / / \ ( ) ) ( Y Y \" \"} 2023-01-08 17:09:05 -08:00
7f8aedc682 Evaluated eval [wget https://dpaste.com/5FS85HBAX.txt] 2023-01-08 17:06:40 -08:00
5c9e4f2660 Evaluated rename split_on_formatting split_on_formatting_FUCKYOU 2023-01-08 17:04:42 -08:00
52dca52311 Evaluated rename split_on_formatting_FUCKYOU split_on_formatting 2023-01-08 17:03:33 -08:00
2131e7500c Evaluated rename split_on_formatting split_on_formatting_FUCKYOU 2023-01-08 17:03:06 -08:00
870c1f218d Evaluated set ethnic_group_dict [list chink nigger wop spic jew englishman] 2023-01-08 16:48:52 -08:00
47c39db2cf Evaluated set faglame_dict [list incog] 2023-01-08 16:47:51 -08:00
0138f3c5f1 Evaluated set goon_dict [list mmm] 2023-01-08 16:47:33 -08:00
dd282e390d Evaluated set food_dict [list hamburger hotdog burrito empañadas crab pierogis pizza corndog] 2023-01-08 16:47:12 -08:00
504350c884 Evaluated set sex_acts [list fucking sucking licking] 2023-01-08 16:46:27 -08:00
cec5925ca1 Evaluated set gudrow_dict [list gudrow] 2023-01-08 16:45:17 -08:00
f452830b26 Evaluated set fetish_dict [list scat vore snuff rape inflation lolicon shotacon pissing voyeur hogtied forced violated crying gangraped {passed out} drunk drugged] 2023-01-08 16:45:01 -08:00
66827e74e1 Evaluated set celebrities [list "Ariana Grande" "Dua Lipa" "Ivanka Trump" "Jenna Ortega"] 2023-01-08 16:43:00 -08:00
5985eb5614 Evaluated set virusextensions [list exe lnk chm bat jpg pdf] 2023-01-08 16:40:35 -08:00
5638e326bc Evaluated proc random_word args {?? $::english_words} 2023-01-08 16:39:41 -08:00
68ec3f28e8 Evaluated proc random_word_alt args {set dict [?? $::dicts_singleword]; ?? [set ::[subst $dict]]} 2023-01-08 16:39:15 -08:00
dc4631735a Evaluated proc random_word args {set dict [?? $::english_word]; ?? [set ::[subst $dict]]} 2023-01-08 16:38:17 -08:00
d7d9e21509 Evaluated set unixprog_dict [list batcat unrar echo telnet rustc php] 2023-01-08 16:37:14 -08:00
950b84d78a 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
1662da42d4 Evaluated set color_names [list white black blue green {light red} brown purple orange yellow {light green} cyan {light cyan} {light blue} ping grey {light grey}] 2023-01-07 19:12:33 -08:00
27b173bfa6 Evaluated unset color_names 2023-01-07 19:10:13 -08:00
fb58b25748 Evaluated array set color_names {red 4} 2023-01-07 19:10:02 -08:00
4f080ff70a Evaluated unset color_names 2023-01-07 19:09:39 -08:00
53b6a18d01 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
266f73302d Evaluated proc color args {if ![llength $args] {return };if {[lindex $args 0] eq "default"} {return };set ret \x[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:01 -08:00
2d31debfa0 Evaluated proc color args {if ![llength $args] {return };if {[lindex $args 0] eq "default"} {return };set ret [color_of [lindex $args 0]]; if {[llength $args] > 1} {if {[lindex $args 1] eq "on"} {append ret \x03,[color_of [lindex $args 2]]} {append ret \x03,[color_of [lindex $args 1]]}}; return $ret} 2023-01-07 19:07:02 -08:00
933de77c3d Evaluated proc color args {if ![llength $args] {return };if {[lindex $args 0] eq "default"} {return };set ret [color_of [lindex $args 0]]; if {[llength $args] > 1} {if {[lindex $args 1] eq "on"} {append ret ,[color_of [lindex $args 2]]} {append ret \x03,[color_of [lindex $args 1]]}}; return $ret} 2023-01-07 19:06:34 -08:00
9d35cd48a6 Evaluated set color_names {{red 04}} 2023-01-07 18:57:40 -08:00
22bafc97f9 Evaluated set roulette_n_chambers 6 2023-01-07 18:54:31 -08:00
e3a78e7b19 Evaluated set roulette_current_chamber 0 2023-01-07 18:54:22 -08:00
fed02db826 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 {lappend __info "$c [dict get $__results $c]"}};fuckingcolumns $__info} 2023-01-07 18:52:22 -08:00
d6451bc21b Evaluated proc stock3 symbol {set __results [stock_yahoo_v10 $symbol]; set __columns [list previousClose open bid ask];set __info "[list [list ticker $symbol]]"; map $__columns {c {lappend __info "$c [dict get $__results $c]"}};fuckingcolumns $__info} 2023-01-07 18:49:24 -08:00
c2ad291391 Evaluated set symbol "TSLA"; set __columns [list previousClose open bid ask];set __info "[list ticker $symbol]"; lappend __info [map $__columns {c {. "$c [dict get $::__TSLA $c]"}}];return $__info 2023-01-07 18:44:32 -08:00
df42a90211 Evaluated set __columns [list previousClose open bid ask];map $__columns {c {dict get $::__TSLA $c}} 2023-01-07 18:40:36 -08:00
b23769ec6d Evaluated proc et args {subst [string map {* {[gay]*}} [strip_all [bgbt $args]]]} 2023-01-07 18:24:27 -08:00
ec6474cb92 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
3b23ba283e 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:11 -08:00
29e839b4d7 Evaluated rename strip_all_old strip_color 2023-01-07 18:21:55 -08:00
c99dff299d Evaluated proc strip_all str {regsub -all {[\x0f\x02\x1f\]\[]} [strip_color $str] ""} 2023-01-07 18:21:25 -08:00
07bcfed102 Evaluated rename strip_color strip_all_old 2023-01-07 18:20:59 -08:00
750b961ac6 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,$g*"] "*\\1"]}; join $ret \n} 2023-01-07 18:20:19 -08:00
e476f330d0 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,$g\*"] "*\\1"]}; join $ret \n} 2023-01-07 18:17:28 -08:00
2e289589a1 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,$g*"] "*\\1"]}; join $ret \n} 2023-01-07 18:17:10 -08:00
00121ff96e Evaluated set pedo_dict {Greta Thumberg} 2023-01-07 18:06:46 -08:00
7b93451897 Evaluated proc strip_color str {regsub -all {\x03\d{1,2}(,\d{1,2})?} $str {}} 2023-01-07 18:03:45 -08:00
96d784017d Evaluated rename strip_color strip_color_broken 2023-01-07 18:03:30 -08:00
cdf3c4edee Evaluated proc strip_colour str {regsub -all {\d{1,2}(,\d{1,2})?} $str {}} 2023-01-07 18:00:20 -08:00
54 changed files with 280 additions and 1 deletions

View File

@ -0,0 +1 @@
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}

View File

@ -0,0 +1 @@
str {regsub -all {\d{1,2}(,\d{1,2})?} $str {}}

View File

@ -0,0 +1 @@
{} {giga stampsay nigger}

View File

@ -0,0 +1 @@
str {regsub -all {\d{1,2}(,\d{1,2})?} $str {}}

View File

@ -0,0 +1 @@
args {set dict [?? $::dicts_singleword]; ?? [set ::[subst $dict]]}

View File

@ -1 +1 @@
str {regsub -all {[\[\]]} [strip_color $str] ""}
str {regsub -all {[\x0f\x02\x1f\]\[]} [strip_color $str] ""}

View File

@ -0,0 +1 @@
str {regsub -all {\x03\d{1,2}(,\d{1,2})?} $str {}}

View File

@ -0,0 +1 @@
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}

View File

@ -0,0 +1,30 @@
{s n} {
set c [csplit $s]
if {$n > [expr [llength [lindex $c 0]]-1]} {set n [expr [llength [lindex $c 0]]-1]}
set b 0
set u 0
set cf -1
set cb -1
set r ""
foreach f [lindex $c 1] {
if {[lindex $f 0] > $n} {
if {$b eq 1} {append r "\002"}
if {$u eq 1} {append r "\037"}
if {$cf > -1} {append r [format "\002%s" $cf]}
if {$cb > -1} {append r [format ",%s" $cb]}
return $r
}
if {[lindex $f 1] eq "\002"} {set b [expr $b ^ 1]}
if {[lindex $f 1] eq "\037"} {set u [expr $u ^ 1]}
if {[lindex $f 1] eq "\003"} {set cf -1;set cb -1}
if {[lindex $f 1] eq "\017"} {set cf -1;set cb -1;set b 0;set u 0}
if {[lindex $f 1] eq "\026"} {set t $cb;set cb $cf;set cf $t}
if {[set m [regexp -inline {([\d]+)$} [lindex $f 1]]] ne ""} {set cf [lindex $m 1]}
if {[set m [regexp -inline {([\d]+),([\d]+)} [lindex $f 1]]] ne ""} {set cf [lindex $m 1];set cb [lindex $m 2]}
}
if {$b eq 1} {append r "\002"}
if {$u eq 1} {append r "\037"}
if {$cf > -1} {append r [format "\002%s" $cf]}
if {$cb > -1} {append r [format ",%s" $cb]}
return $r
}

View File

@ -0,0 +1 @@
{} {set randstr ""; for {set i 1} {$i<=56} {incr i} {append randstr [?? $::onion_chars]}; return "$randstr"}

View File

@ -0,0 +1 @@
{} randart

View File

@ -0,0 +1,53 @@
s {
set f 0;
set r [list];
set a [list];
set e [list];
set i 0;
foreach c [split $s ""] {
switch -- $f {
0 {
switch -- $c {
\003 {set f 1;set b \003}
\002 {lappend e [list $i \002]}
\037 {lappend e [list $i \037]}
\026 {lappend e [list $i \026]}
\x1d {lappend e [list $i \x1d]}
default {lappend a $c;incr i}
}
}
1 {
switch -regexp -- $c {
\\d {append b $c;incr f}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
}
}
2 {
switch -regexp -- $c {
\\d {append b $c;incr f}
, {append b $c;set f 4}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
}
}
3 {
switch -- $c {
, {append b $c;incr f}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
}
}
4 {
switch -regexp -- $c {
\\d {append b $c;incr f}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
}
}
5 {
switch -regexp -- $c {
\\d {append b $c;lappend e [list $i $b];set f 0}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
}
}
}
}
return [list $a $e]
}

View File

@ -10,10 +10,17 @@ _lex_fridman_reading 5a1df4f81f8e92fe879f3e9370f132b24e43daae
_lex_fridman_reading_inner 9c10d20ef25f4c3fb4c51b91640338fd3629cddf
_n_r_r 61d461e02e7bcef8ea98f079a322145ce65e0754
alex_fridman_reading bcdfd11e8c234b51147cb33c5b5ece3cf5e21758
c_at_n 778ea439ab6c6ee8718b27fa17634bef1ffad57b
c_at_n_debug a5248a7559f86ae24053f685d285219f58c35906
char 71fafc4e2fc1e47e234762a96b80512b6b5534c2
color 6dd0fe8001145bec4a12d0e22da711c4970d000b
csplit 9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
et a5bc1d9b2ae74e7a8a249659c13b14f5c2eac13f
fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f
gay 2871591e64f027a23fadafaa00305a8bd3484292
gay_real 7350d9495ac03aaeea097bcb716a52eacbda7ce0
gaybowchar e81d45ec6e2f3c540f4b8df4e6177d3c6327d216
goddoodle 8588302756d95736b219f846584ebd1294ef08ad
happynewyear 01bc7842cd7d641aa5c9b5328d0b36099c4c96ca
isgitworkingatall 446e36f703ad4368f85a4fb396371f7e6ec4d86e
lex_fridman_reading 7d1d02d6635d653a60b8681b144ef62e9dc3d21a
@ -23,14 +30,29 @@ n_r_r' f1b80b9c62d71ff793e5084f5c0747b47586405b
nist_rand be4fc6825952b2d54286259ef360a9b8a073d5e1
nist_rand' 689f4294eb670cf61758663926c0fe538d7021c6
old+agenda d8eb095fe42bb7e4a3daa9d4831b99407a9b9664
parse_formatting dfc48b42a115fab2be7d88319176e80432aaa6e0
persian_rug ace1f91d5a51d0d04d50399f12b176e50c1d7a8c
rand_onion 7cfa62dca748eb0d3e538d92e6de770f0aed3899
random_word fbb08ed9c2636f900a49c4fb3c0d60790562fd5c
random_word_alt 4cd6aa22af199e746253fd437122ed790cbabdd3
ricky_word a7765cbdd8817e06abf7b341e9a77adb891b4643
ricky_word_ a698c49cad760393dd92abe54f19e69e0e4f7f5f
screensaver 2980d6f3cfa6465f4081ae1edd40a2f34124aa0b
settuB 4e55d43392c0033c6ea4174b1e196f5cb3f21373
split_on_formatting a07fa5b8c3bdcc395bb9e27240b191b0f767a294
split_on_formatting_FUCKYOU ff93d9d9f418fcc87a0f804f5d284ab3c4a4b530
stock3 0278add4d156077f214a8c921e96a6f0dd4fe7cf
stock_yahoo_v10 3baf09c618e19a34cf07d03aad8a9ca6bdef4564
strip_all 4f2fcfac11b586cc810f9858a5b5613f19d25525
strip_color 64ff39213d131bca6787051448e1f381ed85ec13
strip_color_broken 3890c04a958c9138800ac51342588002c2877e7c
strip_colour 1de53d931a484bf54036f9c202ed3ffb32cfed6f
tater2 a2c78031d562b80be32190e894f4b5801512b492
temp_off fa1e647398c4636182437f7b138ec65abd2edd35
test234535 2d931b665420e63cb8ef8b9ce33f1e0ff66c109a
testo444 b97b92d30ce8f6c872670f177fa384e61df3b004
testo4444 5a40678c150205d31ffbd01d683d1508fdb8bbd5
{unknown:2:cmd/^(.+?)agenda$/} 657bc30942d1570b7235e64128e671947718ce97
unparse_formatting e59618b8fea2a2c6a44577eacfb5ecf791927487
word_of_american_god' 0fc1fa5c2a01f14226e42c6fba796c4f126b1fe3
xmasbowchar c6eebebb88f70a40e755c79d2506b5829945cb13

View File

@ -0,0 +1,11 @@
string {
set result [list]
while {[string length $string]} {
regexp {^(\003((\d{0,2})(,(\d{0,2}))?)?|\002|\037|\026|\017)?([^\003\002\037\026\017]*)(.*)} \
$string {} format {} {} {} {} text remainder
if {$format eq ""} {set format \017}
lappend result $format $text
set string $remainder
}
return $result
}

View File

@ -0,0 +1 @@
{} {return "[wget http://churchturing.org/w/randart/?w=88&h=666&a=&t=]"}

View File

@ -0,0 +1,37 @@
{s n} {
set debug [list];
set c [csplit $s]
if {$n > [expr [llength [lindex $c 0]]-1]} {set n [expr [llength [lindex $c 0]]-1]}
set b 0
set u 0
set cf -1
set cb -1
set r ""
foreach f [lindex $c 1] {
lappend debug "working on $f";
append r [lindex [lindex $c 0] [lindex $f 0]];
lappend debug "actually appended the character [lindex $f 0] of [lindex $c 0] to be formatted: $r";
if {[lindex $f 0] > $n} {
lappend debug "reached end of string"
if {$b eq 1} {append r "\002"; lappend debug "ending bold";}
if {$u eq 1} {append r "\037"; lappend debug "ending underline"}
if {$cf > -1} {append r [format "%s" $cf]; lappend debug "adding foreground colour at end of string"}
if {$cb > -1} {append r [format ",%s" $cb]; lappend debug "adding background colour at end of string"}
lappend debug "final result: $r";
return [join $debug "\n"]
}
if {[lindex $f 1] eq "\002"} {set b [expr $b ^ 1]; lappend debug "found bold character"}
if {[lindex $f 1] eq "\037"} {set u [expr $u ^ 1]; lappend debug "found underline"}
if {[lindex $f 1] eq "\003"} {set cf -1;set cb -1; lappend debug "found color, setting cf to -1, cb to -1"}
if {[lindex $f 1] eq "\017"} {set cf -1;set cb -1;set b 0;set u 0; lappend debug "found format reset, setting cb and cf to -1 for some reason"}
if {[lindex $f 1] eq "\026"} {set t $cb;set cb $cf;set cf $t; lappend debug "found reverse kulerz character, reversing them weirdly"}
if {[set m [regexp -inline {([\d]+)$} [lindex $f 1]]] ne ""} {set cf [lindex $m 1]; lappend debug "found a really interesting number, setting cf to $cf"}
if {[set m [regexp -inline {([\d]+),([\d]+)} [lindex $f 1]]] ne ""} {set cf [lindex $m 1];set cb [lindex $m 2]; lappend debug "found even more numbers, setting cf to $cf and cb to $cb"}
}
if {$b eq 1} {append r "\002"; lappend debug "starting bold"}
if {$u eq 1} {append r "\037"; lappend debug "starting underline"}
if {$cf > -1} {append r [format "%s" $cf]; lappend debug "starting color"}
if {$cb > -1} {append r [format ",%s" $cb]; lappend debug "adding background color"}
lappend debug "final result: $r"
return [join $debug "\n"]
}

View File

@ -0,0 +1 @@
args {subst [string map {* {[gay]*}} [strip_all [bgbt $args]]]}

View File

@ -0,0 +1 @@
{} {aflip [randart]}

View File

@ -0,0 +1 @@
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}

View File

@ -0,0 +1,31 @@
{str {state {}}} {
if {$state eq ""} {
array set f [empty_formatting]
} else {
array set f $state
}
set f(c) [set f(o) 0]
switch -- [string index $str 0] [list \
\003 {
regexp {^\003((\d*)(,(\d*))?)?} $str {} a b {} c
if {$a eq ""} {
set f(fg) [set f(bg) -1]
set f(c) 1
}
if {!($b eq "")} {
set f(fg) $b
}
if {!($c eq "")} {
set f(bg) $c
}
} \002 {
set f(b) [expr !$f(b)]
} \037 {
set f(u) [expr !$f(u)]
} \026 {
set f(r) [expr !$f(r)]
} \017 {
set f(o) 1
}]
array get f
}

View File

@ -0,0 +1,21 @@
{formatting {state {}}} {
if {$state eq ""} {
array set old [empty_formatting]
} else {
array set old $state
}
array set new $formatting
if $old(o) {
array set old [empty_formatting]
}
if $new(o) {
return \017
}
set ret ""
foreach k {b u r} {
if {$old($k) != $new($k)} {
append ret [string map {b \002 u \037 r \026} $k]
}
}
return $ret[unparse_formatting_color [array get new] [array get old]]
}

View File

@ -0,0 +1 @@
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}

View File

@ -0,0 +1 @@
args {?? $::english_words}

View File

@ -0,0 +1 @@
str {set ret [list]; while {[string length $str]} {regexp {^(((\d{0,2})(,(\d{0,2}))?)?||||)?([^]*)(.*)} $str {} f {} {} {} {} t r; if {$f eq ""} {set f }; lappend ret $f $t; set str $r}; return $ret}

View File

@ -0,0 +1 @@
scalar gudrow

View File

@ -0,0 +1 @@
scalar {white black blue green {light red} brown purple orange yellow {light green} cyan {light cyan} {light blue} ping grey {light grey}}

View File

@ -0,0 +1 @@
scalar {previousClose open bid ask}

View File

@ -0,0 +1 @@
scalar {hamburger hotdog burrito empañadas crab pierogis pizza corndog}

View File

@ -0,0 +1 @@
scalar 6

View File

@ -0,0 +1 @@
scalar {C++ BASIC Fortran GoLang Rust tcl rexx perl}

View File

@ -0,0 +1 @@
scalar {Greta Thumberg}

View File

@ -0,0 +1 @@
scalar {dialator not-passing {programming socks}}

View File

@ -0,0 +1 @@
scalar {{gay sex}}

View File

@ -0,0 +1 @@
scalar mmm

View File

@ -0,0 +1 @@
scalar {batcat unrar echo telnet rustc php}

View File

@ -0,0 +1 @@
scalar {\ / / \ ( ) ) ( Y Y \" \"}

View File

@ -0,0 +1 @@
scalar TSLA

View File

@ -0,0 +1 @@
scalar {ticker TSLA {{previousClose 110.34} {open 103.0} {bid 105.68} {ask 105.74}}}

View File

@ -0,0 +1 @@
scalar {chink nigger wop spic jew englishman}

View File

@ -0,0 +1 @@
scalar 0

View File

@ -0,0 +1 @@
scalar {a b c d e f g h}

View File

@ -0,0 +1 @@
scalar Obama

View File

@ -2,6 +2,8 @@
-testvar2 6c62f30003a5f83c896f627f060c485077518f49
-testvar3 5ac13aea7db09736c58c76f3ce88f7495f19be63
__TSLA adda6403bdbaec4fdcba1499b9a8694777a229ca
__columns 341c08a112f13d21532fed8fc900a6638787c01e
__info 82a485fdbe00fbc45ee3821ced74486ca52ab86d
__re fd87858f64540461d27a8c9ff85c299013007708
a 86f7e437faa5a7fce15d1ddcb9eaeaea377667b8
abesto 8ab9a28bac050b2de0d92b670a8771f4eb812e95
@ -13,6 +15,8 @@ atesto bb10a6322118286f5e7624e3e2626a89ea68de61
b e9d71f5ee7c92d6dc9e92ffdad17b8bd49418f98
c 84a516841ba77a5b4648de2cd0dfcb30ea46dbb4
canadian_food_dict 2c61068a57e86b4318cf2ae2aeb401175cba6b35
celebrities aa2d5db6f0ba6784964da0b71765e9d76b84c51b
chinkmap d14040fd281a2039e614eede482d2b2eec9050f8
cipherfor- 0ae7beaa67ca8e389bdd2824a0f838311be93600
cipherfor. 279c358908ee55103791f9bba898d8a451678918
cipherfor0 e41f23afecb48c1234be4224d02183b3629ceb8e
@ -123,16 +127,26 @@ cipherfor{w*\]} ec7f0b301570220ba38ada99f9b7dadea18427a9
cipherfor{x*\]} 6f2cdc4f2bffc959fa776e7d03c45f332f26ed6b
cipherfor{y*\]} d3f0b6feb031cc3845fa7379074eb1292636698d
cipherfor{z*\]} 7aca1cdfdb94b6cf3e0147865665b1b1ad944e3a
color_names 1e3d0e1ca219bbc09cd7d97cde97e4e00e2be16d
crw_dict dd5c57e40abba35c492d835bd32c6416502fd901
d 3c363836cf4e16666669a25da280a1865c2d2874
e 58e6b3a414a1e090dfc6029add0f3555ccba127f
eastern_european_dict fc60798ae84d9050d420dc1401d1bedbde84b444
easy_book 2c3e37e8154c7bf1b31e4efb3650f54da4dc0799
err eb35c321d6997c344882962b8aa1cd0939b123e1
ethnic_group_dict 8bc70ffe257d8c82833f1a465dc14c26f9902471
evil_code 85cd381ac701889046fb523d6baa3e3b56115d8b
f 4a0a19218e082a343a1b17e5333409af9d98f0f5
faglame_dict debdc2fe387e74ab1740b406fe5c76946649afdd
fatgoon_finale 3f71e4b79b1ce01e03fae79396ca0b2ef1f0a778
fetish_dict c217612611699d1e10ff66f7b64c350aa16ab9aa
flip_pairs 77131abfebaf7d4ba4c45facf9ab08d76e05396b
fml ac6e8732ab4d792918f4623fbed2350d1aa22142
food_dict 39b5873307155c1db7442f66d3eccd3b1ef74780
goon_dict 64a34f8f92ad69414382dfdcd04a9348af6e3dc1
goon_liquidfood fd9f6a778fac2065f781718219a753f14ad6db31
goon_solidfood 169ba3b4095bec89dd9eebd630754a0f4d81ba25
gudrow_dict 13ac1ccfc872ea4e9283ee799a1a7251b388124f
happynewyear 01bc7842cd7d641aa5c9b5328d0b36099c4c96ca
hard_book b3076b4644bfa6f0b99613cc6b803ca508f237c1
html_entities e55c7abb691cc2fee5f223eefe39b88f85f102c8
@ -140,12 +154,27 @@ html_preescape c7aa56bd959bbfbb34d4c3a16914ae345c9956cf
i 042dc4512fa3d391c5170cf3aa61e6a638f84342
inter b6708d593ee28aa091422ecce1960712345d85b8
mastermind f6e989ba2ae31502abc33103a088d4a5fc40f325
mastermind_score da6188801283b63292fdfd8462d67f7a8170ef71
mastermind_stats b42b798e94635e089d6b2394f078c49267a33717
niggermen 9dbf7c2c4e4f98f6919eb06bf06dc18f8f15b27a
onion_chars 9ca158751931d77621356b8727fb5260523960cc
pedo_dict 4813f4c00bddefd8746df72e9925cbb1ed6f064a
programming_language_dict 40fc53bcd59349e2c0b5157a210b6a5cede60c5f
ret 41217c2fc772d8c5c8a6f934d6283bb8829e882b
roulette_current_chamber 97bc26f99c37feb802684d73078d3a8508ca4fa6
roulette_n_chambers 3bf87763ecf769b5dcd7d48a447068a23d5d45fc
sex_acts e3168d3e2f685288a5ba59ba7447e92b6afeccad
sfgsdfgsfgs bbd0d60b2e50e020f71abc22925eec8e1088ff34
symbol 810a25d76c31e495cc070bdf42e076f7c9b0a1cd
temp_agenda_str 80fbce382578de9ed1f8bd6c50b2dfc9f200de5c
the_key 15960fcfd1fa841fec22edd3cdb43e000481b704
thecharacter 500d1f6901ee60d7c5c15207ede04a75e3d80ab0
thesecret 211a492a3371d6d290933b1d4f7162a9b29463f9
tranny_dict 51736692ecd6fbe4296f22b711e44c12e7d345b1
unixprog_dict 6f8db3e41b0c4f419cd676828926c9dbdf0f6276
vflip_pairs_better f86d8f97015cbb1764992341f73c320af09c95b2
virusextensions e8b986b831784334c833119f3b06e06b7c375340
w_topic 5deb62b8d4ec7cec7f6f30562242e5c02fdb49c8
x 11f6ad8ec52a2984abaafd7c3b516503785c2072
{{cipherfor-*}} d8ed05bf8e299707e80e4c0bb95bd48b2704d636
{{cipherfor.*}} 8fd504c0934c607d8e9f1465aecf8eed37019532

View File

@ -0,0 +1 @@
scalar {{Ariana Grande} {Dua Lipa} {Ivanka Trump} {Jenna Ortega}}

View File

@ -0,0 +1 @@
array {MathWyyzrd {0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0}}

View File

@ -0,0 +1 @@
scalar {scat vore snuff rape inflation lolicon shotacon pissing voyeur hogtied forced violated crying gangraped {passed out} drunk drugged}

View File

@ -0,0 +1 @@
scalar {l r r l}

View File

@ -0,0 +1 @@
array {MathWyyzrd 0}

View File

@ -0,0 +1 @@
scalar trannies

View File

@ -0,0 +1 @@
scalar incog

View File

@ -0,0 +1 @@
scalar {fucking sucking licking}

View File

@ -0,0 +1 @@
scalar {exe lnk chm bat jpg pdf}

View File

@ -0,0 +1 @@
scalar {}

View File

@ -0,0 +1 @@
scalar {Transnistria Ukraine Belarus Moldova Serbia Croatia Bosnia Magyar}