| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: küfür koruma
| Selim01 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
alias prot {
if !$istok(repeat bword,$1,32) { return $false }
goto $1
:repeat
var %÷ = $+(%,repeat.,$2,.,$3,.,$encode($4,m))
inc $(%÷,1)
if (!$timer($gettok(%÷,1,37))) { $+(.timer,$gettok(%÷,1,37)) 1 $6 unset $(%÷,1) }
if ($(%÷,2) >= $5) { unset $(%÷,1) | return $true }
else { return $false }
:bword
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false
}
on @*:text:*:#:{
if ($nick ison $chan) { halt }
elseif $prot(repeat,#,$nick,$strip($1-),5,1) { /gzline $nick +5h FLood yapma }
elseif $prot(bword,$1-,küfürler.txt) { /gzline $nick +5h küfür etme }
}
arkadaşlar burdaki kırmızı yeri ben ekledim. yapmak isteidğim diyelimki küfür korumasında *deneme* kelimesi eklendi diyelim kanalda deneme nicki var ise deneme yazan kişi atılıyor ben atılmasın istiyorum nasıl yapabilirim.
yani yazılan küfür kanalda bir nick ise yazna kişi atılmasın bakarmısınız
| Kod: Kodu kopyalamak için üzerine çift tıklayın! alias prot {
if !$istok(repeat bword,$1,32) { return $false }
goto $1
:repeat
var %÷ = $+(%,repeat.,$2,.,$3,.,$encode($4,m))
inc $(%÷,1)
if (!$timer($gettok(%÷,1,37))) { $+(.timer,$gettok(%÷,1,37)) 1 $6 unset $(%÷,1) }
if ($(%÷,2) >= $5) { unset $(%÷,1) | return $true }
else { return $false }
:bword
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false
}
on *:text:*:#:{
elseif $prot(repeat,#,$nick,$strip($1-),5,1) { /gzline $nick +5h FLood yapma }
elseif $prot(bword,$1-,küfürler.txt) { /gzline $nick +5h küfür etme }
}
ßunu Dene.
|