I sard กกต

This commit is contained in:
kong 2023-07-12 22:17:28 +07:00
parent 80ccab2571
commit 40bd35a369
29 changed files with 1034 additions and 264 deletions

View file

@ -8962,18 +8962,24 @@ LIMENADE SODA" </Value>
</FilenameDisable>
<EventClick>
Var OreoGuarantee = OreoGuarantee + 1
Var ResultRandomIndex = 0
DEBUGVAR OreoGuarantee
If OreoGuarantee > 4 Then
Random2 0 IndexOfRateupOreoMilk ResultRandomIndex
Var ProductCodeRandom = ListOfOreoMilk[ResultRandomIndex]
DEBUGVAR ListOfOreoMilk[ResultRandomIndex]
Var IndexOfMilk = IndexOfMilk - 1
Random2 0 IndexOfMilk ResultRandomIndex
Var ProductCodeRandom = ListOfMilk[ResultRandomIndex]
DEBUGVAR ListOfMilk[ResultRandomIndex]
Var OreoGuarantee = 0
Else
Random2 0 IndexOfMilk ResultRandomIndex
Var ProductCodeRandom = ListOfMilk[ResultRandomIndex]
DEBUGVAR ListOfMilk[ResultRandomIndex]
Var IndexOfRateupOreoMilk = IndexOfRateupOreoMilk - 1
Random2 0 IndexOfRateupOreoMilk ResultRandomIndex
Var ProductCodeRandom = ListOfOreoMilk[ResultRandomIndex]
DEBUGVAR ListOfOreoMilk[ResultRandomIndex]
EndIf
DEBUGVAR ResultRandomIndex
Topping "Load" ProductCodeRandom
Var OpenFromXML = CurrentXMLFileName2
Open "ROOT/taobin_project/xml/page_topping_select_35.xml"
@ -9013,19 +9019,29 @@ LIMENADE SODA" </Value>
)
</FilenameDisable>
<EventClick>
Var OreoGuarantee = OreoGuarantee + 1
Var OreoGuarantee = OreoGuarantee + 1
Var ResultRandomIndex = 0
DEBUGVAR OreoGuarantee
DEBUGVAR IndexOfTea
DEBUGVAR IndexOfRateupOreoTea
If OreoGuarantee > 4 Then
Random2 0 IndexOfRateupOreoTea ResultRandomIndex
Var ProductCodeRandom = ListOfOreoTea[ResultRandomIndex]
DEBUGVAR ListOfOreoTea[ResultRandomIndex]
Var IndexOfTea = IndexOfTea - 1
Random2 0 IndexOfTea ResultRandomIndex
Var ProductCodeRandom = ListOfTea[ResultRandomIndex]
DEBUGVAR ListOfTea[ResultRandomIndex]
Var OreoGuarantee = 0
Else
Random2 0 IndexOfTea ResultRandomIndex
Var ProductCodeRandom = ListOfTea[ResultRandomIndex]
DEBUGVAR ListOfTea[ResultRandomIndex]
Var IndexOfRateupOreoTea = IndexOfRateupOreoTea - 1
Random2 0 IndexOfRateupOreoTea ResultRandomIndex
Var ProductCodeRandom = ListOfOreoTea[ResultRandomIndex]
DEBUGVAR ListOfOreoTea[ResultRandomIndex]
EndIf
DEBUGVAR ResultRandomIndex
Topping "Load" ProductCodeRandom
Var OpenFromXML = CurrentXMLFileName2
@ -9067,23 +9083,30 @@ Var OreoGuarantee = OreoGuarantee + 1
)
</FilenameDisable>
<EventClick>
Var OreoGuarantee = OreoGuarantee + 1
DEBUGVAR OreoGuarantee
If OreoGuarantee > 4 Then
Var OreoGuarantee = OreoGuarantee + 1
Var ResultRandomIndex = 0
DEBUGVAR OreoGuarantee
DEBUGVAR IndexOfCoffee
DEBUGVAR IndexOfRateupOreoCoffee
If OreoGuarantee > 4 Then
Var IndexOfCoffee = IndexOfCoffee - 1
Random2 0 IndexOfCoffee ResultRandomIndex
Var ProductCodeRandom = ListOfCoffee[ResultRandomIndex]
DEBUGVAR ListOfCoffee[ResultRandomIndex]
Random2 0 IndexOfRateupOreoCoffee ResultRandomIndex
Var ProductCodeRandom = ListOfOreoCoffee[ResultRandomIndex]
DEBUGVAR ListOfOreoCoffee[ResultRandomIndex]
Var OreoGuarantee = 0
Var OreoGuarantee = 0
Else
Else
Var IndexOfRateupOreoCoffee = IndexOfRateupOreoCoffee - 1
Random2 0 IndexOfRateupOreoCoffee ResultRandomIndex
Var ProductCodeRandom = ListOfOreoCoffee[ResultRandomIndex]
DEBUGVAR ListOfOreoCoffee[ResultRandomIndex]
Random2 0 IndexOfCoffee ResultRandomIndex
Var ProductCodeRandom = ListOfCoffee[ResultRandomIndex]
DEBUGVAR ListOfCoffee[ResultRandomIndex]
EndIf
DEBUGVAR ResultRandomIndex
EndIf
Topping "Load" ProductCodeRandom
Var OpenFromXML = CurrentXMLFileName2
Open "ROOT/taobin_project/xml/page_topping_select_35.xml"
@ -9123,20 +9146,24 @@ EndIf
)
</FilenameDisable>
<EventClick>
Var OreoGuarantee = OreoGuarantee + 1
DEBUGVAR OreoGuarantee
If OreoGuarantee > 4 Then
Random2 0 IndexOfRateupOreoAll ResultRandomIndex
Var ProductCodeRandom = ListOfOreoAll[ResultRandomIndex]
DEBUGVAR ListOfOreoAll[ResultRandomIndex]
Var OreoGuarantee = 0
Else
Random2 0 IndexOfAllRandom ResultRandomIndex
Var ProductCodeRandom = ListOfAllRandom[ResultRandomIndex]
DEBUGVAR ListOfAllRandom[ResultRandomIndex]
EndIf
Var OreoGuarantee = OreoGuarantee + 1
Var ResultRandomIndex = 0
DEBUGVAR OreoGuarantee
If OreoGuarantee > 4 Then
Var IndexOfAllRandom = IndexOfAllRandom - 1
Random2 0 IndexOfAllRandom ResultRandomIndex
Var ProductCodeRandom = ListOfAllRandom[ResultRandomIndex]
DEBUGVAR ListOfAllRandom[ResultRandomIndex]
Var OreoGuarantee = 0
Else
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll - 1
Random2 0 IndexOfRateupOreoAll ResultRandomIndex
Var ProductCodeRandom = ListOfOreoAll[ResultRandomIndex]
DEBUGVAR ListOfOreoAll[ResultRandomIndex]
EndIf
DEBUGVAR ResultRandomIndex
Topping "Load" ProductCodeRandom
Var OpenFromXML = CurrentXMLFileName2
Open "ROOT/taobin_project/xml/page_topping_select_35.xml"
@ -9286,7 +9313,7 @@ EndIf
Var ListOfOreoAll[IndexOfRateupOreoAll] = "12-99-03-0023"
Var ListOfOreoMilk[IndexOfRateupOreoMilk] = "12-99-03-0023"
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoMilk = IndexOfRateupOreoMilk + 1
EndIf
@ -9299,7 +9326,7 @@ EndIf
Var ListOfOreoAll[IndexOfRateupOreoAll] = "12-99-03-0024"
Var ListOfOreoTea[IndexOfRateupOreoTea] = "12-99-03-0024"
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoTea = IndexOfRateupOreoTea + 1
EndIf
@ -9312,7 +9339,7 @@ EndIf
Var ListOfOreoAll[IndexOfRateupOreoAll] = "12-99-03-0025"
Var ListOfOreoCoffee[IndexOfRateupOreoCoffee] = "12-99-03-0025"
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoCoffee = IndexOfRateupOreoCoffee + 1
EndIf
@ -9325,7 +9352,7 @@ EndIf
Var ListOfOreoAll[IndexOfRateupOreoAll] = "12-99-03-0026"
Var ListOfOreoMilk[IndexOfRateupOreoMilk] = "12-99-03-0026"
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoMilk = IndexOfRateupOreoMilk + 1
EndIf
@ -9338,7 +9365,7 @@ EndIf
Var ListOfOreoAll[IndexOfRateupOreoAll] = "12-99-03-0027"
Var ListOfOreoMilk[IndexOfRateupOreoMilk] = "12-99-03-0027"
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoMilk = IndexOfRateupOreoMilk + 1
EndIf
@ -9351,12 +9378,12 @@ EndIf
Var ListOfOreoAll[IndexOfRateupOreoAll] = "12-99-03-0028"
Var ListOfOreoMilk[IndexOfRateupOreoMilk] = "12-99-03-0028"
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoMilk = IndexOfRateupOreoMilk + 1
EndIf
; Hojicha oreo volcano
If $12-99-03-0029.Button = "Enable" Then
If $12-99-03-0028.Button = "Enable" Then
Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0029"
Var ListOfTea[IndexOfTea] = "12-99-03-0029"
Var IndexOfAllRandom = IndexOfAllRandom + 1
@ -9392,6 +9419,28 @@ EndIf
Var IndexOfTea = IndexOfTea + 1
EndIf
; THAI MILK TEA OREO SMOOTHIE
If $12-99-03-0040.Button = "Enable" Then
Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0040"
Var ListOfTea[IndexOfTea] = "12-99-03-0040"
Var IndexOfAllRandom = IndexOfAllRandom + 1
Var IndexOfTea = IndexOfTea + 1
Var ListOfOreoAll[IndexOfRateupOreoAll] = "12-99-03-0040"
Var ListOfOreoTea[IndexOfRateupOreoTea] = "12-99-03-0040"
Var IndexOfRateupOreoAll = IndexOfRateupOreoAll + 1
Var IndexOfRateupOreoTea = IndexOfRateupOreoTea + 1
EndIf
; THAI MILK TEA SMOOTHIE
If $12-99-03-0041.Button = "Enable" Then
Var ListOfAllRandom[IndexOfAllRandom] = "12-99-03-0041"
Var ListOfTea[IndexOfTea] = "12-99-03-0041"
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"
@ -9448,11 +9497,17 @@ EndIf
Var IndexOfCoffee = IndexOfCoffee + 1
EndIf
DEBUGVAR IndexOfAllRandom
DEBUGVAR IndexOfCoffee
DEBUGVAR IndexOfMilk
DEBUGVAR IndexOfTea
DEBUGVAR IndexOfRateupOreoAll
DEBUGVAR IndexOfRateupOreoCoffee
DEBUGVAR IndexOfRateupOreoMilk
DEBUGVAR IndexOfRateupOreoTea
If IndexOfAllRandom = 0 Then
Var SubRandAllButtonEnable = "Disable"
EndIf
@ -9467,11 +9522,29 @@ EndIf
Var SubRandTeaButtonEnable = "Disable"
EndIf
If IndexOfRateupOreoAll = 0 Then
Var SubRandAllButtonEnable = "Disable"
EndIf
If IndexOfRateupOreoCoffee = 0 Then
Var SubRandCoffButtonEnable = "Disable"
EndIf
If IndexOfRateupOreoMilk = 0 Then
Var SubRandMilkButtonEnable = "Disable"
EndIf
If IndexOfRateupOreoTea = 0 Then
Var SubRandTeaButtonEnable = "Disable"
EndIf
Var ResultRandomIndex = 0
Refresh
</EventOnClick>
</Button>