39 lines
781 B
Plaintext
39 lines
781 B
Plaintext
|
|
|
|
import("library/lib_ascent").
|
|
|
|
WaitForEngineStart().
|
|
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
|
|
|
|
set profile to 1.2.
|
|
set turn_start to 1000.
|
|
set target_orbit to 100000.
|
|
|
|
Ascent(target_orbit, turn_start, profile, 1).
|
|
wait 3.
|
|
|
|
lock steering to retrograde.
|
|
wait 10.
|
|
lock throttle to 1.
|
|
wait until ship:deltav:current <= 0.
|
|
wait 0.01.
|
|
stage.
|
|
|
|
set kuniverse:timewarp:rate to 10.
|
|
wait until kuniverse:timewarp:rate = 0.
|
|
|
|
lock steering to srfRetrograde.
|
|
|
|
wait until surfaceSpeed < 1000.
|
|
|
|
unlock steering.
|
|
set kuniverse:timewarp:rate to 5.
|
|
|
|
wait until ship:status = "LANDED" or ship:status = "SPLASHED".
|
|
|
|
SET V0 TO GETVOICE(0).
|
|
V0:PLAY( NOTE(400, 2.5) ).
|
|
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Close Terminal").
|
|
SHUTDOWN. |