SRL Archive - RS3 Script Requests

I've tried to find one, all are outdated. Just want something that says something between specific intervals. :)

I will make one when i get home :)

program SimpleTalker;
{$DEFINE SMART}
{$i SRL/SRL.scar}

const
  SERVER  = 62;     // Enter "0" to pick a random server.
  SIGNED  = True;  // Use the signed RS-client?
  MEMBERS = False; // Set to True if using a RS-Members account. False if F2P.

  Chat1 = 'Rich';   // First text to type
  Chat2 = 'Is';     // Second text to type
  Chat3 = 'Beast';  // Third text to type

  WaitT = 2000;   // Wait between typing
  RWait = 1000;   // Random wait between typing

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  with Players[0] do
  begin
    Name        := 'User';
    Pass        := 'Pass';
    Nick        := 'Nickname';
    Member      := False;
    Active      := True;
  end;
end;


procedure Talk;
begin
  repeat
    TypeSend(Chat1);
    Wait(WaitT + Random(RWait));
    TypeSend(Chat2);
    Wait(WaitT + Random(RWait));
    TypeSend(Chat3);
    Wait(WaitT + Random(RWait));
    FindNormalRandoms;
  until(IsFKeyDown(4));
end;

procedure SetUpScript;
begin
  DeclarePlayers;
  Smart_Server := SERVER;
  Smart_Signed := SIGNED;
  Smart_Members:= MEMBERS;
  SetupSRL;
  LoginPlayer;
end;


begin
  SetUpScript;
  Talk;
end;

Fill in the fields, and press F3 to stop. Not sure if the F3 press will work because of SMART, but it's worth a shot.

Rich you might want to fix the script. It types "Chat2" twice, instead of "Chat3".

Woops. Thanks for pointing that out :)

thanks rich! :)