From c13bdd454a941ffbaf81954d4c49664ca44459e5 Mon Sep 17 00:00:00 2001 From: lamotragine_dealer on #flashsupport Date: Thu, 16 Feb 2023 06:23:49 -0800 Subject: [PATCH] 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} --- procs/_index | 1 + procs/c6eebebb88f70a40e755c79d2506b5829945cb13 | 1 + 2 files changed, 2 insertions(+) create mode 100644 procs/c6eebebb88f70a40e755c79d2506b5829945cb13 diff --git a/procs/_index b/procs/_index index c3c8654..beaf141 100644 --- a/procs/_index +++ b/procs/_index @@ -53,3 +53,4 @@ testo4444 5a40678c150205d31ffbd01d683d1508fdb8bbd5 {unknown:2:cmd/^(.+?)agenda$/} 657bc30942d1570b7235e64128e671947718ce97 unparse_formatting e59618b8fea2a2c6a44577eacfb5ecf791927487 word_of_american_god' 0fc1fa5c2a01f14226e42c6fba796c4f126b1fe3 +xmasbowchar c6eebebb88f70a40e755c79d2506b5829945cb13 diff --git a/procs/c6eebebb88f70a40e755c79d2506b5829945cb13 b/procs/c6eebebb88f70a40e755c79d2506b5829945cb13 new file mode 100644 index 0000000..cb30406 --- /dev/null +++ b/procs/c6eebebb88f70a40e755c79d2506b5829945cb13 @@ -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 [xmas_colours]; lappend ret [regsub -all {\*($|\n| )} [regsub -all {(^|\n| )\*} $line "\\1$g*"] "*\\1"]}; join $ret \n}