Hermes Horizontal Flight Setup

//	!runscript qmzptN1n
unlock steering.
SAS off.
RCS off.
set vecs to ship:partsdubbedpattern("vector").
ship:partsdubbedpattern("horizontal")[0]:controlfrom().
set servos to ship:modulesnamed("ModuleRoboticRotationServo").
set hinges to ship:modulesnamed("ModuleRoboticServoHinge").
for s in servos {
	s:setfield("damping", 80).
	s:setfield("traverse rate", 40).
	s:setfield("locked",false).
	s:setfield("motor",true).
	s:setfield("target angle", 90).
}

for h in hinges h:setfield("locked", false).
for h in hinges h:setfield("target angle", 72).
list engines in es.
for e in es e:activate().
set totalTorque to v(0,0,0).
for e in es set totalTorque to totalTorque + vcrs(e:position, e:facing:vector) * e:availablethrust.
set lasttorque to 1000.
until abs(lasttorque - totaltorque:mag)< 0.5 {
	set lasttorque to totalTorque:mag.
	wait 1.
	set totalTorque to v(0,0,0).
	for e in es set totalTorque to totalTorque + vcrs(e:position, e:facing:vector) * e:availablethrust.
	print lasttorque.
}

for h in hinges h:setfield("locked", true).
for e in vecs set e:gimbal:limit to 6.
for e in vecs if e:position:x < 0 set e:gimbal:limit to 100.
print "Hermes is Ready".