Another Question (Marktime)

[kitchenrange]

Procedure MineRocks;
var
x, y, time : integer;
begin
repeat
if FindObj(x, y, 'mine', MithColor, 10) then
begin
If isuptext('ine') then
begin
HoldMouse(x, y, True);
wait(random(349));
ReleaseMouse(x,y, True);
MarkTime(time);
repeat
wait(random(1200));
until(FindBlackChatMessage('You manage') or FindBlackChatMessage('There is no') or TimeFromMark(time) >= 6000);
end;
end;
until(invfull);
end;

That is a procedure im working on, I know that it is far from finished, but scar is saying that there is a type mismatch int he script that comes right when im calling time from mark.

Also if there is any other things i should use to stop the loop, let me know.

[Capricorn]

Procedure MineRocks;
var
x, y, time : integer;
begin
repeat
if FindObj(x, y, 'mine', MithColor, 10) then
begin
If isuptext('ine') then
begin
HoldMouse(x, y, True);
wait(random(349));
ReleaseMouse(x,y, True);
MarkTime(time);
repeat
wait(random(1200));
until(FindBlackChatMessage('You manage') or FindBlackChatMessage('There is no') or (TimeFromMark(time) >= 6000));
end;
end;
until(invfull);
end;


See if that works. It compiles for me.

[kitchenrange]

I got it fixed thanks, i still dont know what the problem was it kinda just went away. Method was in chat room and helped me out some more with the script.