151 Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0); |
151 Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0); |
152 SplitBySpace(s, id); |
152 SplitBySpace(s, id); |
153 val(s, Gear^.Health); |
153 val(s, Gear^.Health); |
154 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
154 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
155 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
155 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
156 CurrentHedgehog^.AmmoStore:= ClansCount - 1; // FIXME HACK to get ammostores work |
156 //CurrentHedgehog^.AmmoStore:= ClansCount - 1; // FIXME HACK to get ammostores work |
|
157 // ClansCount above causes shared ammo across clans, have demo game that functions as of this revision. |
|
158 // need to find out why before restoring. |
|
159 // Also needs a frontend game flag. |
|
160 // Is *not* related to randomising clan order. |
|
161 CurrentHedgehog^.AmmoStore:= TeamsCount - 1; // FIXME HACK to get ammostores work |
157 CurrentHedgehog^.Gear:= Gear; |
162 CurrentHedgehog^.Gear:= Gear; |
158 CurrentHedgehog^.Name:= id; |
163 CurrentHedgehog^.Name:= id; |
159 CurrHedgehog:= HedgehogsNumber; |
164 CurrHedgehog:= HedgehogsNumber; |
160 inc(HedgehogsNumber) |
165 inc(HedgehogsNumber) |
161 end |
166 end |