lamotragine_dealer on #flashsupport c13bdd454a 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}

2023-02-16 06:23:49 -08:00

procs

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}

2023-02-16 06:23:49 -08:00

vars

Evaluated set ::chinkmap [list {l} {r} {r} {l}]

2023-02-14 07:23:17 -08:00

english_words.txt

add english words

2022-12-27 15:01:59 -08:00

stolen-treasure.tcl

no

2020-09-27 17:24:22 +02:00

Description

No description provided

6.8 MiB

Languages

Tcl 100%