hedgewars/uLandGraphics.pas
changeset 3603 b6b1989744ef
parent 3602 99c93fa258d6
child 3608 c509bbc779e7
--- a/hedgewars/uLandGraphics.pas	Thu Jul 01 14:17:22 2010 -0400
+++ b/hedgewars/uLandGraphics.pas	Thu Jul 01 17:00:14 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] < 256) then
+          if (Land[y + dy, i] < 255) 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] < 256) then
+          if (Land[y - dy, i] < 255) 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] < 256) then
+          if (Land[y + dx, i] < 255) 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] < 256) then
+          if (Land[y - dx, i] < 255) then
               inc(Land[y - dx, i]);
    end
 end;