Athena 2 takeoff

switch to 0.
ship:partsdubbedpattern("cockpit")[0]:controlfrom().
list engines in es. for e in es e:shutdown().
set steeringmanager:maxstoppingtime to 6.
run airplanesteer.
lights off.
set es to ship:partsdubbedpattern("wolf").
for w in es if vang(w:facing:vector, ship:facing:vector) > 10 w:activate().

for w in es set w:gimbal:limit to 10.
for w in es if vang(w:facing:vector, ship:facing:vector) < 10 set w:gimbal:limit to 100.
lock throttle to 0.
bays off.
rcs on.
//toggle ag1.
brakes off.
set servos to ship:modulesnamed("ModuleRoboticRotationServo").
for s in servos {
	s:setfield("damping", 80).
	s:setfield("traverse rate", 40).
	s:setfield("locked",false).
	s:setfield("motor",true).
}
function tilt2 {
parameter tlt is 0.
for s in servos s:setfield("target angle", -tlt + 90).
}.
tilt2(0).
set x to 90.
set p to 0.
lock steering to heading(x, p).
set gotime to false.
when gotime then { tilt2(min(max(10,alt:Radar/10), 90)). return alt:Radar <  2000. }.
wait 0.25.
lights on.

lock throttle to 1.

when abs(steeringmanager:angleerror) < 15 then { set gotime to true. lock throttle to 1. set p to 20. for e in es e:activate(). }
when alt:radar > 20 then gear off.
when alt:Radar > 2000 then { rcs off.  for e in es if e:position:x > 0 set e:gimbal:limit to 100. }
when apoapsis > body:atm:height + 20000 then lock throttle to 0.
when apoapsis > body:atm:height +  10e3 then { lock steering to prograde. for e in es if e:position:x > 0 set e:gimbal:limit to 100. }