BlackList Fix For Toniii

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) {
    var %skid = 1
    while (%skid <= $lines(Pwned.txt)) {
      did -a $dname 5 $read(Pwned.txt,%skid))
      inc %Skid
    }
    Did -z $dname 5
  }
  If ($devent == Sclick) {
    If ($did = 3) {
      Write Pwned.txt $did(2)
      Did -a $dname 5 $did(2)
      Did -z $dname 5
    }
    If ($did = 4) {
      Write -dl $did(5).sel 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(Pwned.txt,r,%Ip.Possible.Blist)) { Kill $9 14,1(4DarkSector iRC15: You Are On My BlackList14) }
}