hedgewars/uTeams.pas
changeset 9749 443d233316e5
parent 9720 453a1c29b7e4
child 9790 0b4b9fda5bd4
equal deleted inserted replaced
9748:b0286b0c91ce 9749:443d233316e5
   540 with CurrentTeam^ do
   540 with CurrentTeam^ do
   541     begin
   541     begin
   542     SplitBySpace(id, s);
   542     SplitBySpace(id, s);
   543     SwitchCurrentHedgehog(@Hedgehogs[HedgehogsNumber]);
   543     SwitchCurrentHedgehog(@Hedgehogs[HedgehogsNumber]);
   544     CurrentHedgehog^.BotLevel:= StrToInt(id);
   544     CurrentHedgehog^.BotLevel:= StrToInt(id);
       
   545     CurrentHedgehog^.Team:= CurrentTeam;
   545     Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0);
   546     Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0);
   546     SplitBySpace(s, id);
   547     SplitBySpace(s, id);
   547     Gear^.Health:= StrToInt(s);
   548     Gear^.Health:= StrToInt(s);
   548     TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true);
   549     TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true);
   549     Gear^.Hedgehog^.Team:= CurrentTeam;
       
   550     if (GameFlags and gfSharedAmmo) <> 0 then
   550     if (GameFlags and gfSharedAmmo) <> 0 then
   551         CurrentHedgehog^.AmmoStore:= Clan^.ClanIndex
   551         CurrentHedgehog^.AmmoStore:= Clan^.ClanIndex
   552     else if (GameFlags and gfPerHogAmmo) <> 0 then
   552     else if (GameFlags and gfPerHogAmmo) <> 0 then
   553         begin
   553         begin
   554         AddAmmoStore;
   554         AddAmmoStore;