on @*:text:*:#:{
  var %< = $remove($strip($1-),$chr(32)),%> = $int($calc(($regex(%<,/[A-ZÖÜŞİÇĞ]/g) / $len(%<)) * 100))
  if $nick isreg # && %> >= 85 && $len(%< >= 25) {
    inc -u600 $+(%,cc.,#,$nick) | var %’ = $($+(%,cc.,#,$nick),5)
    if %’ == 1 { msg $chan  UYARI:  $nick  ßüyük Harf Kullanmayınız. Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız. }
    if %’ == 2 { msg $chan  UYARI:  $nick  ßüyük Harf Kullanmayınız. Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız. }
    if %’ >= 3 { ban -ku600 # $nick 2 5 Büyük Harf Kullandınız Için Uzaklastırıldınız!…   | unset $+(%,cc.,#,$nick) }
  }
}