SRL Archive - RS3 Outdated / Broken Scripts

Instructions
-Fill in color and Start by any rock.
-Make sure that you have a pick dosent matter if it is equiped or not.
-You will have to stop the script when it is done mining.

Features
-This is my very first script release so there isnt many.
-It has a some antirandoms.


Future Updates
-Will make it where it dosent have "Untill(false) I havent learn not how todo that yet.
-When I learn how to do mutliplayer i will add that.
-I will also learn forms and put one in the script.
-AntiBan and better AntiRandoms
-Anything else that i find needs improvement.

Notes
-I am very new at scripting so any help would be greatly appricated.
-I also made this in scar 3.06 it might work in 2.03 though

Wow great first script a lot better than mine lol. Just one thing u may want to learn standards, yous are a bit err…..unique? :D there's a few tut's on standards in tut island section here's an example of how i'd change urs

ok this is original code and how it looks:

procedure MajorMining;
 begin;
  repeat;
  FindNormalRandoms;
   FindTalk;
   if(FindColorSpiralTolerance(x,y,RockColor,5,5,514 ,337,5)) then;
    Mmouse(x,y,2,2);
     CheckForGas;
      wait(100+random(250));
       If(IsUpText('ine'))then;
          Mouse(x,y,2,2,false);
             ChooseOption(x,y,'Mine')
            Wait(3000+random(2000))
          If(DidRandomHappen = true) then
         begin;
        RunAwayDirection('n')
       wait(5000+random(3000))
    end;
   Until(InvFull);
End;

This is your code with official standards:

procedure MajorMining;
begin;
  repeat;
    FindNormalRandoms;
    FindTalk;
    if(FindColorSpiralTolerance(x,y,RockColor,5,5,514 ,337,5)) then;
    Mmouse(x,y,2,2);
    CheckForGas;
    wait(100+random(250));
    If(IsUpText('ine'))then;
    Mouse(x,y,2,2,false);
    ChooseOption(x,y,'Mine')
    Wait(3000+random(2000))
    If(DidRandomHappen = true) then
    begin;
      RunAwayDirection('n')
      wait(5000+random(3000))
    end;
  Until(InvFull);
End;

LOL my standards are pretty bad but thanks for the help. And thanks for being very nice this is one of the reasions i love this community

From: rkroxpunk
Wow great first script a lot better than mine lol. Just one thing u may want to learn standards, yous are a bit err…..unique? :D there's a few tut's on standards in tut island section here's an example of how i'd change urs

ok this is original code and how it looks:

procedure MajorMining;
 begin;
  repeat;
  FindNormalRandoms;
   FindTalk;
   if(FindColorSpiralTolerance(x,y,RockColor,5,5,514 ,337,5)) then;
    Mmouse(x,y,2,2);
     CheckForGas;
      wait(100+random(250));
       If(IsUpText('ine'))then;
          Mouse(x,y,2,2,false);
             ChooseOption(x,y,'Mine')
            Wait(3000+random(2000))
          If(DidRandomHappen = true) then
         begin;
        RunAwayDirection('n')
       wait(5000+random(3000))
    end;
   Until(InvFull);
End;

This is your code with official standards:

procedure MajorMining;
begin;
  repeat;
    FindNormalRandoms;
    FindTalk;
    if(FindColorSpiralTolerance(x,y,RockColor,5,5,514 ,337,5)) then;
    Mmouse(x,y,2,2);
    CheckForGas;
    wait(100+random(250));
    If(IsUpText('ine'))then;
    Mouse(x,y,2,2,false);
    ChooseOption(x,y,'Mine')
    Wait(3000+random(2000))
    If(DidRandomHappen = true) then
    begin;
      RunAwayDirection('n')
      wait(5000+random(3000))
    end;
  Until(InvFull);
End;

Well, actually it would be:

procedure majorMining;
begin
    repeat
        findNormalRandoms;
        findTalk;

        if (findColorSpiralTolerance(x, y, rockColor, 5, 5, 514, 337, 5)) then begin
            mmouse(x, y, 2, 2);
        end;

        checkForGas;

        wait(100 + random(250));

        if (isUpText('ine')) then begin
            mouse(x, y, 2, 2, false);
        end;

        chooseOption(x, y, 'Mine');

        wait(3000 + random(2000));

        if (didRandomHappen) then begin
            runAwayDirection('n');

            wait(5000 + random(3000));
        end;
    until (invFull);
end;

This is only a matter of taste. However, the code should be as readable as possible. Therefore, it's good to use proper indents (for example pearl standard of 4 spaces, instead of tabs!), use star-close statements for conditional equations, etc..

I get an error everytime I try to use it.

Error detecting Compass Angle. –That's it. Any idea how to fix it??

From: crossback7
I get an error everytime I try to use it.

Error detecting Compass Angle. –That's it. Any idea how to fix it??

Oh as soon as you press play click anyone on rs and that should fix it. In my next update i will amke it activate client so you wont have to do this.

This really works great i hope you make more i love it…


If you had a pick axe head finder/ anti random/ run from fight this would be best script out.

Also if you could get progress report working…

Thanks Garrett but lol this isnt even near being great. Even with all those things u said i doubt there it will be great. But thanks for being posotive.

Worked For : 2 Minutes, and 52 Seconds
Mined/Dropped 0 Loads
[]——————————————–[]

It wont drop loads…