LIB_CMLSeng

//=====CMLS Engine Library=====
//~~LIB_CMLSeng~~
//~~Version 0.1a~~

@LAZYGLOBAL OFF.

DECLARE FUNCTION  CMLSeng_Tag {

    GLOBAL S1Alpha TO LIST().       //First stage engine 1
    GLOBAL S1Bravo TO LIST().       //First stage engines 2,3
    GLOBAL S1Charlie TO LIST().     //First stage engines 4,5,6,7
    GLOBAL S1All TO LIST().     //First stage all engines

    GLOBAL S2Alpha TO LIST().       //Second stage engine 1

    GLOBAL LBAlpha TO LIST().       //Left booster engine 1
    GLOBAL LBBravo TO LIST().       //Left booster engine 2,3
    GLOBAL LBCharlie TO LIST().     //Left booster engine 4,5,6,7
    GLOBAL LBAll TO LIST().     //Left booster all engines
    GLOBAL RBAlpha TO LIST().       //Right booster engine 1
    GLOBAL RBBravo TO LIST().       //Right booster engine 2,3
    GLOBAL RBCharlie TO LIST().     //Right booster engine 4,5,6,7
    GLOBAL RBAll TO LIST().     //Right booster all engines

    GLOBAL engAll TO LIST().        //All first stage and side booster engines

    LOCAL engineList.
    LIST ENGINES IN engineList.

    FOR eng IN engineList {     //Loop to assign engines to all engine lists
        IF eng:TAG = "S1Alpha" {        //First stage engine 1
            S1Alpha:ADD(eng).
            S1All:ADD(eng).
            engAll:ADD(eng).

        } ELSE IF eng:TAG = "S1Bravo" {     //First stage engine 2,3
            S1Bravo:ADD(eng).
            S1All:ADD(eng).
            engAll:ADD(eng).

        } ELSE IF eng:TAG = "S1Charlie" {       //First stage engine 4,5,6,7
            S1Charlie:ADD(eng).
            S1All:ADD(eng).
            engAll:ADD(eng).

        } ELSE IF eng:TAG = "S2Alpha" {     //Second stage engine 1
            S2Alpha:ADD(eng).

        } ELSE IF eng:TAG = "LBAlpha" {     //Left booster engine 1
            LBAlpha:ADD(eng).
            LBAll:ADD(eng).
            engAll:ADD(eng).

        } ELSE IF eng:TAG = "LBBravo" {     //Left booster engine 2,3
            LBBravo:ADD(eng).
            LBAll:ADD(eng).
            engAll:ADD(eng).

        } ELSE IF eng:TAG = "LBCharlie" {       //Left booster engine 4,5,6,7
            LBCharlie:ADD(eng).
            LBAll:ADD(eng).
            engAll:ADD(eng).

        } ELSE IF eng:TAG = "RBAlpha" {     //Right booster engine 1
            RBAlpha:ADD(eng).
            LBAll:ADD(eng).
            engAll:ADD(eng).

        } ELSE IF eng:TAG = "RBBravo" {     //Right booster engine 2,3
            RBBravo:ADD(eng).
            LBAll:ADD(eng).
            engAll:ADD(eng).

        } ELSE IF eng:TAG = "RBCharlie" {       //Right booster engine 4,5,6,7
            RBCharlie:ADD(eng).
            LBAll:ADD(eng).
            engAll:ADD(eng).

        }. //IF-ELSE eng
    }. //FOR engineList
}. //FUNCTION CMLSeng_Tag

DECLARE FUNCTION CMLSeng_Ignite {
    PARAMETER engGroup.
    LOCAL eng.

    FOR eng IN engGroup {
        eng:ACTIVATE().
    }. //FOR
}. //FUNCTION CMLSeng_Ignite

DECLARE FUNCTION CMLSeng_Shutdown {
    PARAMETER engGroup.
    LOCAL eng.

    FOR eng IN engGroup {
        eng:SHUTDOWN().
    }. //FOR
}. //FUNCTION CMLSeng_Ignite

DECLARE FUNCTION CMLSeng_Limit {
    PARAMETER
        engGroup,
        engLimit.
    LOCAL eng.

    FOR eng IN engGroup {
        SET eng:THRUSTLIMIT TO engLimit.
    }.  //FOR
}. //FUNCTION CMLSeng_Limit