on @*:TEXT:*:#: {
if $nick isop $chan { halt }
if ($len($1-) < 3) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %ncs = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O ,P,Q,R,S,T,U,V,W,X,Y,Z))
var %ns = $len($strip($remove(%text,$chr(32))))
var %nsohbet = $calc(1 - (%ncs / %ns))
if (%nsohbet >= 0.7) {
msg $nick  2Büyük Harf Kullanımı Yasaktır.Yazmış olduğunuz satırlarda yüzde - $calc(%mirctr * 100) - oranında büyük harf kullanımı yaptınız.
unset %buyuk. $+ $nick
}
} 

on @*:TEXT:*:#: {
  if $nick isop $chan { halt }
  if ($len($1-) < 3) || ($nick isop #) return
  var %text = $strip($remove($1-,$chr(32)))
  var %ncs = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O ,P,Q,R,S,T,U,V,W,X,Y,Z))
  var %ns = $len($strip($remove(%text,$chr(32))))
  var %nsohbet = $calc(1 - (%ncs / %ns))
  if (%nsohbet >= 0.7) {
    if (!$hget(buyuk)) { hmake buyuk 100 }
    hinc buyuk $+(#,$nick)
    if ($hget(buyuk,$+(#,$nick)) == 1) {
      msg $nick  Uyari1: Büyük Harf Kullanımı Yasaktır.Yazmış olduğunuz satırlarda yüzde - $calc(%mirctr * 100) - oranında büyük harf kullanımı yaptınız Lutfen buyuk yazi yazmayiniz..
    }
    if ($hget(buyuk,$+(#,$nick)) == 2) {
      msg $nick  Uyari2: Büyük Harf Kullanımı Yasaktır.Yazmış olduğunuz satırlarda yüzde - $calc(%mirctr * 100) - oranında büyük harf kullanımı yaptınız Lutfen buyuk yazi yazmayiniz..
    }
    if ($hget(buyuk,$+(#,$nick)) >= 3) {
      mode # +b $address($nick,2) | kick # $nick Büyük Harf Kullanımı Yasaktır.Yazmış olduğunuz satırlarda yüzde - $calc(%mirctr * 100) - oranında büyük harf kullanımı yaptınız. | hdel buyuk $+(#,$nick) 
    }
  }  
}