SRL Archive - First Scripts

Hey im Rs-Gp-4U and i've just made my first script called 'Talk4Me',
Feel Free to post progress reports (It's Got One).
I Will later be making this into Forms,
So if you have any suggestions, Go for it!

program Talk4Me;
{.include SRL/SRL.Scar}

var TimesTalked: Integer;

Const
  TextToType  = ' Rs-Gp-4U Rulez!! '; //put the text you want to say between the ''

procedure Talk;
var i: Integer;
begin
  TimesTalked := 0;
  repeat
    begin
      TypeSend(TextToType);
      i := i + 1;
      TimesTalked := TimesTalked + 1;
    end;
  until (i = 10) // Change to number of times you want to say TextToType.
end;

procedure ProgressReport;
begin
  ClearDebug;
  Writeln('Talk 4 Me - Progress Report');
  Writeln('');
  Writeln('Talked '+ IntToStr(TimesTalked) +' Times.');
  Writeln('');
  Writeln('Talk 4 Me - Progress Report');
end;

begin
SetupSrl;
Talk;
ProgressReport;
end.

Good script i like it =]

Any suggestions on what to put in? As i mentioned above i will TRY to make it into forms :D.

Good job and congratulations on your first script! :)

To make it easier to edit how many times it says the text, you should add a new const, and then in the loop you have there do

 Until(I = ToDo); 

Try doing different stuff and maybe you could try making a procedure that has a chance of TYPO :)

Remember, creativity is your friend.

Glad you used SRL by the way.

Can you explain a little more please? And can anyone direct me to a [TUT] where i can learn how to add my script to forms =)

Answered your pm…

Also, you add forms to your script, not add script to forms :)

Also, now you aren't an SRL Junior Member yet, though will soon be, you can see only one tutorial about forms:

http://www.villavu.com/forum/showthread.php?t=

It is very basic, but you get the idea.

When you are an SRL Junior Member you can see Tutorials for Intermediates and Advanced, which go deeper to the forms…

its really nice, but it is too simple.

I don't personally think you need forms, they're not worth the effort :P
maybe make it so that it makes typos (like n3ss3s said) and also make it wait a random amount of time before it restarts typing.

Thanks for suggestions keep them coming - && if you have help - help me!

Oh, right, forgot to say that one, indeed, make a new const like "TimeBetween", and then do the loop like

procedure Talk;
var i: Integer;
begin
  TimesTalked := 0;
  repeat
    begin
      TypeSend(TextToType);
      i := i + 1;
      TimesTalked := TimesTalked + 1;
    end;
    Wait(TimeBetween + Random(1000));
  until (i = 10) // Change to number of times you want to say TextToType.
end;