balls

#colors2 on
on *:input:*: {
  if ($left($1,1) != /) {
    say $colors2($1-)
    halt
  }
}
#colors2 end
menu * {
  &colors2
  .on:/enable #colors2
  .off:/disable #colors2
}
alias colors2 {
  var %color1 = 4,1
  var %color2 = 0
  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(%c))) 
    inc %i
  }
  return %text
}