IpBL

#Testing On
On *:Snotice:*Client Connecting:{ .Timer 1 1 .Getip $9 }

Alias Getip {
  If (a isin $Usermode) {
    .who $$1
    Set %GettinIp.Nick $$1
  }
}

Raw 352:*:{
  Set %Ip $4-
  Set %Ip $Gettok(%ip,1,32)
  Hadd -m ip %GettinIp.Nick %Ip
  Halt
}

Raw 315:*:{
  Halt
}
Alias Ip.Return {
  Var %Ipgetx 1
  While (%Ipgetx <= $Hget(ip,0).item) {
    If ($Nick Isin $Hget(ip,%Ipgetx).item) {
      Return $Hget(ip,%ipgetx).data
    }
    Inc %Ipgetx
  }
}
On *:Exit:{ Hsave -o ip ip.x }
Alias Blist { Dialog -m Blist Blist }
dialog Blist {
  title "Black List"
  size -1 -1 172 93
  option dbu
  edit "", 1, 3 2 88 10, autohs
  button "Add", 2, 97 2 32 12
  button "Remove", 3, 136 2 32 12
  list 4, 0 17 171 76, size
}
On *:Dialog:Blist:*:*:{
  If ($Devent == Init) {
    Var %Bip 1
    While (%Bip <= $Lines(Documents\Blist.txt)) {
      Did -a $dname 4 $Read(Documents\Blist.txt,%Bip)
      Inc %Bip
    }
    dll $mdx MarkDialog $Dname
    dll $mdx SetControlMDX $dname 1,2,3,4 hasbuttons > $views
    dll $mdx SetBorderStyle $dname 4 windowedge
    dll $mdx SetFont $Dname 1,2,3,4 -13 400 Times New Roman
    dll $mdx SetDialog $Dname BGColor $color(1)
    dll $mdx SetColor $Dname 1,2,3,4 BackGround $color(1)
    dll $mdx SetColor $Dname 1,2,3,4 text $color(15)
    dll $mdx SetColor $Dname 1,2,3,4 textbg $color(1)
  }
  If ($Devent == Sclick) {
    If ($did = 2) {
      Write Documents\Blist.txt $did(1)
      Did -a $dname 4 $did(1)
    }
    If ($did = 3) {
      Write -dl $did(4).sel Documents\Blist.txt
      Did -d $dname 4 $did(4).sel
    }
  }
}
On *:Snotice:*Client Connecting*:{
  .Timer 1 4 CheckIp
  Set %BnickPossible $9
}
Alias CheckIp {
  If (%Ip == $Read(Documents\Blist.txt,r,%Ip)) {
    Set %ip $Gettok($Replace(%ip,-,.),2-,46)
    Set %ip $Remove(%ip,$Gettok(%ip,5-,46))
    Set %ip $Remtok(%ip,5,46)
    Wallops Connection From $9 Was Found On Blacklist Database Klining %ip
    Unset %BNickPossible
    kline %ip 14X15-14E15cution i14R15C BlackListed Ip
  }
}