p2p Blocker with p2p kill

By H3xable on Dec 14, 2010

just a small pm blocker i made for my script thought id share please leave comment to tell me how to make it better thanks.

fixed 3 bugs

the editboxs were not working
reset buttin
3 added the if (O isincs $usermode) { credit Teen

menu popups,channel {
  [-]Pm Blocker[-]:/dialog -m pm_Blocker pm_blocker
}

dialog PM_Blocker {
  title "PM Blocker"
  size -1 -1 173 60
  option dbu
  text "                           H3x-iRc p2p clicker and p2p killer", 1, 8 3 142 8
  button "on", 2, 17 27 18 12
  button "Off", 3, 17 41 18 12
  box "p2p blocker", 4, 4 18 47 38
  button "on", 5, 66 27 20 12
  button "Off", 6, 66 41 20 12
  box "p2p kill", 7, 54 18 45 38
  edit "", 8, 152 20 19 10
  text "  Pm Blocked", 9, 114 21 35 8
  edit "", 10, 152 32 19 10
  text "  People Killed", 11, 114 32 36 8
  button "Reset Stats", 12, 108 44 38 12
  box "Stats and Reset", 13, 107 11 66 46
  button "Ok", 14, 150 44 20 12, ok
}
on *:dialog:pm_blocker:init:*: {
  did -ra $dname 8 %pm.blocker
  did -ra $dname 10 %pm.kill
}

on *:Dialog:PM_Blocker:Sclick:2: {
  .enable #p2pblocker
  $did 8 %pm.blocked
  amsg 7,1I 7,1A15,1m 7,1N15,1ow 7,1B15,1locking 7,1A15,1ll 7,1P15,1M7,1'15,1s7,1.
}
on *:Dialog:PM_Blocker:Sclick:3: {
  .disable #p2pblocker 
  amsg 7,1I 7,1A15,1m 7,1N15,1ow 7,1A15,1ccepting 7,1P15,1M7,1'15,1s7,1.
}
on *:Dialog:PM_Blocker:Sclick:5: {
  .enable #p2pkill 
  amsg 7,1P15,1M 7,1K15,1iller 7,1I15,1s 7,1N15,1ow 7,1O15,1n7,1.
}
on *:Dialog:PM_Blocker:Sclick:6: {
  .disable #p2pkill 
  amsg 7,1P15,1M 7,1K15,1iller 7,1I15,1s 7,1N15,1ow 7,1O15,1ff7,1.
}
on *:Dialog:PM_Blocker:Sclick:12: {
  Set %pm.kill 0
  Set %pm.blocker 0
  did -ra $dname 8 %pm.blocker
  did -ra $dname 10 %pm.kill
}

#p2pblocker on
on *:text:*:?:{
  inc %pm.blocker 1
  closemsg $nick
  msg $nick 7,1Sorry $nick im not Accepting pms at this time.
}
#p2pblocker end   
#p2pkill off
on *:text:*:?:{
  if (O isincs $usermode) {
    inc %pm.kill 1
    closemsg $nick
    kill $nick 7,1P15,1m 7,1K15,1ill 7,1I15,1s 7,1O15,1o
  }
}
#p2pkill end

Like Page Follow Author

Comments

_Teen_ - Dec 14, 2010

welcome

Respond

H3xable - Dec 14, 2010

updated

p2pkill off

on :text::?:{
if (O isincs $usermode) {
inc %pm.kill 1
closemsg $nick
kill $nick 7,1P15,1m 7,1K15,1ill 7,1I15,1s 7,1O15,1o
}
}

p2pkill end

Thanks Teen

Respond

H3xable - Dec 14, 2010

ok i fixed some errors and updated the code i fixed the editbox problem

on :dialog:pm_blocker:init:: {
did -ra $dname 8 %pm.blocker
did -ra $dname 10 %pm.kill
}

and the reset button

on *:Dialog:PM_Blocker:Sclick:12: {
Set %pm.kill 0
Set %pm.blocker 0
did -ra $dname 8 %pm.blocker
did -ra $dname 10 %pm.kill
}

Respond

_Teen_ - Dec 14, 2010

look, to kill someone u need IRCops status, i dont know which Flags other server uses
but on Unreal its Flag +o

so, if u active Kill on, then u're connected on another network that you're not IRCop, this will not kill, so, a good solution for this:

1- set the network, so this will only work on specified networks
2- use something to check if +o flag its on usermode

if (O isincs $usermode) { command }

Respond