--- a/hedgewars/uWorld.pas	Sun Mar 08 12:55:40 2009 +0000
+++ b/hedgewars/uWorld.pas	Sun Mar 08 16:01:06 2009 +0000
@@ -40,7 +40,7 @@
 
 implementation
 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, GL,
-     uAmmos, uVisualGears, uChat, uLandTexture;
+     uAmmos, uVisualGears, uChat, uLandTexture, uLand;
 
 const FPS: Longword = 0;
       CountTicks: Longword = 0;
@@ -68,6 +68,7 @@
 prevPoint.X:= cScreenWidth div 2;
 prevPoint.Y:= cScreenHeight div 2;
 WorldDx:=  - (LAND_WIDTH div 2) + cScreenWidth div 2;
+WorldDy:=  - LAND_HEIGHT + (cScreenHeight - playHeight) div 2;
 WorldDy:=  - (LAND_HEIGHT div 2) + cScreenHeight div 2;
 AMxShift:= 210
 end;