P2P Blocker

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	5.8
Scores Submitted	8
Date Added	Jul 12, 2008
Last Updated	Aug 07, 2008
Tags	blocker p2p pm

Introduction

P2P Blocker with dialog, ALT + R save in a NEW remote.
Click anywhere on mIRC or type /P2PBlock

Thanks to EL

Grab the Code

menu * {
  P2P Block:/dialog -m P2P_Blocker P2P_Blocker
}

alias P2Pblock { dialog -m P2P_Blocker P2P_Blocker
}

dialog P2P_Blocker {
  title "P2P Blocker"
  size -1 -1 160 70
  option dbu
  button "Block", 1, 86 8 33 13
  button "Allow", 2, 123 8 32 13
  box "Exception List Options", 3, 84 23 73 42
  button "Add", 4, 88 33 32 12
  button "Spam!", 5, 122 33 32 12
  button "Remove", 6, 88 49 32 12
  button "Done", 7, 122 49 32 12, cancel
  box "Exception List", 8, 5 5 75 60
  list 9, 10 13 66 50, vsbar
}

on *:DIALOG:P2P_Blocker:sclick:1: {
  if (%P2P.block == on) { noop $input(P2P Block is already Enabled.,uwo,Error!) | halt } 
  set %P2P.block on
  amsg 15,1P0,012P 15,1B0,1lock 15,1E0,1nabled!
}

on *:DIALOG:P2P_Blocker:sclick:2: {
  if (%P2P.block == off) { noop $input(P2P Block is already Disabled.,uwo,Error!) | halt }
  set %P2P.block off
  amsg 15,1P0,012P 15,1B0,1lock 15,1D0,1isabled!
}

on *:DIALOG:P2P_Blocker:sclick:4: {
  var %p2pallowed $input(Enter a nickname to add to the exception list,e)
  if (%p2pallowed == $null) { halt }
  if (%p2pallowed == $read(P2Pallowlist.txt,w,%p2pallowed)) { noop $input(%P2Pallowed is already in the Exception list.,uwo,Error!) | halt }
  write P2Pallowlist.txt %p2pallowed
  did -a $dname 9 %p2pallowed
}

on *:DIALOG:P2P_Blocker:sclick:5: {
  if (!%blocked) { amsg 14,1I 14,1H15,1ave 15,1B0,1locked 0 | halt }
  amsg 15,1I H0,1ave 15,1B0,1locked %blocked 15,01P0,012P's! 
}

on *:DIALOG:P2P_Blocker:Sclick:6: {
  if (!$did(9).sel) { noop $input(You did not select a nick to remove.,uwo,Error!) | halt }
  write -dl $+ $did(9).sel P2Pallowlist.txt
  did -d $dname 9 $did(9).sel
}

on *:dialog:P2P_Blocker:init:*: {
  var %P2Plist = 1
  while (%P2Plist <= $lines(P2Pallowlist.txt)) {
    did -a $dname 9 $read(P2Pallowlist.txt,%P2Plist))
    inc %P2Plist
  }
}

on 1:open:?:*: {  
  var %P2Pnick $nick 
  if (%P2Pnick == $read(P2Pallowlist.txt,w,%p2pnick)) { halt }
  if (%p2p.block == on) {
    if (%p2p.block != on) { halt }
    inc -u30 $+(%,_P2P_lock,.,$nick)) 1
    if ($($+(%,_P2P_Lock,.,$nick),2) == 2) { close -m $nick | halt }
    if ($($+(%,_P2P_Lock,.,$nick),2) >= 6) { ignore -u30 $nick | close -m $nick | halt }
    if (!$appactive) { flash }
    inc %blocked 
    window @P2P Messages | echo -t @P2P 0,1 $nick 15,1M0,1essaged 15,1Y0,1ou 15,1O0,1n $server 15,1S0,1aying15,1: " $1- 15,1" 15,1A0,1t $time 
    write P2P.txt 0,1 $nick 15,1M0,1essaged 15,1Y0,1ou 15,1O0,1n $server 15,1S0,1aying15,1: " $1- 15,1" 15,1A0,1t $time 
    .msg $nick 0,1 $nick 15,1T0,1his 15,1M0,1essage 15,1I0,1s 15,1T0,1he %blocked 15,1M0,1essage 15,1T0,1o 15,1B0,1e 15,1B0,1locked!
    beep 1 1 
    close -m $nick 
  }
}

on ^*:TEXT:*:?:{
  if (%P2Pnick == $read(P2Pallowlist.txt,w,%p2pnick)) && (!$appactive) {
    beep 1 1 | flash 
  }
}

Comments

(5) RSS

Go to Bottom

Choco

Comments: 7

mIRC Snippet: P2P Blocker
Posted on Aug 31, 2008 3:19 am

I must ask what is p2p?? It works I think but idk what p2p is >:

Comments: 1,366

mIRC Snippet: P2P Blocker
Posted on Aug 31, 2008 3:21 am

P2p stands for:

Quote:

Person to person chat
or
Peer to peer chat

Its just a private chat window with you and one other person also known as a PM or personal message.`-.-´

Eugenio

Comments: 1,079

mIRC Snippet: P2P Blocker
Posted on Aug 31, 2008 5:45 am

yeah what EL said, thanks Dan
and yeah it does work I tested before I posted this and EL + others tested aswell, its been updated a few times...... any more errors please post.

Comments: 1,366

mIRC Snippet: P2P Blocker
Posted on Sep 5, 2008 3:52 pm

Rerated it a 7;p.`-.-´

Eugenio

Comments: 1,079

mIRC Snippet: P2P Blocker
Posted on Sep 5, 2008 3:53 pm

Thank you Dan

Eugenio

		World Leader Essex, England
Last seen: Oct 05, 2008 Profile \| Website Likes (23) Friends (15) Snippets (2) Images (8) Comments Received (103) Comments Submitted (1079) Forum Posts (16)

My Snippet Tags

Contact

Add to Friends

Send Private Message

AOL AIM:

Yahoo YIM:

MSN: sporty_eugenio@hotmail.com

Friends (15)

Bullet_Dodger

Calliope

View All