radical_honesty on #flashsupport 53b6a18d01 Evaluated proc color args {if ![llength $args] {return };if {[lindex $args 0] eq "default"} {return };set ret \x03[color_of [lindex $args 0]]; if {[llength $args] > 1} {if {[lindex $args 1] eq "on"} {append ret ,[color_of [lindex $args 2]]} {append ret ,[color_of [lindex $args 1]]}}; return $ret}

2023-01-07 19:08:19 -08:00

procs

Evaluated proc color args {if ![llength $args] {return };if {[lindex $args 0] eq "default"} {return };set ret \x03[color_of [lindex $args 0]]; if {[llength $args] > 1} {if {[lindex $args 1] eq "on"} {append ret ,[color_of [lindex $args 2]]} {append ret ,[color_of [lindex $args 1]]}}; return $ret}

2023-01-07 19:08:19 -08:00

vars

Evaluated set color_names {{red 04}}

2023-01-07 18:57:40 -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%