on @badnick:JOIN:*:{
  if ($ulist($nick,koruma,0) >= 1) { return }
  elseif !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$chan,32) {
    mode $chan +b $nick
    kick $chan $nick Badnick sebebiyle atıldın...
  }
}
on *:NICK:{ 
  if ($ulist($newnick,koruma,0) >= 1) { return }
  else {
    if ($level($newnick) == badnick) { 
      var %Cnk = 1 
      while $comchan($newnick,%Cnk) { 
        var %e = $v1 
        if $me isop %e && !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,%e,32) { 
          mode %e +b $newnick 
          kick %e $newnick Dışarı!
        } 
        inc %Cnk 
      } 
    } 
  }
 
Badnick eklemek :
Örnek) /auser badnick *gay*
Örnek) /auser badnick *sex*
Örnek) /auser badnick lez*
Örnek) /auser badnick *top*
Örnek) /auser badnick travesti
Koruma(nick) eklemek :
Örnek) /auser koruma gaye
Örnek) /auser koruma *tugay*
Örnek) /auser koruma turgay*
Örnek) /auser koruma leziz_yemek
Örnek) /auser koruma topcu_piyade
Badnick veya Koruma Silmek :
Örnek) /ruser koruma gaye
Örnek) /ruser badnick lez*
Bu işlemlerin nerde olup bittiğini görüntülemek için (Alt + r) ile açılan panelde "KULLANICI" başlığını tıklayınız.
Muaf kanal konusuna gelince hem JOIN hemde NICK event'larında " !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$chan,32) " gereken yerlere kanal isimlerini yazarsanız.Ben 5 kanal yazdım, kanalları çoğaltma imkanınız var.
Kod Mantığı; kanala giren "badnick" listesinden biri önce "koruma" listeden olup olmayacağı sorgulanacaktır.Değilse ve muaf kanallar bulunmuyorsa işlem yapacaktır.Nick değiştirme konusunda da işlem benzerini takip eder.
Üstteki txt'ye göre daha seri işlem yapacaktır ve en önemlisi gereksiz yere while döngüsüne sokmaktan(mIRC'i kasmak) kurtulmuş olduk.
Alintidir