on @*:text:*:#:{
  var %< = $remove($strip($1-),$chr(32)),%> = $int($calc(($regex(%<,/[A-ZÖÜŞİÇĞ]/g) / $len(%<)) * 100))
  if $nick isreg # && %> >= 75 && $len(%< >= 20) {
    inc -u600 $+(%,cc.,#,$nick) | var %' = $($+(%,cc.,#,$nick),2)
    if %' == 1 { msg $chan UYARI: $nick 4UYARI! 4Lütfen 4CapsLock 4Tuşunu 4Kapatarak 4Yazınız.4ßüyük 4Harf 4Kullanmayınız. 4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız. }
    if %' >= 2 { mode # +b $nick | kick # $nick <kickban mesajı> | unset $+(%,cc.,#,$nick) }
  }
}

on @*:text:*:#: {
  if ($regex($1-,/([[:print:]])\1\1/gi) >= 10) {
    hinc -mu20 uzunharf $+($chan,.,$nick) 1
    if $hget(uzunharf,$+($chan,.,$nick)) == 1 { 
      .msg # $nick :4UYARI! 4Lütfen 4UzuN 4Yazı 4Yazmayınız  4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız. 
    }
    if $hget(uzunharf,$+($chan,.,$nick)) == 2 { 
      .ban # $nick 5 
      .kick # $nick Harfleri uzattınız ve(Tekrar ettiniz) 
      .hdel -s uzunharf $+($chan,.,$nick)) 
    }
  }
}