--- 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