Lamer Tarama Systemi-mIRCScriptS Bot uygulama.

[Che]

n *:text:.lamer *:#kontrolkanali: {  
  if $2 == list {  
    var %i = 1, %end = $ulist(*,lamer,0)  
    .msg %operkanali - Toplam lamer:4 %end Adet Bulunmaktadır.  
  }  
  elseif $2 == ekle {   
    if $3 == $null { .msg $chan $+(",$nick,") Lütfen eklenecek nick yaziniz | return }  
    if $ulist($3,lamer,1) { .msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }      
    .auser lamer $3-   
    .msg $chan $+(",,$3,,") Basariyla lamer Listesine Eklendi  
  }  
  elseif $2 == sil {   
    if $3 == $null { .msg $chan $+(",$nick,") Lütfen silinecek nick/kanal yaziniz | return }  
    if !$ulist($3,lamer,1) { .msg $chan  $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") listede mevcut degil | return }  
    .ruser lamer $3-  
    .msg $chan $+(",,$3,,") Basariyla lamer Listesine Silindi  
  }  
}  

-  

on *:text:*:#kontrolkanali: {  
  if $nick == $nick {  
    if $1 == !lamer {  
      .lamer $2  
      .msg %operkanali $nick Tarafından " $+ $2 $+ " kanalının Lamer Taraması Gerceklesmistir.   
    }  
  }  
}  

-  

alias lamer {  
  var %t = 1,  
  while (%t <= $nick($1,0)) {  
    var %bdnick = $nick($1,%t)  
    if ($level($nick($1,%t)) == lamer) { mode $1 +b $ulist(%bdnick) | kick $1 %bdnick Kanal Kurallarına Aykırı Hareket [Clone/Trojen]  }  
    inc %t 1  
  }  
}