hedgewars/uLandObjects.pas
changeset 13833 664935d80668
parent 13501 bdac56fb6f1a
child 14282 6015b74eea55
--- a/hedgewars/uLandObjects.pas	Thu Oct 04 19:04:27 2018 +0200
+++ b/hedgewars/uLandObjects.pas	Thu Oct 04 19:12:09 2018 +0200
@@ -204,7 +204,7 @@
                 pLandColor:= @LandPixels[(cpY + y) div 2, (cpX + x) div 2];
 
             alpha:= (color and AMask) shr AShift;
-            if (alpha <> $FF) and (pLandColor^ <> 0) then
+            if ((alpha <> $FF) and ((pLandColor^) <> 0)) then
                 begin
                 landColor:= pLandColor^;
                 color:=