hedgewars/uGears.pas
changeset 2025 692308790912
parent 2023 41d3afaa20c7
child 2028 260a3a2094dc
--- a/hedgewars/uGears.pas	Sun May 03 21:12:34 2009 +0000
+++ b/hedgewars/uGears.pas	Sun May 03 21:28:15 2009 +0000
@@ -867,8 +867,8 @@
 							hwRound(Gear^.X) + WorldDx,
 							hwRound(Gear^.Y) + WorldDy,
 							CurAmmoGear^.Pos - 1,
-							1,
-							DxDy2Angle(Gear^.dY, Gear^.dX));
+							hwSign(Gear^.dX),
+							aangle);
 				defaultPos:= false
 				end;
 			gtSeduction: begin
@@ -1366,7 +1366,7 @@
           gtTarget: DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);
           gtMortar: DrawRotated(sprMortar, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
           gtCake: if Gear^.Pos = 6 then
-                     DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 40) mod 6, hwSign(Gear^.dX), Gear^.DirAngle + hwSign(Gear^.dX) * 90)
+                     DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 40) mod 6, hwSign(Gear^.dX), Gear^.DirAngle * hwSign(Gear^.dX) + 90)
                   else
                      DrawRotatedf(sprCakeDown, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 5 - Gear^.Pos, hwSign(Gear^.dX), 0);
        gtSeduction: if Gear^.Pos >= 14 then DrawSprite(sprSeduction, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);