equal
deleted
inserted
replaced
627 move:= true; |
627 move:= true; |
628 if (CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtRope) then |
628 if (CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtRope) then |
629 begin |
629 begin |
630 ////////////////////////////////// TODO - ASK UNC0RR FOR A GOOD HOME FOR THIS //////////////////////////////////// |
630 ////////////////////////////////// TODO - ASK UNC0RR FOR A GOOD HOME FOR THIS //////////////////////////////////// |
631 dec(yy,3); |
631 dec(yy,3); |
632 dec(xx,2); |
632 dec(xx,1); |
633 s:= SpritesData[sprSnow].Surface; |
633 s:= SpritesData[sprSnow].Surface; |
634 p:= s^.pixels; |
634 p:= s^.pixels; |
635 allpx:= true; |
635 allpx:= true; |
636 for py:= 0 to Pred(s^.h) do |
636 for py:= 0 to Pred(s^.h) do |
637 begin |
637 begin |
651 end |
651 end |
652 else allpx:= false; |
652 else allpx:= false; |
653 p:= @(p^[s^.pitch shr 2]) |
653 p:= @(p^[s^.pitch shr 2]) |
654 end; |
654 end; |
655 |
655 |
656 for py:= (yy) to (yy+1) do |
656 |
657 begin |
657 Land[py, px+1]:= lfBasic; |
658 for px:= (xx+2) to (xx+3) do |
|
659 begin |
|
660 Land[py, px]:= lfBasic; |
|
661 end; |
|
662 end; |
|
663 |
658 |
664 if allpx then UpdateLandTexture(xx, Pred(s^.h), yy, Pred(s^.w)) |
659 if allpx then UpdateLandTexture(xx, Pred(s^.h), yy, Pred(s^.w)) |
665 else |
660 else |
666 begin |
661 begin |
667 UpdateLandTexture( |
662 UpdateLandTexture( |