on @*:TEXT:*:#: {
  if $nick isop $chan { halt }
  if ($regex($wildsite,/(helper|admin|aop|sop|halfop|IRC.SECURITY.SYSTEM|globalops|staff|founder|Netadmin|dj|ircop|tech|IRC.Operator|server|coadmin|services|network|Lady.Chat.Org|AnkaraOp|SohbetOp|IstanbulOp|ChatOp|Lady|FenerbahceOp|SF-Moderator|Zurnaop)/i)) { halt }
  if ($len($1-) < 15) || ($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 #    UYARI:  $nick Büyük Harf Kullanımı Yasaktır,Lütfen küçük Harflerle yazınız!
    }
    if ($hget(buyuk,$+(#,$nick)) == 2) {
      msg #   4UYARI! $nick 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 ($hget(buyuk,$+(#,$nick)) >= 3) {
      mode # +b $address($nick,2) | kick # $nick 12 Büyük Harf Kullandığınız için Kanaldan Uzaklaştırıldınız.. 
    }
  }  
}