SRL Archive - First Scripts

program MrBumAutoTalker;

procedure RealAutoTalker;
begin;
repeat
wait (5000+random(500)) //Time inbeween types (milisceonds) [recomended (5000+)]
SendKeys('TYPE HERE'+chr(13)); //What you will type (in pink)
until(false);
end;
begin
end.

There was more but it was too big and didnt do any thing

using the scar tags :p

{ without the spaces }

program MrBumAutoTalker;

procedure RealAutoTalker;
begin;
repeat
wait (5000+random(500)) //Time inbeween types (milisceonds) [recomended (5000+)]
SendKeys('TYPE HERE'+chr(13)); //What you will type (in pink)
until(false);
end;
begin
end.

///////
begin
end.
///////
this is your mainloop. nothing in it, so the script won't do nothing at all. i'm taking a wild guess that you didn't test it :p

begin
RealAutoTalker
end.

ok first attempt, go read some tuts and make sure you test your scripts ;)

~RMagician

i would use make a
const
message1 = 'Hi'

then use
typesend(message1)
in the procedure

its better than send keys

From: Rasta Magician
begin
RealAutoTalker
end.

Thanks man works now but it says
Line 9: [Error] (9:4): Semicolon (';') expected in script
but script is:

program MrBumAutoTalker;

procedure RealAutoTalker;
begin;
repeat
wait (5000+random(500)) //Time inbeween types (milisceonds) [recomended (5000+)]
SendKeys('TYPE HERE'+chr(13)); //What you will type (in pink)
until(false);
end;
begin
RealAutoTalker
end.

program MrBumAutoTalker;

procedure RealAutoTalker;
begin;
  repeat; 
    wait (5000+random(500)); //Time inbeween types (milisceonds) [recomended 50000+)]
    SendKeys('TYPE HERE'+chr(13)); //What you will type (in pink)
  until(false);
end;

begin
  RealAutoTalker
end.

after repeat there needs to be a ';'

i like it thxs mate

From: rikjess

program MrBumAutoTalker;

procedure RealAutoTalker;
begin;
  repeat; 
    wait (5000+random(500)); //Time inbeween types (milisceonds) [recomended 50000+)]
    SendKeys('TYPE HERE'+chr(13)); //What you will type (in pink)
  until(false);
end;

begin
  RealAutoTalker
end.

after repeat there needs to be a ';'

o.Ô?? compiled just fine for me with the ';' after begin and after repeat

program MrBumAutoTalker;

procedure RealAutoTalker;
begin
  repeat
    wait (5000+random(500)); //Time inbeween types (milisceonds) [recomended 50000+)]
    SendKeys('TYPE HERE'+chr(13)); //What you will type (in pink)
  until(false);
end;

begin
  RealAutoTalker
end.

edit: Mr.Bum, what ou posted compiled too for me, are you sure you have the latest version? 3.12c? sometimes it's just some stupid bug, when i think it is i just open a new client, paste the code and sometimes it works.

~RMagician

From: Rasta Magician
o.Ô?? compiled just fine for me with the ';' after begin and after repeat


edit: Mr.Bum, what ou posted compiled too for me, are you sure you have the latest version? 3.12c? sometimes it's just some stupid bug, when i think it is i just open a new client, paste the code and sometimes it works.

~RMagician

Ty thanks man works perfect now… What you meen by paste the code.. And yes i do have 3.12c

Um sendkeys will get you banned. Use Typesend('Yourtexthere')

program MrBumAutoTalker;


//  ______________________________________________________________________
// |\/                        *Insturctions*                            \/|
// |/          Click On RealAutoTalker on the right hand side box        \|
// |/                                                                    \|
// |/     Change TYPE HERE to what you want to type eg. glow2:wave:HEY   \|
// |/                                                                    \|
// |/       Change the Wait period to time you want (1000 = 1 second)    \|
// |/                                                                    \|
// |/                 Set the window to runescape                        \|
// |/                                                                    \|
// |/                     Press the play button                          \|
// |/                                                                    \|
// |/                         Minimise ASAP                              \|
// |/\__________________________________________________________________/\|



procedure Signature;
begin;
  ClearDebug;
  writeln('               |++          |==     |         | |\      /| ____');
  writeln('               |  ++        |  ==   |         | | \    / |/****\');
  writeln('     /\  /\    |    +       |    +  |         | |  \  /  |\__**/');
  writeln('    /  \/  \   |  ++        |  ==   |         | |   \/   |  /*/');
  writeln('   /        \  |++          |==     |         | |        | /_/') ;
  writeln('  /          \ |*           |  ===  |         | |        |');
  writeln(' /            \|  *         |     + |         | |        |');
  writeln('               |   *        |  ===   \       /  |        |');
  writeln('               |     *      |===      \_____/   |        |       S Auto Talker');
  wait (3000+random(750))
 end;

  procedure RealAutoTalker;
 begin;
repeat;
  wait (5000+random(500)) //Time inbeween types (milisceonds) [recomended (5000+)]
  SendKeys('TYPE HERE'+chr(13)); //What you will type (in pink)
until(IsFKeyDown(12));
end;

  begin;
Signature;
end;

begin;
RealAutoTalker
end.

Full script there can some1 please tell me y my signiture doesnt wanna work:)

how do i use TypeSend… Can you change my script and get it to use it?

do not use senkeys they are very detectable