hedgewars/uLandGraphics.pas
changeset 2733 52a5a160566f
parent 2716 b9ca1bfca24f
child 2741 7a84ce33f52f
--- a/hedgewars/uLandGraphics.pas	Sun Jan 31 19:32:43 2010 +0000
+++ b/hedgewars/uLandGraphics.pas	Sun Jan 31 22:15:53 2010 +0000
@@ -252,10 +252,10 @@
 	end;
 
 // draw a hole in land
-if Radius > 25 then
+if Radius > 20 then
 	begin
 	dx:= 0;
-	dy:= Radius - 25;
+	dy:= Radius - 15;
 	d:= 3 - 2 * dy;
 
 	while (dx < dy) do
@@ -394,7 +394,7 @@
         Y:= Y + dY;
         tx:= hwRound(X);
         ty:= hwRound(Y);
-        if ((ty and LAND_HEIGHT_MASK) = 0) and ((tx and LAND_WIDTH_MASK) = 0) then
+        if (Land[ty, tx] <> COLOR_INDESTRUCTIBLE) and ((ty and LAND_HEIGHT_MASK) = 0) and ((tx and LAND_WIDTH_MASK) = 0) then
             begin
             if Land[ty, tx] = COLOR_LAND then
                 LandPixels[ty, tx]:= LandBackPixel(tx, ty)