DO

xml/event/promotion_onclick3.inc

@@ -0,0 +1,211 @@
+Var BigButtonEnable = "Invisible"
+        DEBUGVAR BigButtonEnable
+
+        ; Enable all 4 buttons
+        Var SubRandMilkButtonEnable = "Enable"
+        DEBUGVAR SubRandMilkButtonEnable
+
+        Var SubRandTeaButtonEnable = "Enable"
+        DEBUGVAR SubRandTeaButtonEnable
+
+        Var SubRandCoffButtonEnable = "Enable"
+        DEBUGVAR SubRandCoffButtonEnable
+
+        Var SubRandAllButtonEnable = "Enable"
+        DEBUGVAR SubRandAllButtonEnable
+
+
+
+
+
+        ; For real, yeah for real
+        ; All random cup
+
+        Var IndexOfAllRandom = 0
+        Var IndexOfMilk = 0
+        Var IndexOfTea = 0
+        Var IndexOfCoffee = 0
+
+        ; Oreo smoothie volcano
+        If $12-99-03-0020.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0020"
+            Var ListOfMilk[IndexOfMilk] = "12-99-03-0020"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfMilk = IndexOfMilk + 1
+        EndIf
+
+        ; Pink milk oreo volcano
+        If $12-99-03-0021.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0021"
+            Var ListOfMilk[IndexOfMilk] = "12-99-03-0021"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfMilk = IndexOfMilk + 1
+        EndIf
+
+        ; Choco oreo volcano
+        If $12-99-03-0022.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0022"
+            Var ListOfMilk[IndexOfMilk] = "12-99-03-0022"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfMilk = IndexOfMilk + 1
+        EndIf
+
+        ; Caramel milk oreo volcano
+        If $12-99-03-0023.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0023"
+            Var ListOfMilk[IndexOfMilk] = "12-99-03-0023"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfMilk = IndexOfMilk + 1
+        EndIf
+
+        ; Thai milk tea oreo smoothie
+        If $12-99-03-0024.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0024"
+            Var ListOfTea[IndexOfTea] = "12-99-03-0024"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfTea = IndexOfTea + 1
+        EndIf
+
+        ; Cafe late oreo smoothie
+        If $12-99-03-0025.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0025"
+            Var ListOfCoffee[IndexOfCoffee] = "12-99-03-0025"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfCoffee = IndexOfCoffee + 1
+        EndIf
+
+        ; Strawberry milk oreo volcano
+        If $12-99-03-0026.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0026"
+            Var ListOfMilk[IndexOfMilk] = "12-99-03-0026"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfMilk = IndexOfMilk + 1
+        EndIf
+
+        ; Melon milk oreo volcano
+        If $12-99-03-0027.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0027"
+            Var ListOfMilk[IndexOfMilk] = "12-99-03-0027"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfMilk = IndexOfMilk + 1
+        EndIf
+
+        ; Bana^2 milk oreo volcano
+        If $12-99-03-0028.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0028"
+            Var ListOfMilk[IndexOfMilk] = "12-99-03-0028"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfMilk = IndexOfMilk + 1
+        EndIf
+
+        ; HOJICHA Oreo smoothie
+        If $12-99-03-0029.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0029"
+            Var ListOfTea[IndexOfTea] = "12-99-03-0029"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfTea = IndexOfTea + 1
+        EndIf
+
+        ; Thai milk tea smoothie
+        If $12-99-03-0030.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0030"
+            Var ListOfTea[IndexOfTea] = "12-99-03-0030"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfTea = IndexOfTea + 1
+        EndIf
+
+        ; Melon milk smoothie
+        If $12-99-03-0031.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0031"
+            Var ListOfMilk[IndexOfMilk] = "12-99-03-0031"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfMilk = IndexOfMilk + 1
+        EndIf
+
+        ; Taiwanese tea smoothie
+        If $12-99-03-0032.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0032"
+            Var ListOfTea[IndexOfTea] = "12-99-03-0032"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfTea = IndexOfTea + 1
+        EndIf
+
+        ; Tokyo bana^2 milk smoothie
+        If $12-99-03-0033.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0033"
+            Var ListOfMilk[IndexOfMilk] = "12-99-03-0033"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfMilk = IndexOfMilk + 1
+        EndIf
+
+        ; Hojicha smoothie
+        If $12-99-03-0034.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0034"
+            Var ListOfTea[IndexOfTea] = "12-99-03-0034"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfTea = IndexOfTea + 1
+        EndIf
+
+        ; Cocoa bana^2 smoothie
+        If $12-99-03-0035.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0035"
+            Var ListOfMilk[IndexOfMilk] = "12-99-03-0035"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfMilk = IndexOfMilk + 1
+        EndIf
+
+        ; Taiwanese tea cafe latte smoothie
+        If $12-99-03-0036.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0036"
+            Var ListOfCoffee[IndexOfCoffee] = "12-99-03-0036"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfCoffee = IndexOfCoffee + 1
+        EndIf
+
+        ; Melon cafe latte smoothie
+        If $12-99-03-0037.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0037"
+            Var ListOfCoffee[IndexOfCoffee] = "12-99-03-0037"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfCoffee = IndexOfCoffee + 1
+        EndIf
+
+        ; Taiwanese tea cafe latte smoothie v2
+        If $12-99-03-0038.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0038"
+            Var ListOfCoffee[IndexOfCoffee] = "12-99-03-0038"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfCoffee = IndexOfCoffee + 1
+        EndIf
+
+        ; Melon cafe latte smoothie v2
+        If $12-99-03-0039.Button = "Enable" Then
+            Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0039"
+            Var ListOfCoffee[IndexOfCoffee] = "12-99-03-0039"
+            Var IndexOfAllRandom = IndexOfAllRandom + 1
+            Var IndexOfCoffee = IndexOfCoffee + 1
+        EndIf
+
+        DEBUGVAR IndexOfAllRandom
+        DEBUGVAR IndexOfCoffee
+        DEBUGVAR IndexOfMilk
+        DEBUGVAR IndexOfTea
+    
+        If IndexOfAllRandom = 0 Then
+            Var SubRandAllButtonEnable = "Disable"
+        EndIf
+
+        If IndexOfCoffee = 0 Then
+            Var SubRandCoffButtonEnable = "Disable"
+        EndIf
+        If IndexOfMilk = 0 Then
+            Var SubRandMilkButtonEnable = "Disable"
+        EndIf
+        If IndexOfTea = 0 Then
+            Var SubRandTeaButtonEnable = "Disable"
+        EndIf
+
+        Refresh
+
+
+