SRL Archive - RS3 Outdated / Broken Scripts

I know alot of you are very good scripters, and I was just wondering if someone could make, (or if you already have one)

With the SRL randoms include, and auto log in and out.

and 2-3 Color input's

This would be a great help. Thanks.

Well, you can look around for an auto login on the forums, lots of them as peoples first scripts. heres a color clicker though:

Program ColorClicker;
{.include SRL/SRL.scar}

const
Color1 =11111;//set colors..
Color2 =11111;
Color3 =11111;

procedure ClickColors;
begin
  repeat
    if(FindColor(x,y,Color1,MSX1,MSY1,MSY2,MSY2))then
    begin
      Mouse(x,y,1,1,true);
    end;
  if(FindColor(x,y,Color2,MSX1,MSY1,MSY2,MSY2))then
  begin
    Mouse(x,y,1,1,true);
  end;
  if(FindColor(x,y,Color3,MSX1,MSY1,MSY2,MSY2))then
  begin
    Mouse(x,y,1,1,true);
  end;
  until(False);
end;

begin
  SetupSRL;
  ClickColors;
end.

Here is a simple autologin good luck!

Procedure Players;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := Name;
Players[0].Pass := Pass;
Players[0].Nick := Nick;
Players[0].Active := True;
LoginPlayer;
end;

You might want to add some waits there, JAD….

procedure ClickColors
  if(FindColor(x,y,Color1,MSX1,MSY1,MSY2,MSY2))or
    (FindColor(x,y,Color2,MSX1,MSY1,MSY2,MSY2))or
    (FindColor(x,y,Color3,MSX1,MSY1,MSY2,MSY2))then
      Mouse(x,y,1,1,true
end;

little bit shorter, eh?

From: Smartzkid
You might want to add some waits there, JAD….

procedure ClickColors
  if(FindColor(x,y,Color1,MSX1,MSY1,MSY2,MSY2))or
    (FindColor(x,y,Color2,MSX1,MSY1,MSY2,MSY2))or
    (FindColor(x,y,Color3,MSX1,MSY1,MSY2,MSY2))then
      Mouse(x,y,1,1,true
end;

little bit shorter, eh?

It might be 3 seperate colors she/he wants it to click on eh?