285     begin

   285     begin

   286     sw:= round(cScreenWidth / cScaleFactor);

   286     sw:= round(cScreenWidth / cScaleFactor);

   287     w:= SpritesData[spr].Width;

   287     w:= SpritesData[spr].Width;

   288     i:= Shift mod w;

   288     i:= Shift mod w;

   289     if i > 0 then dec(i, w);

   289     if i > 0 then dec(i, w);

   292     repeat

   291     repeat

   293       DrawSprite(spr, i, WorldDy + LAND_HEIGHT - SpritesData[spr].Height, 0);

   292       DrawSprite(spr, i, WorldDy + LAND_HEIGHT - SpritesData[spr].Height, 0);

   294       inc(i, w)

   293       inc(i, w)

   295     until i > sw

   294     until i > sw

   296     end;

   295     end;