edit: Right now would this work
SCAR Code:
Procedure AreWeStillMinning;
Var Col, Fail: Integer;
begin
if(findcolorspiraltolerance(x,y,Rock,msx1,msy1,msx2,msy2,25))then
Col := GetColor(x,y);
repeat
begin
wait(600+random(300));
inc(failed);
end;
until(not(GetColor(x,y) = Col)) or Fail => 9
if Failed = 9 then
inc(CantFind);
end;
Procedure Mine;
Begin
If (not LoggedIn) then
Exit;
MouseSpeed := RandomRange(14, 19);
begin
repeat
SetRock;
FindObjTPA(x, y, Rock, 7, 2, 20, 20, 12, Text);
GetMousePos(x,y);
Wait(50 + random(150));
if(random(8) = 1)then
begin
Mouse(x, y, 3, 3, False);
ChooseOption('ine');
AreWeStillMinning;
end else
begin
Mouse(x, y, 3, 3, True);
AreWeStillMinning;
end;
until (Invfull)
end;
end;