--- a/hedgewars/uLandGraphics.pas	Fri Feb 24 16:06:12 2006 +0000
+++ b/hedgewars/uLandGraphics.pas	Wed Jun 14 15:50:22 2006 +0000
@@ -12,7 +12,7 @@
 procedure FillRoundInLand(X, Y, Radius: integer; Value: Longword);
 
 implementation
-uses SDLh, uStore, uMisc, uLand;
+uses SDLh, uStore, uMisc, uLand, uConsts;
 
 procedure FillCircleLines(x, y, dx, dy: integer; Value: Longword);
 var i: integer;
@@ -97,16 +97,16 @@
 begin
 if ((y + dy) and $FFFFFC00) = 0 then
    for i:= max(x - dx, 0) to min(x + dx, 2047) do
-       if Land[y + dy, i] <> 0 then SetLandPixel(y + dy, i);
+       if Land[y + dy, i] = COLOR_LAND then SetLandPixel(y + dy, i);
 if ((y - dy) and $FFFFFC00) = 0 then
    for i:= max(x - dx, 0) to min(x + dx, 2047) do
-       if Land[y - dy, i] <> 0 then SetLandPixel(y - dy, i);
+       if Land[y - dy, i] = COLOR_LAND then SetLandPixel(y - dy, i);
 if ((y + dx) and $FFFFFC00) = 0 then
    for i:= max(x - dy, 0) to min(x + dy, 2047) do
-       if Land[y + dx, i] <> 0 then SetLandPixel(y + dx, i);
+       if Land[y + dx, i] = COLOR_LAND then SetLandPixel(y + dx, i);
 if ((y - dx) and $FFFFFC00) = 0 then
    for i:= max(x - dy, 0) to min(x + dy, 2047) do
-       if Land[y - dx, i] <> 0 then SetLandPixel(y - dx, i);
+       if Land[y - dx, i] = COLOR_LAND then SetLandPixel(y - dx, i);
 end;
 
 procedure DrawExplosion(X, Y, Radius: integer);