23 lines
467 B
Plaintext
23 lines
467 B
Plaintext
import("library/lib_ascent").
|
|
|
|
if status = "PRELAUNCH" {
|
|
WaitForEngineStart().
|
|
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
|
|
|
|
set profile to 0.7.
|
|
set turn_start to 1000.
|
|
set target_orbit to 960000.
|
|
|
|
when altitude > 80000 then {
|
|
ag1 on.
|
|
}
|
|
|
|
Ascent(target_orbit, turn_start, profile, 3).
|
|
|
|
wait 30.
|
|
|
|
print "Orbit Achieved, Releasing Controls".
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Close Terminal").
|
|
SHUTDOWN.
|
|
} |