hedgewars/uWorld.pas
changeset 3152 4d6bf54a2973
parent 3129 81abbf6eab4a
child 3165 3ec07a7d8456
--- a/hedgewars/uWorld.pas	Sun Mar 28 23:41:58 2010 +0000
+++ b/hedgewars/uWorld.pas	Mon Mar 29 09:52:10 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 - 1)
+        inc(i, w)
     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 - 1);
+        dec(i, SpritesData[sprL].Width);
         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 - 1)
+        inc(i, SpritesData[sprR].Width)
         end
     end
 end;