hedgewars/uLandGraphics.pas
changeset 3608 c509bbc779e7
parent 3603 b6b1989744ef
child 3689 e2be39ee19f0
--- a/hedgewars/uLandGraphics.pas	Thu Jul 01 19:05:29 2010 -0400
+++ b/hedgewars/uLandGraphics.pas	Thu Jul 01 23:41:10 2010 -0400
@@ -83,19 +83,19 @@
    begin
    if ((y + dy) and LAND_HEIGHT_MASK) = 0 then
       for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
-          if (Land[y + dy, i] < 255) then
+          if (Land[y + dy, i] < 256) then
               inc(Land[y + dy, i]);
    if ((y - dy) and LAND_HEIGHT_MASK) = 0 then
       for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
-          if (Land[y - dy, i] < 255) then
+          if (Land[y - dy, i] < 256) then
               inc(Land[y - dy, i]);
    if ((y + dx) and LAND_HEIGHT_MASK) = 0 then
       for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
-          if (Land[y + dx, i] < 255) then
+          if (Land[y + dx, i] < 256) then
               inc(Land[y + dx, i]);
    if ((y - dx) and LAND_HEIGHT_MASK) = 0 then
       for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
-          if (Land[y - dx, i] < 255) then
+          if (Land[y - dx, i] < 256) then
               inc(Land[y - dx, i]);
    end
 end;