Mirc Büyük Yazı Korumasi Uyarili

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) }
  }
}