Heres my mining procedure, and Im wondering what is wrong with it?
SCAR Code:
Procedure MineRock;
var xR,yR: integer;
begin
repeat
AntiRandoms;
FindNormalRandoms;
If FindColorTolerance(xR,yR,rockcolor,20,25,490,315,2) then
MMouse(xR,yR,4,4);
If(IsUpTextMulti('ine', 'Mine', 'in'))then
Mouse(xR,yR,4,4,true);
if not(IsUpTextMulti('ine', 'Mine', 'in'))then
MMouse(xR,yR,2,5);
wait(nextrock);
FindPick;
if (GasCheck(xR,xR)) then
begin
RunAwayDirection(Rdirection);
Wait(8000+random(3000));
RunBack;
AntiRandoms;
FindNormalRandoms;
end;
until(InvFull = True);
end;
PHP Code:
MMouse(xR,yR,4,4);
If(IsUpTextMulti('ine', 'Mine', 'in'))then
Mouse(xR,yR,4,4,true);
if not(IsUpTextMulti('ine', 'Mine', 'in'))then
MMouse(xR,yR,2,5);
wait(nextrock);
the problem is here, all it does in game is move the mouse the rock and it never clicks it, expept for the first time it finds the rock.