P2P Blocker w/ Dialog & List

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	May 17, 2008
Last Updated	May 20, 2008
Tags	blocker dialog list p2p

Introduction

Got bored yet again, decided to update my p2p blocker with a dialog. =D
Hope someone finds use of it, Enjoy!

Grab the Code

menu * { 
  P2P Blocker:p2pb
}
alias p2pb { 
  dialog -m P2P_Blocker P2P_Blocker
}
dialog P2P_Blocker {
  title "P2P Blocker Coded by S35k (Sonny of 35k)"
  size -1 -1 192 86
  option dbu
  box "P2P Blocker", 1, 3 6 135 77
  box "Menu List", 2, 144 6 45 44
  button "Block Count", 5, 150 16 33 13
  button "Reset Blocks", 6, 150 33 33 13
  radio "On", 7, 149 61 27 10
  radio "Off", 8, 149 71 28 10
  box "On/Off", 9, 144 52 45 31
  list 10, 6 29 127 52, sort size 
  edit "", 11, 56 15 78 12
  button "Add", 13, 6 15 21 12, default
  button "Delete", 14, 32 15 21 12
  menu "Menu", 18
  item "Ok", 19, 18, ok
  item "Close", 20, 18, cancel
}
on *:dialog:P2P_Blocker:init:*:{ 
  did -c $dname $iif(%p2p.block == ON,7,8)
  did -f $dname 11
  loadbuf -o $dname 10 p2plist.txt
}
on *:DIALOG:P2P_Blocker:sclick:*:{ 
  If ($did == 7) { 
    If (%p2p.block == ON) { 
      noop $input(P2P Block Is Already On,uwo,Error!) 
      Halt
    }
    Else { set %p2p.block ON 
      did -u $dname 8 
      amsg [ 12,1[6,1P2P Block Enabled12,1]4,1X12,1[6,1I Am Now Blocking All P2P's12,1] ]
    }
  }
  ElseIf ($did == 8) { 
    If (%p2p.block != ON) { 
      noop $input(P2P Block Isn't On,uwo,Error!)  
    }
    Else { unset %p2p.block 
      did -u $dname 7 
      amsg [ 12,1[6,1P2P Block Disabled12,1]4,1X12,1[6,1P2P's Are No Longer Being Blocked By Me12,1] ]
    }
  }
  ElseIf ($did == 5) { amsg 12,1(6,1P2P Block Count4,1- $+ %p2pblocks $+ -12,1) }
  ElseIf ($did == 6) { set %p2pblocks 0 | amsg 12,1(6,1P2P Block Count Has Been Reset4,1- $+ %p2pblocks $+ -12,1) }
  ElseIf ($did == 13) { 
    If (!$did(11).text) { 
      noop $input(No NIckname Was Entered,uwo,Entry Error!)
    } 
    Elseif ($did(11).text) { 
      var %p2pi $read(p2plist.txt,w,$did(11).text) 
      If (%p2pi == $did(11.).text) { 
        noop $input($did(11).text Is Already In The P2PLIST,uwo,Entry Error!)
        did -r $dname 11 
      }
      Else {  
        write p2plist.txt $did(11).text 
        did -r $dname 11,10
        var %p2pa = 1
        while (%p2pa <= $lines(p2plist.txt)) {
          did -a $dname 10 $read(p2plist.txt,%p2pa)
          inc %p2pa
        }
      }
    }
  }
  ElseIf ($did == 14) {
    If (!$did(11).text) && (!$did(10).seltext) { 
      noop $input(No Nickname Was Selected,uwo,Entry Error!) 
    }
    ElseIf ($did(10).sel) && (!$did(11).text) {
      write -ds $+ $did(10).seltext p2plist.txt
      did -d $dname 10 $did(10).sel 
    }
  }
}
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 }
  :last
}

Comments

(0) RSS

Go to Bottom

~Sonny

		Webmaster of http://35kchat.com /server -m irc.35kchat.com:6669
Last seen: Oct 11, 2008 Profile \| Website Likes (1) Friends (1) Snippets (8) Images (2) Comments Received (73) Comments Submitted (42)

My Snippet Tags

Contact

Add to Friends

Send Private Message

Yahoo YIM:

MSN: snt.sonny@hotmail.com

Friends (1)

AdrianF

View All