# HG changeset patch
# User nemo
# Date 1367639175 14400
# Node ID b8cae4fe8edb9a5a36a7400a5051f6390d109a3f
# Parent  1e8b390ab011f408ab18156c9f9c35b2d7b6325d
oops

diff -r 1e8b390ab011 -r b8cae4fe8edb hedgewars/uAIMisc.pas
--- a/hedgewars/uAIMisc.pas	Fri May 03 22:18:23 2013 -0400
+++ b/hedgewars/uAIMisc.pas	Fri May 03 23:46:15 2013 -0400
@@ -501,7 +501,7 @@
                 pY:= Point.y;
                 if (Flags and afTrackFall <> 0) and (dmg < abs(Score)) then
                     begin
-                    dX:= 0.005 * dmg + 0.01 * Density;
+                    dX:= (0.005 * dmg + 0.01) / Density;
                     dY:= dX;
                     if (Kind = gtExplosives) and 
                        (((abs(dY) > 0.15) and (abs(dX) < 0.02)) or
@@ -672,8 +672,8 @@
                 begin
                 pX:= Point.x;
                 pY:= Point.y;
-                dX:= gdX * dmg * Density;
-                dY:= gdY * dmg * Density;
+                dX:= gdX * dmg / Density;
+                dY:= gdY * dmg / Density;
                 if dX < 0 then dX:= dX - 0.01
                 else dX:= dX + 0.01;
                 if (x and LAND_WIDTH_MASK = 0) and ((y+cHHRadius+2) and LAND_HEIGHT_MASK = 0) and