448 begin

   448 begin

   449 with Team do

   449 with Team do

   450 	for i:= 0 to cMaxHHIndex do

   450 	for i:= 0 to cMaxHHIndex do

   451 		with Hedgehogs[i] do

   451 		with Hedgehogs[i] do

   452 			if Gear <> nil then

   452 			if Gear <> nil then

   453 				Gear^.Damage:= Gear^.Health

   455 				Gear^.Damage:= Gear^.Health

   454 end;

   457 end;

   455 

   458 

   456 procedure init_uTeams;

   459 procedure init_uTeams;

   457 begin

   460 begin

   458 	CurrentTeam:= nil;

   461 	CurrentTeam:= nil;