kOS/launch.ks

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.