Well this was origonally me "Anti Script Kiddie list" i changed it to be a blacklist and updated it to work with an address of a user

Using $remtok
and $Replace
ive made it so on connection of a user it checks their ip against a document called Pwned .txt which is loacted in your mIRC folder (Not you will have to make a folder in it called "Documents" it will auto made the text file when u add a user though.

Anyways to add a blacklist find the 3rd banmask of the user. //echo -a $address(NICKNAME HERE,3) this will return something similar to this !Staff@.195.235.166.in-addr.arpa ignore the !Staff@
which leaves us with .195.235.166.in-addr.arpa this is what u will add for the blacklist. When that ip connects they will be automaticly killed ( I know this isnt the most efficant way but its what i went with )

Again this dialog utilizes mdx.dll for dialog coloring. Also $mdx is a return alias Alias MDX { Return path\mdx.dll ] Anyway hope this is helpful for someone it helps me a bit

Alias Blacklist { Dialog -m Dblist DBlist }
dialog DBlist {
  title "Black List"
  size -1 -1 162 123
  option dbu
  box "", 1, 2 19 156 98
  edit "", 2, 2 4 82 10, autohs
  button "Add", 3, 85 3 33 12
  button "Delete", 4, 121 3 33 12
  list 5, 5 26 149 101, hsbar vsbar
}
on *:Dialog:DBlist:*:*:{
  if ($devent == InIt) {
    $mdxin
    dll $mdx SetMircVersion $version
    dll $mdx MarkDialog $dname
    dll $mdx SetFont $dname 1,2,3,4,5, -15 400 Times New Roman
    dll $mdx SetDialog $dname BGColor $color(1)
    dll $mdx SetColor $dname 1,2,3,4,5, background $color(1)
    dll $mdx SetColor $dname 1,2,3,4,5, textbg $color(1)
    dll $mdx SetColor $dname 1,2,3,4,5, text $color(15)
    var %skid = 1
    while (%skid <= $lines(Documents\Pwned.txt)) {
      did -a $dname 5 $read(Documents\Pwned.txt,%skid))
      inc %Skid   
    }
    Did -z $dname 5
  }
  If ($devent == Sclick) {
    If ($did = 3) {
      Write Documents\Pwned.txt $did(2)
      Did -a $dname 5 $did(2)
      Did -z $dname 5
    }
    If ($did = 4) {
      Write -dl $did(5).sel Documents\Pwned.txt
      did -d $dname 5 $did(5).sel
    }
  }
}
On *:Snotice:*Client connecting*:{
  Set %Ip.Possible.Blist $Remove($Gettok($10,1,40),$chr(41),$chr(41))
  Set %Ip.Possible.Blist $Remtok(%Ip.possible.blist,$Gettok(%Ip.possible.blist,1,64),1,64)
  Set %Ip.Possible.Blist $Remove(%Ip.Possible.Blist,XXXXX)
  If (%Ip.Possible.Blist == $Read(Documents\Pwned.txt,r,%Ip.Possible.Blist)) { Kill $9 14,1(4DarkSector iRC15: You Are On My BlackList14) }
}