29 lines
561 B
Plaintext
29 lines
561 B
Plaintext
run "defaults".
|
|
|
|
run "poweredLanding".
|
|
|
|
declare function Reentry{
|
|
print "Re-entry.".
|
|
lock steering to heading(90, 60, 0).
|
|
ag1 on.
|
|
rcs off.
|
|
|
|
wait until (groundSpeed < 500 and altitude < 11000).
|
|
print "Flipping.".
|
|
rcs on.
|
|
lock steering to srfRetrograde.
|
|
}
|
|
|
|
wait until (periapsis < 0 and throttle = 0).
|
|
print "Prep for re-entry".
|
|
sas off.
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
|
|
lock steering to heading(90, 60, 0).
|
|
wait until (altitude < 70000).
|
|
Reentry().
|
|
brakes on.
|
|
Descent(200, 20).
|
|
Landing(0, -20).
|
|
|
|
|