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ı
}