Fix bug Topping 4

This commit is contained in:
kong 2022-05-19 11:03:07 +07:00
parent 4ae51cc71c
commit 50092d284a
14 changed files with 665 additions and 3404 deletions

View file

@ -7,6 +7,8 @@
<EventOpen>
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Var UserSeletedSugar = 0
Var y_topping_bg = 912
WEB "DISABLE"
@ -482,17 +484,14 @@
DEBUGVAR toppingID3price2
DEBUGVAR BrewParam
DEBUGVAR UserSeletedSugar
If BugFlag = 1 Then
Else
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
@ -581,219 +580,231 @@
;PressForever
Var sugar_default_flag = 0
If TOPPING1 = "Sugar" Then
If sugarKeto = "true" Then
Var StateImgKeto = "Enable"
Var BGSugar = "Invisible"
Else
Var BGSugar = "Enable"
Endif
Var ShiftSugarStep = 1
If UserSeletedSugar = 0 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState1 = "PressForever"
Var sugar_default_flag = 1
Var sugar_default_flag = 0
If TOPPING1 = "Sugar" Then
If sugarKeto = "true" Then
Var StateImgKeto = "Enable"
Var BGSugar = "Invisible"
Else
Var BGSugar = "Enable"
Endif
Var ShiftSugarStep = 1
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState1 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index4 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index5 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState1 = "PressForever"
EndIf
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
If TOPPING1 = "Powder Sugar" Then
If sugarKeto = "true" Then
Var StateImgKeto = "Enable"
Var BGSugar = "Enable"
Var h_block_of_sugar = 262
Else
Var BGSugar = "Enable"
EndIf
;Var BGSugar = "Enable"
Var ShiftSugarStep = 1
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState1 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index4 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index5 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState1 = "PressForever"
EndIf
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index4 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index5 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState1 = "PressForever"
EndIf
EndIf
If TOPPING1 = "Powder Sugar" Then
If sugarKeto = "true" Then
Var StateImgKeto = "Enable"
If TOPPING1 = "Sugar Premix 25" Then
Var BGSugar = "Enable"
Var h_block_of_sugar = 262
Else
Var ShiftSugarStep = 2
Var SugarState1 = "Disable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index4 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState2 = "PressForever"
EndIf
EndIf
If TOPPING1 = "Powder Sugar Premix 50" Then
Var BGSugar = "Enable"
EndIf
;Var BGSugar = "Enable"
Var ShiftSugarStep = 1
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var ShiftSugarStep = 3
Var SugarState1 = "Disable"
Var SugarState2 = "Disable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState3 = "PressForever"
EndIf
If toppingID1index1 = toppingID1Default Then
Var SugarState1 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index4 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If TOPPING1 = "Powder Sugar Premix 25" Then
Var BGSugar = "Enable"
Var ShiftSugarStep = 2
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index5 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState1 = "PressForever"
If toppingID1index4 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState2 = "PressForever"
EndIf
EndIf
EndIf
If TOPPING1 = "Sugar Premix 25" Then
Var BGSugar = "Enable"
Var ShiftSugarStep = 2
Var SugarState1 = "Disable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var ShowCollagenOnly = "Enable"
Var BugFlag = 1
If toppingID1index1 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
EndIf
Var topping1 = toppingID1Default
If toppingID1index2 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index4 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
Var ToppingGotoPayment = "false"
If sugar_default_flag = 0 Then
Var SugarState2 = "PressForever"
If BGSugar = "Enable" Then
If show_eng = "true" Then
Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3"
Else
Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3"
EndIf
EndIf
EndIf
If TOPPING1 = "Powder Sugar Premix 50" Then
Var BGSugar = "Enable"
Var ShiftSugarStep = 3
Var SugarState1 = "Disable"
Var SugarState2 = "Disable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState3 = "PressForever"
EndIf
EndIf
If TOPPING1 = "Powder Sugar Premix 25" Then
Var BGSugar = "Enable"
Var ShiftSugarStep = 2
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index4 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState2 = "PressForever"
EndIf
EndIf
Var ShowCollagenOnly = "Enable"
Var BugFlag = 1
Var topping1 = toppingID1Default
Else
EndIf
; End of UserSeletedSugar = 0
Var ToppingGotoPayment = "false"
If BGSugar = "Enable" Then
If show_eng = "true" Then
Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3"
Else
Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3"
EndIf
EndIf
Refresh
Var collagenShow = "true"
@ -821,7 +832,6 @@
Var showShotEnable = "Enable"
Var text_price_topping = "(+฿" + toppingID2price2
Var text_price_topping = "(+฿" + toppingID2price2
DEBUGVAR TOPPING2
Refresh
EndIf
@ -1383,16 +1393,24 @@
DEBUGVAR SugarState1
SAVELOG "SUGAR1"
If ShiftSugarStep = 1 Then
Var SugarState1 = "PressForever"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index1
EndIf
If SelectDrinkType = 0 Then
SAVELOG "drink type popup"
Var high_light_drink_type = "Enable"
Else
If ShiftSugarStep = 1 Then
Var SugarState1 = "PressForever"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index1
EndIf
Var UserSeletedSugar = 1
EndIf
DEBUGVAR topping1
Refresh
@ -1411,23 +1429,33 @@
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "SUGAR2"
DEBUGVAR SelectDrinkType
DEBUGVAR UserSeletedSugar
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "PressForever"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index2
EndIf
If SelectDrinkType = 0 Then
SAVELOG "drink type popup"
Var high_light_drink_type = "Enable"
Else
If ShiftSugarStep = 2 Then
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "PressForever"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index2
EndIf
Var SugarState2 = "PressForever"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index1
If ShiftSugarStep = 2 Then
Var SugarState2 = "PressForever"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index1
EndIf
Var UserSeletedSugar = 1
EndIf
DEBUGVAR topping1
@ -1448,30 +1476,38 @@
<EventClick>
SAVELOG "SUGAR3"
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "PressForever"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index3
EndIf
If SelectDrinkType = 0 Then
SAVELOG "drink type popup"
Var high_light_drink_type = "Enable"
Else
If ShiftSugarStep = 2 Then
Var SugarState2 = "Enable"
Var SugarState3 = "PressForever"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "PressForever"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 3 Then
If ShiftSugarStep = 2 Then
Var SugarState2 = "Enable"
Var SugarState3 = "PressForever"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index2
EndIf
Var SugarState3 = "PressForever"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index1
If ShiftSugarStep = 3 Then
Var SugarState3 = "PressForever"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index1
EndIf
Var UserSeletedSugar = 1
EndIf
DEBUGVAR topping1
@ -1491,32 +1527,39 @@
<EventClick>
SAVELOG "SUGAR4"
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "PressForever"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index4
If SelectDrinkType = 0 Then
SAVELOG "drink type popup"
Var high_light_drink_type = "Enable"
Else
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "PressForever"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 2 Then
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "PressForever"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 3 Then
Var SugarState3 = "Enable"
Var SugarState4 = "PressForever"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index2
EndIf
Var UserSeletedSugar = 1
EndIf
If ShiftSugarStep = 2 Then
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "PressForever"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 3 Then
Var SugarState3 = "Enable"
Var SugarState4 = "PressForever"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index2
EndIf
DEBUGVAR topping1
Refresh
</EventClick>
@ -1534,29 +1577,37 @@
<EventClick>
SAVELOG "SUGAR5"
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "PressForever"
Var topping1 = toppingID1index5
EndIf
If SelectDrinkType = 0 Then
SAVELOG "drink type popup"
Var high_light_drink_type = "Enable"
Else
If ShiftSugarStep = 2 Then
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "PressForever"
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "PressForever"
Var topping1 = toppingID1index5
EndIf
If ShiftSugarStep = 3 Then
If ShiftSugarStep = 2 Then
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "PressForever"
Var topping1 = toppingID1index4
EndIf
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "PressForever"
Var topping1 = toppingID1index3
If ShiftSugarStep = 3 Then
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "PressForever"
Var topping1 = toppingID1index3
EndIf
Var UserSeletedSugar = 1
EndIf
DEBUGVAR topping1
@ -2086,6 +2137,75 @@
SAVELOG "USER press next ( topping ) - new"
If SugarState1 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState2 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState3 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState3 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState4 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index2
EndIf
EndIf
If SugarState5 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index5
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index3
EndIf
EndIf
Var Seeker.topping1 = topping1
Var Seeker.topping2 = topping2
Var Seeker.topping3 = topping3