hedgewars/uGears.pas
changeset 2877 7c0d17ac0902
parent 2860 13a53315ae18
child 2882 b9aceb3fe3d6
--- a/hedgewars/uGears.pas	Sat Feb 27 16:29:40 2010 +0000
+++ b/hedgewars/uGears.pas	Sat Feb 27 19:54:03 2010 +0000
@@ -1028,6 +1028,16 @@
 						3,
 						PHedgehog(Gear^.Hedgehog)^.visStepPos div 2,
 						0);
+                with PHedgehog(Gear^.Hedgehog)^ do
+                    if (HatTex <> nil) then
+                       DrawTextureF(HatTex,
+                           1,
+                           sx,
+                           hwRound(Gear^.Y) - 8 + WorldDy,
+                           0,
+                           hwSign(Gear^.dX),
+                           32,
+                           32);
 				stepSounds:= true;
 				defaultPos:= false
 				end;
@@ -1179,11 +1189,6 @@
 						1,
 						2,
 						0);
-			amBlowTorch: DrawHedgehog(sx, sy,
-						hwSign(Gear^.dX),
-						1,
-						3,
-						0);
 			amTeleport: DrawRotatedF(sprTeleport, sx, sy, 0, hwSign(Gear^.dX), 0);
 			amKamikaze: DrawHedgehog(sx, sy,
 						hwSign(Gear^.dX),