46 lines
872 B
Plaintext
46 lines
872 B
Plaintext
run once "lib/functions".
|
|
|
|
local APOAPSIS_TARGET is 80000.
|
|
local GRAVITY_TURN_START is 5000.
|
|
SensorCheck().
|
|
|
|
// Countdowns are cute.
|
|
print "Initiating automated launch sequence".
|
|
from { local x is 5. } until x = 0 step { set x to x - 1. } do {
|
|
print "..." + x.
|
|
wait 1.
|
|
}
|
|
print "Launching".
|
|
|
|
// Disable subsystems.
|
|
RCS off.
|
|
SAS off.
|
|
|
|
// throttle controls
|
|
when TWR() > 1.5 then {
|
|
if SHIP:ALTITUDE > 32000 {
|
|
lock THROTTLE to 1.0.
|
|
return false.
|
|
}
|
|
|
|
lock THROTTLE to ThrottleToTWR(1.5).
|
|
return true.
|
|
}
|
|
|
|
// Main ascent control.
|
|
lock THROTTLE to 1.0.
|
|
lock STEERING to UP.
|
|
stage.
|
|
|
|
wait until SHIP:ALTITUDE > 200.
|
|
lock STEERING to heading(90, 85, 90).
|
|
|
|
wait until SHIP:ALTITUDE > GRAVITY_TURN_START.
|
|
until SHIP:APOAPSIS > 80000 {
|
|
local angle is min(30, SHIP:PROGRADE:PITCH - 2).
|
|
lock STEERING to heading(90, angle, 90).
|
|
wait 0.001.
|
|
}
|
|
|
|
set THROTTLE to 0.0.
|