hedgewars/uLandGraphics.pas
changeset 6681 f46b1a1de2ce
parent 6580 6155187bf599
child 6700 e04da46ee43c
equal deleted inserted replaced
6680:907999eff9e9 6681:f46b1a1de2ce
   800         if ((Land[Y, X] and lfBasic) <> 0) and (not disableLandBack) then
   800         if ((Land[Y, X] and lfBasic) <> 0) and (not disableLandBack) then
   801             LandPixels[yy, xx]:= LandBackPixel(X, Y)
   801             LandPixels[yy, xx]:= LandBackPixel(X, Y)
   802         else
   802         else
   803             LandPixels[yy, xx]:= 0;
   803             LandPixels[yy, xx]:= 0;
   804 
   804 
   805         Land[Y, X]:= 0;
       
   806         if not pixelsweep then
   805         if not pixelsweep then
   807             exit(true);
   806             begin
       
   807             Land[Y, X]:= 0;
       
   808             exit(true)
       
   809             end
   808         end;
   810         end;
   809     end;
   811     end;
   810 Despeckle:= false
   812 Despeckle:= false
   811 end;
   813 end;
   812 
   814