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