153 Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0); |
153 Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0); |
154 SplitBySpace(s, id); |
154 SplitBySpace(s, id); |
155 val(s, Gear^.Health); |
155 val(s, Gear^.Health); |
156 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
156 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
157 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
157 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
158 // Needs shared clan ammo game flag |
158 if (GameFlags and gfSharedAmmo) <> 0 then CurrentHedgehog^.AmmoStore:= Clan^.ClanIndex |
159 CurrentHedgehog^.AmmoStore:= Clan^.ClanIndex; // FIXME HACK to get ammostores work |
159 else CurrentHedgehog^.AmmoStore:= TeamsCount - 1; |
160 //CurrentHedgehog^.AmmoStore:= TeamsCount - 1; // FIXME HACK to get ammostores work |
|
161 CurrentHedgehog^.Gear:= Gear; |
160 CurrentHedgehog^.Gear:= Gear; |
162 CurrentHedgehog^.Name:= id; |
161 CurrentHedgehog^.Name:= id; |
163 CurrHedgehog:= HedgehogsNumber; |
162 CurrHedgehog:= HedgehogsNumber; |
164 inc(HedgehogsNumber) |
163 inc(HedgehogsNumber) |
165 end |
164 end |