[Universal][Scar]IhateRs4ever's UV Spammer[Scar][Universal]

This is the very first script I have ever writen in scar, don't like it, OH WELL! it works with any game and has an option 2 press enter twice (for game that require you to press enter before you can type)

~~~I made this so don't be an idiot and say OOOO it says elitepsamer, you leeched~~~~~

Keys:
F5 = 1st Message
F6 = 2nd Message
F7 = 3rd Message
F8 = 4th Message
F9 = 5th Message
F12 = Number Spammer

Instructions:
Fill out the const, and press play! To spam you would hold one of the spam keys, (As long as you hold the key down, it will spam, so lift up the key when you done.) I don't know how to make it any simpler!!!

Code:

{.Script Info:
# ScriptName  = UV Spammer
# Author      = Ihaters4ever
# Description =
# Version     = 1.0
# Date        = 
# Comments    = 
/Script Info}
program EliteSpammer;
const
SpamInter = 10; //Time Between Messages (MS) Also, Add 100ms To This Because Of Anti-CPU Burn
Msg1 = 'Death To You All'; //F5
Msg2 = 'Hmmm Thats Funny, I Though I Left You Dead In The BackYard!'; //F6
Msg3 = 'Idc If I''m Annoying, Your A JaCkaSs'; //F7
Msg4 = 'I Slept With Your Sister, and Your MOM!'; //F8
Msg5 = 'Death To The USA!!! Except Obama, he rox ur SoX'; //F9
Enters = 1; //For games that require pressing enter to msg, and send 1 = true anything else = false
var num: integer;

procedure NumberSpam; //Counts :D
begin
num:=0;
 repeat
  num:=num+1;
   if (Enters = 1) then SendKeysVb('{enter}',true);
   SendKeys(inttostr(num));
   Wait(1); //Prevents Sending The Message Before It's Completed (Some Odd Bug In Scar)
   SendKeysVb('{enter}',true);
  Wait(SpamInter);
  until not isfkeydown(12)
 end;
 
procedure Spam(msg: string; fkey: integer);
begin
repeat
if (Enters = 1) then SendKeysVb('{enter}',true);
 SendKeys(msg);
 Wait(1); //Prevents Sending The Message Before It's Completed (Some Odd Bug In Scar)
 SendKeysVb('{enter}',true);
 Wait(SpamInter);
 until not isfkeydown(fkey)
end;
   
begin
repeat
 if isfkeydown(5) then Spam(Msg1,5);
 if isfkeydown(6) then Spam(Msg2,6);
 if isfkeydown(7) then Spam(Msg3,7);
 if isfkeydown(8) then Spam(Msg4,8);
 if isfkeydown(9) then Spam(Msg5,9);
 if isfkeydown(12) then NumberSpam;
 Wait(100); //Prevents CPU Burnout (AKA: Massive Lag)
 until false;
end.

 

Nice, except for the fact that the FHotKeys are bad to use now, since they do other things in game.

 

yeah well I haven't figured out how to use different kets like i dont understand the "Iskeydown" function...

 

Does this work?