hedgewars/uAI.pas
branchwebgl
changeset 8833 c13ebed437cb
parent 8096 453917e94e55
parent 8677 afb2b467f801
child 9127 e350500c4edb
--- a/hedgewars/uAI.pas	Wed Feb 20 02:21:58 2013 +0100
+++ b/hedgewars/uAI.pas	Tue Apr 02 21:00:57 2013 +0200
@@ -434,7 +434,7 @@
             // find another hog in team
             repeat
                 itHedgehog:= Succ(itHedgehog) mod CurrentTeam^.HedgehogsNumber;
-            until (itHedgehog = currHedgehogIndex) or (CurrentTeam^.Hedgehogs[itHedgehog].Gear <> nil);
+            until (itHedgehog = currHedgehogIndex) or ((CurrentTeam^.Hedgehogs[itHedgehog].Gear <> nil) and (CurrentTeam^.Hedgehogs[itHedgehog].Effects[heFrozen]=0));
 
 
             inc(switchesNum);