wrath

0 Followers · 0 Following

• Joined on 2023-01-01

Repositories

4

Projects Packages Public Activity Starred Repositories

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 04:10:03 +01:00

fb58b25748 Evaluated array set color_names {red 4}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 04:09:40 +01:00

4f080ff70a Evaluated unset color_names

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 04:08:21 +01: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}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 04:08:02 +01: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}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 04:07:03 +01: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}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 04:06:36 +01: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}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:57:42 +01:00

9d35cd48a6 Evaluated set color_names {{red 04}}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:54:33 +01:00

22bafc97f9 Evaluated set roulette_n_chambers 6

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:54:23 +01:00

e3a78e7b19 Evaluated set roulette_current_chamber 0

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:52:24 +01: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}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:49:26 +01: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}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:44:33 +01: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

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:40:38 +01:00

df42a90211 Evaluated set __columns [list previousClose open bid ask];map $__columns {c {dict get $::__TSLA $c}}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:24:29 +01:00

b23769ec6d Evaluated proc et args {subst [string map {* {[gay]*}} [strip_all [bgbt $args]]]}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:23:32 +01: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}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:23:13 +01: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}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:21:57 +01:00

29e839b4d7 Evaluated rename strip_all_old strip_color

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:21:27 +01:00

c99dff299d Evaluated proc strip_all str {regsub -all {[\x0f\x02\x1f\]\[]} [strip_color $str] ""}

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:21:00 +01:00

07bcfed102 Evaluated rename strip_color strip_all_old

wrath pushed to master at wrath/shaniqua-smeggdrop 2023-01-08 03:20:21 +01: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}