Flood saldırılarını engelleme.

Merhabalar;
Kodun amacı flood saldırını engellemektir. Koruma açıldığı zaman yapılan flood türü saldırılarda yazılan cümlenin bir kısmını spam filtere ekleyerek aynı şekilde gelip saldırı yapılmasını engeller. Kod sorunsuz olarak çalışmaktadır. Tarafımca defalarca denenmişti.
Keyifli Paylaşımlar.

Yapimci: MasteR06

menu * {
  .-
  .• © Flood Koruma ve Spam Ekleme !
  ..• Açık !:.enable #floodkoruyalan | .echo -a 0,7 1 Flood Koruma Spam Açıldi…  %logo
  ..• Kapalı !:.disable #floodkoruyalan | .echo -a 0,7 1 Flood Koruma Spam Kapatildi.. %logo
  ..•  ..Durum < $replace($group(#floodkoruyalan).status, disable, Kapali, enable, Açik) >:.

  .-
}

#floodkoruyalan on

on !*:text:*:#: { 
  if ($nick isreg #) {
    if (%r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == $null) {
      if  ($regex($wildsite,/(helper|admin|aop|sop|halfop|IRC.SECURITY.SYSTEM|globalops|staff|founder|Netadmin|dj|ircop|tech|IRC.Operator|server|coadmin|services|network)/i))  { halt }
      if $istok(%knickler,$nick,32) || $regex($chan,/^(#opers|#operhelp|#help|#globalops)$/i) { halt } 
      set -u2 %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 1 
      set -u2 %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ] $1- 
      return
    } 
    var %rps = %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 
    var %rpt = %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 
    if (%rpt == $1-) && ($len($1-) >= 20) { 
      inc %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 
if (%rps == 2) { .gline $nick +5h :Saldırı Girişimi Tespit Edildi | .spamfilter add c block - Yasak_Kelime_Kullandınız $+(\b,$1,$2,$3,$4,\b) | /msg #Opers $nick $chan kanalında $1- mesajını yazdığı için uzaklaştırıldı. } } } }

#floodkoruyalan end