simple p2p blocker with an allow list. turn it on and it will block p2p's if you add a person to your allow list they will be able to p2p you while its on it stores the p2p's you get that are blocked in a txt doc then you just hit read p2p to read it within the dialog and del p2p to delete it. there is a clear all function for both the allow list and the saved p2p's so you don't have to delete em one by one if you don't want to add to a new remotes. auto creates the needed txt files on load slight updated if the p2p blocker is on it will also block any notices from anyone not in the p2p allow list and save their messages to a text file for you to read at a later date. updated the p2p blocker can now seperately block notices. just turn on notice blocker and you won't receive notices can also set it so the alert doesnt go off. the alert is for when the p2p blocker is closed it auto opens if you get a p2p or notice if you have them blocked turn it off and it won't open
^^^new p2p blocker
Menu Menubar {
Venom p2pblocker
.Venomp2pblockSys: dialog $iif($dialog(p2pblock.System),-v,-md p2pblock.System) p2pblock.System
}
Dialog p2pblock.System {
Title "Venomp2pblocker"
Size -1 -1 142 105
Option dbu
edit "Allow Who ", 1, 02 02 56 10, autohs
Button "Allow nick" 4, 02 17 27 15, flat
Button "Block nick" 5, 31 17 27 15, flat
Button "Read p2p" 6, 02 54 27 15, flat
Button "Del p2p" 7, 31 54 27 15, flat
list 9, 61 02 79 50, hsbar vsbar
list 10, 61 54 79 56, hsbar vsbar
Button "clear allow" 11, 02 34 56 15, flat
Button "clear p2p" 12, 31 88 27 15, flat
Button "clear ntce" 40, 02 88 27 15, flat
Button "readntice" 13, 02 71 28 15, flat
Button "del notice" 14, 31 71 27 15, flat
menu "Options", 21
menu "P2P Blocker" 22 ,21
item "&On", 2
item break, 102
item "&Off", 3
menu "Alert" 18 ,21
item break, 111
item "Popup alert control", 105
item break, 103
item "&On", 19
item "&Off", 20
item break, 108
item "sound alert control", 101
item break, 109
item "&On", 24
item "&Off", 25
item break, 110
item "Tip alert control", 126
item break, 127
item "&On", 30
item "&Off", 31
item break, 128
menu "&Notice Blocker", 17, 21
item "&On", 15
item break, 100
item "&Off", 16
}
on *:LOAD: {
write myp2p.txt
write p2pallow.txt
write blckednotce.txt
}
on *:dialog:p2pblock.System:init:*: {
p2pallownicks
readp2p
if ( %p2pblocker == on ) { did -c p2pblock.System 2
echo -a 12,1 p2p blocker is on
}
if ( %p2pblocker == off ) { did -c p2pblock.System 3
echo -a 12,1 p2p blocker is off
}
if (%noticeblocker == on ) {
did -c p2pblock.System 15
}
elseif (%noticeblocker == off ) { did -c p2pblock.System 16
}
if ( %p2palert == on ) { did -c p2pblock.System 19
}
if ( %p2palert == off ) { did -c p2pblock.System 20
}
if ( %p2psound == on ) { did -c p2pblock.System 24
}
if ( %p2psound == off ) { did -c p2pblock.System 25
}
if ( %p2ptip == on ) { did -c p2pblock.System 30
}
if ( %p2ptip == off ) { did -c p2pblock.System 31
}
}
on 1:open:?:*: {
var %p2p'ednick $nick
if (%p2p'ednick == $read(p2pallow.txt,w,%p2p'ednick)) { halt }
if (%p2pblocker == on) { close -m $nick
write myp2p.txt $nick messaged you on $server saying $strip($1-) at $time(ddd mmm d h:nn::ss:tt)
beep 1 1 | flash
.msg $nick 4,1This is an automated message your p2p has been blocked
.ignore -pu30 $wildsite
if (%p2psound == on) { p2psound
}
if (%p2ptip == on) {
.set %tipnick $nick
.set %tipserver $server
.set %p2psaid $$1-
p2ptip
}
if ($dialog(p2pblock.System)) { did -r p2pblock.System 10
did -az p2pblock.System 10 you have a new p2p
if (%p2psound == on) { p2psound
}
}
else { if (%p2palert == on) { .dialog -v,-md p2pblock.System p2pblock.System
did -r p2pblock.system 10
did -az p2pblock.System 10 you have a new p2p
if (%p2psound == on) { p2psound
}
}
}
}
}
on ^1:NOTICE:*:*: {
var %noticenick $nick
if (%noticenick !== $read(p2pallow.txt,w,%noticenick)) {
if (%noticeblocker == on) {
write blckednotce.txt $nick noticed you on $server saying $1- at $time
beep 1 1 | flash
.notice $nick 4,1This is an automated message your notice has been blocked
.ignore -nu30 $wildsite
if (%p2psound == on) { p2psound
}
if (%p2ptip == on) {
.set %tipnick $nick
.set %tipserver $server
.set %p2psaid $$1-
ntctip
}
if ($dialog(p2pblock.System)) { did -r p2pblock.System 10
did -az p2pblock.System 10 you have a new notice
if (%p2psound == on) { p2psound
haltdef
}
}
else { if (%p2palert == on) { .dialog -v,-md p2pblock.System p2pblock.System
did -r p2pblock.system 10
did -az p2pblock.System 10 you have a new notice
if (%p2psound == on) { p2psound
haltdef
}
}
}
}
}
}
on *:DIALOG:p2pblock.System:sclick:*:{
if ($did == 4) {
.set %p2pallownick $did(1).text
var %na $read(p2pallow.txt,w,%p2pallownick)
if (%na = %p2pallownick) noop $input(You have already added this nick to your p2p allow list,uwo,Error!) halt
else { write p2pallow.txt %p2pallownick
did -r p2pblock.System 9
p2pallownicks
}
}
if ($did == 5) {
if (!$did(9).sel) { noop $input(Please select a nick from the list to delete from allow list,uwo,Error!) }
else { write -dl $+ $did(9).sel p2pallow.txt
did -r p2pblock.System 9
p2pallownicks
}
}
if ($did == 6) {
did -r p2pblock.System 10
readp2p
}
if ($did == 7) {
if (!$did(10).sel) { noop $input(Please select a message from the list to delete from p2p list,uwo,Error!) }
else { write -dl $+ $did(10).sel myp2p.txt
did -r p2pblock.System 10
readp2p
}
}
if ($did == 11) {
write -c p2pallow.txt
did -r p2pblock.System 9
}
if ($did == 12) {
write -c myp2p.txt
did -r p2pblock.System 10
}
if ($did == 13) {
did -r p2pblock.System 10
readnotice
}
if ($did == 40) {
write -c blckednotce.txt
did -r p2pblock.System 10
}
if ($did == 14) {
if (!$did(10).sel) { noop $input(Please select a message from the list to delete from notice list,uwo,Error!) }
else { write -dl $+ $did(10).sel blckednotce.txt
did -r p2pblock.System 10
readnotice
}
}
}
on *:DIALOG:p2pblock.System:dclick:10:{
write p2pallow.txt $gettok($did(10).seltext ,1,32)
query $gettok($did(10).seltext ,1,32)
.timer 1 1 echo -a 12,1 $did(10).seltext
did -r p2pblock.System 9
p2pallownicks
}
on *:dialog:p2pblock.System:menu:19: {
set %p2palert on
did -u p2pblock.System 20
did -c p2pblock.System 19
}
on *:dialog:p2pblock.System:menu:20: {
set %p2palert off
did -u p2pblock.System 19
did -c p2pblock.System 20
}
on *:dialog:p2pblock.System:menu:15: {
set %noticeblocker on
did -u p2pblock.System 16
did -c p2pblock.System 15
}
on *:dialog:p2pblock.System:menu:16: {
set %noticeblocker off
did -u p2pblock.System 15
did -c p2pblock.System 16
}
on *:dialog:p2pblock.System:menu:2: {
set %p2pblocker on
did -u p2pblock.System 3
did -c p2pblock.System 2
}
on *:dialog:p2pblock.System:menu:3: {
set %p2pblocker off
did -u p2pblock.System 2
did -c p2pblock.System 3
}
on *:dialog:p2pblock.System:menu:24: {
set %p2psound on
did -u p2pblock.System 25
did -c p2pblock.System 24
}
on *:dialog:p2pblock.System:menu:25: {
set %p2psound off
did -u p2pblock.System 24
did -c p2pblock.System 25
}
on *:dialog:p2pblock.System:menu:30: {
set %p2ptip on
did -u p2pblock.System 31
did -c p2pblock.System 30
}
on *:dialog:p2pblock.System:menu:31: {
set %p2ptip off
did -u p2pblock.System 30
did -c p2pblock.System 31
}
alias p2pallownicks {
var %a = 1, %b = $lines(p2pallow.txt)
while (%a <= %b) {
did -az p2pblock.System 9 $read(p2pallow.txt, %a)
inc %a
}
}
alias readp2p {
var %a = 1, %b = $lines(myp2p.txt)
while (%a <= %b) {
did -az p2pblock.System 10 $read(myp2p.txt, %a)
inc %a
}
}
alias readnotice {
var %a = 1, %b = $lines(blckednotce.txt)
while (%a <= %b) {
did -az p2pblock.System 10 $read(blckednotce.txt, %a)
inc %a
}
}
alias p2ptip {
$tip(p2ptip,p2ptip,%tipnick p2p'ed you saying %p2psaid on %tipserver,60,)
}
alias ntctip {
$tip(ntctip,ntctip,%ntcnick noticed you saying %ntcsaid on %ntcserver,60,)
}
Menu nicklist {
-
p2pblocker
.Turn On:{ set %p2pblocker on
amsg 12,1p2pblocker now on
}
.Turn off:{ set %p2pblocker off
amsg 12,1p2pblocker now off
}
.Add Nick:{ .set %p2pallownick $$1
var %na $read(p2pallow.txt,w,%p2pallownick)
if (%na = %p2pallownick) noop $input(You have already added this nick to your p2p allow list,uwo,Error!) halt
else { write p2pallow.txt %p2pallownick
echo -a 12,1 $$1 added to p2p allow list
}
}
.Del Nick:{ write -d p2pallow.txt $$1
echo -a 12,1 $$1 deleted from p2p allow list
}
.View Allowlist:{ echo -a 4,1 nicks in your p2p allow list
.timer 1 1 p2pallownicks2
.timer 1 2 echo -a 4,1 end of list
}
.Read Savedp2p:{ readp2p2
}
.Read Savednotice:{ readnotice2
}
.Clear Savedp2p's:{ write -c myp2p.txt
}
.Clear Savednotice's:{ write -c blckednotce.txt
}
}
alias p2pallownicks2 {
var %a = 1, %b = $lines(p2pallow.txt)
while (%a <= %b) {
echo -a 12,1 $read(p2pallow.txt, %a)
inc %a
}
}
alias readp2p2 {
var %a = 1, %b = $lines(myp2p.txt)
while (%a <= %b) {
echo -a 12,1 $read(myp2p.txt, %a)
inc %a
}
}
alias readnotice2 {
var %a = 1, %b = $lines(blckednotce.txt)
while (%a <= %b) {
echo -a 12,1 $read(blckednotce.txt, %a)
inc %a
}
}
major updates/changes. the whole face as you can see is completely different now and its a little more compact. i added an option menu which controls the on/off functions of the various features of the alert system like the auto open alert if you get a p2p/notice i also added a tip window for when you get a p2p also added a sound feature. move a sound file to your sounds section in your mirc directory then set the alias p2p sound to the sound you want. ex
alias p2psound {
splay p2psound.wav <<<
}
the alias is on the last three lines of the snippet