hedgewars/uGears.pas
changeset 1010 583667e81d21
parent 1009 b1f335aed35a
child 1011 4fe2c4c57d10
--- a/hedgewars/uGears.pas	Wed Jun 18 18:25:31 2008 +0000
+++ b/hedgewars/uGears.pas	Wed Jun 18 18:46:11 2008 +0000
@@ -574,6 +574,15 @@
 				end;
 			gtPickHammer,
 			gtTeleport: defaultPos:= false;
+			gtWhip: begin
+				DrawRotatedF(sprWhip,
+						hwRound(Gear^.X) + 1 + WorldDx,
+						hwRound(Gear^.Y) - 3 + WorldDy,
+						1,
+						hwSign(Gear^.dX),
+						0);
+				defaultPos:= false
+				end;
 			gtKamikaze: begin
 						if CurAmmoGear^.Pos = 0 then
 							DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
@@ -666,6 +675,15 @@
 						1,
 						5,
 						0);
+			amWhip: begin
+				DrawRotatedF(sprWhip,
+						hwRound(Gear^.X) + 1 + WorldDx,
+						hwRound(Gear^.Y) - 3 + WorldDy,
+						0,
+						hwSign(Gear^.dX),
+						0);
+				defaultPos:= false
+				end;
 		else
 			DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
 				hwSign(Gear^.dX),