land on pad

Lock steering to heading(90,90).
set talt to 165. lock throttle to (-verticalspeed - altitude + talt )/10.

Set tar to pad.

rcs on.
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.
}