hedgewars/GSHandlers.inc
changeset 5722 3b7f2bfc8632
parent 5716 9505a6f3fe05
child 5728 aca2acfba4ca
--- a/hedgewars/GSHandlers.inc	Thu Sep 01 00:00:23 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Thu Sep 01 17:45:21 2011 +0400
@@ -1227,7 +1227,7 @@
 
     if abs(LongInt(HHGear^.Angle) - BTPrevAngle) > 7  then
         begin
-        Gear^.dX := SignAs(AngleSin(HHGear^.Angle) * _0_5, HHGear^.dX);
+        Gear^.dX := SignAs(AngleSin(HHGear^.Angle) * _0_5, Gear^.dX);
         Gear^.dY := AngleCos(HHGear^.Angle) * ( - _0_5);
         BTPrevAngle := HHGear^.Angle;
         b := true