alias -l bn var %s 1 | while (%s <= $lines(nickler.txt)) { if $+(*,$read(nickler.txt,%s),*) iswm $2 { hinc -m bn nk 1 | ban -k $1 $2 2 2BadNick Taramasına yakalandınız. Yasaklı Nick :4  $2   | break } | inc %s } 
on *:text:.badkontrol*:#kelebek: {
  if $nick !isop $chan { halt }
  $iif($hget(bn),hfree bn)
  msg #kelebek@ 2 Badnick taraması başlatıldı. 4 $nick 2 3 Dk içinde BadNick'ler atılacaktır Lütfen bekleyiniz..
  var %1 1
  while (%1 <= $nick(#,0)) { 
    if !$istok(Nick1 Nick2,$nick(#,%1),32) {
      bn # $nick(#,%1)
    }
    inc %1
  }
  msg #kelebek@ 4 $nick 2BadNick Taraması Yaptı; 4 $+($chr(40),$iif(!$hget(bn,nk),0,$hget(bn,nk)),$chr(41)) 2BadNick atıldı.
}