hedgewars/uGears.pas
changeset 1660 0eaa6cf36276
parent 1601 0cff69c8c4cf
child 1669 b709e061577e
equal deleted inserted replaced
1659:fd593a5e71fb 1660:0eaa6cf36276
   937 
   937 
   938 with PHedgehog(Gear^.Hedgehog)^ do
   938 with PHedgehog(Gear^.Hedgehog)^ do
   939 	begin
   939 	begin
   940 	if ((Gear^.State and not gstWinner) = 0)
   940 	if ((Gear^.State and not gstWinner) = 0)
   941 		or (bShowFinger and ((Gear^.State and gstHHDriven) <> 0)) then
   941 		or (bShowFinger and ((Gear^.State and gstHHDriven) <> 0)) then
   942 	begin
   942 		begin
   943 	t:= hwRound(Gear^.Y) - cHHRadius - 12 + WorldDy;
   943 		t:= hwRound(Gear^.Y) - cHHRadius - 12 + WorldDy;
   944 	if (cTagsMask and 1) <> 0 then
   944 		if (cTagsMask and 1) <> 0 then
   945 		begin
   945 			begin
   946 		dec(t, HealthTagTex^.h + 2);
   946 			dec(t, HealthTagTex^.h + 2);
   947 		DrawCentered(hwRound(Gear^.X) + WorldDx, t, HealthTagTex)
   947 			DrawCentered(hwRound(Gear^.X) + WorldDx, t, HealthTagTex)
       
   948 			end;
       
   949 		if (cTagsMask and 2) <> 0 then
       
   950 			begin
       
   951 			dec(t, NameTagTex^.h + 2);
       
   952 			DrawCentered(hwRound(Gear^.X) + WorldDx, t, NameTagTex)
       
   953 			end;
       
   954 		if (cTagsMask and 4) <> 0 then
       
   955 			begin
       
   956 			dec(t, Team^.NameTagTex^.h + 2);
       
   957 			DrawCentered(hwRound(Gear^.X) + WorldDx, t, Team^.NameTagTex)
       
   958 			end
   948 		end;
   959 		end;
   949 	if (cTagsMask and 2) <> 0 then
       
   950 		begin
       
   951 		dec(t, NameTagTex^.h + 2);
       
   952 		DrawCentered(hwRound(Gear^.X) + WorldDx, t, NameTagTex)
       
   953 		end;
       
   954 	if (cTagsMask and 4) <> 0 then
       
   955 		begin
       
   956 		dec(t, Team^.NameTagTex^.h + 2);
       
   957 		DrawCentered(hwRound(Gear^.X) + WorldDx, t, Team^.NameTagTex)
       
   958 		end
       
   959 	end;
       
   960 	if (Gear^.State and gstHHDriven) <> 0 then // Current hedgehog
   960 	if (Gear^.State and gstHHDriven) <> 0 then // Current hedgehog
   961 		begin
   961 		begin
   962 		if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
   962 		if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
   963 			DrawSprite(sprFinger, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 64 + WorldDy,
   963 			DrawSprite(sprFinger, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 64 + WorldDy,
   964 						GameTicks div 32 mod 16);
   964 						GameTicks div 32 mod 16);