lock tgt to target:geoposition.

lock grnddist to (ship:geoposition:position - target:position):mag. Lock vstar to -(altitude - target:geoposition:terrainheight) / (grnddist / ship:groundspeed). lock tareta to grnddist / ship:groundspeed. lock grnddist to vang(target:position - body:position, -body:position)*constant:degtorad*body:radius. lock tareta to grnddist / ship:groundspeed.

set sggo to false. wait 1. set sgp to 0. set sggo to true. set sgf to 8. set sgpr to 4. function sgd { parameter l. parameter d. If l:length > sgpr set sgpr to l:length. print (l:padleft(sgpr) + ": " +round(d,2)):padright(terminal:width) at (0, sgp). set sgp to sgp + 1. }.

On round(kuniverse:realtime * sgf) { set sgp to 0. sgd("alt:radar", alt:radar). sgd("grnd distance", grnddist ). sgd("heading", tgt:heading). sgd("bearing", tgt:bearing). sgd("eta", tareta/60). sgd("VS", verticalspeed). sgd("fuel", ship:liquidfuel). Print "":padright(terminal:width) at (0,sgp). return sggo. }

set spid to pidloop(0.05, 0.02, 0.02, -1, 1). set steercancel to false. when true then { set ship:control:wheelsteer to spid:update(time:seconds, target:bearing). return not steercancel. }

set servos to ship:modulesnamed("ModuleRoboticRotationServo"). for s in servos s:setfield("traverse rate", 10).

function tilt { parameter tlt is 0. for s in servos s:setfield("target angle", tlt). }
tilt().

list engines in es. for e in es e:activate().
toggle ag1.

set sl to 5. lock throttle to (sl + 3 -airspeed)/10.
lock x to tgt:heading.
lock p to 0.
lock steering to heading(x,p).
lock throttle to -verticalspeed + 5.
toggle ag3.
when alt:radar > 20 then
{
tilt(5).
}