83 Commits

Author SHA1 Message Date
reggin on #flashsupport
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
radical_honesty on #flashsupport
254ad2ddc5 Evaluated proc bgt args {text gaybowchar [join $args]} 2023-03-22 07:08:55 -07:00
radical_honesty on #flashsupport
abee6a2f8a Evaluated rename bgt bgt_fuckyouwinkie 2023-03-22 07:08:43 -07:00
pynchon on #flashsupport
a1659f2ef7 Evaluated proc goodmorning {} {. good morning [nicks]} 2023-03-13 01:57:48 -07:00
$tater on #flashsupport
f0aedebf98 Evaluated proc persian_rug {} {aflip [randart]} 2023-03-09 00:50:54 -08:00
radical_honesty on #flashsupport
3068b94a61 Evaluated proc goddoodle {} randart 2023-03-08 07:47:21 -08:00
lamotragine_dealer on #flashsupport
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
tater on #flashsupport
e2dcf78a6c Evaluated proc screensaver {} {giga stampsay nigger} 2023-02-10 12:41:11 -08:00
tater on #flashsupport
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
radical_honesty on #flashsupport
28db36d520 Evaluated eval [wget https://dpaste.com/8HLF79NYP.txt] 2023-01-13 15:50:10 -08:00
radical_honesty on #flashsupport
a47f3f88dd Evaluated eval [wget https://dpaste.com/C8U7QH44L.txt] 2023-01-13 12:23:25 -08:00
radical_honesty on #flashsupport
c5b92d0a99 Evaluated rename csplit_fuckyou csplit 2023-01-13 11:50:57 -08:00
radical_honesty on #flashsupport
7803befb63 Evaluated rename csplit {} 2023-01-13 11:50:56 -08:00
radical_honesty on #flashsupport
efbcdaa0cc Evaluated proc csplit s {split [strip_all $s] {}} 2023-01-13 11:46:52 -08:00
radical_honesty on #flashsupport
c43404514c Evaluated rename csplit csplit_fuckyou 2023-01-13 11:30:43 -08:00
ghost_of_Herneitha_Rochelle_Hardaway_Richardson on #flashsupport
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
radical_honesty on #flashsupport
322c3fc022 Evaluated eval [wget https://dpaste.com/42YDYQULE.txt] 2023-01-08 17:10:59 -08:00
radical_honesty on #flashsupport
7f8aedc682 Evaluated eval [wget https://dpaste.com/5FS85HBAX.txt] 2023-01-08 17:06:40 -08:00
radical_honesty on #flashsupport
5c9e4f2660 Evaluated rename split_on_formatting split_on_formatting_FUCKYOU 2023-01-08 17:04:42 -08:00
radical_honesty on #flashsupport
52dca52311 Evaluated rename split_on_formatting_FUCKYOU split_on_formatting 2023-01-08 17:03:33 -08:00
radical_honesty on #flashsupport
2131e7500c Evaluated rename split_on_formatting split_on_formatting_FUCKYOU 2023-01-08 17:03:06 -08:00
radical_honesty on #flashsupport
68ec3f28e8 Evaluated proc random_word_alt args {set dict [?? $::dicts_singleword]; ?? [set ::[subst $dict]]} 2023-01-08 16:39:15 -08:00
radical_honesty on #flashsupport
dc4631735a Evaluated proc random_word args {set dict [?? $::english_word]; ?? [set ::[subst $dict]]} 2023-01-08 16:38:17 -08:00
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
b23769ec6d Evaluated proc et args {subst [string map {* {[gay]*}} [strip_all [bgbt $args]]]} 2023-01-07 18:24:27 -08:00
a on #flashsupport
29e839b4d7 Evaluated rename strip_all_old strip_color 2023-01-07 18:21:55 -08:00
a on #flashsupport
07bcfed102 Evaluated rename strip_color strip_all_old 2023-01-07 18:20:59 -08:00
radical_honesty on #flashsupport
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
radical_honesty on #flashsupport
7b93451897 Evaluated proc strip_color str {regsub -all {\x03\d{1,2}(,\d{1,2})?} $str {}} 2023-01-07 18:03:45 -08:00
radical_honesty on #flashsupport
96d784017d Evaluated rename strip_color strip_color_broken 2023-01-07 18:03:30 -08:00
radical_honesty on #flashsupport
cdf3c4edee Evaluated proc strip_colour str {regsub -all {\d{1,2}(,\d{1,2})?} $str {}} 2023-01-07 18:00:20 -08:00
nigger_diffusion on #flashsupport
0b14cdbb62 Evaluated proc _lex_fridman_reading {{ll 10}} {each [zip [.. $ll] [lrange [zip [shuffle $::easy_book] [shuffle $::hard_book]] 0 $ll-1]] {{i _} {. {Week $i} {$_} {[expr "1 + [rand 5]"] hr @ [rand 2000] WPM"}}}} 2023-01-06 07:58:37 -08:00
nigger_diffusion on #flashsupport
48087cc6df 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
nigger_diffusion on #flashsupport
6d1978742b Evaluated rename 1lex_fridman_reading lex_fridman_reading 2023-01-05 13:29:32 -08:00
nigger_diffusion on #flashsupport
8420b7851f Evaluated rename lex_fridman_reading {} 2023-01-05 13:29:24 -08:00
nigger_diffusion on #flashsupport
98dae29744 Evaluated proc 1lex_fridman_reading {{ll 10}} {each [zip [.. $ll] [lrange [zip [shuffle $::easy_book] [shuffle $::hard_book]] 0 $ll-1]] {{i _} {. "Week $i: $_. Reading Time @ 500 WPM [expr "1 + [rand 120]"]"}}} 2023-01-05 13:26:05 -08:00
nigger_diffusion on #flashsupport
eaeb00091f Evaluated proc alex_fridman_reading args {apply {nextproc} $args} 2023-01-05 07:54:21 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
1ec0907473 Evaluated rename lfl lex_fridman_reading 2023-01-04 13:55:44 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
d78e308f63 Evaluated rename lex_fridman_reading {} 2023-01-04 13:55:40 -08:00
radical_honesty on #flashsupport
8c23cfd41f Evaluated proc lfl {{ll 10}} {each [zip [.. $ll] [lrange [zip [shuffle $::easy_book] [shuffle $::hard_book]] 0 $ll-1]] {{i _} {. "Week $i: $_"}}} 2023-01-04 13:45:02 -08:00
radical_honesty on #flashsupport
2fa81c94cf Evaluated proc n_r_r args n_r_r' 2023-01-04 11:10:31 -08:00
radical_honesty on #flashsupport
877b9097ef Evaluated rename n_r_r _n_r_r 2023-01-04 11:10:07 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
e70ccc9ddf Evaluated proc lex_fridman_reading args {string map -nocase -inline {"'" ""} [join [lex_fridman_reading $args] '\n']} 2023-01-04 11:03:02 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
f78b2dc073 Evaluated rename lex_fridman_reading _lex_fridman_reading_inner 2023-01-04 11:02:15 -08:00
Alex_Fridman`s_High_School_Reading_List on #flashsupport
7fb7bc78b1 Evaluated proc lex_fridman_reading {{N 5}} {for {set i 0} {$i < 5} {incr i} {if [expr $i % 2] {. Week $i: [lindex_random $::hard_book]} {. Week $i: [lindex_random $::easy_book]}}} 2023-01-04 10:08:08 -08:00
radical_honesty on #flashsupport
8ba91531cd Evaluated proc happynewyear {{channel #gamme}} {string map "PLACEHOLDER [rainbow $channel]" $::happynewyear} 2022-12-31 09:24:52 -08:00
radical_honesty on #flashsupport
4652599f7b Evaluated proc n_r_r' when {join [lindex [split [head 1 [tail 3 [wget https://beacon.nist.gov/beacon/2.0/pulse/last]]]] 6]} 2022-12-27 15:25:58 -08:00
radical_honesty on #flashsupport
9425a8195b Evaluated proc WORDOFGOD {{when "8 hours ago"}} {set ret "";foreach {a b c d e} [split [n_r_r [clock scan "8 hours ago"]] {}] {lappend ret [lindex $english_words [expr [scan "$a$b$c$d$e$f" %x] % [llength $english_words]]]}; return $ret} 2022-12-27 15:16:32 -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