hedgewars/uLandGraphics.pas
changeset 13410 4c813650fe17
parent 11595 8d1cfedfaf1f
child 13468 f1d349a52bc7
--- a/hedgewars/uLandGraphics.pas	Sat May 26 10:54:17 2018 -0400
+++ b/hedgewars/uLandGraphics.pas	Sun May 27 13:10:32 2018 -0400
@@ -795,9 +795,11 @@
                     begin
                     if (LandFlags and lfBasic <> 0) or 
                        ((LandPixels[gY, gX] and AMask shr AShift > 128) and  // This test assumes lfBasic and lfObject differ only graphically
-                         (LandFlags and lfObject = 0)) then
+                         (LandFlags and (lfObject or lfIce) = 0)) then
                          Land[cpY + y, cpX + x]:= lfBasic or LandFlags
-                    else Land[cpY + y, cpX + x]:= lfObject or LandFlags
+                    else if (LandFlags and lfIce = 0) then
+						 Land[cpY + y, cpX + x]:= lfObject or LandFlags
+					else Land[cpY + y, cpX + x]:= LandFlags
                     end;
                 if (not behind) or (LandPixels[gY, gX] = 0) then
                     begin