{=============================================
            All in one Powerminer
                    v1.5
                 By Taminoo
    Thanks to Portal for a couple procedures

 Instructions:
  -Have pick in first inventory slot
  -Do setup (line 18)
  -MAKE SURE YOU SET line 28 to a good time!!
  -Start near the rocks you want to mine
{============================================}

{.include library.txt}
{.include PAr.txt}
{.include boxbreaker.txt}
var ore,HeadColor,HandleColor,ores:integer;

const
{=================SET THESE==================}
Mine = 1;//1 for copper
         //2 for tin
         //3 for iron
         //4 for silver
         //5 for coal
         //6 for gold
         //7 for mith
         //8 for addy
mlength = 4000;//adjust by 100s and 1000s
         //lower # = faster mining(higher lvls)
         //higher # = slower mining(lower lvls)
lampskill = 'ranged';
Us = 1;//Set the username and password number
{================DONT TOUCH==================}
iron = 2503250;
mith = 8017235;
coal = 3163718;
silver = 11185078;
addy = 5663830;
copper = 4681624;
tin = 8882065;
gold = 4499129;
{=================END SETUP==================}

procedure report;
begin
ClearReport;
AddToReport('Powerminer v1.5');
AddToReport('  By Taminoo');
AddToReport('------------------');
if(Mine=1)then
AddToReport('Mined ' + inttostr(ores) + ' Copper');
if(Mine=2)then
AddToReport('Mined ' + inttostr(ores) + ' Tin');
if(Mine=3)then
AddToReport('Mined ' + inttostr(ores) + ' Iron');
if(Mine=4)then
AddToReport('Mined ' + inttostr(ores) + ' Silver');
if(Mine=5)then
AddToReport('Mined ' + inttostr(ores) + ' Coal');
if(Mine=6)then
AddToReport('Mined ' + inttostr(ores) + ' Gold');
if(Mine=7)then
AddToReport('Mined ' + inttostr(ores) + ' Mithril');
if(Mine=8)then
AddToReport('Mined ' + inttostr(ores) + ' Adamantite');
end;


function HeadGone:boolean;
begin
if(getcolor(591,220)=4345174)then
begin
Result:=true;
end;
end;

function PickBroke:boolean;  //Thank You Portal!
begin
 if(not(HeadGone))then
   if(not(GetColor(593,220)=65536))then
   begin
    Result:=true;
   end;
end;

procedure fix;
begin
if(findcolor(x,y,HeadColor,545,192,755,580))then
 Mouse(x,y,0,0,true)
if(findcolor(x,y,HandleColor,545,192,755,580))then
 Mouse(x,y,0,0,true)
wait(2000)
HeadColor:=GetColor(590,219);
HandleColor:=GetColor(580,227);
end;

procedure Pickups;
begin
if(FindObj('Take P',HeadColor,20))then
Mouse(x,y,3,3,true);
wait(1000+random(1000))
end;

function GasFound:boolean;   //Thank You Portal!
begin
if(Mine=1)then
begin
if(FindColorSpiralTolerance(x,y,copper,9,9,515,338,1))then
end;
if(Mine=2)then
begin
if(FindColorSpiralTolerance(x,y,tin,9,9,515,338,1))then
end;
if(Mine=3)then
begin
if(FindColorSpiralTolerance(x,y,iron,9,9,515,338,1))then
end;
if(Mine=4)then
begin
if(FindColorSpiralTolerance(x,y,silver,9,9,515,338,1))then
end;
if(Mine=5)then
begin
if(FindColorSpiralTolerance(x,y,coal,9,9,515,338,1))then
end;
if(Mine=6)then
begin
if(FindColorSpiralTolerance(x,y,gold,9,9,515,338,1))then
end;
if(Mine=7)then
begin
if(FindColorSpiralTolerance(x,y,mith,9,9,515,338,1))then
end;
if(Mine=8)then
begin
if(FindColorSpiralTolerance(x,y,addy,9,9,515,338,1))then
end;

begin
  if((FindColoredAreaTolerance(x,y,6189176,x-50,y-50,x+50,y+50,5,5)) or
  (FindColoredAreaTolerance(x,y,4484482,x-50,y-50,x+50,y+50,5,5)) or
  (FindColoredAreaTolerance(x,y,4286846,x-50,y-50,x+50,y+50,5,5)))then
  begin
      result:=true writeln('Found Gas')
      Mouse(648,83,0,0,true) flag;
      wait(40000)
  end
end
end;

Procedure StandStill;
begin
Mouse(647,82,2,2,true);
wait(5000+random(1000));
end;

procedure randoms;
begin
if(gasfound)then
standstill;
if(HeadGone)then
begin
pickups;
fix;
end;
if(pickbroke)then
logout;writeln('Logged Out Because Pick Broke');
Check4Randoms;
Check4Lamp(LampSkill);
FindBox;
login(Us);
end;

procedure turnVbright;
begin
mouse(684,482,1,1,true)
mouse(718,263,1,1,true)
mouse(650,185,1,1,true)
end;

procedure dropinvin;
begin
repeat
randoms;
if(findcolor(x,y,ore,540,190,750,480))then
 mouse(x,y,3,5,false)
   If(SearchForText(3,3,515,336,'Drop',2))then
    ClickText(3,3,515,336,'Drop',2);
   wait(500)
until((getcolor(712,446)=4345174))
randoms;
ores:=ores+27;
end;

procedure pmine;
begin
repeat
randoms;
if(Mine=1)then
begin
if(findobj('Mine',copper,2))then
end
if(Mine=2)then
begin
if(findobj('Mine',tin,2))then
end;
if(Mine=3)then
begin
if(findobj('Mine',iron,2))then
end;
if(Mine=4)then
begin
if(findobj('Mine',silver,2))then
end;
if(Mine=5)then
begin
if(findobj('Mine',coal,2))then
end;
if(Mine=6)then
begin
if(findobj('Mine',gold,2))then
end;
if(Mine=7)then
begin
if(findobj('Mine',mith,2))then
end;
if(Mine=8)then
begin
if(findobj('Mine',addy,2))then
randoms;
end;
 mouse(x,y,0,0,true)
 wait(mlength)
 ore:=(getcolor(629,229))
until(InventoryCount=28)
randoms;
dropinvin;
end;

Procedure CheckLib;
begin
If(LibVersion='2.6')Then
begin
writeln('Get Updated Library Version 2.7')
writeln('Script Won`t Work Until You Do')
repeat
wait(100)
until(false)
end;
end;

begin
loadlibrary('Internet Explorer');
CheckLib;
run(true)
SetBrightness('V-Bright')
setchat('Off')
HeadColor:=GetColor(589,221);
HandleColor:=GetColor(580,230);
repeat
pmine;
report;
until(false)
end.