on @badnick:join:#:mode # +b $nick | kick # $nick " BadNick! " 
alias tara {
  if $nick isop $chan { halt }
  if $nick ishop $chan { halt }
  if $me !isop $1 { return }
  var %t = 1
  while (%t <= $nick($1,0)) {
    var %bdnick = $nick($1,%t)
    if ($level($nick($1,%t)) == bad) { mode $1 +b  $ulist(%bdnick) | kick $1 %bdnick  " BadNick! " 
    }
    inc %t 1
  }
} 

 
on *:NICK:{
  if ($level($newnick) == badnick) {
    var %Cnk = 1
    while $comchan($newnick,%Cnk) {
      var %e = $v1
      if $me isop %e {
        mode %e +b $newnick
        kick %e $newnick nickini değişde gel hadee      }
      inc %Cnk
    }
  }
}

on *:text:!badtara*:#mircturkops: { 
.msg $chan $+($chr(2),$remove($chan,ops),$chr(2)) kanalı taranıyor. Lütfen bekleyin. Kanalı taratan : $+($chr(3),7,$nick,$chr(3))
.tara $remove($chan,ops)
}
alias badtara {
 var %jnk 1 
 while %jnk <= $nick($1,0) { 
 if $ulist($nick($1,%jnk),bad,0) { 
 mode $chan +b $nick($1,%jnk) 
 kick $chan $nick($1,%jnk) 1Nickiniz şuan kanal seviyesi ile bağdaşmıyor.. Lütfen 4"/nick yeninickiniz" 1komutu ile nickiniz değiştirin.
 } 
 inc %jnk 
 }
 }