this is just an updated version of the old pm blocker i posted.
;Usage:
/pmblocker
click on a mirc window and click on -(pm blocker)-

• Tell me if it has any bugs i fixed the errors over night i might of missed something, or messed something up.

============================
=======PM BLOCKER===========
============================
on *:load:{
  echo 15 -a -
  echo 14 -a Pm Blocker By Zix12.
  echo 15 -a -
}
alias pmblocker { dialog $iif(!$dialog(pmblocker),-m,-v) pmblocker pmblocker }
menu channel {
  $iif(!$server,$style(2)) -( PM Blocker )-:pmblocker
}
dialog pmblocker {
  title "Pm Blocker"
  icon mirc.exe,21, 0
  size -1 -1 63 70
  option dbu
  box "PM Blocker", 1, 2 14 58 30
  button "ON", 2, 5 24 20 13, flat
  button "OFF", 3, 35 24 20 13, flat
  box "Pm's Blocked", 4, 2 40 58 27
  text "", 5, 30 51 25 13
  text "Pm's Blocked", 6, 4 48 25 25
  box "Status", 7, 2 0 58 67
  text "", 8, 8 7 20 8
  menu "options", 9,
  item "Reset Blocked pm's", 10, 9
} 
on *:dialog:pmblocker:*:*:{ 
  if ($devent == init) {
    did -a pmblocker 5 ( $+ %pms.blocked $+  )
    did -ra $dname 8 %pmc
  }
  if ($devent == menu) { 
    if ($did == 10) { unset %pms.blocked  | set %pms.blocked 0 | did -ra $dname 5 (0) }
  }
  if ($devent == sclick) {
    var %eh $chan(0)
    if ($did == 2) && ($status != disconnected) && (%eh > 0)  { did -b $dname 2 | did -e $dname 3 | set %pmc On | did -ra $dname 8 %pmc | set %pm.block on |  amsg  15-(14Pm Blocker15)- -(14is now 12on15)- -(14i'm no longer accepting any 12p2p's14 from anyone15)-  }
    if ($did == 3) && ($status != disconnected) && (%eh > 0) { did -b $dname 3 | did -e $dname 2 | set %pmc Off | did -ra $dname 8 %pmc | set %pm.block off |  amsg  15-(14Pm Blocker15)- -(14is now 12off15)- -(14i'm now accepting 12p2p's15)- }
    elseif ($status == disconnected) { did -b $dname 2,3,9,10 | echo -a   15-(14You need to be connected to a server in order to use15)- }
    elseif (%eh <= 0) { did -b $dname 2,3,9,10 | echo -a   15-(14You need to be in a channel to use the amsg section15)- }
  }
}
on 1:open:?:*: { 
  if (%pm.block == on) && ($nick != $me) { close -m $nick
    msg $nick 15-(14Hello12 $nick 14I Am Not Accepting Any P2p's From Anyone At This Time Please P2p Me Later15)- 
    inc %pms.blocked 1 
    pmblocker
    did -ra pmblocker 5 ( $+ %pms.blocked $+ )
    window @p2pmsg 0 0 450 160 arial 13
    aline @p2pmsg 15-(14Pm Blocker15)- -(14Name12:14 $+ $nick $+ 15)- -(14with msg12:14 $+ $1- $+ 15)- -(14 At $time(h12:14nn12:14ss TT) 15)-
  }
  elseif (%pm.block != on) { halt } 
}
menu @p2pmsg* {
  -
  Close Window:window -c $window(@p2pmsg*,1)
  Clear Window:clear $window(@p2pmsg*,1)
  -
}
on *:join:#:{
  if ($nick == $me) && ($dialog(pmblocker) != $null) { did -e pmblocker 2,3,9,10 }
}
on *:unload:{
  echo 15 -a -
  echo 14 -a Removing all variables used in this script12.....
  unset %pms.blocked 
  unset %pmc
  unset %pm.block
  echo 15 -a -
  echo 14 -a All variables used by this script have been unloaded.12!
  echo 15 -a -
  echo 14 -a Thank you for using 12(14Pm Blocker v.2 By Zix12)
  echo 15 -a -
}