Caps removing script - 12/07/14 09:55 PM
Ignore all my IF statements, I took this code right from my bot and I have it set to run with other scripts. But, even if I take out all the IF Statements this Caps protection script is still REALLY finiky, sometimes it workes, 90% of the time it doesn't. Can you help me figure it our what it is that stops this from working?
Code:
ON @*:TEXT:*:#: { if ($nick == Pureweapon) { RETURN } if ($read(subscribers.txt,nw,$nick)) { return } if ($nick == Pureweapon) { RETURN } if ($nick == Exuviax) { RETURN } if ($($+(%,spamcaps.,$chan),2)) { if ($($+(%,spam1.,$nick),2)) { RETURN } if ($($+(%,reg.,$chan,.,$nick),2)) { RETURN } if ($($+(%,permit.,$nick),2)) { RETURN } IF (($len($1-) < 5) || ($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.7) { if ($($+(%,spamcapswarning.,$nick),2)) { msg # .timeout $nick 120 msg # $nick --> Again $calc(%percent * 100) percent caps, Stop it! No posting mass caps! (Timeout) unset %spamcapswarning. $+ $nick On } else { msg # .timeout $nick 5 msg # $nick --> Woah $calc(%percent * 100) percent caps, you must really like attention! No posting mass caps (Warning) set -u120 %spamcapswarning. $+ $nick On } } } }