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

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}

Browse Source
This commit is contained in:
radical_honesty on #flashsupport
2023-01-07 18:17:10 -08:00
committed by dupa dup
parent 00121ff96e
commit 2e289589a1
2 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216 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 [gay]; lappend ret [regsub -all {\*($|\n| )} [regsub -all {(^|\n| )*} $line "\\1$g,$g*"] "*\\1"]}; join $ret \n}