on *^:text:*:#: {
  if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
    inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
    if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
      .ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
      .unset %uz [ $+ [ $nick ] ]
    }
    if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
      msg $chan $nick $coconf(U.yr) 
    }   
  }
}
alias coconf {
  goto $1
  :U.Limit {
    ;# harf limiti 
    RETURN 15
  }
  :U.LM {
    ;# Kac kezde atsın..
    RETURN 2
  }
  :U.AL {
    ;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)  
    RETURN 1
  }
  :U.mem {
    ;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
    RETURN 60
  }
  :U.sb {
    ;# Kick Sebebi..
    RETURN Daha Once Uyarılmıştınız.
  }
  :U.yr {
    ;# Uyarı mesajı
    RETURN  Uyari: Lütfen kelimelerinizi uzatmadan yaziniz.
  }
  :U.kbs {
    ;# kikc\ban süresi "Dk."
    RETURN  15
  }

}

on *:text:*:#:{
  %::chan = #
  %::nick = $nick
  kanal_koru
}

alias _kick {
  if !$read(muafnickler.txt,w,%::nick) {
    MODE $1 +b $mask($2,2)
    KICK $1 %::nick : $+ $3-
  }
}

alias maskban {
  if !$read(muafnickler.txt,w,%::nick) {
    mode $1 +b ~q: $+ $mask($2,1)
  }
}

alias kanal_koru {
  if !$read(muafkanallar.txt,w,%::chan) {
    if $len(%::text) > 30 {
      if $numtok(%::text,32) > 6 {
        %::text = $gettok(%::text,1-5,32)
      }
      inc -u10 %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ]
      if %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ] == 5 {
        if $read(muafnickler.txt,w,%::nick) { .halt }
        msg #Bugra :Saldiri tespit edildi: %::chan
        msg #Bugra :Saldiri texti: %::text
        maskban %::chan %::nick
        msg %::chan  %::nick , kanal içerisinde, saldırı girişiminde bulunduğunuzdan dolayı kanaldan banlandınız.
        return
      }
    }
    if !$read(muafkanallar.txt,w,%::chan) {
      inc -u1 %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] 1
      if %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] == 6 {
        if $read(muafnickler.txt,w,%::nick) { .halt }
        maskban %::chan %::nick
        _kick %::chan %::add Kanal genellerinde flood seklinde yazmak, yazi karisikligi yaratmak ve kopyala/yapistir yapmak yasaktir.
      }
      var %yazi = $hash($strip($_dellast(%::text)),32)
      var %eski.yazi = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
      var %eski.yazi = $deltok(%eski.yazi,1,46)
      if (%tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] == $null) || (%eski.yazi != %yazi) {
        set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] 1. $+ %yazi 
        goto hm
      }
      var %bugra = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
      var %sayac = $gettok(%bugra,1,46)
      inc %sayac
      set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] %sayac $+ . $+ %yazi
      if (%sayac >= 3) {
        if !%banning. [ $+ [ %::nick ] ] {
          if $read(muafnickler.txt,w,%::nick) { .halt }
          inc -u1 %banning. [ $+ [ %::nick ] ] 1
          maskban %::chan %::nick
          msg %::chan $+(,%::nick,) $+ ; kanal genelinde ayni yazinin tekrarini fazlaca yaptiginiz icin konusmaniz engellendi.
          unset %tekrar*
          unset %banning*
        }
      }
      :hm
    }
  }
}