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)-
============================
=======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 -
}