DaWu
2007-01-12 09:43:19
procedure OutFightO;
var
i: integer;
begin
FFlag(1);
for i:= 1 to 5 do
begin
MarkTime(ChickenSwarmer)
if(InFightAtO(247,164))then
begin
repeat
wait(50);
until(not(InFightAtO(247,164)));
exit;
end else
wait(300);
If(TimeFromMark(ChickenSwarmer)>90000) Then
begin
FindFight;
wait(10000+random(200));
writeln('Fighting timed out, we possibly got a evil chicken or Swarm.')
end;
end;
end;
Shall the "Timing out" do the trick ?
If theres better solution for this, please tell me.