wrath/shaniqua-smeggdrop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Evaluated eval [wget https://dpaste.com/BUDDSCQ3Y.txt]

Browse Source
This commit is contained in:
radical_honesty on #flashsupport 2023-01-13 11:56:55 -08:00 committed by dupa dup
parent c5b92d0a99
commit 163cae0843
1 changed files with 52 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
View File

@ -1,53 +1,53 @@
s { s {
set f 0; set f 0;
set r [list]; set r [list];
set a [list]; set a [list];
set e [list]; set e [list];
set i 0; set i 0;
foreach c [split $s ""] { foreach c [split $s ""] {
switch -- $f { switch -- $f {
0 { 0 {
switch -- $c { switch -- $c {
{set f 1;set b } \003 {set f 1;set b }
{lappend e [list $i ]} \002 {lappend e [list $i ]}
{lappend e [list $i ]} \037 {lappend e [list $i ]}
{lappend e [list $i ]} \026 {lappend e [list $i ]}
{lappend e [list $i ]} \017 {lappend e [list $i ]}
default {lappend a $c;incr i} default {lappend a $c;incr i}
} }
} }
1 { 1 {
switch -regexp -- $c { switch -regexp -- $c {
\\d {append b $c;incr f} \\d {append b $c;incr f}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0} default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
} }
} }
2 { 2 {
switch -regexp -- $c { switch -regexp -- $c {
\\d {append b $c;incr f} \\d {append b $c;incr f}
, {append b $c;set f 4} , {append b $c;set f 4}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0} default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
} }
} }
3 { 3 {
switch -- $c { switch -- $c {
, {append b $c;incr f} , {append b $c;incr f}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0} default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
} }
} }
4 { 4 {
switch -regexp -- $c { switch -regexp -- $c {
\\d {append b $c;incr f} \\d {append b $c;incr f}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0} default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
} }
} }
5 { 5 {
switch -regexp -- $c { switch -regexp -- $c {
\\d {append b $c;lappend e [list $i $b];set f 0} \\d {append b $c;lappend e [list $i $b];set f 0}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0} default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
} }
} }
} }
} }
return [list $a $e] return [list $a $e]
} }