SG Hathi III X to orbit

bays off.
for m in ship:modulesnamed("WBIModuleGeneratorFX") if m:hasevent("activate fusion power") m:doevent("activate fusion power").
set steeringmanager:rollcontrolanglerange to 180.
set proprad to 5.8.
set rotormods to ship:modulesnamed("ModuleRoboticServoRotor").
set rotors to list().
for rm in rotormods {
    local rotor to lexicon().
    if(rm:getfield("motor") <> "Unpowered")
    {
        set rotor["part"] to rm:part.
        set rotor["mod"] to rm.
		if rotor:part:parent:name:contains("bay") {
			set baymod to rotor:part:parent:getmodule("ModuleAnimateGeneric").
			if baymod:hasevent("open") baymod:doevent("open").
		}

        set rotor["blades"] to list().
        for bm in rm:part:ModulesNamed("ModuleControlSurface") {
            local b to bm:part.

            local blade to lexicon().
            set blade["mod"] to bm.
            set blade["offset"] to vdot(-b:Facing:starvector, b:position - b:parent:position).
            set blade["proprad"] to proprad.

            bm:setfield("deploy", true).

            rotor["blades"]:add(blade).
        }

        rotors:add(rotor).
        if rm:hasfield("torque limit(%)") rm:setfield("torque limit(%)", 100).
    }
}
lock throttle to ship:control:pilotmainthrottle.
lock rpmtarget to min(459,max(0, throttle * 460)).

set props to true.

on round(time:seconds * 20) {
    if props {
        set rpmcopy to rpmtarget.
        for rotor in rotors {

            rotor:mod:setfield("rpm limit", rpmcopy ).
            set calcAirspeed to (2 * constant:pi * (rotor:blades[0]:proprad + rotor:blades[0]:offset) * rpmcopy/60).
            set deploycopy to max(3, 4.5 + arctan2(airspeed, calcAirspeed)).
            for blade in rotor:blades {
                blade:mod:setfield("deploy angle", deploycopy).
            }
        }
    }

    return props.
}
lock steering to heading(90,00).
brakes on.
wait 4.
brakes off.
lock throttle to 1.
SetAngle(90).
startup(vectors).
when airspeed > 90 then {
    lock steering to heading(90,10).
	SetAngle(15).
}
when alt:radar > 10 then {
	gear off.
}
when airspeed > 110 then {
    lock steering to heading(90,20).
    setangle(25).
}
when airspeed > 150 then {
    setangle(90).
    lock steering to heading(90,30).
}
when airspeed > 300 then {

    set props to false.

    for rotor in rotors {
        rotor:mod:setfield("torque limit(%)", 0).
        rotor:mod:setfield("rpm limit", 0 ).

        for blade in rotor:blades {
            blade:mod:setfield("deploy angle", 90).
        }
    }

    for m in ship:modulesnamed("WBIModuleGeneratorFX") if m:hasevent("deactivate fusion power") m:doevent("deactivate fusion power").
    wait 0.
    bays off.
}
when apoapsis > body:Atm:height + 10e3 then {

    lock throttle to 0.
    lock steering to srfprograde.
}
when altitude > body:atm:height then {
    lock steering to prograde.
    lock throttle to 30-eta:apoapsis.
}