hedgewars/uGearsUtils.pas
changeset 8751 4609823efc94
parent 8632 b5ed76d2a1f9
child 8763 988901d27abf
--- a/hedgewars/uGearsUtils.pas	Sun Mar 17 22:02:57 2013 +0100
+++ b/hedgewars/uGearsUtils.pas	Mon Mar 18 12:13:46 2013 -0400
@@ -580,7 +580,7 @@
                     inc(y, 2);
                 until (y >= cWaterLine) or
                         (not ignoreOverlap and (CountNonZeroz(x, y, Gear^.Radius - 1, 1, $FFFF) = 0)) or 
-                        (ignoreOverlap and (CountNonZeroz(x, y, Gear^.Radius - 1, 1, $FF00) = 0));
+                        (ignoreOverlap and (CountNonZeroz(x, y, Gear^.Radius - 1, 1, lfLandMask) = 0));
 
                 sy:= y;
 
@@ -588,7 +588,7 @@
                     inc(y);
                 until (y >= cWaterLine) or
                         (not ignoreOverlap and (CountNonZeroz(x, y, Gear^.Radius - 1, 1, $FFFF) <> 0)) or 
-                        (ignoreOverlap and (CountNonZeroz(x, y, Gear^.Radius - 1, 1, $FF00) <> 0)); 
+                        (ignoreOverlap and (CountNonZeroz(x, y, Gear^.Radius - 1, 1, lfLandMask) <> 0)); 
 
                 if (y - sy > Gear^.Radius * 2)
                     and (((Gear^.Kind = gtExplosives)