clearscreen.
lock throttle to 0.
set ship:control:pilotmainthrottle to 0.
print "Counting down from T-10 Seconds".
print "T-10 Seconds".
wait 1.
print "T-9 Seconds".
wait 1.
print "T-8 Seconds".
wait 1.
print "T-7 Seconds".
wait 1.
print "T-6 Seconds".
wait 1.
print "T-5 Seconds".
wait 1.
print "T-4 Seconds".
stage.
print "Ignition. Launch Tower Detatch".
lock throttle to 1.
wait 1.
print "T-3 Seconds".
wait 1.
print "T-2 Seconds".
wait 1.
print "T-1 Second".
wait 1.
print "Liftoff!".
stage.
until ship:velocity:surface:mag >= 70 {
	lock steering to heading(90,90).
	if ship:velocity:surface:mag >70 {
		unlock steering.
		break.
	}.
}.

//This is what doesn't work. For some reason, the rocket does not face this heading.
when ship:velocity:surface:mag >= 70 and ship:velocity:surface:mag < 200 then {
	print "T+"+round(missiontime)+" Seconds. Beginning Gravity Turn".
	lock steering to heading(90,80).
	wait 5.
	print "T+"+round(missiontime)+" Seconds. Gravity Turn Complete".
}.


until ship:apoapsis >= 140000 {
	lock steering to heading(90,arcsin(verticalspeed/airspeed)).
}.

when ship:apoapsis >= 140000 then {
	unlock steering.
	set pointing to heading(90,20).
	lock steering to pointing.
}.
when ship:apoapsis >=200000 then{
	unlock steering.
	lock steering to prograde.
}.
when ship:lqdoxygen <607 and ship:altitude < 100000 then {
	stage.
	print "T+"+round(missiontime)+" Seconds. Second Stage Ignition".
}.
when ship:lqdoxygen < 10 and ship:altitude < 100000 then {
	stage.
	print "T+"+round(missiontime)+" Seconds. First Stage Seperation".
	rcs on.
}.
when ship:udmh < 2 and ship:maxthrust <0.1 then {
 	stage.
	print "T+"+round(missiontime)+" Seconds. Nose Cone Seperation".
	toggle ag4.
}.






when (ship:apoapsis-ship:altitude) < 100 then {
	lock steering to prograde.
	wait 5.
	stage.
	print "T+"+round(missiontime)+" Seconds. Second Stage Seperation".
	wait 1.
	print "T+"+round(missiontime)+" Seconds. Spin motor Ignition".
	stage.
	wait 0.6.
	stage.
	print "T+"+round(missiontime)+" Seconds. Kick Motor Ignition".
}.

wait until ship:periapsis >= 140000.