SRL Archive - RS Scripts

Thanks for unmatched beginers guide i managed to build this!

Good job :) BTW, where you had all those WriteLn functions: I'm guessing you wanted to clear the box? If so just use this:

//..script
Until(Counter=SayAmount);
ClearDebug;
End.

Cool script man! Great job. My first script was an auto talker too. :)

Hey here is your next step. Try to make your script look a little more like this:

// Script by d3hm3d
// My first script!!!
// Fill in messeges and there you go
//------------------------------------------------------------------------

program AutoTalker;

var
  Counter : Integer;

const
  Message1   = '';   // First Message.
  Message2   = '';   // Second Message.
  SayAmount  = 200;  // How Many Times To Type Your Message.
  TimeJ      = 5000; // How Much Time To Wait Inbetween clicks.

procedure AutoTalkin;
begin
  SendKeysSilent(Message1);
  Wait(100+Random(10));
  SendKeysSilent(chr(13));
  Wait(TimeJ);
  SendKeysSilent(Message2);
  Wait(100+Random(10));
  SendKeysSilent(chr(13));
  Wait(TimeJ);
end;

begin
  Counter := 0;
  repeat
    AutoTalkin;
    Counter := Counter + 1;
  until(Counter = SayAmount)
  ClearDebug;
end.

It's easier to read, debug, and looks much better. :)

You should change from this:

begin
Counter:=0
repeat
AutoTalkin;
Counter:=counter+1
Until(Counter=SayAmount);
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
End.

To this:

begin
ActivateClient;
Counter:=0
repeat
AutoTalkin;
Counter:=counter+1
Until(Counter=SayAmount);
Cleardebug;
End.

but other than that it's nice