Angies P2pBlocker

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 13,1 I am no longer accepting p2ps.
}

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 13,1 I am now accepting p2ps.
}

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 3,1 $nick 13,1 I have blocked3,1 %blocked 13,1p2ps, please try again later.
    beep 1 1
    close -m $nick
  }
}

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