hedgewars/uGears.pas
changeset 943 a0c36a0b3ad9
parent 930 3f61bd3b08fd
child 954 0cc31e998f4e
--- a/hedgewars/uGears.pas	Mon May 19 18:07:05 2008 +0000
+++ b/hedgewars/uGears.pas	Wed May 21 20:22:51 2008 +0000
@@ -544,8 +544,17 @@
 						1,
 						3,
 						0);
+				defaultPos:= false
 				end;
 			gtShover: DrawRotated(sprHandBaseball, hx, hy, hwSign(Gear^.dX), aangle + 180);
+			gtFirePunch: begin
+				DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
+						hwSign(Gear^.dX),
+						1,
+						4,
+						0);
+				defaultPos:= false
+				end;
 			gtPickHammer,
 			gtTeleport: defaultPos:= false;
 		end;