--- a/hedgewars/uLandGraphics.pas	Mon Jan 26 15:53:43 2009 +0000
+++ b/hedgewars/uLandGraphics.pas	Mon Jan 26 15:56:36 2009 +0000
@@ -323,7 +323,7 @@
     end;
 
 t:= max(stY - HalfWidth * 2 - 4 - abs(hwRound(dY * ticks)), 0);
-ty:= min(stY + HalfWidth * 2 + 4 + abs(hwRound(dY * ticks)), 2047) - t;
+ty:= min(stY + HalfWidth * 2 + 4 + abs(hwRound(dY * ticks)), LAND_HEIGHT) - t;
 UpdateLandTexture(t, ty)
 end;
 
@@ -423,11 +423,11 @@
 var x, y, xx, yy: LongInt;
     updatedRow, updatedCell: boolean;
 begin
-for y:= 0 to 63 do
+for y:= 0 to LAND_HEIGHT div 32 - 1 do
 	begin
 	updatedRow:= false;
 	
-	for x:= 0 to 127 do
+	for x:= 0 to LAND_WIDTH div 32 - 1 do
 		begin
 			repeat
 			updatedCell:= false;