Anonymous

menu * { 
  -
  Blacklist:/dialog -md blacklist blacklist
} 
dialog blacklist { 
  title "Blacklist" 
  size -1 -1 160 170 
  option dbu 
  Tab "Home", 01, 000 -002 160 200 
  Tab "List", 02 
  Menu "&File" 04 
  Menu "&Clear Blacklisted Users" 05 
  button "Accept", 06, 5 145 37 10, Tab 1 ok
  button "Cancel", 07, 118 145 37 10, Tab 1 cancel
  box "BlackList Options", 08, 15 22 126 48, Tab 1
  edit "Nick/Address", 10, 18 30 120 10, 100 autohs Tab 1
  edit "Reason", 11, 18 41 120 10, 100 autohs Tab 1
  edit "Channel?", 12, 18 52 120 10, 100 autohs Tab 1
  box "UnBlackList", 13, 15 72 126 25, Tab 1
  edit "Nick/Address", 14, 18 80 120 10, 100 autohs Tab 1
  box "Global?", 15, 46 98 35 28, Tab 1
  radio "Yes", 16, 52 106 50 6, tab 1 
  radio "No", 17, 52 115 50 6, tab 1 
  Text "BlackList Created by Zwill™", 18, 000 130 160 012, Center, Tab 1 
  list 19, 21 20 114 119, tab 2 size vsbar 
}
on *:DIALOG:blacklist:init:*:{
  did -c blacklist 17
  var %x = 1
  while ($ini(blacklist.ini,bans,%x)) {
    did -a blacklist 19 $ifmatch - $gettok($readini(blacklist.ini,-n,bans,$ifmatch),2-,32) $+([,$gettok($readini(blacklist.ini,-n,bans,$ifmatch),1,32),])
    inc %x
  }
}
on *:DIALOG:blacklist:menu:4:{ run blacklist.ini }
on *:DIALOG:blacklist:menu:5:{
  if ($$?!="Are you sure you want to clear the blacklist?") { remini -n blacklist.ini bans }
}
on *:DIALOG:blacklist:sclick:6:{
  if ($did(10) != Nick/Address) {
    var %r = $$did(11)
    if (%r == Reason) { 
      noop $input(Error,o,You did not supply a nick/address or reason)
      halt
    }
    writeini -n blacklist.ini bans $$did(10) $iif($did(12) == Channel?,0,$v1) %r
    if ($did(16).state) {
      var %x = 1
      while (%x <= $chan(0)) {
        mode $chan(%x) +b $$did(10)
        inc %x
      }
    }
  }
  if ($did(14) != Nick/Address) {
    if ($readini(blacklist.ini,-n,bans,$v1)) { remini -n blacklist.ini bans $did(14) }
    else { noop $input(Error,o,$qt($did(14)) was not found as a blacklist) }
  }
}
on *:JOIN:#:{
  if ($readini(blacklist.ini,-n,bans,$wildsite) || $readini(blacklist.ini,-n,bans,$nick)) {
    tokenize 32 $ifmatch
    ban -ku300 $chan $nick 2 [Blacklisted] - Reason: $2-
    if ($1) { mode $chan +b ~c: $+ $1 }
  }
}