Athena Takeoff

ship:dockingports[1]:controlfrom().
lights off.
list engines in es.
for e in es e:activate.
set es to ship:partsdubbedpattern("wolf").
for e in es set e:gimbal:limit to 6.
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).
}.
tilt2(20).
set x to 90.
set p to 20.
lock steering to heading(x, p).
when true then { tilt2(min(max(10,alt:Radar), 90)). return alt:Radar <  2000. }.
wait 1.
lights on.
lock roll to max(-5,min(5, body:geopositionof(heading(x,0):vector):bearing)).
lock steering to heading(x, p, -roll).
lock throttle to 1.
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 > 55000 then lock throttle to 0.
when apoapsis > 40000 then { lock steering to prograde. for e in es if e:position:x > 0 set e:gimbal:limit to 100. }