{   ----Any Rock Powerminer----              ^
                                             |
             -by-                            |
                                            /
          AFIREINSIDE                      /
                                          /
1.) Make sure you drag this to poonscape_____/

2. 99% Chance you will lose your pick with this.
3. This script will drop everything except pickaxes.
4. NO AntiRandoms yet. Turn on sound to listen for them
5. Watch script at all times, not my fault if you get bant.
Ill probably come up with updates later.

*After you press 'RUN', move mouse to a rock for 3 secs to get color.*


}program PowerMiner_Afireinside;
var x,y,a,b,color,wdrop,ydrop:Integer;
Timer:Cardinal;
//////////////////////////////////
//Picks Color of anything
//////////////////////////////////
Function PickColor(word:string; secret:boolean):Integer;
//Made By Afireinside
var
  Canvas:TCanvas;
  nextstep,coldisp,savecol,a,b,image,width,height,x,x2,y:integer;
  vary,signal:boolean;
begin
nextstep:=4;
width:=  140;
height:= 140/2;
x:=-width;
x2:=0;
y:=0;
image := BitmapFromString(width, height,'');
DisplayDebugImgWindow(width,height);

while(x<=width)do

begin
    Canvas:=GetBitmapCanvas(image);
    Canvas.Brush.Style:= bsSolid;
    Canvas.Brush.Color:= clBlack;
    Canvas.Pen.Color:= clBlack;
    Canvas.Rectangle(0,0,140,140);

   if(vary=false)then
   begin

    Canvas:=GetBitmapCanvas(image);
    Canvas.Brush.Style:= bsclear;
    Canvas.Brush.Color:= clWhite;
    Canvas.Pen.Color:= clBlack;
    Canvas.Pen.Width:= 1;
    //Canvas.moveto(pxlx, pxly);
    //Canvas.lineto(pxlx2, pxly2);
    //fps
    Canvas.Brush.Style:= bsClear;
    Canvas.Font.Size:= 7;
    Canvas.Font.Name:= 'Verdana Bold';
    Canvas.Font.Color:= clwhite;
    Canvas.Font.Color:= clwhite;
    //Canvas.TextOut(60,15,'('+inttostr(a)+','+inttostr(b)+')');
    //Canvas.TextOut(60,25,'{'+inttostr(coldisp)+'}');
    GetmousePos(a,b);
    coldisp:=getcolor(a,b);
    //if(istextat2(9,9,word,100))then begin Canvas.Font.Color:= clYellow;  Canvas.TextOut(60,35,'Pres Any Key') end else Canvas.TextOut(60,35,'Find Monster');
    //copycanvas(getbitmapcanvas(image), GetDebugCanvas, 0, 0, width, height, 0, 0, width-100, height-100);
    CopyCanvas(GetClientCanvas, GetDebugCanvas, a, b, a-1, b-1, 10, 10,50, 50);

    //if(not((getcolor(85,439))=16711680))then
    if(ISTextAt2(9,9,'M',50))then
    begin
    nextstep:=nextstep-1;
    Canvas.Font.Color:= clred;
    Canvas.Font.Size:=30;
    Canvas.Textout(75,0,inttostr(nextstep));
    Wait(1000);


    savecol:=coldisp;
    //Canvas.TextOut(60,35,'Got Hob Color!');
    if(nextstep=0)then signal:=true;
    end;
    end;

    If(vary=true)then begin Status('itdone'); Canvas.Font.Color:= clred;  Canvas.TextOut(75,20,'Got Color!');  end;
    if((vary=true)and(secret=true))then begin canvas.font.size:=5; Canvas.Font.Color:= clyellow;  Canvas.TextOut(60,20,'Click on SCAR'); Canvas.TextOut(60,35,'in Taskbar'); end;

copycanvas(getbitmapcanvas(image), GetDebugCanvas, 60, 5, 125, 50, 60, 5, 125,50);
wait(10);
if(vary=true)then wait(3000);
if(vary)then break;
vary:=false;
if(signal)then vary:=true;
signal:=false;
freebitmap(image);
image := BitmapFromString(width, height,'');
end;
result:=savecol;
end;

//////////////////////////////
//Find Color on the main screen
//////////////////////////////
Function FindColor(col:Integer):boolean;
//Made By Afireinside
begin
if(findcolorspiral(x,y,col,1,1,515,335))then Result:=true else result:=false;
end;

/////////////////////////////
//My mouse Procedure
////////////////////////////
Procedure Mouse(xx,yy:Integer; click:String; ranx,rany:INteger);
//made By Afireinside
begin
MoveMouseSmooth(xx+Random(ranx),yy+random(rany));
Wait(500);
GetMousepos(xx,yy);
if(Click='left')then Clickmouse(xx,yy,true);
if(Click='right')then ClickMouse(xx,yy,false);
end;

////////////////////////////
//CheckTime
////////////////////////////
Procedure twoStep;
//Made By Afireinside
begin
if((abs(timer-Getsystemtime))>60000)then
begin
Mouse(648,77,'left',2,2);
//Writeln('Moved to avoid 5 min rule');
Timer:=Getsystemtime;
end;
end;

//////////////////////
//Is inv full
/////////////////////
Function InvFull:boolean;
//Afireinside
var t,u:Integer;
begin
if(findcolortolerance(t,u,65536,691,431,729,458,50))then Result:=true else result:=false;
end;

/////////////////////////
//Rlick and drop
/////////////////////////
Procedure Rclick(c,d:Integer);
var dx,dy:INteger;
begin
Mouse(c,d,'right',0,0);
wait(200);
wait(random(100));
if(findbitmapin(wdrop,dx,dy,525,175,750,475))then Mouse(dx+10,dy+5,'left',10,5);
if(findbitmapin(ydrop,dx,dy,525,175,750,475))then begin getmousepos(dx,dy); ClickMouse(dx,dy,true); end;
wait(100);
end;

//////////////////////////
//Drops all ore, not axes.
//////////////////////////
procedure Dropitlikeitshot;
//Made by Afireinside
var i,ItemPos,TempCount,xindex,yindex,xx,yy:Integer;
var xInv :array[1..4] of Integer;
var yInv :array[1..7] of Integer;
begin
if(InvFull)then
begin
Writeln('dropping Inventory');
    ItemPos:=29;
    for i := 1 to 4 do xInv[i] := 530+(i*(45));
    for i := 1 to 7 do yInv[i] := 195+(i*(35));
        repeat
        ItemPos:=ItemPos-1;
        if(ItemPos=0)  then break;
        if(ItemPos>=1) then begin tempcount:=ItemPos;    yindex:=1; end;
        if(ItemPos>=5) then begin tempcount:=ItemPos-4;  yindex:=2; end;
        if(ItemPos>=9) then begin tempcount:=ItemPos-8;  yindex:=3; end;
        if(ItemPos>=13)then begin tempcount:=ItemPos-12; yindex:=4; end;
        if(ItemPos>=17)then begin tempcount:=ItemPos-16; yindex:=5; end;
        if(ItemPos>=21)then begin tempcount:=ItemPos-20; yindex:=6; end;
        if(ItemPos>=25)then begin tempcount:=ItemPos-24; yindex:=7; end;
        xindex:=tempcount;
        Mouse(xinv[xindex],yinv[yindex],'slide',5,5);
        wait(400);
        if(Istextat2(9,9,'Use',80))then
          begin
          GetMousePos(xx,yy);
          rClick(xx,yy);
          wait(100);
          wait(random(500));
          end;
        until(ItemPos=0);
    end;

end;

//////////////////////////////
//Mining Procedure
//////////////////////////////
Procedure MineRocks;
begin
  repeat
  Writeln('Mining');
  if(not((GetColor(x,y))=color))then
      begin
      if(findcolor(color))then
        begin
        Mouse(x,y,'left',0,0);
        wait(2000);
        end;
      end;
  Dropitlikeitshot;
  Twostep;
  wait(Random(500));
  wait(200);
  until(false);
end;

/////////////////////////////////////////
//Loads all the pictures
/////////////////////////////////////////
Procedure LoadBits;
begin
wdrop := BitmapFromString(30, 8,
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D5447FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF5D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D5447FFFFFFFFFFFF' +
       '0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFF' +
       'FFFFFF5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
       '5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D54475D5447' +
       '5D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447' +
       'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D5447FFFFFFFFFFFF0000000000005D54475D5447' +
       'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D5447FFFFFFFFFFFF000000');
       ydrop := BitmapFromString(30, 9,
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D5447FFFF00FFFF00' +
       '000000FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D5447FFFF00FFFF000000005D5447FFFF00FFFF005D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFF00FFFF000000005D5447FFFF00' +
       'FFFF000000005D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D5447FFFF00FFFF00' +
       '0000005D5447FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00' +
       'FFFF005D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D5447' +
       '5D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D54475D5447' +
       '5D5447FFFF00FFFF000000005D5447FFFF00FFFF000000005D5447' +
       'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF00000000' +
       '000000FFFF00FFFF005D54475D5447FFFF00FFFF00000000000000' +
       'FFFF00FFFF005D54475D5447FFFF00FFFF000000005D5447FFFF00' +
       'FFFF000000005D5447FFFF00FFFF000000000000005D54475D5447' +
       'FFFF00FFFF000000005D5447FFFF00FFFF000000005D5447FFFF00' +
       'FFFF000000005D5447FFFF00FFFF000000005D5447FFFF00FFFF00' +
       '0000005D5447FFFF00FFFF000000005D5447FFFF00FFFF00000000' +
       '5D54475D54475D5447FFFF00FFFF000000005D5447FFFF00FFFF00' +
       '0000005D5447FFFF00FFFF000000005D5447FFFF00FFFF00000000' +
       '');
end;
///////////////////
//Main Script
///////////////////
begin
LoadChars('');
LoadBits;
Timer:=Getsystemtime;
Color:=PickColor('Rock Color',false);
MineRocks;
end.

Offline
program New;
begin
end.