on *:INPUT:#:{
  if ($left($1,1) != /) {
    var %a = 0, %prev = $replace($1-,$chr(32),$chr(160)), %c
    if ($numtok(%c,32) < 1) noop
    else {
      haltdef
      while (%a < $len(%prev)) { var %a = %a + 1, %ccolor = $iif($mid(%prev,%a,1) == $chr(160),%ccolor,$iif(%ccolor == $numtok(%c,32),1,$calc(%ccolor + 1))), %line = $+(%line,$chr(3),$gettok(%c,%ccolor,32),$mid(%prev,%a,1),$chr(3)) }
      noop $regsub(%line,/(\003\d\d(?:\x2C\d\d)?\xA0\003)/g,$chr(32),%line)
      msg $chan %line
    }
  }
}