Tekil Mesaj gösterimi
Alt 22 Eylül 2010, 11:26   #2
Çevrimdışı
StanteaR
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Flood koruması arıyorum..




Karısık Bır Koruma Guzel Kullanıslı Flood Ve Küfür Reklam Gıbı Korumalarıda Icerıyor.
Alıntı:
alias prot {
if !$istok(repeat flood long ctrlcode bword spam,$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 }
:flood
var %µ = $+(%,flood.,$2,.,$3)
inc $(%µ,1)
if (!$timer($gettok(%µ,1,37))) { $+(.timer,$gettok(%µ,1,37)) 1 $5 unset $(%µ,1) }
if ($(%µ,2) >= $4) { unset $(%µ,1) | return $true }
else { return $false }
:long
return $iif($len($strip($2)) >= $3,$true,$false)
:ctrlcode
return $iif($regex($2,/[[:cntrl:]]/g) >= $3,$true,$false)
:bword
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false
:spam
var %º = 1 | while $read($3,%º) { if $v1 iswm $2 { return $true } | inc %º } | return $false
}

on *:text:*:#:{
if ($nick isreg #) && !$istok(#operhelp #yönetim #edebiyat #siircafe #hasbahce #turkalemi #bulmaca,#,32) && $nick !ison #yönetim {
if $prot(long,$1-,250) { ban $chan $wildsite | kick $chan $nick 14UzunYazi 4ßan 14Detected 4[60 Secs] }
elseif $prot(ctrlcode,$1-,15) { }
elseif $prot(repeat,#,$nick,$strip($1-),5,4) { ban $chan $wildsite | kick $chan $nick 14Tekrar 4ßan 14Detected 4[60 Secs] }
elseif $prot(flood,#,$nick,8,2) { ban $chan $wildsite | kick $chan $nick 14Flood 4ßan 14Detected 4[60 Secs] }
elseif $prot(bword,$1-,küfürler.txt) { ban $chan $wildsite | kick $chan $nick 14Swear 4ßan 14Detected 4[60 Secs] }
elseif $prot(bword,$1-,reklamlar.txt) { ban $chan $wildsite | kick $chan $nick 14Reklam 4ßan 14Detected 4[60 Secs] }
}
}

Kanalda 250 Harfden Fazla Yazarsa Atılır. Uzun Harf Koruması .

Alıntı:
#Uzun on
on @*:text:*:#: {
if ($nick !isop # && $len($1-) > 250) {
ban # $nick 2 | kick # $nick 4[7LongText ~ 15Flood4] 1Yaptıgınızdan Dolayi 154[15Kanal4]1'dan Gecici Olarak Uzaklastirildiniz! 4 [ 660 2Secs4]
}
}
on @*:ACTION:*:#: {
if ($nick !isop # && $len($1-) > 250) {
ban # $nick 2 | kick # $nick 4[7LongText ~ 15Flood4] 1Yaptıgınızdan Dolayi 154[15Kanal4]1'dan Gecici Olarak Uzaklastirildiniz! 4 [ 660 2Secs4]
}
}
#Uzun end

Ve Buda Normal Flood Koruması Kanalda Ard Arda Yazarsa Atılır.

Alıntı:
#Flood off
alias prot {
:flood
var %µ = $+(%,flood.,$2,.,$3)
inc $(%µ,1)
if (!$timer($gettok(%µ,1,37))) { $+(.timer,$gettok(%µ,1,37)) 1 $5 unset $(%µ,1) }
if ($(%µ,2) >= $4) { unset $(%µ,1) | return $true }
else { return $false }
}

on @*:text:*:#:{
if ($nick == %muafnick) { halt }
if $nick ison %muafkanal { halt }
if ($nick isreg #) || if ($nick !ison #op) {
if (*!*@*$read(host1.txt) iswm $fulladdress) { halt }
if (*!*@*$read(host2.txt) iswm $fulladdress) { halt }
if ($nick isreg #) && !$istok(#operhelp #edebiyat #yönetim,#,32) && $nick !ison #yönetim {
if !$istok(Fantasy Zevkcifm yarisma stantear Trivia,$nick,32) {
if $prot(flood,#,$nick,7,1) {
mode # +b $nick
kick # $nick 4[7Text ~ 15Flood4] 1Yaptıgınızdan Dolayi 154[15Kanal4]1'dan Gecici Olarak Uzaklastirildiniz! 4 [ 660 2Secs4]
}
}
}
}
}
}
}
}
}
#Flood end

Umarım Isıne Yarar Iyı Forumlar.

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları tatlim sohbet Mobil Chat