--- a/hedgewars/uWorld.pas	Fri Jul 21 20:37:44 2006 +0000
+++ b/hedgewars/uWorld.pas	Sun Jul 23 21:22:44 2006 +0000
@@ -84,11 +84,11 @@
     team: PTeam;
     tdx, tdy: real;
 
-    procedure DrawRepeated(spr: TSprite);
+    procedure DrawRepeated(spr: TSprite; Shift: integer);
     var i, w: integer;
     begin
     w:= SpritesData[spr].Width;
-    i:= WorldDx mod w;
+    i:= Shift mod w;
     if i > 0 then dec(i, w);
     repeat
       DrawSprite(spr, i, WorldDy + 1024 - SpritesData[spr].Height, 0, Surface);
@@ -109,8 +109,8 @@
    SDL_FillRect(Surface, @r, cSkyColor)
    end;
 // background
-DrawRepeated(sprSky);
-DrawRepeated(sprHorizont);
+DrawRepeated(sprSky, WorldDx * 3 div 8);
+DrawRepeated(sprHorizont, WorldDx * 3 div 5);
 
 // Waves
 {$WARNINGS OFF}