Need a very good Banlist

i need a banlist i'll that when i join scan Banlist

on *:Owner:*: if ($opnick == $me) { set %chn $comchan($me,1) | set %grb $remove(#,$chr(37),$chr(35),G_) | .timer 1 5 scanbanlist } 
on *:OP:*: if ($opnick == $me) { set %chn $comchan($me,1) | set %grb $remove(#,$chr(37),$chr(35),G_) | .timer 1 5 scanbanlist } 
alias scanbanlist { 
 var %i = 1 
 var %str = 0 
 privmsg %chn Scanning %grb Chat Room.... 
 while ($nick(%chn,%i)) { 
   if ($me isowner %chn) || ($me isop %chn) { 
     if ($$ial($nick(%chn,%i) $+ *,1).addr isin $gettok($read(banlist.txt, w,* $+ $$ial($nick(%chn,%i) $+ *,1).addr $+ *),1,32)) || (Banlist isin $level($address($nick(%chn,%i),1))) { inc %str | /access %chn add deny $nick(%chn,%i) | /access %chn add deny  $address($nick(%chn,%i),1) 0 : -Ban-Listed- | /kick %chn $nick(%chn,%i) Wot r u Doin Here?^o)  You Are -Ban-Listed- } 
   } 
   inc %i 
 } 
 .timer 1 5 finish 
} 
alias finish { msg $comchan($me,1) -Clean- | halt } 

isnt mine nor have i tested it so dont know if it works was posted by Hidden for me in Rumbaar