equal
deleted
inserted
replaced
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 |