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.