hedgewars/uLand.pas
changeset 15144 adf6f9be8113
parent 15015 5d8068ee16fc
child 15146 af14c418c92f
--- a/hedgewars/uLand.pas	Fri Jun 14 21:09:08 2019 +0200
+++ b/hedgewars/uLand.pas	Fri Jun 14 22:24:59 2019 +0200
@@ -826,7 +826,7 @@
         for x:= LongWord(leftX) to LongWord(rightX) do
             begin
             Land[topY + w, x]:= lfIndestructible;
-            if (x + w) mod 32 < 16 then
+            if (topY + x + w) mod 32 < 16 then
                 c:= AMask
             else
                 c:= AMask or RMask or GMask; // FF00FFFF