equal
deleted
inserted
replaced
907 if (yy and LAND_HEIGHT_MASK = 0) and (xx and LAND_WIDTH_MASK = 0) |
907 if (yy and LAND_HEIGHT_MASK = 0) and (xx and LAND_WIDTH_MASK = 0) |
908 and (Land[yy, xx] <> 0) then |
908 and (Land[yy, xx] <> 0) then |
909 inc(t); |
909 inc(t); |
910 |
910 |
911 Preview[y, x]:= t * 1023 div 256; |
911 Preview[y, x]:= t * 1023 div 256; |
912 if t > 8 then Preview[y, x]:= 255 else Preview[y, x]:= 0 |
|
913 end; |
912 end; |
914 end; |
913 end; |
915 |
914 |
916 procedure chLandCheck(var s: shortstring); |
915 procedure chLandCheck(var s: shortstring); |
917 begin |
916 begin |