PowerMiner

My PowerMiner Script

Just updated it to use S.M.A.R.T and has A gas Finder
PowerMines
Clay (just added)
Iron
Tin
Copper
Gold
Silver
Mithril
Addy

Has
Antibans
Antirandoms
Failsafe

More Updates to come

To Download:http://www.srl-forums.com/forum/powerminer-t35968.html?p=438341

Please Message me on msn if you have questions or just need help
I'm always happy to help.
[email protected]

PowerMiner3.0

Code:

program PowerMiner;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL/SRL.scar}

//////////////////////////////////////////////////
//This is my PowerMiner                         //
// It powermines iron tin copper iron mithril   //
// addy gold silver                             //
//                                              //
// Enjoy!                                       //
//////////////////////////////////////////////////

var
  x,y:integer;
  item:integer;
  time:integer;
  Loads:integer;
/////////////////To change color, change the name on line 52, Just the name in the code//
///Use the Const names listed here to change what it is going to Mined///////
const
  clay    = 7975890;// Clay        Color
  iron    = 2898785;// Iron        Color
  tin     = 9540252;// Tin         Color
  copper  = 3297135;// Copper      Color
  silver  = 9145494;// Silver      Color
  gold    = 1141378;// Gold        Color
  mith    = 5519929;// Mithril     Color
  addy    = 5531988;// Adamantitle Color

//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////



procedure Signature;
begin
  ClearDebug;
  writeln('Ghosts Powercutter Enjoy!');
  writeln('__________________       ');
  writeln('|       | |       |      ');
  writeln('|I See  | | You!  |      ');
  writeln('|_______| |_______|      ');
  writeln('        | |              ');
  writeln('       /   \             ');
  writeln('       |___|             ');
  writeln('  \              /       ');
  writeln('   \____________/        ');
  wait(200 + random(400));
 end;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'Username'; // Account name
  Players[0].Pass := 'Password';// user pass
  Players[0].Nick := 'Nick';//3 letters in username, not the first letter
  Players[0].Active := True;
end;


procedure Progress;
begin
  Cleardebug;
  Writeln('_______Progress Report________|');
  Writeln('|Worked for  '  + timerunning);
  Writeln('|_____________________________|');
  Writeln('|Mined'  + IntToStr(Loads) +      'ores');
  Writeln('|______Ghosts Powerminer______|');
  Writeln('|_____________________________|');
  end;


procedure RandomsReport;
var
  i, CurrentInt: Integer;
  CurrentStr, Name: String;
Begin
  ChangeReportWidth(280);
  ClearReport;
  AddToReport('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
  AddToReport('|     SRL ' + IntToStr(SRLVersionNumber) + ' Randoms Report    |');
  AddToReport('|      www.srl-forums.com      |');
  AddToReport('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
  For i := 0 to 43 do
  Begin
    Case i of
    0: begin CurrentInt :=NewBoxes;   Name := '| Boxes Solved     :'; end;
    1: begin CurrentInt := NoNewBoxes;   Name := '| Boxes Missed     :'; end;
   end;
  end;
end;



procedure Mining;
begin
  if not LoggedIn then
    Exit;
    wait(2000);
begin
    wait(100+random(100));
    if findcolorspiraltolerance(x,y, copper, MSX1, MSY1, MSX2, MSY2,7) then
  begin
     mmouse(x,y,0,0);
     if isuptext('ine') then
    begin
       mouse(x,y,0,0,false);
       chooseoption('ine');
        MarkTime(Time);
        While TimeFromMark(Time)<5000 do
        Wait(60+random(10));
     end;
   end;
  end;
end;
procedure AntiRandoms;
begin
  if (not(LoggedIn))then Exit;
  FindNormalRandoms;
  FindLamp('Mining');// What the lamp will pick to give exp to, change if you want.
  if (FindFight) then
  begin
    wait(500+random(60))
    SetRun(true);
    wait(500+random(600))
    RunAway('N',True,1,15000);
    if NoGameTab xor InBlack then
    begin
      Writeln('Found a random that can not be solved, Sorry');
      Logout;
      Exit;
    end;
  end;
end;

procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(30) of
  1: RandomRClick;
  2: HoverSkill('Mining', False);
  3: RandomMovement;
  4: BoredHuman;
  5: DoEmote(5 +Random(17));
  6: SleepAndMoveMouse(1235+random(860));
  7: MMouse(random(300), random(250), 10, 10);
  8: begin
      GameTab(1 + Random(12));
      wait(1200+random(1000));
      GameTab(4);
   end;
  end;
end;


procedure DropOre;
begin
  for item:=2 to 28 do
  dropitem(item);
  Loads:=Loads+27;
end;

procedure MainLoop;
 begin
 repeat
   Mining;
   AntiBan;
   AntiRandoms;
   if invfull then Dropore;
   Progress;
   RandomsReport;
 until false;
end;


  
begin
  Signature;
  SMARTSetUp('world38', True, False, False); {World prefix, safe mode, unsigned, RS-HD}
  SetTargetDC(SMARTGetDC);
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  if Loggedin then Logout;
  loginplayer;
  MainLoop;
  end.

 

I dunno if this is missing something but when i run this script it only finds the one tin ore rock that I'm standing in front of it wont move to the one like 3 squares away and mine that when the first rocks mined.

And when i tried copper it didn't even pick up there was any mines there, Im in the big mine south of fally am i ment to be running this script in a specific location??

All the random events work and the drop works fine when the backpack fills but it just wont pick up other "tin" mines in the area

 

hmmmm it maybe the color i'll have a look at it


you said South of fally right?

 

its that dang spade thats in the middle of the mine next to the tin thats messes it up

I did all my testing in the east varrock mine

you may want to try there

 

I moved to East Varrok and it still fails mining tin, i think the road and some rocks near the mine interfere with it, possibly adding more colors might fix, but i swapped over to copper and its working fine, same xp as tin so hardly matters

Also i haven't tried but if i were to try silver over at crafter's guild would the buildings greys mess with it?? Like the spade with the tin.

-Cheers

 

yeah the colors are messing up on tin and silver. I may have to make a procedure for those to

 

try using TPAs... this is just a very.... very basic script

 

I'll give it a try

 

if u need any help, add me on msn.

 

kk man thanks for the help