Mirc indir | Büyük Harf ( caps lock ) Koruması
Genellikle Büyük Sunucu Operatörleri için Kullanılan Bu Korumayı Sizlere de Sunuyorum. Kanalda Büyük Harf ile Belirli Bir limitte Yazı Yazan Kişi Uyarılır ve Kanaldan Atılır. Kodun Çalışması için Aşşağıdaki Kodları Alt+R Yaparak mirc Remotenize eklemeniz gerekir.
alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }
#caps on
on @*:TEXT:*:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
if ($len($1-) < 50) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $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 %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 – (%non.caps / %full.line))
if (%percent >= 0.8) {
/mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13Buyuk Harf Koruması!2 [14!2] 7¤ ( $+ % $+ $calc(%percent * 100) $+ )
unset %CAPS. $+ $nick
}
}
#caps end #mirc indir


