guyver
2009-05-22 17:09:34
Hi all, Just wondering if anyone could help with the following procedure. For some reason the repeat ends even though the condition is not met. ie the condition is the FindNpcChatText. Any ideas please?
Thanks for any help.:)
procedure ClayWait;
var
counter1: Integer;
begin
if(not(LoggedIn)) then Exit;
MarkTime(counter1);
writeln('Start to wait for the clay');
repeat
Wait(500);
if(TimeFromMark(counter1) > 15000) then
begin
WalkAwayandBack;
MarkTime(counter1);
end;
until(FindNpcChatText('Demon butler', nothing));
CheckForAllRandoms;
if(PayServant) then
begin
Writeln('Paid the servant! Need to Find Servant again');
FindServant;
end;
MarkTime(counter1);
repeat
Wait(500);
until(GotClay) or (TimeFromMark(counter1) > 60000);
if(not(GotClay)) then
begin
WalkAwayandBack;
ClayWait;
end;
end;
Thanks for any help.:)