equal
deleted
inserted
replaced
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); |
406 inc(i, w - 1) |
406 inc(i, w) |
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); |
420 dec(i, SpritesData[sprL].Width - 1); |
420 dec(i, SpritesData[sprL].Width); |
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); |
427 inc(i, SpritesData[sprR].Width - 1) |
427 inc(i, SpritesData[sprR].Width) |
428 end |
428 end |
429 end |
429 end |
430 end; |
430 end; |
431 |
431 |
432 |
432 |