SRL Archive - First Scripts

My First AutoTyper,
Could you check it out and put any tips?
(its meant for you to be watching the computer, thats why I didn't put
any Random detectors)

version 2 added

No offence, but is that copied?

Theres alot of explinations there… More like a tutorial then a script.

why not add random *detectors*?

no it wasn't copied, i made it myself, I was gonna give it to some friends who had never used scar b4,

Fair enough =]

You should never use SendKeys as it is very detectable, use TypeSend as it types like a human

EDIT: Changed

If you write the script as such:

program AutoTyper;
{.include SRL/SRL.scar}

const
TypingTimes = 20;

var
i: Integer;

procedure Signature;
begin
  ClearDebug;
  writeln(' Snowcub AutoTyper by yours truely: ');
  writeln('   ______________________           ');
  writeln('  |____   _________   ___|          ');
  writeln('      |  |        |  |              ');
  writeln('  ___ |  |        |  |              ');
  writeln('  \  \|  |        |  |              ');
  writeln('   \     |        |  |              ');
  writeln('    \____|        |__|              ');
  wait(3000 + random(750));
end;


begin  //made by Jacob Toms
 SetupSRL;
  Signature;
   i:= 0;
   repeat
     i:= i + 1;
     Wait(50+random(200));
     TypeSend('Write Sentance Here');
     if (i = TypingTimes) then
     begin
       Writeln('Script repeated the appropriate amount of times. Terminating...')
       Exit;
     end;
   until(false);
end.

Note I added

const
TypingTimes = 20;

and

     if (i = TypingTimes) then
     begin
       Writeln('Script repeated the appropriate amount of times. Terminating...')
       Exit;
     end;

The constant is something that is always the same, which I put as 20 in this case (explained later)

Now i put if (i = TypingTimes) then which means that if the sentance is said the amount of times you set in TypingTimes, 20 in this case, it will move onto another part.

Then i Put

     begin
       Writeln('Script repeated the appropriate amount of times. Terminating...')
       Exit;
     end;

Which means after it detects the script has types Message1 20 times, it will begin by writing "Script repeated.." in the debug box, then will exit the script.

Just something to stop it typing endlessly. =]

Thanks A bunch Flame!

No problems mate :]