When my miner clicks a rock, walks and starts mining, my miner will look for another rock and click it. When it dosnt have to walk, it works perfectly.
Here is 2 of my functions that will help you help me.
SCAR Code:
procedure WhileChipping;
var
StartInv, ChippingStart: integer;
begin
if not LoggedIn then Exit;
Status('Chipping Rocks');
StartInv:= InvCount;
MarkTime(ChippingStart);
while StartInv = InvCount do
begin
if not LoggedIn then Exit;
wait(10);
AutoRespond;
if not FindColorTolerance(x,y,PickedColor,ColorLocX-6,ColorLocY-6,ColorLocX+6,ColorLocY+6,8) then Break;
if (TimeFromMark(ChippingStart) >= TimeFromMark(ChippingStart)+20000) then Break;
if InvFull then Break;
end;
end;
procedure ChipRock;
begin
repeat
if not LoggedIn then Exit;
Status('Finding Rocks');
FindNormalRandoms;
AutoRespond;
if FindObjCustom(x, y, ['Rocks'], OreColors, 2) then
begin
JustWalked:= false;
MMouse(x,y,3,3);
if IsUpText('Mine') then
begin
PickedColor := GetColor(x,y);
GetMousePos(ColorLocX,ColorLocY);
case Random(2) of
0: Mouse(x,y,0,0,true);
1: begin
Mouse(x,y,0,0,false);
Wait(RandomRange(100,200));
ChooseOption('Mine');
end;
end;
WaitToMove(800);
while CharacterMoving do wait(10);
WaitForAnim(2500);
if (GetAnimation > 0) then WhileChipping;
end;
if not (GetAnimation > 0) then AntiBan;
end else
begin
Wait(100);
if FindSymbol(x,y,'mining spot') then
begin
if (y - 86 >= 40) then Mouse(x,y,4,4,true);
Wait(RandomRange(250,500));
Flag;
end;
if (TimeFromMark(FromWalk) >= 60000) and JustWalked then
begin
WalkToTile(Point(3286, 3366), 0, 5);
Flag;
end;
end;
until InvFull;
end;
I hope someone can help me