/pm on
/pm off
Above commands block or allow pms

When they're allowed, they are redirected to a special network-related window.
/adduser <nick/address>
Anyone level 2 or above can pm you even if you have pms disallowed.

Blue messages for anyone >= 2, meaning they can pm you whenever
Yellow messages for level 1 users while you're accepting pms
Red messages for blocked level 1 user messages

Author: Rolo @ #mIRC on PurpleSurge

#pmblock on
on *:connect: window -e +b @ $+ $network $+ .Query /.msg arial 12

on ^*:open:?:*:{
  haltdef
  if (%nopm == on) {
    if ($ulevel < 2) {
      if (!% [ $+ [ $nick ] $+ [ .pm. ] $+ [ $network ] ]) {
        .msg $nick 2:: I am not accepting queries right now. 2::
        set % $+ $nick $+ .pm. $+ $network 1
        aline -hp 4 @ $+ $network $+ .Query <-- $ulevel 2:: $+(<,$nick,>) Tried to query you. 2::
        .timerquery 1 300 unset % $+ $nick $+ .pm. $+ $network
      }
      elseif (% [ $+ [ $nick ] $+ [ .pm. ] $+ [ $network ] ] == 1) {
        .msg $nick 2:: For repeated queries, you have been placed on temporary ignore. 2::
        .ignore -u600 $nick
        aline -hp 4 @ $+ $network $+ .Query <-- $ulevel 2:: $+(<,$nick,>) Tried to query you again and was ignored. 2::
        .timerquery off
      }
    }
    else aline -hp 12 @ $+ $network $+ .Query <-- $ulevel 2:: $+(<,$nick,>) $1- 2::
  }
  if (!%nopm) aline -hp $iif($ulevel > 1,12,8) @ $+ $network $+ .Query <-- $ulevel 2:: $+(<,$nick,>) $1- 2::
}

on *:input:@*.Query: aline -p 12 @ $+ $network $+ .Query --> ~ 2:: $+(<,$me,>) $3- 2:: $iif($1 == /.msg,--> $2)

alias pm { 
  $iif($1 == on,unset,set) %nopm on
  scon -a echo -s 2::14 $iif($1 == on,Now accepting queries.,No longer accepting queries.) 2:: 
}
alias adduser { auser $2 $1 }
#pmblock end