hedgewars/uAIMisc.pas
changeset 10635 8e8b320eefad
parent 10510 9329dab04490
child 11046 47a8c19ecb60
--- a/hedgewars/uAIMisc.pas	Mon Dec 08 09:35:14 2014 -0500
+++ b/hedgewars/uAIMisc.pas	Mon Dec 08 10:14:47 2014 -0500
@@ -556,6 +556,7 @@
                 pX:= Point.x;
                 pY:= Point.y;
                 fallDmg:= 0;
+                dX:= 0;
                 if (Flags and afTrackFall <> 0) and (Score > 0) and (dmg < Score) then
                     begin
                     dX:= (0.005 * dmg + 0.01) / Density;
@@ -741,10 +742,11 @@
                 end;
             if dmg > 0 then
                 begin
+                fallDmg:= 0;
+                pX:= Point.x;
+                pY:= Point.y;
                 if (not dead) and (Score > 0) and (dmg < Score) then
                     begin
-                    pX:= Point.x;
-                    pY:= Point.y;
                     dX:= gdX * dmg / Density;
                     dY:= gdY * dmg / Density;
                     if dX < 0 then dX:= dX - 0.01