launchatorbit.ks

DECLARE PARAMETER orbitalt.
LIST ENGINES IN engines.
set orbitalt to orbitalt*1000.


clearscreen.
print "














                      ###
                      # #
                      ###
                        #
                      ### ".
wait 1.
clearscreen.
print "














                      ###
                      # #
                      ###
                      # #
                      ### ".
wait 1.
clearscreen.
print "














                      ###
                        #
                        #
                        #
                        # ".
wait 1.
clearscreen.
print "














                      ###
                      #
                      ###
                      # #
                      ### ".
wait 1.
clearscreen.
print "














                      ###
                      #
                      ###
                        #
                      ### ".
wait 1.
clearscreen.
print "














                      # #
                      # #
                      ###
                        #
                        # ".
wait 1.
clearscreen.
print "














                      ###
                        #
                      ###
                        #
                      ### ".
wait 1.
clearscreen.
print "














                      ###
                        #
                      ###
                      #
                      ### ".
wait 1.
lock steering to up + R(0,0,180).
clearscreen.
print "














                        #
                        #
                        #
                        #
                        # ".
wait 1.
lock throttle to 1.
clearscreen.
print "














                      ###
                      # #
                      # #
                      # #
                      ### ".
wait 1.
clearscreen.
stage.
print "















            #    #  # # ###  ## # #  #
            #   # # # # # # #   # #  #
            #   ### # # # # #   ###  #
            #   # # # # # # #   # #
            ### # # ### # #  ## # #  # ".
wait 1.
clearscreen.

until altitude > 10000
{
clearscreen.
print "##################CONTROL PANEL##################".
print " First step: reach middle atmosphere.".
print " ".
print "      ALTITUDE: " + round(ALTITUDE, 2).
print "     TO GROUND: " + round(ALT:RADAR,2).
print "-------------------------------------------------".
print "VERTICAL SPEED: " + round(VERTICALSPEED,2).
print "      APOAPSIS: " + round(APOAPSIS,2).
wait .5.
if maxthrust = 0 { stage. print "Staging...". wait 2. stage.}

SET stageneeded TO false.
FOR eng IN engines {

    if eng:flameout and eng:thrust = 0
    {
        set stageneeded to true.
    }
}.
if stageneeded {stage. print "Stage separeted.". wait 2. list engines in engines.}.
}
lock steering to up + R(0,0,180) + R(0,-30,0).

until altitude > 20000
{
clearscreen.
print "##################CONTROL PANEL##################".
print " Second step: begin gravity turn.".
print " ".
print "      ALTITUDE: " + round(ALTITUDE, 2).
print "     TO GROUND: " + round(ALT:RADAR,2).
print "-------------------------------------------------".
print "VERTICAL SPEED: " + round(VERTICALSPEED,2).
print "      APOAPSIS: " + round(APOAPSIS,2).
wait .5.
if maxthrust = 0 { stage. print "Staging...". wait 2. stage.}

SET stageneeded TO false.
FOR eng IN engines {

    if eng:flameout and eng:thrust = 0
    {
        set stageneeded to true.
    }
}.
if stageneeded {stage. print "Stage separeted.". wait 2. list engines in engines.}.
}
lock steering to up + R(0,0,180) + R(0,-60,0).

until apoapsis > orbitalt-orbitalt/10
{
clearscreen.
print "##################CONTROL PANEL##################".
print " Third step: target apoapsis = "+ round(orbitalt/1000,0) + "km".
print " ".
print "      ALTITUDE: " + round(ALTITUDE, 2).
print "     TO GROUND: " + round(ALT:RADAR,2).
print "-------------------------------------------------".
print "VERTICAL SPEED: " + round(VERTICALSPEED,2).
print "      APOAPSIS: " + round(APOAPSIS,2).
wait .5.
if maxthrust = 0 { stage. print "Staging...". wait 2. stage.}

SET stageneeded TO false.
FOR eng IN engines {

    if eng:flameout and eng:thrust = 0
    {
        set stageneeded to true.
    }
}.
if stageneeded {stage. print "Stage separeted.". wait 2. list engines in engines.}.
}
clearscreen.
print "Wait please...".

lock throttle to 0.5.
wait until apoapsis > orbitalt-orbitalt/50.
lock throttle to 0.1.
wait until apoapsis >= orbitalt+200.

print "ENGINE OFF".
lock throttle to 0.
print "STANDBY UNTIL APOAPSIS.".
wait until altitude > 76000.

print "Extending solar panels...".
PANELS ON.

print "Start orbit adjustament program...".

set orbitalvelocity to sqrt(((3.5316*10^12)/(orbitalt+600000)^2)*(600000+orbitalt)).

print "Orbital Velocity = " + round(orbitalvelocity,1) + "m/s".

SET deltav TO orbitalvelocity-(velocityat(ship, time:seconds+(eta:apoapsis)):orbit:mag).

SET node TO NODE(time:seconds+eta:apoapsis, 0, 0, deltav).
ADD node.

print "Maneuver node planned.".

lock throttle to 0.
unlock throttle.
unlock steering.

run execnode.

lock throttle to 0.
unlock throttle.
unlock steering.