50 var Color: Longword;

    50 var Color: Longword;

    51     ts: shortstring;

    51     ts: shortstring;

    52 begin

    52 begin

    53 if isDeveloperMode then

    53 if isDeveloperMode then

    54    begin

    54    begin

    56    SplitBySpace(s, ts);

    55    SplitBySpace(s, ts);

    57    val(s, Color);

    56    val(s, Color);

    58    TryDo(Color <> 0, 'Error: black team color', true);

    57    TryDo(Color <> 0, 'Error: black team color', true);

    59 

    58 

    60    AddTeam(Color);

    59    AddTeam(Color);

    99      Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0);

    98      Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0);

   100      SplitBySpace(s, id);

    99      SplitBySpace(s, id);

   101      val(s, Gear^.Health);

   100      val(s, Gear^.Health);

   102      TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true);

   101      TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true);

   103      PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam;

   102      PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam;

   105      Hedgehogs[HedgehogsNumber].Gear:= Gear;

   104      Hedgehogs[HedgehogsNumber].Gear:= Gear;

   106      Hedgehogs[HedgehogsNumber].Name:= id;

   105      Hedgehogs[HedgehogsNumber].Name:= id;

   107      inc(HedgehogsNumber)

   106      inc(HedgehogsNumber)

   108      end

   107      end

   109 end;

   108 end;