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