on *:input:*: {
if (($left($1-,1) != !) || ($left($1-,1) != /)) {
if (%color = true) {
var %output
var %mod
var %n = 1
var %t
var %string = $replace($1-,$chr(32),$chr(1000))
:colorloop
%mod = $calc(%n % 2)
%t = $mid(%string,%n,1)
if (%mod == 0) {
set %output %output $+ 03 $+ %t
}
else {
set %output %output $+ 04 $+ %t
}
inc %n
if (%n <= $len($1-)) goto colorloop
msg $active $replace(%output,$chr(1000),$chr(32))
halt
}
}
}