I have added a check insted of waiting after the mining started.
Code:
Procedure Checkz;
var
chicken: integer;
begin
MarkTime(chicken);
repeat
if dist > 50 then
begin
wait(1000 + random(300));
end;
wait(100 + random(50));
until ((H + 1 = InvCount) or (TimeFromMark(chicken) >= 2000));
wait(850 + random(120));
end;
and before you click the ore
Code:
H := InvCount;
Dist := Distance(x, y, MSCX, MSCY);
So there is still a time preference but if you have mined the ore it moves to the next one, also if you are too far from the ore it waits a bit.
Oh and I fixed standards as far as I know it.
Edit:
____________________________________________
Script has been running for 1 Hours, 1 Minutes and 54 Seconds
Player ***
loads done 17