# HG changeset patch # User nemo # Date 1369763831 14400 # Node ID b055f250f1e633842da2e5000b87a78fe40bb639 # Parent 86289794d42153bf83428a2bf2d49d49fc0d4a40 < 256 is "thawing" diff -r 86289794d421 -r b055f250f1e6 hedgewars/uTeams.pas --- a/hedgewars/uTeams.pas Mon May 27 21:34:03 2013 -0400 +++ b/hedgewars/uTeams.pas Tue May 28 13:57:11 2013 -0400 @@ -188,7 +188,7 @@ PrevHH:= CurrHedgehog mod HedgehogsNumber; // prevent infinite loop when CurrHedgehog = 7, but HedgehogsNumber < 8 (team is destroyed before its first turn) repeat CurrHedgehog:= Succ(CurrHedgehog) mod HedgehogsNumber; - until ((Hedgehogs[CurrHedgehog].Gear <> nil) and (Hedgehogs[CurrHedgehog].Effects[heFrozen] = 0)) or (CurrHedgehog = PrevHH) + until ((Hedgehogs[CurrHedgehog].Gear <> nil) and (Hedgehogs[CurrHedgehog].Effects[heFrozen] < 256)) or (CurrHedgehog = PrevHH) end until ((CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) and (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Effects[heFrozen] < 50256)) or (PrevTeam = CurrTeam) or ((CurrTeam = TagTeamIndex) and ((GameFlags and gfTagTeam) <> 0)) end;