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
  }

}