hedgewars/uGearsHandlersMess.pas
changeset 9873 8db0c56f7e2f
parent 9872 e0dd66b2e73b
child 9876 641c334eab46
--- a/hedgewars/uGearsHandlersMess.pas	Fri Dec 27 23:52:04 2013 -0500
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Dec 28 08:18:41 2013 -0500
@@ -3245,6 +3245,8 @@
             exit;
             end;
 
+        Gear^.X:= Gear^.X+Gear^.dX*4;
+        Gear^.Y:= Gear^.Y+Gear^.dY*4;
         Gear^.SoundChannel := LoopSound(sndDrillRocket);
         Gear^.doStep := @doStepDrillDrilling;