SCAR Code:
If (FindColorSpiralTolerance(x, y, orecolor, MSX1, MSY1, MSX2, MSY2) then
SCAR Code:
program autominer;
{.Include SRL/SRL.Scar}
const
rockwait=15000;
procedure orefinding;
begin
if(Findcolor(x,y,2371407,5,5,233,190)) then Mouse(x,y,5,5,true);
Flag;
FTWait(RockWait+Random(1000));
end;
procedure dropores;
begin
mousespeed:=1
dropto(2,28)
end;
begin
SetUpSRL;
repeat
orefinding;
until(invfull)
If(Invfull)Then
dropores;
end.
program New;
begin
end.
if any problems please point them out i wanna get this going