A Simple P2P Blocker

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	May 12, 2008
Last Updated	May 12, 2008
Tags	blocker p2p simple

Introduction

Simple p2p blocker with allow list(same as my p2p kill) which you can change if you'd like, i also didn't add the on join to this, dunno why just lazy lol, i might... might not dunno. All comments are appreciated.

Grab the Code

menu menubar,channel { 
  - 
  P2P Blocker
  .ON:{ If (%p2p.block == ON) { echo -a P2P Block Is Already On | Halt }
    Else set %p2p.block ON | enable #p2pblock 
    amsg [ 12,1[6P2P Block Enabled 12,1]4X12,1[6I Am Now Blocking All P2P's12,1] ] 
  }
  .OFF:{ If (%p2p.block == OFF) { echo -a P2P Block Isn't On! | Halt }
    Else set %p2p.block OFF | disable #p2pblock 
  amsg [ 12,1[6P2P Block Disabled 12,1]4X12,1[6P2P's Are No Longer Being Blocked By Me12,1] ] }
  .Blocks:{ amsg 12,1(6P2P Block Count4- $+ %p2pblocks $+ -12) } 
  .Reset:{ If (%p2pblocks == 0) { echo Either There Is No P2P Blocks To Count or You've Already Reset It | Halt }
    Else set %p2pblocks 0 | amsg 12,1(6P2P Block Count Has Been Reset4- $+ %p2pblocks $+ -12) 
  }
}
#p2pblock on
on ^*:open:?:*:{ 
  set %p2p.nick $nick
  If (%p2p.block == ON) && (%p2p.nick isin $read(p2plist.txt,w,%p2p.nick)) { goto last }
  ElseIf (%p2p.block == ON) { msg %p2p.nick I Am Not Accepting p2p's At This Time
  set %p2pblocks $calc(%p2pblocks + 1) | Halt }
  ElseIf (%p2p.block == OFF) { Halt }
  :last
}
#p2pblock off
alias addp2pa { 
  write p2plist.txt $1 
}
alias delp2pa {
  write -ds $+ $1 p2plist.txt $1 
}

Comments

(0) RSS

Go to Bottom

~Sonny

		Webmaster of http://35kchat.com 3@\|27\|-\| =p
Last seen: Jun 02, 2008 Profile \| Website Friends (1) Snippets (5) Images (1) Comments Received (47) Comments Submitted (14)

My Snippet Tags

Contact

Add to Friends

Send Private Message

Yahoo YIM:

MSN: snt.sonny@hotmail.com

Friends (1)

AdrianF

View All