alias badnicktara {
  set %:bulunan 0
  var %s 1
  while %s <= $nick($1,0) {
    %:gnick = $nick($1,%s)
    if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 666 {
      inc %:bulunan 1
      mode $1 +b %:gnick
      kick $1 %:gnick 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.
    }
    inc %s
  }
  echo -a 2 Badnickler tarandi: $1 - %:bulunan badnick bulundu.
}
 
on *:nick: {
  if $level($newnick $+ !*@*) == 666 {
    qline  $newnick 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.
  }
}
 
on *:join:#: {
  if $nick == $me {
    badnicktara #
  }
}