hedgewars/uGears.pas
changeset 976 368a8926632b
parent 970 1bd9a4eafbc3
child 981 e883baf3a458
equal deleted inserted replaced
975:47982e63c9f6 976:368a8926632b
   679 	end;
   679 	end;
   680 
   680 
   681 with PHedgehog(Gear^.Hedgehog)^ do
   681 with PHedgehog(Gear^.Hedgehog)^ do
   682 	if (Gear^.State{ and not gstAnimation}) = 0 then
   682 	if (Gear^.State{ and not gstAnimation}) = 0 then
   683 	begin
   683 	begin
   684 	t:= hwRound(Gear^.Y) - cHHRadius - 10 + WorldDy;
   684 	t:= hwRound(Gear^.Y) - cHHRadius - 12 + WorldDy;
   685 	if (cTagsMask and 1) <> 0 then
   685 	if (cTagsMask and 1) <> 0 then
   686 		begin
   686 		begin
   687 		dec(t, HealthTagTex^.h + 2);
   687 		dec(t, HealthTagTex^.h + 2);
   688 		DrawCentered(hwRound(Gear^.X) + WorldDx, t, HealthTagTex)
   688 		DrawCentered(hwRound(Gear^.X) + WorldDx, t, HealthTagTex)
   689 		end;
   689 		end;