alias btara { var %% = 1,%%% = $nick($1,0) | while %% <= %%% { if $bdnick($nick($1,%%)) { echo -a $v1 - $v2 } | inc %% } }
alias bdnick { var %1 = 1,%2 = $lines(bad.txt) | while %1 <= %2 { if $+(*,$read(bad.txt,%1),*) iswm $1 { ban -k # $v2 2 kotü rumuz. } | inc %1 | else { return $false } } }
on *:op:#: { if $opnick == $me { btara # } } 

on @*:join:#:{ if ($read(koturumuz.txt,w,$nick)) { ban # $nick 5 | kick # $nick Kotu nick. } } 

alias badtara {
  var %jnk 1  
  while %jnk <= $nick($1,0) { 
    if $ulist($nick($1,%jnk),badnick,0) { 
      echo -a 5***6 $nick($1,%jnk) 5badnick tespit edilmiştir. 
    }  
    inc %jnk 
  }
}

alias badtara {
  var %jnk 1  
  while %jnk <= $nick($1,0) { 
    if !$ulist($nick($1,%jnk),koruma,0) && $ulist($nick($1,%jnk),badnick,0) { 
      echo -a 5***6 $nick($1,%jnk) 5badnick tespit edilmiştir. 
    }  
    inc %jnk 
  }
}