equal
deleted
inserted
replaced
686 begin |
686 begin |
687 if ((AMask and p^[x]) = 0) then // Tiy was having trouble generating transparent black |
687 if ((AMask and p^[x]) = 0) then // Tiy was having trouble generating transparent black |
688 Land[cpY + y, cpX + x]:= 0 |
688 Land[cpY + y, cpX + x]:= 0 |
689 else if p^[x] = (AMask or RMask) then |
689 else if p^[x] = (AMask or RMask) then |
690 Land[cpY + y, cpX + x]:= COLOR_INDESTRUCTIBLE |
690 Land[cpY + y, cpX + x]:= COLOR_INDESTRUCTIBLE |
691 else if p^[x] = (AMask or RMask or GMask or BMask) then |
691 else if p^[x] = cWhiteColor then |
692 Land[cpY + y, cpX + x]:= COLOR_LAND; |
692 Land[cpY + y, cpX + x]:= COLOR_LAND; |
693 |
693 |
694 end; |
694 end; |
695 p:= @(p^[tmpsurf^.pitch div 4]); |
695 p:= @(p^[tmpsurf^.pitch div 4]); |
696 end; |
696 end; |
786 Land[y, leftX + w]:= COLOR_INDESTRUCTIBLE; |
786 Land[y, leftX + w]:= COLOR_INDESTRUCTIBLE; |
787 Land[y, rightX - w]:= COLOR_INDESTRUCTIBLE; |
787 Land[y, rightX - w]:= COLOR_INDESTRUCTIBLE; |
788 if (y + w) mod 32 < 16 then |
788 if (y + w) mod 32 < 16 then |
789 c:= AMask |
789 c:= AMask |
790 else |
790 else |
791 c:= AMask or RMask or GMask; |
791 c:= AMask or RMask or GMask; // FF00FFFF |
792 LandPixels[y, leftX + w]:= c; |
792 LandPixels[y, leftX + w]:= c; |
793 LandPixels[y, rightX - w]:= c; |
793 LandPixels[y, rightX - w]:= c; |
794 end; |
794 end; |
795 |
795 |
796 for x:= leftX to rightX do |
796 for x:= leftX to rightX do |
797 begin |
797 begin |
798 Land[topY + w, x]:= COLOR_INDESTRUCTIBLE; |
798 Land[topY + w, x]:= COLOR_INDESTRUCTIBLE; |
799 if (x + w) mod 32 < 16 then |
799 if (x + w) mod 32 < 16 then |
800 c:= AMask |
800 c:= AMask |
801 else |
801 else |
802 c:= AMask or RMask or GMask; |
802 c:= AMask or RMask or GMask; // FF00FFFF |
803 LandPixels[topY + w, x]:= c; |
803 LandPixels[topY + w, x]:= c; |
804 end; |
804 end; |
805 end; |
805 end; |
806 end; |
806 end; |
807 |
807 |