IFT-3 COAST(PEZ DOOR, PROP TRANSFER)

clearscreen.
lock testtime to time:seconds - now.
set teststatus to "SECO-1, dumping fuel, starting experiments, T+: " + round(testtime,1) + " Seconds".
coast().

function coast {
    rcs off.
    set fte to ship:partstagged("fte")[0].
    set door to ship:partstagged("door")[0].
    fte:getmodule("ModuleResourceDrain"):doaction("слить",true).
    ag6 off.
    set hts to ship:partsnamed("externalTankRound").
    set mts to ship:partsdubbed("mts")[0].
    set mts1 to mts:resources[0].
    set mts2 to mts:resources[1].
    set rs1 to hts[0].
    set rs2 to hts[1].
    set rs3 to rs1:resources.
    set rs4 to rs2:resources.
    set rs5 to rs3[0].
    set rs6 to rs3[1].
    set rs7 to rs4[0].
    set rs8 to rs4[1].
    set ship:control:pilotmainthrottle to 0.
    unlock throttle.
    unlock steering.
    when mts1:amount <= 30 and mts2:amount <= 30 then {
        fte:getmodule("ModuleResourceDrain"):doaction("остановить слив",true).
        ag6 on.
    }

    set n to time:seconds.
    lock ti1 to time:seconds - n.
    until ti1 > 1 {
        printing().
    }

    set teststatus to "Awaiting for fuel to dump and PEZ door to open, T+: " + round(testtime,1) + " Seconds".
    set n to time:seconds + 80.
    lock ti1 to n - time:seconds.
    until ti1 <= 0 {
      printing().
      printingtransfer().
      print "TIme to PEZ door open: " + ti1 + " Seconds".
    }

    set teststatus to "PEZ door opening, T+: " + round(testtime,1) + " Seconds".
    door:getmodule("ModuleAnimateGeneric"):doevent("открыть").
    until mts1:amount <= 30 and mts2:amount <= 30 {
        printing().
        wait 0.1.
        printingtransfer().
    }

    set teststatus to "Fuel dumping has been completed, trying fuel transfer between header tanks to main tank, T+: " + round(testtime,1) + " Seconds".
    fueltransfer().
    until altit < 112000 {
        printing().
    }

    door:getmodule("ModuleAnimateGeneric"):doevent("закрыть").
    set teststatus to "PEZ door has been closed, awaiting for reentry, T+: " + round(testtime,1) + " Seconds".
}


function fueltransfer {
    set rs5:enabled to true.
    set rs6:enabled to true.
    set rs7:enabled to true.
    set rs8:enabled to true.
    set transferox1 to transferall("oxidizer", rs1, mts).
    set transferox2 to transferall("oxidizer", rs2, mts).
    set transferfuel1 to transferall("liquidfuel", rs1, mts).
    set transferfuel2 to transferall("liquidfuel", rs2, mts).
    set transferox1:active to true.
    set transferox2:active to true.
    set transferfuel1:active to true.
    set transferox2:active to true.
    until rs5:amount = 0 and rs6:amount = 0 and rs7:amount = 0 and rs8:amount = 0 {
        printing().
        wait 0.1.
        printingtransfer().
    }

    set teststatus to "Transfer compelte, transfering back, T+: " + round(testtime,1) + " Seconds".
    set transferox1 to transferall("oxidizer", mts, rs1).
    set transferox2 to transferall("oxidizer", mts, rs2).
    set transferfuel1 to transferall("liquidfuel", mts, rs1).
    set transferfuel2 to transferall("liquidfuel", mts, rs2).
    set transferox1:active to true.
    set transferox2:active to true.
    set transferfuel1:active to true.
    set transferox2:active to true.
    until rs5:amount = rs5:capacity and rs6:amount = rs6:capacity and rs7:amount = rs7:capacity and rs8:amount = rs8:capacity {
        printing().
        wait 0.1.
        printingtransfer().
    }

    set teststatus to "Transfer back complete, awaiting for PEZ door to close, T+: " + round(testtime,1) + " Seconds".
}


function printingtransfer {
    print "Header tank 1 fuel: " + rs5:amount.
    print "Header tank 1 oxidizer: " + rs6:amount.
    print "Header tank 2 fuel: " + rs7:amount.
    print "Header tank 2 oxidizer: " + rs8:amount.
    print "Main tank fuel: " + mts1:amount.
    print "Main tank oxidizer: " + mts2:amount.
}


function printing {
    clearscreen.
    set altit to alt:radar-h.
    print "Status: " + teststatus.
    print "T+: " + round(testtime,1) + " Seconds".
    print "Time(KSC): " + time:clock.
    print "Press 10 to abort program".
}