hedgewars/uAI.pas
branchwebgl
changeset 8833 c13ebed437cb
parent 8096 453917e94e55
parent 8677 afb2b467f801
child 9127 e350500c4edb
equal deleted inserted replaced
8450:404ddce27b23 8833:c13ebed437cb
   432             Walk(@WalkMe, Actions);
   432             Walk(@WalkMe, Actions);
   433 
   433 
   434             // find another hog in team
   434             // find another hog in team
   435             repeat
   435             repeat
   436                 itHedgehog:= Succ(itHedgehog) mod CurrentTeam^.HedgehogsNumber;
   436                 itHedgehog:= Succ(itHedgehog) mod CurrentTeam^.HedgehogsNumber;
   437             until (itHedgehog = currHedgehogIndex) or (CurrentTeam^.Hedgehogs[itHedgehog].Gear <> nil);
   437             until (itHedgehog = currHedgehogIndex) or ((CurrentTeam^.Hedgehogs[itHedgehog].Gear <> nil) and (CurrentTeam^.Hedgehogs[itHedgehog].Effects[heFrozen]=0));
   438 
   438 
   439 
   439 
   440             inc(switchesNum);
   440             inc(switchesNum);
   441         until (not (switchImmediatelyAvailable or (switchCount > 0)))
   441         until (not (switchImmediatelyAvailable or (switchCount > 0)))
   442             or StopThinking 
   442             or StopThinking