use named constants in FindPlace
authoralfadur
Wed, 08 Jul 2020 22:18:02 +0300
changeset 15730 88037382ae43
parent 15729 26c6e5325075
child 15731 6b04399c84a7
use named constants in FindPlace
hedgewars/uGearsUtils.pas
--- a/hedgewars/uGearsUtils.pas	Wed Jul 08 19:46:06 2020 +0200
+++ b/hedgewars/uGearsUtils.pas	Wed Jul 08 22:18:02 2020 +0300
@@ -957,9 +957,8 @@
                 repeat
                     inc(y, 2);
                 until (y >= cWaterLine) or
-                    (ignoreOverLap and (CountLand(x, y, Gear^.Radius - 1, 1, $FF00, 0) = 0)) or
-                    (not ignoreOverLap and (CountLand(x, y, Gear^.Radius - 1, 1, $FFFF, 0) = 0));
-
+                    (ignoreOverLap and (CountLand(x, y, Gear^.Radius - 1, 1, lfLandMask, 0) = 0)) or
+                    (not ignoreOverLap and (CountLand(x, y, Gear^.Radius - 1, 1, lfAll, 0) = 0));
 
                 sy:= y;
 
@@ -967,21 +966,21 @@
                     inc(y);
                 until (y >= cWaterLine) or
                         (ignoreOverlap and 
-                                (CountLand(x, y, Gear^.Radius - 1, 1, $FFFF, 0) <> 0)) or
+                                (CountLand(x, y, Gear^.Radius - 1, 1, lfAll, 0) <> 0)) or
                         (not ignoreOverlap and 
                             (CountLand(x, y, Gear^.Radius - 1, 1, lfLandMask, 0) <> 0));
 
                 if (y - sy > Gear^.Radius * 2) and (y < cWaterLine)
                     and (((Gear^.Kind = gtExplosives)
                         and (ignoreNearObjects or NoGearsToAvoid(x, y - Gear^.Radius, 60, 60))
-                        and (isSteadyPosition(x, y+1, Gear^.Radius - 1, 3, $FFFF)
-                         or (CountLand(x, y+1, Gear^.Radius - 1, Gear^.Radius+1, $FFFF, 0) > Gear^.Radius)
+                        and (isSteadyPosition(x, y+1, Gear^.Radius - 1, 3, lfAll)
+                         or (CountLand(x, y+1, Gear^.Radius - 1, Gear^.Radius+1, lfAll, 0) > Gear^.Radius)
                             ))
                     or
                         ((Gear^.Kind <> gtExplosives)
                         and (ignoreNearObjects or NoGearsToAvoid(x, y - Gear^.Radius, 110, 110))
                         and (isSteadyPosition(x, y+1, Gear^.Radius - 1, 3, lfIce)
-                         or (CountLand(x, y+1, Gear^.Radius - 1, Gear^.Radius+1, $FFFF, lfIce) <> 0)
+                         or (CountLand(x, y+1, Gear^.Radius - 1, Gear^.Radius+1, lfAll, lfIce) <> 0)
                             ))) then
                     begin
                     ar[cnt].X:= x;