; BigBigbutton

Var OreoGuarantee = 0

; load-from-persist

CacheVarStr "get" OreoGuarantee

INT OreoGuarantee

If OreoGuarantee = "" Then
    Var OreoGuarantee = 0
EndIf

Var ResultRandomIndexCofee = 0
Var ResultRandomIndexTea = 0
Var ResultRandomIndexMilk = 0
Var ResultRandomIndexOtherTemp = 0

Var RandomCoffeeCheckOkLength = RandomCoffeeCheckOkIdx - 1
Var RandomTeaCheckOkLength = RandomTeaCheckOkIdx - 1
Var RandomMilkCheckOkLength = RandomMilkCheckOkIdx - 1
Var RandomOtherCheckOkLength = RandomOtherCheckOkIdx - 1

Random2 0 RandomCoffeeCheckOkLength ResultRandomIndexCofee
Random2 0 RandomTeaCheckOkLength ResultRandomIndexTea
Random2 0 RandomMilkCheckOkLength ResultRandomIndexMilk
Random2 0 RandomOtherCheckOkLength ResultRandomIndexOtherTemp

Var OreoGuarantee = OreoGuarantee + 1

If OreoGuarantee = 10 Then
    ; reset
    Var OreoGuarantee = 0

    Var ResultRandomIndexTea = 0
    Var ResultRandomIndexMilk = 0

    SAVELOG "Woosh! Secret Rare (Rateup!)"
Else

    If ResultRandomIndexTea = 0 Then
        Var OreoGuarantee = 0
        SAVELOG "Holy Moly! Tearala Oreore poom pow!"
    EndIf

    If ResultRandomIndexMilk = 0 Then
        Var OreoGuarantee = 0
        SAVELOG "Holy Jeez! Miluku Oreore poom pow pow!"
    EndIf

EndIf

CacheVarStr "put" OreoGuarantee


DEBUGVAR ResultRandomIndexCofee
DEBUGVAR ResultRandomIndexTea
DEBUGVAR ResultRandomIndexMilk
DEBUGVAR ResultRandomIndexOtherTemp

Var ProductCodeRandomCoffee = RandMystCoffeeEnabled[ResultRandomIndexCofee]
Var ProductCodeRandomTea = RandMystTeaEnabled[ResultRandomIndexTea]
Var ProductCodeRandomMilk = RandMystMilkEnabled[ResultRandomIndexMilk]
Var ResultRandomIndexOther = RandMystOtherEnabled[ResultRandomIndexOtherTemp]

; ProductCodeRandom -> ProductCodeRandomCoffee

DEBUGVAR ProductCodeRandomCoffee
DEBUGVAR ProductCodeRandomTea
DEBUGVAR ProductCodeRandomMilk
DEBUGVAR ResultRandomIndexOther