equal
deleted
inserted
replaced
678 end; |
678 end; |
679 Land[yy + py, xx + px]:= Land[yy + py, xx + px] or lfObject; |
679 Land[yy + py, xx + px]:= Land[yy + py, xx + px] or lfObject; |
680 if (cReducedQuality and rqBlurryLand) = 0 then |
680 if (cReducedQuality and rqBlurryLand) = 0 then |
681 begin |
681 begin |
682 if gun then |
682 if gun then |
683 LandPixels[yy + py, xx + px]:= (cExplosionBorderColor and $00FFFFFF) or (p^[px] and $FF000000) |
683 LandPixels[yy + py, xx + px]:= (cExplosionBorderColor and not AMask) or (p^[px] and AMask) |
684 else LandPixels[yy + py, xx + px]:= addBgColor(LandPixels[yy + py, xx + px], p^[px]); |
684 else LandPixels[yy + py, xx + px]:= addBgColor(LandPixels[yy + py, xx + px], p^[px]); |
685 end |
685 end |
686 else |
686 else |
687 begin |
687 begin |
688 if gun then |
688 if gun then |
689 LandPixels[(yy + py) div 2, (xx + px) div 2]:= (cExplosionBorderColor and $00FFFFFF) or (p^[px] and $FF000000) |
689 LandPixels[(yy + py) div 2, (xx + px) div 2]:= (cExplosionBorderColor and not AMask) or (p^[px] and AMask) |
690 else LandPixels[(yy + py) div 2, (xx + px) div 2]:= addBgColor(LandPixels[(yy + py) div 2, (xx + px) div 2], p^[px]); |
690 else LandPixels[(yy + py) div 2, (xx + px) div 2]:= addBgColor(LandPixels[(yy + py) div 2, (xx + px) div 2], p^[px]); |
691 end; |
691 end; |
692 end |
692 end |
693 else allpx:= false; |
693 else allpx:= false; |
694 p:= @(p^[s^.pitch shr 2]) |
694 p:= @(p^[s^.pitch shr 2]) |