equal
deleted
inserted
replaced
103 end |
103 end |
104 else |
104 else |
105 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then |
105 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then |
106 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
106 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
107 |
107 |
108 if ((Land[cpY + y, cpX + x] and $FF00) = 0) and ((p^[x] and AMask) <> 0) then |
108 if (Land[cpY + y, cpX + x] <= lfAllObjMask) and ((p^[x] and AMask) <> 0) then |
109 begin |
109 begin |
110 Land[cpY + y, cpX + x]:= lfObject; |
110 Land[cpY + y, cpX + x]:= lfObject; |
111 Land[cpY + y, cpX + x]:= Land[cpY + y, cpX + x] or extraFlags |
111 Land[cpY + y, cpX + x]:= Land[cpY + y, cpX + x] or extraFlags |
112 end; |
112 end; |
113 end; |
113 end; |