Mine

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