pascal Code:
program my_power_miner;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Mining.scar}
const
rockwait = 12000;
ore_color = 1910335;
var
x, y:integer;
procedure Miner;
begin
repeat
if FindColorSpiralTolerance(x, y, ore_color, MSx1, MSy1, MSx2, MSy2, 40) then
begin
WriteLn('Found Ore');
Mouse(x, y, 5, 5, true);
Wait(rockwait + Random(500));
end else
Writeln('Didnt find Ore');
until(InvFull);
end;
procedure Drops;
var
I: integer;
begin
if InvFull then
begin
for I := 2 to 28 do
DropItem(I);
end;
end;
begin
SetupSRL;
repeat
miner;
drops;
until(false);
end.
Try this.
You had it clicking at x, y even if it didn't find the rock and thereby didn't get any coords.
Btw. you shouldn't use MoveMouseSmooth as Mouse is less banable