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

^^^old p2p blocker

^^^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
  }
}