Colour script

on *:input:#: {
  if ($left($1,1) != /) && ($1 ison $chan) {
    if ($1 isop $chan) {
      msg $chan 8,1((9,1 $+ $1 $+ 8,1))1,0 $2-
      haltdef
    }
    elseif ($1 ishop $chan) {
      msg $chan 8,1((9,1 $+ $1 $+ 8,1))1,0  $2-
      haltdef
    }
    elseif ($1 isvoice $chan) {
      msg $chan 8,1((9,1 $+ $1 $+ 8,1))1,0  $2-
      haltdef
    }
    elseif ($1 isreg $chan) {
      msg $chan 8,1((9,1 $+ $1 $+ 8,1))1,0  $2-
      haltdef
    }
  }
}