hedgewars/uGears.pas
changeset 1221 51e3f3cfdca5
parent 1207 ceaab010269e
child 1242 4aca5f7b2504
--- a/hedgewars/uGears.pas	Fri Aug 15 19:30:02 2008 +0000
+++ b/hedgewars/uGears.pas	Sat Aug 16 11:22:34 2008 +0000
@@ -785,15 +785,17 @@
 						1,
 						5,
 						0);
-			amWhip: begin
-				DrawRotatedF(sprWhip,
+			amWhip: DrawRotatedF(sprWhip,
 						hwRound(Gear^.X) + 1 + WorldDx,
 						hwRound(Gear^.Y) - 3 + WorldDy,
 						0,
 						hwSign(Gear^.dX),
 						0);
-				defaultPos:= false
-				end;
+			amSeduction: DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
+						hwSign(Gear^.dX),
+						2,
+						2,
+						0);
 		else
 			DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
 				hwSign(Gear^.dX),