merge tricer.ev

This commit is contained in:
wanlop run 2024-03-11 14:38:41 +07:00
commit f174d7530b
211 changed files with 134123 additions and 236 deletions

View file

@ -899,7 +899,7 @@
;Open PreviseXMLFileName2
DEBUGVAR OpenFromXML
Var FromPowerUpPro = 0
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml"
@ -6154,6 +6154,8 @@
AddData Cid TelNumPromotion IDNum PointCrm GetScore
EndIf
Var FromPowerUpPro = 0
If Seeker = "next" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
@ -7371,7 +7373,354 @@
; zone
; free energy drink
<Button>
<X> 673 </X>
<Y> 1785 </Y>
<State> eval(
If FromPowerUpPro = 1 Then
Var return = FreePowerup;
Else
Var return = "Invisible"
EndIf
) </State>
<Filename> Var( DirImage + "/bn_powerup1baht.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_powerup1baht.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
;Var Seeker = "curr"
Var StatementCheckMenu = "ProductCodeCheck=" + UserSelectProductCode
__CMD "statement" 0 StatementCheckMenu "-"
DEBUGVAR PriceDrinkTmp
;Var Seeker.PriceDrink = PriceDrinkTmp
Var PriceDrink = PriceDrinkTmp
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
If showCustomCoffee = "Enable" Then
If showCoffeeWater = "Enable" Then
If CustomCoffeeWaterState[0] = "PressForever" Then
Var topping7 = toppingID7index1
EndIf
If CustomCoffeeWaterState[1] = "PressForever" Then
Var topping7 = toppingID7index2
EndIf
If CustomCoffeeWaterState[2] = "PressForever" Then
Var topping7 = toppingID7index3
EndIf
If CustomCoffeeWaterState[3] = "PressForever" Then
Var topping7 = toppingID7index4
EndIf
If CustomCoffeeWaterState[4] = "PressForever" Then
Var topping7 = toppingID7index5
EndIf
Else
Var topping7 = 0
EndIf
If showCoffeeQuantity = "Enable" Then
If CustomCoffeeQuantityState[0] = "PressForever" Then
Var topping2 = toppingID2index1
EndIf
If CustomCoffeeQuantityState[1] = "PressForever" Then
Var topping2 = toppingID2index2
EndIf
If CustomCoffeeQuantityState[2] = "PressForever" Then
Var topping2 = toppingID2index3
EndIf
Else
If toppingID2index3 = "" Then
Else
Var topping2 = 0
EndIf
EndIf
If showCoffeeLevel = "Enable" Then
If CustomCoffeeLevelState[0] = "PressForever" Then
Var topping9 = toppingID9index1
EndIf
If CustomCoffeeLevelState[1] = "PressForever" Then
Var topping9 = toppingID9index2
EndIf
If CustomCoffeeLevelState[2] = "PressForever" Then
Var topping9 = toppingID9index3
EndIf
If CustomCoffeeLevelState[3] = "PressForever" Then
Var topping9 = toppingID9index4
EndIf
Else
Var topping9 = 0
EndIf
If showCoffeeTamping = "Enable" Then
If CustomCoffeeTampingState[0] = "PressForever" Then
Var topping8 = toppingID8index1
EndIf
If CustomCoffeeTampingState[1] = "PressForever" Then
Var topping8 = toppingID8index2
EndIf
If CustomCoffeeTampingState[2] = "PressForever" Then
Var topping8 = toppingID8index3
EndIf
Else
Var topping8 = 0
EndIf
Else
If toppingID2index3 = "" Then
Else
Var topping2 = 0
EndIf
Var topping7 = 0
Var topping8 = 0
Var topping9 = 0
Var topping10 = 0
EndIf
Var Seeker.topping1 = topping1
Var Seeker.topping2 = topping2
Var Seeker.topping3 = topping3
Var Seeker.topping6 = topping6
Var Seeker.topping7 = topping7
Var Seeker.topping8 = topping8
Var Seeker.topping9 = topping9
Var Seeker.topping10 = topping10
Var Seeker.get_a_straw = StrawState
Var Seeker.get_a_lid = LidState
DEBUGVAR Seeker.topping1
DEBUGVAR Seeker.topping2
DEBUGVAR Seeker.topping3
DEBUGVAR Seeker.topping6
DEBUGVAR Seeker.topping7
DEBUGVAR Seeker.topping8
DEBUGVAR Seeker.topping9
DEBUGVAR Seeker.topping10
DEBUGVAR Seeker.get_a_straw
DEBUGVAR Seeker.get_a_lid
DEBUGVAR LidState
DEBUGVAR StrawState
DEBUGVAR UserSelectProductCode
If StrawState = "Press" Then
Machine StrawOrder
Var LedLidBlink = "true"
EndIf
If LidState = "Press" Then
Machine LidOrder
Var LedLidBlink = "true"
Var bg_lidProblem_ST = "Enable"
Else
If LidState = "Disable" Then
Var bg_lidProblem_ST = "Disable"
Else
Var bg_lidProblem_ST = "Invisible"
EndIf
EndIf
If SelectDrinkType = 0 Then
Else
Var StrawState = "Enable"
Var LidState = "Enable"
EndIf
;
DEBUGVAR PromotionIDCurrentOrder
Var SelectDrink = UserSelectProductCode
Var Seeker.selected_a_drink = UserSelectProductCode
DEBUGVAR Seeker.selected_a_drink
; Set drink
If Seeker = "curr" Then
Topping "Select" UserSelectProductCode
; Set option toppinng and pack
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
Topping "Select6-ID" topping6
Topping "Select7-ID" topping7
Topping "Select8-ID" topping8
Topping "Select9-ID" topping9
Topping "Select10-ID" topping10
; Pack
Topping "Pack" ExtendDataCurr
Else
Topping "SetNextOrder" UserSelectProductCode
Topping "__select" UserSelectProductCode
; Set option toppinng and pack
Topping "__select1-id" topping1
Topping "__select2-id" topping2
Topping "__select3-id" topping3
Topping "__select6-id" topping6
Topping "__select7-id" topping7
Topping "__select8-id" topping8
Topping "__select9-id" topping9
Topping "__select10-id" topping10
; Pack
Topping "__pack" ExtendDataNext
Var NextUserSelectDrinkFromPaid = UserSelectProductCode
Var NextUserSelecttopping1Paid = topping1
Var NextUserSelecttopping2Paid = topping2
Var NextUserSelecttopping3Paid = topping3
Var NextUserSelecttopping6Paid = topping6
Var NextUserSelecttopping7Paid = topping7
Var NextUserSelecttopping8Paid = topping8
Var NextUserSelecttopping9Paid = topping9
Var NextUserSelecttopping10Paid = topping10
EndIf
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
Var Seeker.PictureDrink = PictureDrink
Var Seeker.showname = showname
DEBUGVAR MenuCautionImageStage0
DEBUGVAR CustomerFilterEnable
DEBUGVAR CustomerFilterType
GetLongTimeInMinute LastTimeClickOrder
If CART_COUNT = 0 Then
If UserSelectProductCode = "-" Then
Else
If SelectDrinkType = 1 Then
; Move to MenuReady
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
;Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
EndIf
If SelectDrinkType = 0 Then
Var high_light_drink_type = "Enable"
EndIf
Else
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
Else
If CART2_STATUS = "EMPTY" Then
Cart "AddMenuID" 2
Else
If CART3_STATUS = "EMPTY" Then
Cart "AddMenuID" 3
EndIf
EndIf
EndIf
Var CartUpdate = "true"
Var ButtonNext = "true"
EndIf
Var LastTimeClickOrder = 0
; policy
Open "ROOT/taobin_project/xml/event/powerup_free_1/page_powerup_consent.xml"
</EventClick>
</Button>
<Image>
<X> 0 </X>