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 #

  }

}