Something

on *:input:*:{
  if (%clr.s == on) {
    if ($left($1,1) !isin %clr.f) {
      say $clr($1-)
      haltdef
    }
  }
}

alias clr {
  if ($1 == $null) {
    halt
  }
  else {
    var %a = 1
    var %b = $len($1-)
    while (%a <= %b) {
      if ($mid($1-,%a,1) == $chr(32)) {
        var %e = $($chr(32),0)
      }
      else {
        var %e = $mid($1-,%a,1)
        var %c = $iif(%c == 0,1,0)
      }
      var %d = $iif(%c == 0,%clr.1,%clr.2)
      var %f = $+(%f,$chr(3),%d,%e)
      inc %a
    }
    return $replace(%f,$($chr(32),0),$chr(32))
  }
}

menu channel { 
  Colors
  .On\Off:{ 
    set %clr.s $iif(%clr.s == on,off,on)
  }
  .Color:{
    set %clr.1 $iif($$?="Color One?" >= 10,$v1,$+(0,$v1))
    set %clr.2 $iif($$?="Color Two?" >= 10,$v1,$+(0,$v1))
  }
  .Filter:{
    set %clr.f $$?="Enter filtered characters, such as /@!"
  }
  .Unset:{
    unset %clr.*
  }
}