35 lines
834 B
Plaintext
35 lines
834 B
Plaintext
run "defaults".
|
|
|
|
run "poweredLanding".
|
|
|
|
declare function Reentry{
|
|
print "Re-entry.".
|
|
lock steering to heading(90, 70, 0).
|
|
ag1 on.
|
|
wait until altitude < 20000.
|
|
rcs off.
|
|
|
|
wait until (groundSpeed < 500 and altitude < 10000).
|
|
print "Flipping.".
|
|
rcs on.
|
|
lock steering to srfRetrograde.
|
|
}
|
|
wait until (altitude > 70000 and periapsis > 70000) or (verticalSpeed < -100 and periapsis < 0).
|
|
wait until (periapsis < 0 and throttle = 0).
|
|
print "Prep for re-entry".
|
|
print "Dont forget to Turn of MechJob Q Limit".
|
|
sas off.
|
|
rcs on.
|
|
// set mj to addons:mj.
|
|
// set asc to mj:ascent.
|
|
// set asc:limitqaenabled to false.
|
|
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).
|
|
|
|
|