Çevrimdışı

Selamlar. Öncelikle forumda arama yaptım NoMercy
'de bulunan flood koruması tipinde bi kod bulamadım.Elinde Olan varsa paylaşabilirmi rica etsem.

 

Çevrimdışı

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..