hedgewars/uTeams.pas
changeset 10193 d7cd5b43588f
parent 10124 aabd1b75d5a3
child 10343 fe9853dea6c4
equal deleted inserted replaced
10192:bb1310c4bd79 10193:d7cd5b43588f
   154             begin
   154             begin
   155             inc(c);
   155             inc(c);
   156             if c > cMaxHHIndex then
   156             if c > cMaxHHIndex then
   157                 c:= 0
   157                 c:= 0
   158             end
   158             end
   159         until (c = CurrHedgehog) or (Hedgehogs[c].Gear <> nil);
   159         until (c = CurrHedgehog) or (Hedgehogs[c].Gear <> nil) and (Hedgehogs[c].Effects[heFrozen] < 50255);
   160         LocalAmmo:= Hedgehogs[c].AmmoStore
   160         LocalAmmo:= Hedgehogs[c].AmmoStore
   161         end;
   161         end;
   162 
   162 
   163 c:= CurrentTeam^.Clan^.ClanIndex;
   163 c:= CurrentTeam^.Clan^.ClanIndex;
   164 repeat
   164 repeat