equal
deleted
inserted
replaced
80 begin |
80 begin |
81 LandPixels[pixelY, pixelX]:= LandBackPixel(landX, landY); |
81 LandPixels[pixelY, pixelX]:= LandBackPixel(landX, landY); |
82 inc(drawPixelBG); |
82 inc(drawPixelBG); |
83 end |
83 end |
84 else if ((Land[landY, landX] and lfObject) <> 0) or (((LandPixels[pixelY, pixelX] and AMask) shr AShift) < 255) then |
84 else if ((Land[landY, landX] and lfObject) <> 0) or (((LandPixels[pixelY, pixelX] and AMask) shr AShift) < 255) then |
85 LandPixels[pixelY, pixelX]:= LandPixels[pixelY, pixelX] and (not AMASK) |
85 LandPixels[pixelY, pixelX]:= ExplosionBorderColorNoA |
86 end; |
86 end; |
87 end; |
87 end; |
88 |
88 |
89 procedure drawPixelEBC(landX, landY, pixelX, pixelY: Longint); inline; |
89 procedure drawPixelEBC(landX, landY, pixelX, pixelY: Longint); inline; |
90 begin |
90 begin |
197 nullPixel: |
197 nullPixel: |
198 for i:= fromPix to toPix do |
198 for i:= fromPix to toPix do |
199 begin |
199 begin |
200 calculatePixelsCoordinates(i, y, px, py); |
200 calculatePixelsCoordinates(i, y, px, py); |
201 if ((Land[y, i] and lfIndestructible) = 0) and (not disableLandBack or (Land[y, i] > 255)) then |
201 if ((Land[y, i] and lfIndestructible) = 0) and (not disableLandBack or (Land[y, i] > 255)) then |
202 LandPixels[py, px]:= LandPixels[py, px] and (not AMASK); |
202 LandPixels[py, px]:= ExplosionBorderColorNoA; |
203 end; |
203 end; |
204 icePixel: |
204 icePixel: |
205 for i:= fromPix to toPix do |
205 for i:= fromPix to toPix do |
206 begin |
206 begin |
207 calculatePixelsCoordinates(i, y, px, py); |
207 calculatePixelsCoordinates(i, y, px, py); |