equal
deleted
inserted
replaced
95 else |
95 else |
96 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then |
96 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then |
97 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
97 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
98 |
98 |
99 if ((Land[cpY + y, cpX + x] and $FF00) = 0) and ((p^[x] and AMask) <> 0) then |
99 if ((Land[cpY + y, cpX + x] and $FF00) = 0) and ((p^[x] and AMask) <> 0) then |
100 Land[cpY + y, cpX + x]:= lfObject |
100 begin |
|
101 Land[cpY + y, cpX + x]:= lfObject; |
|
102 // For testing only. Intent is to flag this on objects with masks, or use it for an ice ray gun |
|
103 if (Theme = 'Snow') or (Theme = 'Christmas') then Land[cpY + y, cpX + x]:= Land[cpY + y, cpX + x] or lfIce |
|
104 end; |
101 end; |
105 end; |
102 p:= @(p^[Image^.pitch shr 2]) |
106 p:= @(p^[Image^.pitch shr 2]) |
103 end; |
107 end; |
104 |
108 |
105 if SDL_MustLock(Image) then |
109 if SDL_MustLock(Image) then |