SCAR Code:
program LeetPowerMiner;
{.include srl/srl.scar}
const
RockColour = 4615834; //The rock colour
IsPickaxeEquipped = False; //If the pickaxe is equipped then True.
var
RockX : Integer;
RockY : Integer;
procedure FindAndMineRock;
begin
if(findcolorspiral(RockX, RockY, RockColour, 276, 172, 516, 338))then
begin
MMouse(RockX, RockY, random(10)+5, random(10)+5);
wait(random(100)+500);
if(IsUpText('Mine'))then
begin
Mouse(RockX, RockY, 1, 1, True);
end
repeat
cleardebug;
writeln('Waiting for ore to go...')
until(findcolor(RockX, RockY, 4539722, 1, 1, 516, 339));
end
end;
begin
ClearDebug;
SetupSRL;
wait(3000);
FindAndMineRock;
wait(1000);
FindAndMineRock;
end.