on *:nick: {
 ;-- değişen nickin toplam harf sayısı 5 'den az ise, işlem yapma. (mantık->x1)
 if ($len($newnick) <= 5) { return }
 ;--
 ;-- Muaf nick eklenecek satır.
 if ($regex($newnick,/(Muafnick1|muafnick2)/i)) { return }
 ;--
 ;-- devamına dokunmanıza gerek yok.
 else { _nn $newnick }
}
alias _nn { var %_clnick = $left($1,-2), %_cl2 = $right($1,2) | hadd -mu3 _nana %_clnick $hget(_nana,%_clnick) $1 | if ($token($hget(_nana,%_clnick),0,32) > 2) { _np %_clnick invader works on nicks too. } }
alias _np { var %_a = 1 | while (%_a <= $token($hget(_nana,%_clnick),0,32)) { _nk $1 $2- | inc %_a } }
alias _nk { var %_a = 1 | while (%_a < $comchan($1,0)) { ban -k $comchan($1,%_a) $1 - $2- | inc %_a } | hadd -mu3 _nana $remove($hget(_nana,%_clnick),$1) }