# HG changeset patch
# User nemo
# Date 1367633903 14400
# Node ID 1e8b390ab011f408ab18156c9f9c35b2d7b6325d
# Parent  d0e5c1002fe174cddf689dfb697df652fa9ea3f9
try to guess at barrel state. prob should flag it..

diff -r d0e5c1002fe1 -r 1e8b390ab011 hedgewars/uAIMisc.pas
--- a/hedgewars/uAIMisc.pas	Fri May 03 21:38:16 2013 -0400
+++ b/hedgewars/uAIMisc.pas	Fri May 03 22:18:23 2013 -0400
@@ -503,6 +503,10 @@
                     begin
                     dX:= 0.005 * dmg + 0.01 * Density;
                     dY:= dX;
+                    if (Kind = gtExplosives) and 
+                       (((abs(dY) > 0.15) and (abs(dX) < 0.02)) or
+                        ((abs(dY) < 0.15) and (abs(dX) < 0.15))) then
+                        dX:= 0;
                     if (x and LAND_WIDTH_MASK = 0) and ((y+cHHRadius+2) and LAND_HEIGHT_MASK = 0) and
                        (Land[y+cHHRadius+2, x] and lfIndestructible <> 0) then
                          fallDmg:= trunc(TraceFall(x, y, pX, pY, dX, dY, 0, Kind) * dmgMod)