changeset 10897 | 8ea636ce120a |
parent 10895 | bce67defd804 |
child 10905 | c0919d7e5ce9 |
10895:bce67defd804 | 10897:8ea636ce120a |
---|---|
2849 // remember original target location |
2849 // remember original target location |
2850 oy:= Gear^.Target.Y; |
2850 oy:= Gear^.Target.Y; |
2851 |
2851 |
2852 for y:= ty downto ty - ytol do |
2852 for y:= ty downto ty - ytol do |
2853 begin |
2853 begin |
2854 if TryPlaceOnLand(lx, y, sprHHTelepMask, 0, false, not hasBorder, false, 0) then |
2854 if TryPlaceOnLand(lx, y, sprHHTelepMask, 0, false, not hasBorder, false, false, false, false, 0, $FFFFFFFF) then |
2855 begin |
2855 begin |
2856 valid:= true; |
2856 valid:= true; |
2857 break; |
2857 break; |
2858 end; |
2858 end; |
2859 dec(Gear^.Target.Y); |
2859 dec(Gear^.Target.Y); |