hedgewars/uGears.pas
changeset 1255 7ffc2c9e7224
parent 1254 3ffaf75572dd
child 1257 40d37fefdbb4
--- a/hedgewars/uGears.pas	Thu Sep 11 20:18:14 2008 +0000
+++ b/hedgewars/uGears.pas	Fri Sep 12 14:57:42 2008 +0000
@@ -877,13 +877,22 @@
 			HatVisibility:= HatVisibility - 0.2;
 	
 	if HatVisibility > 0 then
-		DrawTextureF(HatTex,
-			HatVisibility,
-			hwRound(Gear^.X) + 1 + WorldDx,
-			hwRound(Gear^.Y) - 8 + WorldDy,
-			(RealTicks div 128 + Gear^.Pos) mod 19,
-			hwSign(Gear^.dX),
-			32);
+		if DefaultPos then
+			DrawTextureF(HatTex,
+				HatVisibility,
+				hwRound(Gear^.X) + 1 + WorldDx,
+				hwRound(Gear^.Y) - 8 + WorldDy,
+				(RealTicks div 128 + Gear^.Pos) mod 19,
+				hwSign(Gear^.dX),
+				32)
+		else
+			DrawTextureF(HatTex,
+				HatVisibility,
+				hwRound(Gear^.X) + 1 + WorldDx,
+				hwRound(Gear^.Y) - 8 + WorldDy,
+				0,
+				hwSign(Gear^.dX),
+				32);
 	end;