401     i:= Shift mod w;

   401     i:= Shift mod w;

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

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

   403     dec(i, w * (sw div w + 1));

   403     dec(i, w * (sw div w + 1));

   404     repeat

   404     repeat

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

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

   407     until i > sw

   407     until i > sw

   408     end else

   408     end else

   409     begin

   409     begin

   410     w:= SpritesData[spr].Width;

   410     w:= SpritesData[spr].Width;

   411     dec(Shift, w div 2);

   411     dec(Shift, w div 2);

   415     

   415     

   416     i:= Shift - SpritesData[sprL].Width;

   416     i:= Shift - SpritesData[sprL].Width;

   417     while i >= -sw - SpritesData[sprL].Width do

   417     while i >= -sw - SpritesData[sprL].Width do

   418         begin

   418         begin

   419         DrawSprite(sprL, i, WorldDy + LAND_HEIGHT - SpritesData[sprL].Height - OffsetY, 0);

   419         DrawSprite(sprL, i, WorldDy + LAND_HEIGHT - SpritesData[sprL].Height - OffsetY, 0);

   421         end;

   421         end;

   422         

   422         

   423     i:= Shift + w;

   423     i:= Shift + w;

   424     while i <= sw do

   424     while i <= sw do

   425         begin

   425         begin

   426         DrawSprite(sprR, i, WorldDy + LAND_HEIGHT - SpritesData[sprR].Height - OffsetY, 0);

   426         DrawSprite(sprR, i, WorldDy + LAND_HEIGHT - SpritesData[sprR].Height - OffsetY, 0);

   428         end

   428         end

   429     end

   429     end

   430 end;

   430 end;

   431 

   431 

   432 

   432