26 lines
483 B
Plaintext
26 lines
483 B
Plaintext
import("library/lib_ascent").
|
|
|
|
|
|
if status = "PRELAUNCH" {
|
|
WaitForEngineStart().
|
|
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
|
|
|
|
set profile to 0.6.
|
|
set turn_start to 1000.
|
|
set target_orbit to 100000.
|
|
|
|
when altitude > 80000 then {
|
|
ag1 on.
|
|
}
|
|
|
|
Ascent(target_orbit, turn_start, profile, 3, 0).
|
|
|
|
wait 30.
|
|
|
|
SET V0 TO GETVOICE(0).
|
|
V0:PLAY( NOTE(400, 2.5) ).
|
|
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Close Terminal").
|
|
SHUTDOWN.
|
|
} |