21 lines
422 B
Plaintext
21 lines
422 B
Plaintext
import("library/lib_ascent").
|
|
|
|
WaitForEngineStart().
|
|
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
|
|
|
|
set profile to 0.5.
|
|
set turn_start to 1000.
|
|
set target_orbit to 120000.
|
|
|
|
when altitude > 80000 then {
|
|
ag1 on.
|
|
}
|
|
|
|
Ascent(target_orbit, turn_start, profile, 3).
|
|
|
|
SET V0 TO GETVOICE(0).
|
|
V0:PLAY( NOTE(400, 2.5) ).
|
|
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Close Terminal").
|
|
SHUTDOWN. |