SRL Archive - First Scripts

Ok it is now updated, compiles logs in but will not mine the rocks. So could use some help there cheers
////////////////////Helped by p1nky!//////////////////////

just put in FindNormalRandoms.

You Legend I Love You!

lol np

Ok, first you should have repeats in your main loop so it will continue mining. In your mining procedures, you have this,

Procedure MineTin;
begin
 repeat
 If (FindColorSpiralTolerance(x, y, TinColour, MSX1, MSY1,MSX2, MSY2, 3)) or
  (FindColorSpiralTolerance(x, y, TinColour1, MSX1, MSY1,MSX2, MSY2, 3)) Then
mmouse(x,y,0,0);
wait(300);
Mouse(x,y,0,0,true);
writeln('Found Rock');
Randoms;
until(invfull)
end;

That means that it will Keep click the rock every 300ms. You need a wait while ming procedure so it does not just keep clicking the rock. There is no need for
mmouse(x,y,2,2)
mouse(x,y,3,3,true)

All's you need is mouse(x,y,2,2,true) That will move the mouse to the position and click. SRL also has an auto loggin. I read the post about FindnormalRandoms. It will not compile unless you have this,

procedure DeclarePlayers;
begin
     HowManyPlayers := 1; // Don't edit this one
     NumberOfPlayers(HowManyPlayers);
 
     Players[0].Name    :='Username';
     Players[0].Pass    :='Password';
     Players[0].Nick    :='ass';  // 3-4 letters from your name. No CAPS
     Players[0].Active:= True;
end;

There in no reason for activate client when you have SMART ;)
SRL's autologgin is

if not loggedin then loginplayer;

Hope I helped,

noidea

No Idea Thomas helped me with declare players, but when I log in it wont click on the rocks, it will only repeat "found rock" could anyone help with this?

Try this.

Procedure MineTin;
begin
  repeat
    If (FindColorSpiralTolerance(x, y, TinColour, MSX1, MSY1,MSX2, MSY2, 3)) or
    (FindColorSpiralTolerance(x, y, TinColour1, MSX1, MSY1,MSX2, MSY2, 3)) Then
    begin
      mmouse(x,y,5,5);
      if isuptext('ine')then
      begin
        Mouse(x,y,0,0,true);
        writeln('Found Rock');
        Randoms;
      end;
    end;
  until(invfull)
end;

hmm keeps stopping for me

nice script!