I'm trying to get a procedure for mining a rock to work however when it gets to finding the rock it only does it in the upper left hand corner of the screen.
My procedure:
SCAR Code:procedure MineRock;
var x,y: Integer;
begin
Status('Mining Rock');
repeat
if(FindObj(x,y,'ine',RockColor,5))then
begin
Mouse(x,y,1,1,true);
end;
until(InventoryFull);
end;
Anything I should be doing differently?


Reply With Quote












