Mine

on *:input:#: {
  if ($left($1,1) != /) && ($1 ison $chan) {
    if ($1 isop $chan) {
      msg $chan 12×[4@ $+ $1 $+ 12 $2- 12]×
      haltdef
    }
    elseif ($1 ishop $chan) {
      msg $chan 12×[7% $+ $1 $+ 712 $2- 12]×
      haltdef
    }
    elseif ($1 isvoice $chan) {
      msg $chan 12×[2+ $+ $1 $+ 4 $2- 12]×
      haltdef
    }
    elseif ($1 isreg $chan) {
      msg $chan 12×[ 10 $+ $1 $+ 4 $2- 12]×
      haltdef
    }
  }
}