THAI: fix free energy flow

This commit is contained in:
Pakin 2024-03-08 18:50:31 +07:00
parent c2d1a443d5
commit 2b8ed36806
7 changed files with 697 additions and 9 deletions

View file

@ -503,7 +503,7 @@
Var web_readyOK = web_ready Var web_readyOK = web_ready
Var web_telnumOK = web_telnum Var web_telnumOK = web_telnum
Var web_app_prepar = "true" Var web_app_prepar = "true"
; Handle penetrator ; Handle penetrator
@ -569,10 +569,12 @@
Var OpenFromXML = CurrentXMLFileName2 Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price Var PriceD1 = $-.Price
Var PriceD2 = 1 Var PriceD2 = 1
Var PriceD3 = $12-05-03-0034.Price Var OriginalPriceD2 = $12-05-02-0035.Price
Var PriceD3 = $-.Price
Var PD_CODE1 = "##-##-##-####" Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "12-05-02-0034" Var PD_CODE2 = "12-05-02-0034"
Var PD_CODE3 = "12-05-03-0034" Var PD_CODE3 = "##-##-##-####"
Var PD_STAGE_1 = "Disable2" Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = $12-05-02-0034.Button Var PD_STAGE_2 = $12-05-02-0034.Button
Var PD_STAGE_3 = "Disable2" Var PD_STAGE_3 = "Disable2"
@ -658,10 +660,12 @@
Var OpenFromXML = CurrentXMLFileName2 Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price Var PriceD1 = $-.Price
Var PriceD2 = 1 Var PriceD2 = 1
Var PriceD3 = $12-05-03-0035.Price Var OriginalPriceD2 = $12-05-02-0035.Price
Var PriceD3 = $-.Price
Var PD_CODE1 = "##-##-##-####" Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "12-05-02-0035" Var PD_CODE2 = "12-05-02-0035"
Var PD_CODE3 = "12-05-03-0035" Var PD_CODE3 = "##-##-##-####"
Var PD_STAGE_1 = "Disable2" Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = $12-05-02-0035.Button Var PD_STAGE_2 = $12-05-02-0035.Button
Var PD_STAGE_3 = "Disable2" Var PD_STAGE_3 = "Disable2"

View file

@ -28,6 +28,7 @@ Else
Var PepsiSecondCup30Enable = 0 Var PepsiSecondCup30Enable = 0
EndIf EndIf
Var EnableFreeEnergyDrink = "true"
If EnableFreeEnergyDrink = "true" Then If EnableFreeEnergyDrink = "true" Then
Var FreeEnergyDrink = 1 Var FreeEnergyDrink = 1

View file

@ -254,6 +254,14 @@ If BoxID = 172644 Then
Var ProPeachEnable = 1 Var ProPeachEnable = 1
EndIf EndIf
If BoxID = 176757 Then
Var ProBadValentineEnable = 0
Var PepsiSecondCup30Enable = 0
Var MondayBananaPro = 1
Var LipitPro = 1
Var FreeEnergyDrink = 1
EndIf
; Exclusive Box ; Exclusive Box

View file

@ -93,6 +93,14 @@
DEBUGVAR PromoPriceDrink DEBUGVAR PromoPriceDrink
EndIf EndIf
If FromPowerUpPro = 1 Then
Var PromoPriceDrink = PriceDrink
Var PriceDrink = OriginalPrice
DEBUGVAR PriceDrink
DEBUGVAR PromoPriceDrink
EndIf
;Var AdultFlag = 1 ;Var AdultFlag = 1
@ -340,7 +348,7 @@
If FreeEnergyDrink = 1 Then If FreeEnergyDrink = 1 Then
If SelectDrink = "12-05-02-0035" Then If SelectDrink = "12-05-02-0035" Then
Var PriceDiff = PriceDrink - 1 Var PriceDiff = PriceDrink - PromoPriceDrink
Var Seeker.VendingCode = "FIX1" Var Seeker.VendingCode = "FIX1"
Var Seeker.IntVendingCampaign = PriceDiff Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0 Var Seeker.FreeVendingCampaign = 0
@ -349,8 +357,8 @@
Var Seeker.VendingCampaignRI3 = PriceDiff Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = 1 Var Seeker.CampaignPPrice = 1
Else Else
If SelectDrink = "" Then If SelectDrink = "12-05-02-0034" Then
Var PriceDiff = PriceDrink - 1 Var PriceDiff = PriceDrink - PromoPriceDrink
Var Seeker.VendingCode = "FIX1" Var Seeker.VendingCode = "FIX1"
Var Seeker.IntVendingCampaign = PriceDiff Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0 Var Seeker.FreeVendingCampaign = 0

View file

@ -65,7 +65,7 @@
If FromPowerUpPro = 1 Then If FromPowerUpPro = 1 Then
If FreePowerup = "Enable" Then If FreePowerup = "Enable" Then
Open "ROOT/taobin_project/xml/page_topping_select8.xml" Open "ROOT/taobin_project/xml/page_topping_select7.xml"
EndIf EndIf
EndIf EndIf

View file

@ -7653,7 +7653,348 @@
; zone ; zone
; free energy drink
<Button>
<X> 673 </X>
<Y> 1785 </Y>
<State> FreePowerup </State>
<Filename> Var( DirImage + "/bn_powerupFree.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_powerupFree.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> <Image>
<X> 0 </X> <X> 0 </X>

View file

@ -5821,6 +5821,332 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <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 ; policy
Open "ROOT/taobin_project/xml/event/powerup_free_1/page_powerup_consent.xml" Open "ROOT/taobin_project/xml/event/powerup_free_1/page_powerup_consent.xml"