# HG changeset patch
# User nemo
# Date 1388206324 18000
# Node ID e0dd66b2e73bdbd94bb3882d3187f634716fb5c6
# Parent  a220ae2097d8164d522d06b437b3ef79900d1c5f
reset X/Y too (make drill less explodey. mask fixes revealed an issue)

diff -r a220ae2097d8 -r e0dd66b2e73b hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Fri Dec 27 17:06:21 2013 -0500
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Dec 27 23:52:04 2013 -0500
@@ -3192,7 +3192,7 @@
 procedure doStepDrill(Gear: PGear);
 var
     t: PGearArray;
-    oldDx, oldDy: hwFloat;
+    oldX, oldY, oldDx, oldDy: hwFloat;
     t2: hwFloat;
 begin
     AllInactive := false;
@@ -3202,6 +3202,8 @@
 
     oldDx := Gear^.dX;
     oldDy := Gear^.dY;
+    oldX := Gear^.X;
+    oldY := Gear^.Y;
 
     doStepFallingGear(Gear);
 
@@ -3217,6 +3219,8 @@
         //hit
         Gear^.dX := oldDx;
         Gear^.dY := oldDy;
+        Gear^.X := oldX;
+        Gear^.Y := oldY;
 
         if GameTicks > Gear^.FlightTime then
             t := CheckGearsCollision(Gear)