hedgewars/uTeams.pas
changeset 14754 c760a2939b9c
parent 14677 db05d9bf7466
child 14755 e57c8ace7d96
--- a/hedgewars/uTeams.pas	Mon Apr 01 18:49:08 2019 +0200
+++ b/hedgewars/uTeams.pas	Mon Apr 01 19:16:55 2019 +0200
@@ -736,6 +736,7 @@
     Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0);
     SplitBySpace(s, id);
     Gear^.Health:= StrToInt(s);
+    Gear^.Pos:= GetRandom(19);
     if checkFails((Gear^.Health > 0) and (Gear^.Health <= cMaxHogHealth), 'Invalid hedgehog health (must be between 1 and '+IntToStr(cMaxHogHealth)+')', true) then exit;
     if (GameFlags and gfSharedAmmo) <> 0 then
         CurrentHedgehog^.AmmoStore:= Clan^.ClanIndex