SRL Archive - Outdated / Broken

HUGE UPDATE ____ WORKS WITH NEW ENGINE

Brown's PowerMiner
Instructions
-Use low or high detail, must be on V-Bright.
-Have your pick equiped! (unless you wanna drop it :p )
-It will mine anywhere that has the ores its set for, but varrock mine is best.

Features
-AntiRandoms
-No color picking needed
-Works at any mine that has either tin, copper, or iron
-ManyRandom mouse movements randomly going on and off screen.
-Lag Handler, If you lag out to the black screen or the login screen my script will handle it and start mining again
-Switches characters every 5-10 loads (Status shows wich load the character is on (EG. 4/7 loads mined on char)).
-Perfect Rock finding procedure. (Searches 2-5 times for the word "mine" near the rock color found)

Future Updates
-Thanks the new engine, the death walk is no longer working. I will fix this soon.
-If you end up dying, and loosing your pickaxe it will grab another from the top of lumby caste.

Notes:
Worked all night long, with only having one char that had a problem.

"73 Load(s) mined. Rougly 33507 xp gained."

Also, just ignore the Direction option at the top, as the engine made the compass not work.

Great work Brownsymcard.
Can i rip your DeathWalk procedure?

Thanks :D
You can use my deathwalk procedure anytime. You may hafta make one tiny adjustment because its made to click on the pick, just delete that part if you dont need it.

ahh good :D

1. Standards, its 2 spaces and lowercase bolds

2. for deathwalk use a higher tol than 3. Road colors change drastically :D

3. For future updates i suggest Radial or lienar walk :)

Thanks for the suggestions, ill use radial walk next time. This is just my first script that walks a decent distance, so I tried to keep it simple. Atleast the deathwalk works, and tommorow ill update the standards, ill up the tol and ill probaly make it radial walk.

:D

Also Bro use the player Array?
Ill set it up if you want?

Its really late right now and Im about to go off to bed. You can make player array if you want, it would be great. Ill be on tommorow to make adjustments to the script.

:D

There you go :D

///////////////////////\\\\\\\\\\\\\\\\\\\\\\\|BBBBBBB  | SSSSSS  | CCCCCC |
//            Ultimate Power Miner          \\|BB   BB  | SS      | CC     |
//---------------BrownSymCard---------------\\|BB   BB  | SS      | CC     |
//__This is a reliable anywhere PowerMiner__\\|BBBBBBBB | SSSSSS  | CC     |
//______Use V-Bright, Equip your pick.______\\|BB    BB |     SS  | CC     |
//__Start the script when your logged out.__\\|BB    BB |     SS  | CC     |
////////////Lines 18-21 for setup\\\\\\\\\\\\\|BBbbbbbb | SSSSSS  | CCCCCC |
//                                              BROWN       SYM      CARD

program New;
{.include srl\srl.scar}
{.include srl\srl\skill\mining.scar}
var
i,v,water,MMmine:integer;
const
///////////////////////SETTINGS\\\\\\\\\\\\\\\\\\\\\\\\\\\
      OreType = 2; //1=Tin|2=Copper|3=Iron (Tin may click on steel armour)
   Direction = 'E'; //N,S,E,W | The direction you wanna face while mining.
//^^May seem pointless, but this helps to stop your char from getting lost.



Procedure DeclarePlayers;
begin
 HowManyPlayers  :=6;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='kos';
     Players[0].Loc  :='Veb';
     Players[0].Skill:='Mining';
     Players[0].Active:=True;

     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='kos';
     Players[1].Loc  :='Veb';
     Players[1].Skill:='Varrock';
     Players[1].Active:=True;
     Players[1].Ore:='Random';

     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='kos';
     Players[2].Loc  :='Veb';
     Players[2].Skill:='Mining';
     Players[2].Active:=True;

     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='kos';
     Players[3].Loc  :='Veb';
     Players[3].Skill:='Mining';
     Players[3].Active:=True;

end;

//**************************************************************

procedure WalktoMine;
begin
 If (FindMMSymbol(water)) then
  begin
   wait(2000+random(3000));
   gametab (4);
   mouse (585,234,3,3,true);
   wait(2000+random(3000));
   face ('N');
   wait(2000+random(3000));
   RoadWalkTol(5723997,'N',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'E',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'E',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'N',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'N',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'N',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'N',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'N',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'N',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'E',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'E',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'E',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'N',3);
   wait(2000+random(3000));
   RoadWalkTol(5723997,'N',3);
   wait(2000+random(3000));
   clicksymbol (MMmine);
   face (direction);
   end;
end;


procedure FindRandoms;
begin
CloseWindow;
ClickToContinue;
FindLamp('Mining');
FindDead;
FindMod;
FindMime;
FindMaze;
FindQuiz;
FindFrog;
FindPick;
FindDoctor;
FindDemon;
FindNormalRandoms;
if FindNewBox then Logout;
end;
//**************************************************************
Procedure RandomMouse;
 Begin
  MMouse (1+random(500),50+random(500),1+random(500),50+random(500));
  wait (0+random(500));
  MMouse (1+random(500),50+random(500),1+random(500),50+random(500));
  wait (0+random(500));
  MMouse (1+random(500),50+random(500),1+random(500),50+random(500));
  wait (0+random(500));
  MMouse (1+random(500),50+random(500),1+random(500),50+random(500));
  wait (0+random(500));
  MMouse (1+random(500),50+random(500),1+random(500),50+random(500));
  wait (0+random(500));
  MMouse (1+random(500),50+random(500),1+random(500),50+random(500));
  wait (0+random(500));
end;
//**************************************************************
Procedure RandomMouse2;
 Begin
  MMouse (1+random(500),50+random(500),1+random(500),50+random(500));
  wait (0+random(500));
  MMouse (1+random(500),50+random(500),1+random(500),50+random(500));
  wait (0+random(500));
  MMouse (1+random(500),50+random(500),1+random(500),50+random(500));
  wait (0+random(500));
end;
//**************************************************************
Procedure Rotate;
begin
keydown (VK_DOWN);
wait(100+random(2000));
keyup (VK_DOWN);

wait(100+random(500));

keydown (VK_Right);
wait(100+random(2000));
keyUp (VK_Right);

wait(100+random(500));

keydown (VK_Left);
wait(100+random(2000));
keyUp (VK_Left);

wait(100+random(500));

keydown (VK_Up);
wait(100+random(2000));
keyUp (VK_Up);

wait(100+random(500));
end;
//**************************************************************
procedure logmein;
 begin
      RandomNextPlayer(False);
 end;
//**************************************************************
Procedure LagReLogin;
 begin
  //if blackscreen
  if FindColorTolerance(x,y, 597099, 350, 300, 376, 320, 3) then
   begin
   wait(100+random(500));
    mouse (390,340,5,5,true);
   end;
  //ifloggedout
  if not loggedin then
   begin
   wait(100+random(500));
   logmein;
   end;
 end;

//**************************************************************
Procedure minetheore;
 begin
 wait (2000+random(2000));
 //COPPER
 if (oretype=2) then
  begin
   repeat
    findrandoms;
    WalktoMine;
    ClickMSColorTol(4417937,4,true);
    randommouse2;
    LagReLogin;
    wait(7500+random(500));
   until(FindColorTolerance(x,y, 3504338, 710, 442, 712, 444, 3))
 end;

//TIN
if (oretype=1) then
 begin
  repeat
   findrandoms;
   WalktoMine;
   ClickMSColorTol(9013909,2,true);
   randommouse2;
   LagReLogin;
   wait(7500+random(500));
  until(FindColorTolerance(x,y, 8487307, 710, 442, 712, 444, 3))
 end;

//Iron
if (oretype=3) then
 begin
  repeat
   findrandoms;
   WalktoMine;
   ClickMSColorTol(1910851,2,true);
   randommouse2;
   LagReLogin;
   wait(7500+random(500));
  until(FindColorTolerance(x,y, 2108746, 710, 442, 712, 444, 3))
 end;

end;

//**************************************************************
Procedure Afterfull;
 begin
  findrandoms;
  randommouse;
  findrandoms;
  rotate;
  WalktoMine;
  findrandoms;
  LagReLogin;
  dropall;
  WalktoMine;
  findrandoms;
  logout;
  I:=i+1;
 if (oretype=1) or (oretype=2) then
  begin
   v:=i+17*27;
  end;

 if (oretype=3) then
  begin
   v:=i+35*27;
  end;

 end;
//**************************************************************
procedure write;
 begin
  cleardebug;
  writeln ('----------------------------------------------------------------------');
  wait(200);
  cleardebug;
  writeln ('---------------------------------Brown--------------------------------');
  wait(200);
  cleardebug;
  writeln ('-------------------------------BrownSym-------------------------------');
  wait(200);
  cleardebug;
  writeln ('-----------------------------BrownSymCard-----------------------------');
  wait(200);
  cleardebug;
  writeln ('--------------------------BrownSymCards Power-------------------------');
  wait(200);
  cleardebug;
  writeln ('-----------------------BrownSymCards PowerMiner-----------------------');
 end;

 procedure findcolorsofp;
  begin
   wait(3000+random(500));
   GameTab(5)
   wait(3000+random(500));
   FindPickHeadColor;
  end;


//**************************************************************







//**************************************************************

//main
begin
MMmine := BitmapFromString(15, 5, 'z78DA95D03B0EC430' +
      '0804D02B610C832931D9DCFF48894293C8DAD5464853F07905342' +
      '91A67A46FF43BA31914AE602183A9E5686799A64E3C04BA4CFA43' +
      '7E98439C770971257CB09F934B8E089F2FE43287A2F534166629A' +
      '1121D03DB5BB94C0B1D9D811E2DEF66ED94BCF6BFC97753A33BF3' +
      '7ABBCAEB9F0FD413672D');
Water := BitmapFromString(15, 5, 'z78DAA5CF410A80300C44' +
      'D12B25B6A964E9907AFF2329CC42A5448A12F874111EA9A89C830' +
      'A438C6DB646B7A51BF6C27A75F3C8F659D16BE665F68F7C37B121' +
      '3AF8162D2DE2FDF21999E628B3DFE4C7DF1339BB9CE601EA0F684' +
      '0');
 setupsrl;
 setupsrlmining;
 write;
 DeclarePlayers;
 repeat
 logmein;
 WalktoMine;
 Face(direction);
 findcolorsofp;
 minetheore;
 afterfull;
 //Status
 Status (IntToStr(i)+' Load(s) mined. Rougly '+IntToStr(v)+' xp gained.');
 until(false);
end.

i dont like how it logs out after every load maby after ever 20-30 loads? a radom number between there

From: JiveTonto@Gmail.com
i dont like how it logs out after every load maby after ever 20-30 loads? a radom number between there

I will update that tommorow, but 20-30 is a little high because its intended to prevent randoms. I will probaly do 5 then next player.

Also, thanks a lot Prince. Ill update everything after school tommorow.

Ah also a suggestion :D :p use usermanager

Expect a large update later on today with:

Player Arrays (<< Many thanks to PrinceOfRandomness )
Updated ore finding
Fixed Xp gained status
Radial Walk
Will mine a random amount of loads (5-15) before switching players.
and more…

Man, this is great! (is this the secert guy u were talkin about pyro?) ill use this to get up to the lumby swamp lvl. anyways, this is great! ( i said it once, ill say it again) Im gonna use this script to learn how to script.

From: brownsymcard
Expect a large update later on today with:

Player Arrays (<< Many thanks to PrinceOfRandomness )
Updated ore finding
Fixed Xp gained status
Radial Walk
Will mine a random amount of loads (5-15) before switching players.
and more…

Ill do the Random bit, im Random!:p :p

^^^ Your too late :p, already added the random part. Im just gonna reattch the script when I have everything done.

Oh… :(………………..

Sorry the update took so long, the engine ruined the death walk. I redid almost the whole thing since the original. It works flawlessly overnight with 4 chars.

Hope you all enjoy. (Be sure to read the front post to see updates).

Will try it out later.

I will run this and tell you how it goes for a few hours. Gotta put my nooblets to work. They been buying feathers too much lately.

works good i'll test it later

You mean looks good?

When i run this script - it logs in - then it get stuck and doesnt click the large play button in the middle of the screen !:!:!:: Does this happen to anyone else?