poo

#colors6 on
on *:input:*: {
  if ($left($1,1) != /) {
    say $colors6($1-)}
    halt
  }
}
#colors6 end
menu * {
  &colors6
  .on:/enable #colors6
  .off:/disable #colors6
}
alias colors6 {
  var %color1 = 12,01 
  var %color2 = 09,01
  var %color3 = 0,01
  var %i = 1, %count = $numtok($1-,32)
  while (%i <= %count) {
    var %c = $gettok($1-,%i,32), %text = %text $+(%color1 $+ ,$left(%c,1),%color2 $+ ,$mid(%c,2,$len(%)),%color3 $+ ,$mid(%c,3,$len(%)),%color1 $+ ,$mid(%c,4,$len(%)),%color2 $+ ,$mid(%c,5,$len(%)),%color3 $+ ,$mid(%c,6,$len(%)),%color1 $+ ,$mid(%c,7,$len(%)),%color2 $+ ,$mid(%c,8,$len(%)),%color3 $+ ,$mid(%c,9,$len(%)),%color1 $+ ,$mid(%c,10,$len(%c)), %color2 $+ ,$end(%c)))
    inc %i
  }
  return %text