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

@ -29,18 +29,24 @@
</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"
@ -80,19 +86,29 @@
)
</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
@ -134,23 +150,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"
@ -190,20 +213,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"