alias tara { 
  set %:bbulunan 0
  var %sil 1
  while (%sil <= $nick($read(hatalıkullanıcı.txt),0)) {
    if ($level($+($nick($read(hatalıkullanıcı.txt),%sil),!*@*)) == BAD ) {
      inc %:bbulunan 1  
      /echo $nick($read(hatalıkullanıcı.txt),%sil) olarak dosyada mevcut
    }
    inc %sil  
  }
}

alias tara {
  var %sil = 1
  var %t = $nick($1,0)
  while %sil <= %t {
    if ($read(hatalıkullanıcı.txt,w,$nick($1,%sil))) { echo -a  $+($nick($1,%sil)) olarak dosyada mevcut  } 
    inc %sil
  }
}

alias tara {
  var %a = 1, %b = 0
  while $nick($1,%a) { var %v1 $v1
    if $ulist(%v1,bad,1) { ban -k $1 %v1 1 Badnick | inc %b }
    inc %a
  }
  echo -a Kanalda bulunan badnick: %b
}

Bad:*bad*!*@
Bad:*cc*

alias tara {
  var %a = 1, %b = 0
  while $read(hatalikullanici.txt,%a) { var %v1 $v1
    if $ulist(%v1,bad,1) { var %bad = $addtok($+(%v1,|,$v1) -/-,%bad,32) | inc %b }
    inc %a
  }
  echo -a Eslesen kullanıcı sayisi: %b 
  $iif(%bad,echo -ea $qt(Users Eslesen: ) %bad)
}