equal
deleted
inserted
replaced
824 end; |
824 end; |
825 |
825 |
826 for x:= LongWord(leftX) to LongWord(rightX) do |
826 for x:= LongWord(leftX) to LongWord(rightX) do |
827 begin |
827 begin |
828 Land[topY + w, x]:= lfIndestructible; |
828 Land[topY + w, x]:= lfIndestructible; |
829 if (x + w) mod 32 < 16 then |
829 if (topY + x + w) mod 32 < 16 then |
830 c:= AMask |
830 c:= AMask |
831 else |
831 else |
832 c:= AMask or RMask or GMask; // FF00FFFF |
832 c:= AMask or RMask or GMask; // FF00FFFF |
833 |
833 |
834 if (cReducedQuality and rqBlurryLand) = 0 then |
834 if (cReducedQuality and rqBlurryLand) = 0 then |