wrath/shaniqua-smeggdrop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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}

Browse Source
This commit is contained in:
lamotragine_dealer on #flashsupport 2023-02-16 06:23:49 -08:00 committed by dupa dup
parent 4c0349e17a
commit c13bdd454a
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
procs/_index
View File

@ -53,3 +53,4 @@ testo4444 5a40678c150205d31ffbd01d683d1508fdb8bbd5
{unknown:2:cmd/^(.+?)agenda$/} 657bc30942d1570b7235e64128e671947718ce97
unparse_formatting e59618b8fea2a2c6a44577eacfb5ecf791927487
word_of_american_god' 0fc1fa5c2a01f14226e42c6fba796c4f126b1fe3
xmasbowchar c6eebebb88f70a40e755c79d2506b5829945cb13

1
procs/c6eebebb88f70a40e755c79d2506b5829945cb13 Normal file
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}