lol here you go
SCAR Code:
program ScottysPowerminer;
Var
i,x,y: Integer;
Const
RockColor1= 8421770;//Set the color of the Rock
RockCOlor2= 8421770;//Set another color of the Rock
Orecolor= 3559008;//The Color of ore you are dropping
Procedure Introduction;
begin
ClearDebug;
Writeln('Hi, welcome to ScottysPowerminer!');
Wait(1000);
Writeln('Please let me know if there are any bugs, and enjoy your autoing!');
end;
Procedure Mine;
begin
i:= 0;
repeat
i:= i + 1;
If(FindColor(x,y,Rockcolor1,0,0,517,337)) and
(FIndColor(x,y,RockColor2,0,0,517,337)) then
begin
Writeln('Now Mining')
MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
ClickMouse(x,y,true);
Wait(10000+random(500));
MoveMouseSmoothEx(620,229 +random(0),20,40,45,25,20);
wait(500+random(50));
ClickMouse(620,229,false);
Wait(500+random(50));
MoveMouseSmoothEx(616,265 +random(0),20,40,45,25,20);
Wait(500+random(50));
ClickMouse(616,265,true);
end;
until(false);
end;
begin
Introduction;
Mine;
End.
EDIT: awww Skilled U got there just before me
~shut