SCAR Code:
program New;
{.Include SRL/SRL.Scar}
Var
Say: String;
Rockcolor, x, y: Integer;
const
Rockcolor:= 1846316 ;//Insert color here
procedure Mine;
begin
ClearDebug;
wait(1000);
if FindColorTolerance(x, y, Rockcolor, 5, 5, 515, 335, 5) then
begin
Writeln('Found Color.');
MMouse(x,y,2,2);
wait(2000);
if FindObjCustom(x , y, ['ro', 'ck', 'r'], [1989969, 3760987, 2844763], 7) then
begin
Writeln('Found Rock.')
wait(1000);
MMouse(x, y, 2, 2, true);
end else
Writeln('That color was not a rock.');
end else
not FindObjCustom(x, y, ['ro', 'ck', 'r'], [1989969, 3760987, 2844763], 7) then
Writeln('Color of rock not found.');
end;//procedure
begin
SetupSRL;
Mine;
Until(false);
end.
>.> darn you sand.. lol