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@ 2Badnick 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)) { 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ı. }