(2013-10-22)
KSP: 0.22.0
kOS: 0.83
This script used a Baniff launcher and KT probe to achieve a 142x99 km orbit.
Commentary here.print " Ignition".
lock throttle to 0.5.
stage.
wait 1.
print " Launch".
lock throttle to 1.
stage.
wait 2.
print missiontime.
print " Roll, steering and throttleback".lock steering to up.
lock throttle to 0.75.
set mystage to 0.
print " Initial flight turn program".
until apoapsis > 95000
{
set myrate to altitude / 35000.
set mysteering to -60 * myrate.
if mysteering < -65
{
set mysteering to -65.
}
lock steering to up + R(0,mysteering,0).
if mystage = 0
{
if stage:liquidfuel < 4320
{
set mystage to 1.
print missiontime.
print " Boosters exhausted".
wait 1.
print missiontime.
print " Staging".
stage.
print " Cruise to apoapsis cut-off".
}.
}.
}.
print missiontime.
print " Apoapsis fine tuning".
lock throttle to 0.1.
wait until apoapsis > 100000.
lock throttle to 0.
set s1remain to stage:liquidfuel.
print missiontime.
print " Apoapsis cut-off".
print " Fuel in stage 1: " + s1remain.
print " Dumping stage 1".
stage.
wait 1.
print missiontime.
print " Arming upper stage".
stage.
print " Cruise to apoapsis".
wait until eta:apoapsis < 1.
wait 2.
print missiontime.
print " Circularization".
lock steering to up + R(0,-90,0).
lock throttle to 1.
set mysteering to -90.
set lastapoapsis to alt:apoapsis.
set lastaltitude to altitude.
until alt:periapsis > 99000
{
if alt:periapsis > 95000
{
lock throttle to 0.1.
}.
if altitude > 100005
{
lock steering to up + R(0,-135,0).
}
if altitude < 99995
{
lock steering to up + R(0,-45,0).
}
if altitude > 99900
{
if altitude < 100100
{
lock steering to up + R(0,-90,0).
}
}
}.
lock throttle to 0.
print missiontime.
print " Done".