land on flatspot

Lock steering to heading(90,90).
set talt to altitude.
lock throttle to (-verticalspeed - altitude+ talt )/40.
stage.
wait 1.


Set tar to flatspot.



Lock sl to 5.
lock tv to tar:position:normalized * min(sl,(tar:distance/6) ^ 0.85).
when true then {
    set relVelVec to vxcl(up:vector, tv - velocity:surface) / 3.5.
    set relVelVec:mag to min(sl,relVelVec:mag).
    lock steering to lookdirup(up:vector * 10 + relVelVec, facing:topvector).
    return true.
    }

when (ship:geoposition:position - tar:position):mag < 0.1 and ship:groundspeed < 0.1 then {
    lock throttle to (-verticalspeed - 1).
    wait 1.
    When ship:verticalspeed > 0 then lock throttle to 0.
}