radical_honesty on #flashsupport
|
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}
|
2023-01-07 18:23:31 -08:00 |
|
radical_honesty on #flashsupport
|
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}
|
2023-01-07 18:23:11 -08:00 |
|
radical_honesty on #flashsupport
|
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}
|
2023-01-07 18:20:19 -08:00 |
|
radical_honesty on #flashsupport
|
e476f330d0
|
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:28 -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 |
|