SRL Archive - First Scripts

I thought lets be original and make a auto talker! It's of one of my first scripts, but I'm training a lot and I'm getting better in making 'real' scripts.

// Matsetst auto talker
program Autotalker;
{.include SRL\SRL.scar}

const
   Message1 = ('..');          // Enter a message here
   Message2 = ('..');          // If you want to say 2 messages enter here.
   messagee2 = true;         // If you want 2 messages, set it true, if you don't want set it false
   Message3 = ('..');           // If you want to say 3 messages enter here.
   Messagee3 = true;          // If you want 3 messages, set it true, if you don't want set it false
   WaitTime = 1500;           // time in MS!

begin
  repeat
    wait(waittime + random(250));
    Typesend(Message1);
    if(messagee2 = true)then
    begin
    wait(waittime + random(250));
    Typesend(message2);
    end;
    if(messagee3 = true)then
    begin
    wait(waittime + random(250));
    Typesend(message3);
    end;
  until (false);
end.

Good script. You may want to add the Findrs function:

begin
  FindRS;
  ActivateClient;
  wait(200+random(900));
  repeat
    wait(waittime + random(250));
    Typesend(Message1);
    if(messagee2 = true)then
    begin
    wait(waittime + random(250));
    Typesend(message2);
    end;
    if(messagee3 = true)then
    begin
    wait(waittime + random(250));
    Typesend(message3);
    end;
  until (false);
end.

Finds Runescape and activates it… ;)

Standards..

// Matsetst auto talker
program Autotalker;
{.include SRL\SRL.scar}
 
const
  Message1  = ('..');           // Enter a message here
  Message2  = ('..');           // If you want to say 2 messages enter here.
  messagee2 = true;             // If you want 2 messages, set it true, if you don't want set it false
  Message3  = ('..');           // If you want to say 3 messages enter here.
  Messagee3 = true;             // If you want 3 messages, set it true, if you don't want set it false
  WaitTime  = 1500;             // time in MS!
 
procedure Chat;
begin
    wait(waittime + Random(250));
    Typesend(Message1);
    if (messagee2 = true) then
    begin
      wait(waittime + Random(250));
      Typesend(message2);
    end;
    if (messagee3 = true) then
    begin
      wait(waittime + Random(250));
      Typesend(message3);
    end;
end;

begin
  FindRS;
  ActivateClient;
  wait(200+random(400));
  repeat
    Chat;
  until (false);
end.

Very ditectable. But still good first script…

I usually like a script with a login. Next script would be great with a login procedure. It's pretty simple aswell.

Looks good imma try it out.

Good…now you have learned the basic of scripting and move on with harder scripts…:)

But you should fix your autotalker and then update it again…;)