SRL Archive - First Scripts

Hi. I'm Runningun01 If You Haven't Already Noticed. I've Just Recently Been Introuduced To S.C.A.R., I Have Past Experience In Other Coding Languages, And Became Immediately Interested. I Read A Few Scripts, And Figured Out Procedures, Variables, And Constants. I'm Very Open To Any Positive, Negative, Constructive Feedback. Also, If Theres A Tutorial On S.C.A.R., I'd Appreciate A Link.
Thanks.

Program AutoTalker;

Var
I: Integer;

Const
Say1=('Your Message Here'); {Just Constants You Have To Set Up.}
Say2=('Your Message Here'); {Just Constants You Have To Set Up.}
Say3=('Your Message Here'); {Just Constants You Have To Set Up.}


Procedure talk;
Begin
 sendkeys(Say1) {This Is Whats In Your Constant Say1}
  sendkeys(chr(13)); {This Is The Enter Key.}
   wait(2000+random(45)); {Waits 2 Seconds With A Random 45 Miliseconds Added}
 sendkeys(Say2) {This Is Whats In Your Constant Say2}
  sendkeys(chr(13)); {This Is The Enter Key.}
   wait(2000+random(45)); {Waits 2 Seconds With A Random 45 Miliseconds Added}
 sendkeys(Say3) {This Is Whats In Your Constant Say3}
  sendkeys(chr(13)); {This Is The Enter Key.}
   wait(2000+random(45)); {Waits 2 Seconds With A Random 45 Miliseconds Added}
End;

Begin
 I:=0;
Repeat
 I:= I + 1;
  Talk;
Until(I >= 5); {5 Is The Amount Of Time To Say It.}
End.
{If You Want To Keep It Going On Forever, Without A Set Amount Of Times To Repeat The Process
Replace:

Begin
 I:=0
Repeat
 I:= I + 1
  Talk;
Until(I >= 5);
End.

With

Begin
Repeat
 Talk;
Until(False);
End.

}

If you haven't use a tutorial, then its pretty nice for a first script. Try the Tutorial Island:
http://www.srl-forums.com/forum/tutorial-island-f46.html

Thanks. Ill Go Check That Out.

Why are you capitalising every word? Oh, and sendkeys is detectable.