DEBUGVAR "Syncing Pool ..."

Var RandomCoffeeCheckIdx = 0
Var RandomCoffeeCheckOkIdx = 0

For RandomCoffeeCheckIdx < 5 Loop

    Var CurrentPd = RandMystCoffee[RandomCoffeeCheckIdx]
    Var CurrentState !assigned @AutoVar ${CurrentPd}.Button

    DEBUGVAR CurrentPd
    DEBUGVAR CurrentState

    DEBUGVAR RandomCoffeeCheckIdx

    If CurrentState = "Enable" Then

        Var RandMystCoffeeEnabled[RandomCoffeeCheckOkIdx] = CurrentPd

        Var RandMystCoffeeNameEnabled[RandomCoffeeCheckOkIdx][0] = RandMystCoffeeName[RandomCoffeeCheckIdx][0]
        Var RandMystCoffeeNameEnabled[RandomCoffeeCheckOkIdx][1] = RandMystCoffeeName[RandomCoffeeCheckIdx][1]
        Var RandMystCoffeeNameEnabled[RandomCoffeeCheckOkIdx][2] = RandMystCoffeeName[RandomCoffeeCheckIdx][2]
        Var RandMystCoffeeNameEnabled[RandomCoffeeCheckOkIdx][3] = RandMystCoffeeName[RandomCoffeeCheckIdx][3]
        Var RandMystCoffeeNameEnabled[RandomCoffeeCheckOkIdx][4] = RandMystCoffeeName[RandomCoffeeCheckIdx][4]

        Var RandomCoffeeCheckOkIdx = RandomCoffeeCheckOkIdx + 1

    EndIf

    Var RandomCoffeeCheckIdx = RandomCoffeeCheckIdx + 1

EndFor

DEBUGVAR RandomCoffeeCheckOkIdx


Var RandomTeaCheckIdx = 0
Var RandomTeaCheckOkIdx = 0

For RandomTeaCheckIdx < 7 Loop

    Var CurrentPd = RandMystTea[RandomTeaCheckIdx]
    Var CurrentState !assigned @AutoVar ${CurrentPd}.Button

    If CurrentState = "Enable" Then
        Var RandMystTeaEnabled[RandomTeaCheckOkIdx] = CurrentPd

        Var RandMystTeaNameEnabled[RandomTeaCheckOkIdx][0] = RandMystTeaName[RandomTeaCheckIdx][0]
        Var RandMystTeaNameEnabled[RandomTeaCheckOkIdx][1] = RandMystTeaName[RandomTeaCheckIdx][1]
        Var RandMystTeaNameEnabled[RandomTeaCheckOkIdx][2] = RandMystTeaName[RandomTeaCheckIdx][2]
        Var RandMystTeaNameEnabled[RandomTeaCheckOkIdx][3] = RandMystTeaName[RandomTeaCheckIdx][3]
        Var RandMystTeaNameEnabled[RandomTeaCheckOkIdx][4] = RandMystTeaName[RandomTeaCheckIdx][4]

        Var RandomTeaCheckOkIdx = RandomTeaCheckOkIdx + 1

    EndIf

    Var RandomTeaCheckIdx = RandomTeaCheckIdx + 1

EndFor

DEBUGVAR RandomTeaCheckOkIdx


Var RandomMilkCheckIdx = 0
Var RandomMilkCheckOkIdx = 0

For RandomMilkCheckIdx < 7 Loop

    Var CurrentPd = RandMystMilk[RandomMilkCheckIdx]
    Var CurrentState !assigned @AutoVar ${CurrentPd}.Button

    If CurrentState = "Enable" Then
        Var RandMystMilkEnabled[RandomMilkCheckOkIdx] = CurrentPd

        Var RandMystMilkNameEnabled[RandomMilkCheckOkIdx][0] = RandMystMilkName[RandomMilkCheckIdx][0]
        Var RandMystMilkNameEnabled[RandomMilkCheckOkIdx][1] = RandMystMilkName[RandomMilkCheckIdx][1]
        Var RandMystMilkNameEnabled[RandomMilkCheckOkIdx][2] = RandMystMilkName[RandomMilkCheckIdx][2]
        Var RandMystMilkNameEnabled[RandomMilkCheckOkIdx][3] = RandMystMilkName[RandomMilkCheckIdx][3]
        Var RandMystMilkNameEnabled[RandomMilkCheckOkIdx][4] = RandMystMilkName[RandomMilkCheckIdx][4]

        Var RandomMilkCheckOkIdx = RandomMilkCheckOkIdx + 1

    EndIf

    Var RandomMilkCheckIdx = RandomMilkCheckIdx + 1

EndFor

DEBUGVAR RandomMilkCheckOkIdx



; TODO: check all state of each menu (Hot, Cold, Blend)

Var RandomOtherCheckIdx = 0
Var RandomOtherCheckOkIdx = 0

Var DisabledOtherPds = ""

For RandomOtherCheckIdx < 12 Loop

    Var CurrentPd = RandMystOther[RandomOtherCheckIdx][0]
    SPLIT CurrentPd "-" 1 CountryCode
    SPLIT CurrentPd "-" 2 DrinkCategory
    SPLIT CurrentPd "-" 3 DrinkType
    SPLIT CurrentPd "-" 4 DrinkId

    Var TypeIdx = 0
    SPLIT RandMystOther[RandomOtherCheckIdx][1] "," 1 CurrentType[0]
    SPLIT RandMystOther[RandomOtherCheckIdx][1] "," 2 CurrentType[1]
    SPLIT RandMystOther[RandomOtherCheckIdx][1] "," 3 CurrentType[2]

    Var AtLeastOneEnable = 0

    STRCONTAIN "x" CurrentPd HasXInPd

    If HasXInPd = "true" Then
        ; 12-type-0x-id
        For TypeIdx < 3 Loop
            Var CurrentTypeI = CurrentType[TypeIdx]

            If CurrentTypeI = "X" Then

            Else
                Var DrinkType !assigned @AutoVar "0{CurrentTypeI}"
                Var NewCurrentPd !assigned @AutoVar "{CountryCode}-{DrinkCategory}-{DrinkType}-{DrinkId}"
                Var CurrentStateByType !assigned @AutoVar ${NewCurrentPd}.Button

                If CurrentStateByType = "Enable" Then
                    Var AtLeastOneEnable = AtLeastOneEnable + 1
                EndIf
                ;
            EndIf
            Var TypeIdx = TypeIdx + 1
        EndFor

        If AtLeastOneEnable >= 1 Then
            Var RandMystOtherEnabled[RandomOtherCheckOkIdx] = RandomOtherCheckIdx
            Var RandomOtherCheckOkIdx = RandomOtherCheckOkIdx + 1
        Else
            Var DisabledOtherPds = DisabledOtherPds + NewCurrentPd
            Var DisabledOtherPds = DisabledOtherPds + ","
        EndIf
    Else

        ; single-state-menu

        Var CurrentState !assigned @AutoVar ${CurrentPd}.Button

        If CurrentState = "Enable" Then
            Var RandMystOtherEnabled[RandomOtherCheckOkIdx] = RandomOtherCheckIdx
            Var RandomOtherCheckOkIdx = RandomOtherCheckOkIdx + 1
        Else
            Var DisabledOtherPds = DisabledOtherPds + NewCurrentPd
            Var DisabledOtherPds = DisabledOtherPds + ","
        EndIf
    EndIf

    Var RandomOtherCheckIdx = RandomOtherCheckIdx + 1
EndFor

DEBUGVAR RandomOtherCheckOkIdx


DEBUGVAR DisabledOtherPds





; disable-random-by-status

If RandomMilkCheckOkIdx = 0 Then
    Var SubRandMilkButtonEnable = "Disable"
    SAVELOG "Disable Random Milk"
Else
    Var SubRandMilkButtonEnable = "Enable"
EndIf



If RandomTeaCheckOkIdx = 0 Then
    Var SubRandTeaButtonEnable = "Disable"
    SAVELOG "Disable Random Tea"
Else
    Var SubRandTeaButtonEnable = "Enable"
EndIf



If RandomCoffeeCheckOkIdx = 0 Then
    Var SubRandCoffButtonEnable = "Disable"
    SAVELOG "Disable Random Coffee"
Else
    Var SubRandCoffButtonEnable = "Enable"
EndIf