168         CurrentHedgehog^.AmmoStore:= StoreCnt - 1

   168         CurrentHedgehog^.AmmoStore:= StoreCnt - 1

   169         end

   169         end

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

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

   171     CurrentHedgehog^.Gear:= Gear;

   171     CurrentHedgehog^.Gear:= Gear;

   172     CurrentHedgehog^.Name:= id;

   172     CurrentHedgehog^.Name:= id;

   173     CurrHedgehog:= HedgehogsNumber;

   174     CurrHedgehog:= HedgehogsNumber;

   174     inc(HedgehogsNumber)

   175     inc(HedgehogsNumber)

   175     end

   176     end

   176 end;

   177 end;

   177 

   178