SCAR Code:
program ScottysPowerminer;
{.include SRL/SRL/Misc/Smart.scar}
{.Include SRL/SRL.Scar}
Var
i,x,y,World: Integer;
Const
RockColor1= 4022405;//Set the color of the Rock
RockCOlor2= 4022405;//Set another color of the Rock
OreColor= 3570647;//Color Of ore you are dropping
OreColor2= 65536;//Another Color of the ore you are dropping
Procedure Introduction;
begin
Writeln('Hi, welcome to ScottysPowerminer!');
Wait(1000);
Writeln('Please let me know if there are any bugs, and enjoy your autoing!');
end;
Procedure GoMining;
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);
Wait(100+random(10));
ClickMouse(x,y,true);
Wait(10000+random(500));
Writeln('Ore Successfully Mined');
ClearDebug;
end;
until(i >=1);
end;
Procedure Drop;
begin
If(FindColor(x,y,OreColor,0,0,600,600)) and
(FindColor(x,y,OreColor2,0,0,600,600)) then
begin
MoveMouseSmoothEx(623,228 +random(0),20,40,45,25,20);
wait(500+random(50));
ClickMouse(623,228,false);
Wait(500+random(50));
MoveMouseSmoothEx(616,265 +random(0),20,40,45,25,20);
Wait(500+random(50));
ClickMouse(616,265,true);
Wait(500+(50));
end;
end;
Procedure Check;
begin
if i >=5 then
MoveMouseSmoothEx(623,228 +random(0),20,40,45,25,20);
wait(500+random(50));
ClickMouse(623,228,false);
Wait(500+random(50));
MoveMouseSmoothEx(616,265 +random(0),20,40,45,25,20);
Wait(500+random(50));
ClickMouse(616,265,true);
Wait(500+(50));
//-------------------------------------------------------------------\\
MoveMouseSmoothEx(623,228 +random(0),20,40,45,25,20);
wait(500+random(50));
ClickMouse(623,228,false);
Wait(500+random(50));
MoveMouseSmoothEx(616,265 +random(0),20,40,45,25,20);
Wait(500+random(50));
ClickMouse(616,265,true);
Wait(500+(50));
//-------------------------------------------------------------------\\
MoveMouseSmoothEx(623,228 +random(0),20,40,45,25,20);
wait(500+random(50));
ClickMouse(623,228,false);
Wait(500+random(50));
MoveMouseSmoothEx(616,265 +random(0),20,40,45,25,20);
Wait(500+random(50));
ClickMouse(616,265,true);
Wait(500+(50));
//-------------------------------------------------------------------\\
MoveMouseSmoothEx(623,228 +random(0),20,40,45,25,20);
wait(500+random(50));
ClickMouse(623,228,false);
Wait(500+random(50));
MoveMouseSmoothEx(616,265 +random(0),20,40,45,25,20);
Wait(500+random(50));
ClickMouse(616,265,true);
Wait(500+(50));
//-------------------------------------------------------------------\\
MoveMouseSmoothEx(623,228 +random(0),20,40,45,25,20);
wait(500+random(50));
ClickMouse(623,228,false);
Wait(500+random(50));
MoveMouseSmoothEx(616,265 +random(0),20,40,45,25,20);
Wait(500+random(50));
ClickMouse(616,265,true);
Wait(500+(50));
//-------------------------------------------------------------------\\
end;
begin
repeat
SetupSRL;
Introduction;
GoMining;
Drop;
Check;
until(false);
End.