/ScriptServ

alias fb {
  dialog -m banhosts banhosts
}
dialog banhosts {
  title "Forbidden Ranges Controler By JeSTeR"
  size -1 -1 124 209
  option dbu
  list 1, 3 41 117 151, size
  text "The following list contains abusive host which are being used for flood attacks on mIRC channels. The major purpose of this addon is to Ignore them on private actions and to ban them from Channels.", 2, 1 1 122 27, center
  edit "", 3, 5 196 23 10, read
  text "Masks Loaded.", 4, 30 197 38 8
  button "Save / Exit", 5, 70 196 52 9, ok
  edit "", 6, 3 29 81 10
  button "+Add", 7, 86 30 17 10
  button "-Rem", 8, 105 30 18 10
}
on *:dialog:banhosts:*:*: {
  if ($dname == banhosts) && ($devent == init) && ($did == 0) {
    set %banhosts 1
    did -a banhosts 3 $lines(banhosts.txt)
    while (%banhosts <= $lines(banhosts.txt)) {
      did -a banhosts 1 $read(banhosts.txt,%banhosts)
      inc %banhosts 1
    }
  }
  if ($dname == banhosts) && ($devent == sclick) && ($did == 7) {
    write -a banhosts.txt $did(6,edited)
    did -a banhosts 1 $did(6,edited)
    did -r banhosts 3 $lines(banhosts.txt)
    did -a banhosts 3 $lines(banhosts.txt)
  }
  if ($dname == banhosts) && ($devent == sclick) && ($did == 8) {
    write -dl [ $+ [ $did(banhosts,1).sel ] ] banhosts.txt
    did -d banhosts 1 $did(banhosts,1).sel
    did -r banhosts 3 $lines(banhosts.txt)
    did -a banhosts 3 $lines(banhosts.txt)
  }
}
on @*:join:#:{
  var %loop = 1, %end = $lines(banhosts.txt)
  while (%loop <= %end) {
    if ($read(banhosts.txt,%loop) iswm $site) {
      mode $chan +b $read(banhosts.txt,%loop)
      kick $chan $nick Banned: Range (4 $+ $read(banhosts.txt,%loop) $+ ) used for flood attacks.
      halt
    }
    inc %loop 1
  }
}