Unnamed

on*:input*:#: {
  if ($left($1,1) != /) && ($1 ison $chan) {
    if ($1 isop $chan) {
      msg $chan 8,2{4>8»4 $+ @ $+ $1 $+ 8«4<8} 1,0 $2-
      haltdef
    }
    elseif ($1 ishop $chan) {
      msg $chan 11,2{7>11»7 $+ % $+ $1 $+ 11«7<11}1,0 $2-
      haltdef
    }
    elseif ($1 isvoice $chan) {
      msg $chan 9,2{11>9»11 $+ + $+ $1 $+ 9«11<9} 1,0 $2-
      haltdef
    }
    elseif ($1 isreg $chan) {
      msg $chan 4,2{10>4»10 $+ $1 $+ 4«10<4} 1,0 $2-
      haltdef
    }
  }
}