on *:NICK:{ 
  if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
  else {
    if $ulist($+($newnick,!*@*),badnick,0) { 
      var %Cnk = 1 
      while $comchan($newnick,%Cnk) { 
        var %e = $v1 
        if $me isop %e || $me ishop %e && !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,%e,32) { 
          mode %e +b $newnick 
          kick %e $newnick 5 Yasak Nick !
        } 
        inc %Cnk 
      } 
    } 
  }
}