equal
deleted
inserted
replaced
716 Land[cpY + y, cpX + x]:= lfIndestructible |
716 Land[cpY + y, cpX + x]:= lfIndestructible |
717 else if (LandPixels[gY, gX] and AMask) shr AShift = 255 then // This test assumes lfBasic and lfObject differ only graphically |
717 else if (LandPixels[gY, gX] and AMask) shr AShift = 255 then // This test assumes lfBasic and lfObject differ only graphically |
718 Land[cpY + y, cpX + x]:= lfBasic |
718 Land[cpY + y, cpX + x]:= lfBasic |
719 else |
719 else |
720 Land[cpY + y, cpX + x]:= lfObject; |
720 Land[cpY + y, cpX + x]:= lfObject; |
|
721 // For testing only. Intent is to flag this on objects with masks, or use it for an ice ray gun |
|
722 if (Theme = 'Snow') or (Theme = 'Christmas') then Land[cpY + y, cpX + x]:= Land[cpY + y, cpX + x] or lfIce; |
721 LandPixels[gY, gX]:= PLongword(@(p^[x * 4]))^ |
723 LandPixels[gY, gX]:= PLongword(@(p^[x * 4]))^ |
722 end; |
724 end; |
723 p:= @(p^[Image^.pitch]); |
725 p:= @(p^[Image^.pitch]); |
724 end; |
726 end; |
725 end; |
727 end; |