SRL Archive - RS3 Script Requests

all the script needs to do is:

1) click on 1 object
2) wait one second
3) press the number "3"
4) wait 10 seconds
5) go to number one

some pics :



thanks

As of now I'm not a member but f you'd be willing to send me the colors I'd need I'd be willing to do this

its sounds easy, but I think that waiting 10 seconds would be too obvious, can you put a rondom on it? wwithout meesing the script or slowwing it? I mean another way for the script to now when the cycle its over without puttting contansts? also whats the xp/hour?

wait(randomrange(10000,12500));

Perhaps something like this, If I'm not wrong..

From: eduardo230
its sounds easy, but I think that waiting 10 seconds would be too obvious, can you put a rondom on it? wwithout meesing the script or slowwing it? I mean another way for the script to now when the cycle its over without puttting contansts? also whats the xp/hour?

Yep that's easily possible. I have a few different ways I'd make it know when the interfaces are open or closed so that'd be included with the timing. I don't think xp/ hour is really worth it. It's simply to gain tokens to get defenders.

thanks!

I'll add this to my list, but don't expect it done anytime soon. Anyone else can feel free to try their hand at it too.

I'm going to give this a go. Expect a beta release in a few hours. :D

Finished.

Intructions: Start standing next to either the 18Lb or the 22Lb shotput

program WarriorGuildTokens;

{$DEFINE SMART}
{$i SRL\SRL.scar}
// INSTRUCTIONS: FILL YOUR USERNAME AND PASSWORD INSIDE THE '' and ''.

Const
 NumbOfPlayers     = 1;       //How many players are you using
 StartPlayer       = 0;       //Player to start auoting with! (0 means first char)
 BreakEvery        = 0;      //How many loads to take a break after.
 BreakFor          = 0;      //How many minutes to break for
 Version           = '1..0';

procedure DeclarePlayers;
var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

  with Players[0] do
  begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Active      := True;
  end;

end;

Procedure Throw;
Var
X, Y, A, B:Integer;
Begin
X := 209;
Y := 171;
A := 255;
B := 446;
Wait(100+Random(50));
MMouse(X, Y, 5, 5);
Wait(200+Random(100));
If (IsUpText('lb sho')) Then
  begin
  GetMousePos(X, Y);
  Wait(500+Random(200));
  writeln('Clicking on the shotput.');
  Mouse(X, Y, 0, 0, True);
  Wait(3000+Random(1500));
  writeln('Interface is up. Selection Option 3 "Spin and Throw"');
  MMouse(A, B, 0, 0);
  Wait(500+random(200));
  Mouse(A, B, 3, 3, True);
  Wait(8000+Random(3500));
  end
end;





begin
SetupSRL;
ActivateClient;
DeclarePlayers;
If Not LoggedIn Then
  LogInPlayer;
Wait(1500+Random(200));
SetAngle(True);
Wait(500+Random(200));
MakeCompass('e');
Wait(500+Random(300));
 repeat
 Throw;
 until(false);

end.