raw 366:*: { var %i 1 | while %i <= $nick($2,0) { if $level($nick($2,%i) $+ !*@*) == 666 { samode $2 +b $nick($2,%i) $+ !*@* | .quote kick $2 $nick($2,%i)   1Bad Nick   4[  1!  4]   12 Bu NickLe Kanallara Giriş  Yapamazsiniz..! } | inc %i } } 

on *:join:#: { 
  if $nick == $me {
    .echo # *** Bad Nick Taraması Aktif.
    .timer 1 1 scn # 
  } 
}
alias scn {
  var %n = 1 
  while $nick($1,0,r) >= %n {
    if $ulist($nick($1,%n,r),bad,1) != $null {
      if $me isop $1 {
        mode $1 +b $ulist($nick($1,%n,r),bad,1) | kick $1 $nick($1,%n,r) BAD NICK: $ulist($nick($1,%n,r),bad,1)     
      }
      else {
        echo $1 **** Rapor Op Degilsiniz: $nick($1,%n,r) Badnick var.
      }
    }
    inc %n
  }
  echo $1 **** Bad nick taraması tamamlandı
}