| Cevap: küfür koruma
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 $remove($ifmatch,*) } | inc %· } | return $false
}
on @*:text:*:#:{
if $prot(repeat,#,$nick,$strip($1-),5,1) { /gzline $nick +5h FLood yapma }
elseif $prot(bword,$1-,küfürler.txt) && ($ifmatch !ison #) { /gzline $nick +5h küfür etme }
}
Bu şekilde denermisin.
|