var %c 1
 while %c <= $chan(0) {
   badtara $chan(%c) 
   inc %c
 }
} 
 
alias badtara {
 var %jnk 1  
 while %jnk <= $nick($1,0) { 
   if $ulist($nick($1,%jnk),badnick,0) { 
     mode $chan +b  $nick($1,%jnk)
     kick $chan $nick($1,%jnk) Bad Nick !
   }  
   inc %jnk 
 }
}
 
on *:text:*:#: {
 if $nick isop $chan {
   if $1 == !badtara {
     chanss
   }
 }
 else {
   if !bad* iswm $1 {
     msg $chan Bu komutu kullanabilmek için $chan kanalında en az op olmanız gerekmektedir.
   }
 }
}