hedgewars/uTeams.pas
changeset 4391 de9e1a5102b4
parent 4377 43945842da0c
child 4393 883b979697e4
equal deleted inserted replaced
4390:f219628ed666 4391:de9e1a5102b4
   120         Gear^.Z:= cHHZ;
   120         Gear^.Z:= cHHZ;
   121         RemoveGearFromList(Gear);
   121         RemoveGearFromList(Gear);
   122         InsertGearToList(Gear)
   122         InsertGearToList(Gear)
   123         end
   123         end
   124     end;
   124     end;
       
   125 // Try to make the ammo menu viewed when not your turn be a bit more useful for per-hog-ammo mode
       
   126 with CurrentTeam^ do
       
   127     if ((GameFlags and gfPerHogAmmo) <> 0) and (not ExtDriven) and (CurrentHedgehog^.BotLevel = 0) then
       
   128         begin
       
   129         c:= CurrHedgehog;
       
   130         repeat
       
   131             begin
       
   132             inc(c);
       
   133             if c > cMaxHHIndex then c:= 0
       
   134             end
       
   135         until (c = CurrHedgehog) or (Hedgehogs[c].Gear <> nil);
       
   136         LocalAmmo:= Hedgehogs[c].AmmoStore
       
   137         end;
   125 
   138 
   126 c:= CurrentTeam^.Clan^.ClanIndex;
   139 c:= CurrentTeam^.Clan^.ClanIndex;
   127 repeat
   140 repeat
   128     inc(c);
   141     inc(c);
   129     if c = ClansCount then
   142     if c = ClansCount then