pm blocker

on ^*:OPEN:?:*: {
  if ( %pmb ) {
    if ( !$window(@Messages) ) { 
      window -n @Messages 
      echo @Message $str(-=-,5) PM Blocker Logs $str(-=-,5)
    }
    if $nick = %pmed halt
    set %varname [ $+ [ $nick ] ]
    if ($($+(%,var,.,$nick),2)) {
      else  .msg $nick 4>>1Pm Blocker4<<4 please wait to be accepted/denied. | set %pmed $nick
      echo -t @Messages » $nick on $network pm'd you at $fulldate
      notice $me » $nick on $network pm'd you at $fulldate $1-
      halt
    }
  }
  alias n { msg %pmed 4>>1Declined4<<1 | set %pmed %blocked | close -m $nick }
  alias y { msg %pmed 4>>1Accepted4<<1 | /query %pmed }4>>1Accepted4<<1 | /query %pmed }