53 lines
1.1 KiB
Plaintext
53 lines
1.1 KiB
Plaintext
run "library/lib_math".
|
|
|
|
clearScreen.
|
|
BRAKES on.
|
|
print "Preparing to launch".
|
|
from { local c is 5.} until c = 0 step {set c to c - 1.} do {
|
|
print c.
|
|
wait 1.
|
|
}
|
|
print "Launching!".
|
|
lock throttle to 100.
|
|
lock steering to heading(90, 0, 0).
|
|
|
|
print "Phase: Takeoff".
|
|
wait until surfaceSpeed > 140.
|
|
|
|
print "Phase: Rotate".
|
|
lock steering to heading(90, 3, 0).
|
|
wait 1.
|
|
print "Gear up".
|
|
gear off.
|
|
|
|
print "Phase: Athmospheric Climb".
|
|
lock steering to heading(90, 15, 0).
|
|
wait until altitude > 20000.
|
|
|
|
print "Phase: Mode Switch".
|
|
ag1 on. //Switch engine mode
|
|
lock steering to heading(90, 25, 0).
|
|
wait until apoapsis > 80000.
|
|
|
|
print "Phase: Sub-Orbital Coast".
|
|
lock throttle to 0.
|
|
lock steering to prograde.
|
|
|
|
when altitude > 70000 then {
|
|
print "Deploying Solar".
|
|
ag2 on. //deploy solar
|
|
print "Opening Docking Port".
|
|
ag3 on. //open docking port
|
|
}
|
|
|
|
lock distToApo to apoapsis - altitude.
|
|
wait until distToApo < 100.
|
|
print "Phase: Circularize".
|
|
lock throttle to 100.
|
|
wait until periapsis > 79000.
|
|
unlock throttle.
|
|
|
|
print "In orbit. Releasing controls".
|
|
|
|
|