# HG changeset patch
# User nemo
# Date 1369192648 14400
# Node ID f9d53af63f042a9f71432e253158e053a29f8676
# Parent  fcec7b7799a6a5775c0d8db09eb656d66d9a300c
fix dud mine explosion

diff -r fcec7b7799a6 -r f9d53af63f04 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Tue May 21 23:00:20 2013 -0400
+++ b/hedgewars/GSHandlers.inc	Tue May 21 23:17:28 2013 -0400
@@ -1424,6 +1424,7 @@
 var vg: PVisualGear;
     dxdy: hwFloat;
 begin
+    if Gear^.Health = 0 then dxdy:= hwAbs(Gear^.dX)+hwAbs(Gear^.dY);
     if (Gear^.State and gstMoving) <> 0 then
         begin
         DeleteCI(Gear);
@@ -1441,7 +1442,6 @@
         doStepFallingGear(Gear);
     if (Gear^.Health = 0) then
         begin
-        dxdy:= hwAbs(Gear^.dX)+hwAbs(Gear^.dY);
         if (dxdy > _0_4) and (Gear^.State and gstCollision <> 0) then
             inc(Gear^.Damage, hwRound(dxdy * _50));