Mine

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