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 // Needs shared clan ammo game flag |
157 // ClansCount above causes shared ammo across clans, have demo game that functions as of this revision. |
157 CurrentHedgehog^.AmmoStore:= Clan^.ClanIndex; // FIXME HACK to get ammostores work |
158 // need to find out why before restoring. |
158 //CurrentHedgehog^.AmmoStore:= TeamsCount - 1; // FIXME HACK to get ammostores work |
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 |
|
162 CurrentHedgehog^.Gear:= Gear; |
159 CurrentHedgehog^.Gear:= Gear; |
163 CurrentHedgehog^.Name:= id; |
160 CurrentHedgehog^.Name:= id; |
164 CurrHedgehog:= HedgehogsNumber; |
161 CurrHedgehog:= HedgehogsNumber; |
165 inc(HedgehogsNumber) |
162 inc(HedgehogsNumber) |
166 end |
163 end |