on @*:text:*:#: {
  if $me !isop $chan { halt } | if $nick isop $chan { halt }
  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 10
  }
  :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 500
  }
  :U.sb {
    ;# Kick Sebebi..
    RETURN 2Kanal Genelinde 12Uzun Harf 4Kullanıp Kullanıcıları Rahatsız Ettiğiniz icin Kanaldan ,Uzaklastırıldınız !
  }
  :U.yr {
    ;# Uyarı mesajı
    RETURN  2Uyarı : 2Lutfen Harfleri Uzatmayın , Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!
  }
  :U.kbs {
    ;# kikc\ban süresi "Dk."
    RETURN  15
  }
}