Badnick koruması

Badnick koruması

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 atildin…
}
}
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 Disari!
}
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 islemlerin nerde olup bittiğini görüntülemek için (Alt + r) ile açilan panelde “KULLANICI” basliğini tiklayiniz.
Muaf kanal konusuna gelince hem JOIN hemde NICK event’larinda ” !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$chan,32) ” gereken yerlere kanal isimlerini yazarsaniz.Ben 5 kanal yazdim, kanallari çoğaltma imkaniniz var.
Kod Mantiği; kanala giren “badnick” listesinden biri önce “koruma” listeden olup olmayacaği sorgulanacaktir.Değilse ve muaf kanallar bulunmuyorsa islem yapacaktir.Nick değistirme konusunda da islem benzerini takip eder.
Üstteki txt’ye göre daha seri islem yapacaktir ve en önemlisi gereksiz yere while döngüsüne sokmaktan(mIRC’i kasmak) kurtulmus olduk.

Alintidir