Something

on *:INPUT:#:{
  if ($left($1,1) == /) noop
  else {
    haltdef
    var %a = 0, %prev = $replace($1-,$chr(32),$chr(160)), %c = 12,05 05,12
    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
  }
}