equal
deleted
inserted
replaced
87 end; |
87 end; |
88 end; |
88 end; |
89 |
89 |
90 procedure drawPixelEBC(landX, landY, pixelX, pixelY: Longint); inline; |
90 procedure drawPixelEBC(landX, landY, pixelX, pixelY: Longint); inline; |
91 begin |
91 begin |
92 if ((Land[landY, landX] and lfBasic) <> 0) or ((Land[landY, landX] and lfObject) <> 0) then |
92 if (Land[landY, landX] and lfIndestructible = 0) and |
|
93 (((Land[landY, landX] and lfBasic) <> 0) or ((Land[landY, landX] and lfObject) <> 0)) then |
93 begin |
94 begin |
94 LandPixels[pixelY, pixelX]:= ExplosionBorderColor; |
95 LandPixels[pixelY, pixelX]:= ExplosionBorderColor; |
95 Land[landY, landX]:= (Land[landY, landX] or lfDamaged) and (not lfIce); |
96 Land[landY, landX]:= (Land[landY, landX] or lfDamaged) and (not lfIce); |
96 LandDirty[landY div 32, landX div 32]:= 1; |
97 LandDirty[landY div 32, landX div 32]:= 1; |
97 end; |
98 end; |