Private Message Blocker

sahak Sun Nov 20, 2011 1:04 am

Code:: on :*:load: .set %pm on #pblock on on 1:open:?: { .beep 3 .window -kenl12 @Private 0 0 718 504 @Private Tahoma 11 .ignore -pu10 $mask($fulladdress,3) .set %Qnick $nick .set %Qmsg $1- .aline -l 4 @Private %Qnick .msg $nick I''m Just A Bot. Please Msg Me Next Year. :p~* .close -m $nick .echo @Private —› %Qnick : %Qmsg .echo -a —› Incoming Private Message From : $nick .write logs\block.log $timestamp %Qnick : %Qmsg .flash -r3 PM : $nick } #pblock end ; Private Block Menu menu @Private { dclick:PM Query:.query $1 - Whois:.whois $1 - Notice:.set %n.notice $$1 | .notice $1 Private : $$?="Enter Private Notice" - Ignore .Ignore 30sec:.ignore -upn15 $1 .Ignore 60sec:.ignore -upn60 $1 .Ignore 120sec:.ignore -upn120 $1 .Ignore Forever:.ignore -pcntikdw $1 - Close:.window -c $active - Refresh:.window -c @Private | .unset %Qnick | .unset %Qmsg | .window -eknl12 @Private 0 0 718 504 @Private Tahoma 11 } ; Alias PM alias PM { if ($sline(@Private,1).ln == $null) { halt } else { query $sline(@Private,1) } } ; Popups PM menu channel { PBlock ( $+ %pm $+ ) .On:.set %pm On | .enable #pblock .Off:.set %pm Off | .disable #pblock }