706         end

   706         end

   707     else CurrentHedgehog^.AmmoStore:= TeamsCount - 1;

   707     else CurrentHedgehog^.AmmoStore:= TeamsCount - 1;

   708     CurrentHedgehog^.Gear:= Gear;

   708     CurrentHedgehog^.Gear:= Gear;

   709     CurrentHedgehog^.Name:= id;

   709     CurrentHedgehog^.Name:= id;

   710     CurrentHedgehog^.InitialHealth:= Gear^.Health;

   710     CurrentHedgehog^.InitialHealth:= Gear^.Health;

   711     CurrHedgehog:= HedgehogsNumber;

   712     CurrHedgehog:= HedgehogsNumber;

   712     inc(HedgehogsNumber)

   713     inc(HedgehogsNumber)

   713     end

   714     end

   714 end;

   715 end;

   715 

   716