hedgewars/uWorld.pas
changeset 3129 81abbf6eab4a
parent 3123 b0a02930a1dc
child 3152 4d6bf54a2973
--- a/hedgewars/uWorld.pas	Sat Mar 27 22:10:33 2010 +0000
+++ b/hedgewars/uWorld.pas	Sat Mar 27 22:25:18 2010 +0000
@@ -403,7 +403,7 @@
     dec(i, w * (sw div w + 1));
     repeat
         DrawSprite(spr, i, WorldDy + LAND_HEIGHT - SpritesData[spr].Height - OffsetY, 0);
-        inc(i, w)
+        inc(i, w - 1)
     until i > sw
     end else
     begin
@@ -417,14 +417,14 @@
     while i >= -sw - SpritesData[sprL].Width do
         begin
         DrawSprite(sprL, i, WorldDy + LAND_HEIGHT - SpritesData[sprL].Height - OffsetY, 0);
-        dec(i, SpritesData[sprL].Width);
+        dec(i, SpritesData[sprL].Width - 1);
         end;
         
     i:= Shift + w;
     while i <= sw do
         begin
         DrawSprite(sprR, i, WorldDy + LAND_HEIGHT - SpritesData[sprR].Height - OffsetY, 0);
-        inc(i, SpritesData[sprR].Width)
+        inc(i, SpritesData[sprR].Width - 1)
         end
     end
 end;