equal
deleted
inserted
replaced
713 begin |
713 begin |
714 xx:= X div 2; |
714 xx:= X div 2; |
715 yy:= Y div 2; |
715 yy:= Y div 2; |
716 end; |
716 end; |
717 pixelsweep:= ((Land[Y, X] and $FF00) = 0) and (LandPixels[yy, xx] <> 0); |
717 pixelsweep:= ((Land[Y, X] and $FF00) = 0) and (LandPixels[yy, xx] <> 0); |
718 if (((Land[Y, X] and lfDamaged) <> 0) and ((Land[Y, X] and lfIndestructible) = 0)) or pixelsweep then |
718 if ((((Land[Y, X] and lfDamaged) <> 0) or |
|
719 (((Land[Y, X] and lfBasic) <> 0) and (LandPixels[yy,xx] <> 0) and ((LandPixels[yy,xx] and AMask) shl AShift < 255))) |
|
720 and ((Land[Y, X] and lfIndestructible) = 0)) or pixelsweep then |
719 begin |
721 begin |
720 c:= 0; |
722 c:= 0; |
721 for i:= -1 to 1 do |
723 for i:= -1 to 1 do |
722 for j:= -1 to 1 do |
724 for j:= -1 to 1 do |
723 if (i <> 0) or (j <> 0) then |
725 if (i <> 0) or (j <> 0) then |