Kemico2's Power Miner

[kemico2]

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

[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? 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;

[kemico2]

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

[superuser]

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? 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..

[crossback7]

I get an error everytime I try to use it.

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

[kemico2]

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.

[garrett1294]

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...

[kemico2]

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.

[garrett1294]

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

It wont drop loads...