Evaluated proc char c {if [catch {regsub -all {\\*} [decode $::alphabet([string toupper $c])] " "} err] {return [join [string repeat "{ } " 5] \n]} {return $err}}

This commit is contained in:
hastur on #computerchat 2020-10-23 14:59:11 +02:00 committed by FUCK YOU
parent ec2b6f7167
commit 49d7825eb5

1
procs/BOGERED Normal file
View File

@ -0,0 +1 @@
c {if [catch {regsub -all {\\*} [decode $::alphabet([string toupper $c])] " "} err] {return [join [string repeat "{ } " 5] \n]} {return $err}}