CMLSeng

//Engine tag/shutdown script
//Version 0.1

LIST ENGINES IN engineList.

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

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

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

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

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

FOR eng IN engAll {
  IF eng:GETMODULE("ModuleEngines"):HASEVENT("Shutdown Engine") {
    eng:GETMODULE("ModuleEngines"):DOEVENT("Shutdown Engine").
  }. //IF
}. //FOR