equal
deleted
inserted
replaced
160 SplitBySpace(s, id); |
160 SplitBySpace(s, id); |
161 val(s, Gear^.Health); |
161 val(s, Gear^.Health); |
162 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
162 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
163 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
163 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
164 if (GameFlags and gfSharedAmmo) <> 0 then CurrentHedgehog^.AmmoStore:= Clan^.ClanIndex |
164 if (GameFlags and gfSharedAmmo) <> 0 then CurrentHedgehog^.AmmoStore:= Clan^.ClanIndex |
|
165 else if (GameFlags and gfPerHogAmmo) <> 0 then |
|
166 begin |
|
167 AddAmmoStore; |
|
168 CurrentHedgehog^.AmmoStore:= StoreCnt - 1 |
|
169 end |
165 else CurrentHedgehog^.AmmoStore:= TeamsCount - 1; |
170 else CurrentHedgehog^.AmmoStore:= TeamsCount - 1; |
166 CurrentHedgehog^.Gear:= Gear; |
171 CurrentHedgehog^.Gear:= Gear; |
167 CurrentHedgehog^.Name:= id; |
172 CurrentHedgehog^.Name:= id; |
168 CurrHedgehog:= HedgehogsNumber; |
173 CurrHedgehog:= HedgehogsNumber; |
169 inc(HedgehogsNumber) |
174 inc(HedgehogsNumber) |