All Caps Preventer.

[MrPickle]

Could someone make something like E-Tard filter or Curse Filter that checks if your typing in Full caps or not. Im fed up of people TYPING LIKE THIS IT GETS REALLY ANNOYING.

[Ad Bot]

[Vaster]

Yea, like in AoT

[MrPickle]

Yeah.

[Aloshi]

Easy....

Code: [Select]

package NotAllCaps {
function ServerCmdmessagesent(%client, %text){
%test = strupr(%text);
if(%test $= %text){
messageclient(%client,"","Please do not type in all caps.");
return;
}
parent::ServerCmdMessagesent(%client, %text);
}
};
activatepackage(NotAllCaps);
Might have to check that messagesent is the right command...:P

[-=>RR<=-MasterCE]

I thought it said "All Caps Perverter."

[UnDiViDeD]

CAPS LOCK IS CRUISE CONTROL FOR AWESOME!!!1!

[Safe The Vault]

No caps.
No Tails.

[INSANE12]

whats a etard filter

[yuki]

whats a etard filter

Well, you are an E-tard....

[MrPickle]

Thanks Aloshi, Shall try.

Once you type in all caps you cant type anymore, even if your not talking in all caps it says Please do not use all caps.

[Space Guy]

If it was like the Age of Time one, where anything above half caps is counted as "All Caps". In Aloshi's, someone could say "A REALLY LONG YELLING SENTENCE caps prevent" and get no message.

[Randy]

Change the message as you want:

Code: [Select]

package AllCaps {
function serverCmdMessageSent(%client, %message){
%length = strlen(%message);
if(%length < 5){
Parent::serverCmdMessageSent(%client, %message);
return;
}
%capscount = 0;
for(%i=0;%i<%length;%i++){
%char = getSubStr(%message, %i, 1);
if(strlwr(%char) !$= %char)
%capscount++;
}
if(%capscount > %length/2)
messageClient(%client, "", "CAPS LOCK IS CRUISE CONTROL FOR COOL!");
else
Parent::serverCmdMessageSent(%client, %message);
}
};
ActivatePackage(AllCaps);
[Edit] Doesn't work, apparently ifs can't differentiate between caps and non caps.

[Edit] I found a solution.

Code: [Select]

package AllCaps {
function isCaps(%char){
// Really hacky, but I can't think of a better way
if(%char $= "")
return 0;
%check = strreplace(strupr(%char), %char, "");
if(%check $= "")
return 1;
else
return 0;
}
function serverCmdMessageSent(%client, %message){
%length = strlen(%message);
if(%length < 5){
Parent::serverCmdMessageSent(%client, %message);
return;
}
%capscount = 0;
for(%i=0;%i<%length;%i++){
%char = getSubStr(%message, %i, 1);
if(isCaps(%char))
%capscount++;
}
if(%capscount > %length/2)
messageClient(%client, "", "CAPS LOCK IS CRUISE CONTROL FOR COOL!");
else
Parent::serverCmdMessageSent(%client, %message);
}
};
ActivatePackage(AllCaps);

[Spation]

No caps.
No Tails.

That be no tails. That be someone else.

[MrPickle]

Thanks Randy have love <3

[-=>RR<=-MasterCE]

I thought it said "All Caps Perverter."