PowerMiner

[Ghostman]

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

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.

 

[ohmygodachip]

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

 

[Ghostman]

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


you said South of fally right?

 

[Ghostman]

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

 

[ohmygodachip]

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

 

[Ghostman]

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

 

[Jethr0x]

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

 

[Ghostman]

I'll give it a try

 

[Jethr0x]

if u need any help, add me on msn.

 

[Ghostman]

kk man thanks for the help