equal
deleted
inserted
replaced
526 if ((ty and LAND_HEIGHT_MASK) = 0) and |
526 if ((ty and LAND_HEIGHT_MASK) = 0) and |
527 ((tx and LAND_WIDTH_MASK) = 0) and |
527 ((tx and LAND_WIDTH_MASK) = 0) and |
528 (((Land[ty, tx] and lfBasic) <> 0) or |
528 (((Land[ty, tx] and lfBasic) <> 0) or |
529 ((Land[ty, tx] and lfObject) <> 0)) then |
529 ((Land[ty, tx] and lfObject) <> 0)) then |
530 begin |
530 begin |
531 Land[ty, tx]:= Land[ty, tx] or lfDamaged; |
531 if despeckle then |
532 if despeckle then LandDirty[ty div 32, tx div 32]:= 1; |
532 begin |
|
533 Land[ty, tx]:= Land[ty, tx] or lfDamaged; |
|
534 LandDirty[ty div 32, tx div 32]:= 1 |
|
535 end; |
533 if (cReducedQuality and rqBlurryLand) = 0 then |
536 if (cReducedQuality and rqBlurryLand) = 0 then |
534 LandPixels[ty, tx]:= cExplosionBorderColor |
537 LandPixels[ty, tx]:= cExplosionBorderColor |
535 else LandPixels[ty div 2, tx div 2]:= cExplosionBorderColor |
538 else LandPixels[ty div 2, tx div 2]:= cExplosionBorderColor |
536 end |
539 end |
537 end; |
540 end; |