hedgewars/uVisualGearsHandlers.pas
changeset 10526 b43d175d1577
parent 10355 334b5f513703
child 10623 81f1cf934827
--- a/hedgewars/uVisualGearsHandlers.pas	Sat Nov 22 04:15:16 2014 +0100
+++ b/hedgewars/uVisualGearsHandlers.pas	Sat Nov 22 10:22:07 2014 -0500
@@ -887,6 +887,9 @@
 Gear^.X:= Gear^.X + Gear^.dX * Steps;
 Gear^.Y:= Gear^.Y - Gear^.dY * Steps;
 
+Gear^.dY:= Gear^.dY + Gear^.tdY * Steps;
+Gear^.dX:= Gear^.dX + Gear^.tdX * Steps;
+
 if Gear^.FrameTicks <= Steps then
     DeleteVisualGear(Gear)
 else