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

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

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

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

   156 	CurrentHedgehog^.AmmoStore:= ClansCount - 1; // FIXME HACK to get ammostores work

   156 	CurrentHedgehog^.AmmoStore:= ClansCount - 1; // FIXME HACK to get ammostores work

   157 	CurrentHedgehog^.Gear:= Gear;

   157 	CurrentHedgehog^.Gear:= Gear;

   158 	CurrentHedgehog^.Name:= id;

   158 	CurrentHedgehog^.Name:= id;

   159 	inc(HedgehogsNumber)

   160 	inc(HedgehogsNumber)

   160 	end

   161 	end

   161 end;

   162 end;

   162 

   163 

   163 procedure chSetHat(var s: shortstring);

   164 procedure chSetHat(var s: shortstring);