wrath/shaniqua-smeggdrop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
shaniqua-smeggdrop/procs
History
P01135809 on #flashsupport 30c7898fdc Evaluated proc rexec {nigger} {[wget $nigger]}
2023-08-25 15:16:01 -07:00
..
_index
Evaluated proc rexec {nigger} {[wget $nigger]}
2023-08-25 15:16:01 -07:00
0f5ea8f842abed5122e1428751fe537222877287
Evaluated proc tnbtube {} {. 0,4 ► TnbTube}
2023-03-30 00:39:36 -07: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
1de53d931a484bf54036f9c202ed3ffb32cfed6f
Evaluated proc strip_colour str {regsub -all {\d{1,2}(,\d{1,2})?} $str {}}
2023-01-07 18:00:20 -08:00
1f43992289e17f4997e5911f49123bfd6088da6e
Evaluated proc rexec {nigger} {[wget $nigger]}
2023-08-25 15:16:01 -07: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
3baf09c618e19a34cf07d03aad8a9ca6bdef4564
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
4cd6aa22af199e746253fd437122ed790cbabdd3
Evaluated proc random_word_alt args {set dict [?? $::dicts_singleword]; ?? [set ::[subst $dict]]}
2023-01-08 16:39:15 -08: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 {[\x0f\x02\x1f\]\[]} [strip_color $str] ""}
2023-01-07 18:21:25 -08:00
5a1df4f81f8e92fe879f3e9370f132b24e43daae
Evaluated proc _lex_fridman_reading {{ll 10}} {each [zip [.. $ll] [lrange [zip [shuffle $::easy_book] [shuffle $::hard_book]] 0 $ll-1]] {{i _} {list [list "Week [format "%02d" $i]" "$_" "[expr "1 + [rand 5]"]hr@[format "%04d" [rand 2000]] WPM"]}}}
2023-01-06 08:08:18 -08:00
5a40678c150205d31ffbd01d683d1508fdb8bbd5
Evaluated proc testo4444 args {. "work you piece of shit"}
2020-09-14 23:06:23 +02:00
5f40c53e11b442eae40e80737ff6a6e6be340b79
Evaluated proc nigger7 {} {nigger5}
2023-08-24 17:39:34 -07:00
6b7604a4d4fc5b6af26660c5162642135d33857e
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
6dd0fe8001145bec4a12d0e22da711c4970d000b
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
7cfa62dca748eb0d3e538d92e6de770f0aed3899
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
7d1d02d6635d653a60b8681b144ef62e9dc3d21a
Evaluated proc lex_fridman_reading args {fuckingcolumns [apply {_lex_fridman_reading} $args]}
2023-01-06 08:06:28 -08:00
8c049c6d78040627af4bfb51ac20f7141e24bb84
Evaluated proc bkabait {{prez {Olaf Scholz}}} {subst "I am going to kill $prez, Bundeskanzlerin der BRD."}
2023-07-30 15:48:54 -07:00
9c10d20ef25f4c3fb4c51b91640338fd3629cddf
Evaluated rename lex_fridman_reading _lex_fridman_reading_inner
2023-01-04 11:02:15 -08:00
9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
Evaluated eval [wget https://dpaste.com/7VZMTHQSK.txt]
2023-01-13 16:03:20 -08:00
01bc7842cd7d641aa5c9b5328d0b36099c4c96ca
Evaluated proc happynewyear {{channel #gamme}} {string map "PLACEHOLDER [rainbow $channel]" $::happynewyear}
2022-12-31 09:24:52 -08:00
33c9fb259b538f9370551722cfe518c59d4b06f6
Evaluated proc bgt args {text gaybowchar [join $args]}
2023-03-22 07:08:55 -07:00
61d461e02e7bcef8ea98f079a322145ce65e0754
Evaluated rename n_r_r _n_r_r
2023-01-04 11:10:07 -08:00
64ff39213d131bca6787051448e1f381ed85ec13
Evaluated rename strip_all_old strip_color
2023-01-07 18:21:55 -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
74aad8611ba1acc7c81a70baded69422a60f1acb
Evaluated proc fuckyousam444 {} b
2023-03-30 13:03:31 -07:00
446e36f703ad4368f85a4fb396371f7e6ec4d86e
Evaluated proc isgitworkingatall args {}
2022-12-06 16:57:57 -08:00
647d53bb581c343b1c3f4fd7b829076e9d613396
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
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
778ea439ab6c6ee8718b27fa17634bef1ffad57b
Evaluated eval [wget https://dpaste.com/DN86PD2GE.txt]
2023-01-13 15:39:26 -08:00
0278add4d156077f214a8c921e96a6f0dd4fe7cf
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
2980d6f3cfa6465f4081ae1edd40a2f34124aa0b
Evaluated proc screensaver {} {giga stampsay nigger}
2023-02-10 12:41:11 -08:00
3890c04a958c9138800ac51342588002c2877e7c
Evaluated rename strip_color strip_color_broken
2023-01-07 18:03:30 -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
68155ff44e6210ac8e37cd9894e4a4610383677e
Evaluated proc goodmorning {} {. good morning [nicks]}
2023-03-13 01:57:48 -07: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
8588302756d95736b219f846584ebd1294ef08ad
Evaluated proc goddoodle {} randart
2023-03-08 07:47:21 -08:00
a2c78031d562b80be32190e894f4b5801512b492
Evaluated proc tater2 {} {return "[wget http://churchturing.org/w/randart/?w=88&h=666&a=&t=]"}
2023-02-09 13:34:41 -08:00
a3e6e7c6889bff09f43e89d8f76d174a078fee8e
Evaluated rename bgt bgt_fuckyouwinkie
2023-03-22 07:08:43 -07:00
a5bc1d9b2ae74e7a8a249659c13b14f5c2eac13f
Evaluated proc et args {subst [string map {* {[gay]*}} [strip_all [bgbt $args]]]}
2023-01-07 18:24:27 -08:00
a07fa5b8c3bdcc395bb9e27240b191b0f767a294
Evaluated eval [wget https://dpaste.com/5FS85HBAX.txt]
2023-01-08 17:06:40 -08:00
a71f60c101e24e504c21586c54443b208ad325e2
Evaluated proc niggerdeath args {bt niggerdeath}
2023-05-23 05:37:10 -07:00
a698c49cad760393dd92abe54f19e69e0e4f7f5f
Evaluated rename ricky_word ricky_word_
2020-10-20 21:14:46 +02:00
a5248a7559f86ae24053f685d285219f58c35906
Evaluated eval [wget https://dpaste.com/BFHL43A2T.txt]
2023-01-13 16:01:24 -08: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
ace1f91d5a51d0d04d50399f12b176e50c1d7a8c
Evaluated proc persian_rug {} {aflip [randart]}
2023-03-09 00:50:54 -08: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
ba7a82a9819c5a1c19a8ff6c426d3365e2735678
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
bcdfd11e8c234b51147cb33c5b5ece3cf5e21758
Evaluated proc alex_fridman_reading args {apply {lex_fridman_reading} $args}
2023-01-05 07:54:45 -08:00
bd59ab4421bf29724e5029877b02d68fc70a58b7
Evaluated proc nigger6 {} {nigger7}
2023-08-24 17:39:43 -07: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
c6eebebb88f70a40e755c79d2506b5829945cb13
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
d2aee9543bb4d625863781234a7a0967026a85f1
Evaluated proc n_r_r args n_r_r'
2023-01-04 11:10:31 -08:00
d2c8fcf37d752333c55f1466e21e14e4fa890e27
Evaluated proc bluecheck {} {. 0,12✓}
2023-03-29 18:02:07 -07: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
dc9bb7c7ab363164beeb7cbc5181e1ecb96fbe50
Evaluated proc nigger5 {} {nigger6}
2023-08-24 17:33:48 -07:00
dfc48b42a115fab2be7d88319176e80432aaa6e0
Evaluated eval [wget https://dpaste.com/42YDYQULE.txt]
2023-01-08 17:10:59 -08:00
e81d45ec6e2f3c540f4b8df4e6177d3c6327d216
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
e88decc1b9755cdcc30ba794600a16ab959eeb2d
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
e59618b8fea2a2c6a44577eacfb5ecf791927487
Evaluated eval [wget https://dpaste.com/42YDYQULE.txt]
2023-01-08 17:10:59 -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
fbb08ed9c2636f900a49c4fb3c0d60790562fd5c
Evaluated proc random_word args {?? $::english_words}
2023-01-08 16:39:41 -08:00
ff93d9d9f418fcc87a0f804f5d284ab3c4a4b530
Evaluated rename split_on_formatting split_on_formatting_FUCKYOU
2023-01-08 17:04:42 -08:00