mIRC Büyük harf koruma Addon
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
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 CAPS LOCK/OFF ( $+ % $+ $calc(%percent * 100) $+ ) unset %CAPS. $+ $nick } } #caps end |
» Devamını Oku