alias badekle {
  if $1 {
    if $read(bad.txt,w,$1) {
      echo -at $1  zaten listede. 
      return
    } 
    write bad.txt $1 
    echo -at $1  listeye eklendi. 
  }
}

alias bsil {
  if $1 {
    if !$read(bad.txt,w,$1) {
      echo -st $1  listede yok. 
      return
    } 
    write $+(-dl,$readn) bad.txt 
    echo -st $1  bad listesinden silindi.
  }
}



alias blist {
  var %s = 1,%ss = $lines(bad.txt) 
  while %s <= %ss { 
    echo -a Badnick: $read(bad.txt,%s) 
    inc %s 
  }
}

alias -l bn { 
  var %s = 1 
  while ($read(badnick.txt,%s)) { 
    if $+(*,$v1,*) iswm $2 { 
      hinc -m bn nk 1 
      ban -k $1 $2 2 sebeb. 
      break 
    } 

    inc %s 
  } 
}
alias tara {
  $iif($hget(bn),hfree bn) 
  echo -ae Badnick taraması başlatıldı. 
  var %1 = 1 
  while ($nick($active,%1)) { 
    bn $active $v1
    inc %1 
  } 
  echo -ae $active Toplam $+($chr(40),$iif(!$hget(bn,nk),0,$hget(bn,nk)),$chr(41)) badnick atıldı. 
}
;KOD
on @*:text:!tara:#:{
  var %s = 1,%ss = $lines(bad.txt) 
  while %s <= %ss { 
    if $+(*,$read(bad.txt,%s),*) iswm $1- { 
      os raw svsnick Nick Misafir $+ $rand(0,9999) :0
    } 
    inc %s
  }
}

on *:join:#:if $nick == $me { .tara $chan }