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 Kelimeleri Lütfen Uzatmadan Yazin. (Daha önceden uyarilmistiniz)
}
:U.yr {
  ;# Uyarı mesajı
  RETURN  Uyari: Lütfen kelimelerinizi uzatmadan yaziniz.
}
:U.kbs {
  ;# kikc\ban süresi "Dk."
  RETURN  15
}
}