little problem

need $null

on *:input:*: {
  if ($left($1,1) = /) return
  if ($left($1,1) = @) return
  if ($left($1,1) = !) return
  set %rainbow1 $replace($1-,$chr(32), ) | set %rainbow1 $left(%rainbow1,200) | set %rainbow2 $chr(3) $+ 4,1 | set %rainbow3 1 | set %rainbow4 1
  :loop
  set %rainbow2 %rainbow2 $+ $chr(3) $+ $gettok(4&7&6&9&12&13,%rainbow4,38) $+ $mid(%rainbow1,%rainbow3,1) 
  inc %rainbow3
  if ( $mid(%rainbow1,%rainbow3,1) != $null  ) { inc %rainbow4 }
  if ( %rainbow4 > 6 ) { set %rainbow4 1 }
  if ( $mid(%rainbow1,%rainbow3,1) != $null ) { goto loop }
  say %rainbow2 | unset %rainbow1 %rainbow2 %rainbow3 %rainbow4 | halt
}

put that in instead of the other one

great job though, however, you should make it so that you cant do ascii1 and ascii2 at once, also rbi and color at once, and rainbow and color at once...