DUBAI: update Pepsi theme

This commit is contained in:
Pakin 2024-11-18 11:06:00 +07:00
parent 45312d6ead
commit 77a21f1e57
112 changed files with 9344 additions and 4958 deletions

View file

@ -6,6 +6,12 @@
<Volume> SoundVolume </Volume>
<EventOpen>
DEBUGVAR UsePepsiTheme
If UsePepsiTheme = 1 Then
Open "ROOT/taobin_project/inter/uae_dubai/xml/page_brewing3Conti_blue.lxml"
EndIf
;
Var DirImageDoing = "ROOT/taobin_project/inter/uae_dubai/image/page_doing"
@ -21,7 +27,7 @@
SAVELOG "page_brewing3Conti.lxml"
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
@ -55,12 +61,12 @@
Var EnableSelectMenuBetweenBrew = "Invisible"
EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then
If EnableSelectMenuBetweenBrew = "Enable" Then
Var EnableSelectMenuBetweenBrewBlink = "Enable"
Else
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
EndIf
Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png"
If Seeker.thankLidFlag = 1 Then
@ -68,8 +74,8 @@
Var LidStateX = "Invisible"
EndIf
Var TimeoutWaitPay = 10
Var TimeoutWaitPay = 10
Var PayReference = ""
Var PayType = "newpay"
Var MachineState_Result = 0
@ -92,11 +98,11 @@
DEBUGVAR Seeker.ServiceAmount2
DEBUGVAR Seeker.CodeNumber
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
; On open move from page_brewing3.lxml
Var countClick2 = 0
@ -106,7 +112,7 @@
Var AddData = 0
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.PointTaobinStr
If Seeker.TNumberTaobinMember = "" Then
@ -116,12 +122,12 @@
Var VendingTSIDTmp1 = VendingTSIDTmp
Else
Var VendingTSIDTmp1 = ""
EndIf
EndIf
Var BmiYear = Seeker.PointTaobinStr
Var PointCrm = ""
If Seeker.FromConsent = 1 Then
If Seeker.FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSIDTmp1
@ -135,13 +141,13 @@
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
Var VendingTSIDTmp1 = ""
EndIf
If Seeker.VendingCode = "MKFOO" Then
Var AddData = 0
EndIf
EndIf
If LedLidBlink = "true" Then
Var LedLidBlink = "no"
@ -165,7 +171,7 @@
Var LidStateX = "Invisible"
If Seeker.CreditCard = 1 Then
Var EnableSelectMenuBetweenBrew = "Invisible"
Var EnableSelectMenuBetweenBrew = "Invisible"
EndIf
Var CreditCardVoid = 0
@ -180,9 +186,9 @@
If CreditCardVoid = 1 Then
Var ChangeOK = 2
EndIf
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
@ -195,11 +201,11 @@
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
@ -221,31 +227,31 @@
Var ActionOKCase = 2
SAVELOG "back_to_main from line > 142."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 147."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
If waitAckPay = 1 Then
If waitAckPay = 1 Then
SAVELOG "waitAckPay = 1"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
</EventActionOk>
<EventActionError>
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
@ -258,11 +264,11 @@
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
@ -284,23 +290,23 @@
Var ActionOKCase = 2
SAVELOG "back_to_main from line > 204."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 173."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
</EventActionError>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
DEBUGVAR IMG_CNT
@ -328,13 +334,13 @@
If Timeout = 4 Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
EndIf
; run test;
;If CountDownBrewing = 40 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;If CountDownBrewing = 40 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
If CountDownBrewing = 0 Then
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
Var ShowCountDownBrewing = CountDownBrewing
@ -342,9 +348,9 @@
If Timeout > 540 Then
SAVELOG "back_to_main from line > 217."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
If Timeout > 480 Then
Var MachineState_Result = 2
@ -354,25 +360,25 @@
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If waitAckPay = 1 Then
If waitAckPay = 1 Then
If Timeout > 60 Then
Var VendingTSIDTmp1 = ""
SAVELOG "waitAckPay = 1 tineout > 60"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If waitAckPay = 2 Then
If waitAckPay = 2 Then
If Timeout > TimeoutWaitPay Then
If Seeker.CodeChannel = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
DEBUGVAR SessionID2
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
@ -380,11 +386,11 @@
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
@ -404,9 +410,9 @@
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
EndIf
SAVELOG "back_to_main from line > 309."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
EndIf
@ -435,7 +441,7 @@
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
@ -451,18 +457,18 @@
Var SuggestID = ""
Var SessionID2 = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;If Seeker.CodeChannel = 0 Then
;If Seeker.CodeChannel = 0 Then
; SAVELOG "back_to_main from line > 315."
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
;EndIf
Var waitAckPay = 2
Var TimeoutWaitPay = 45
Var TimeoutWaitPay = 45
Var Timeout = 5
Var ActionOKCase = 1
@ -491,7 +497,7 @@
EndIf
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
@ -500,23 +506,23 @@
;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var SessionID2 = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;If Seeker.CodeChannel = 0 Then
;If Seeker.CodeChannel = 0 Then
; SAVELOG "back_to_main from line > 357."
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
;EndIf
Var waitAckPay = 2
Var TimeoutWaitPay = 45
Var TimeoutWaitPay = 45
Var Timeout = 5
Var ActionOKCase = 1
@ -540,7 +546,7 @@
EndIf
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
@ -553,18 +559,18 @@
Var DEE = PayDetail
PAYEXT SVT ACC VendingTSIDTmp DEE
CoinBack
Var ActionOKCase = 1
If Seeker.CodeChannel = 0 Then
If Seeker.CodeChannel = 0 Then
SAVELOG "back_to_main from line > 391."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Var waitAckPay = 2
Var TimeoutWaitPay = 45
Var TimeoutWaitPay = 45
Var Timeout = 5
@ -581,13 +587,13 @@
If MachineState_Result = 1 Then
DEBUGVAR PaySuccessWithDaemonTask
If waitAckPay = 0 Then
Var waitAckPay = 0
If waitAckPay = 0 Then
Var waitAckPay = 0
Var Timeout = 0
Var ProcessText = ""
Var ProcessText = ""
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
@ -597,7 +603,7 @@
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
@ -625,18 +631,18 @@
Var SuggestID = ""
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
If GetFreeFromError = 1 Then
Var Seeker.CodeChannel = 1
Var Seeker.CodeChannel = 1
Var Seeker.VendingCode = "C48"
Var Seeker.CodeNumber = "0000000000"
Var VendingCampaign = ServiceAmount2
@ -659,7 +665,7 @@
Var SessionID2 = SessionID2 + "/"
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
@ -667,26 +673,26 @@
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
EndIf
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
Else
;no wait ack pay
Var waitAckPay = 0
Var waitAckPay = 0
Var SVT = "coffee"
Var ACC = "0899999999"
@ -698,12 +704,12 @@
EndIf
PAYEXT SVT ACC VendingTSIDTmp DEE
CoinBack
EndIf
EndIf
__CMD "clear-stock-data" 0 "-" "-"
@ -712,8 +718,8 @@
If waitAckPay = 0 Then
SAVELOG "waitAckPay = 0 Timeout"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
@ -741,18 +747,18 @@
EndIf
If Seeker.PayWithQR = 0 Then
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
Var ChangeFlag = 1
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else
If Seeker.CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ChangeFlag = 1
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
@ -762,9 +768,9 @@
Else
Change ServiceAmount2
EndIf
EndIf
EndIf
Else
@ -779,9 +785,9 @@
EndIf
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ChangeFlag = 1
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
If Seeker.StoreCreditFlag = 1 Then
@ -789,7 +795,7 @@
Else
Change ServiceAmount3
EndIf
EndIf
Else
Var ChangeOK = 2
@ -803,23 +809,23 @@
Var ChangeOK = 3
EndIf
;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml"
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml"
;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
EndIf
EndIf
@ -853,13 +859,13 @@
Var EnableSelectMenuBetweenBrew = "Invisible"
EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then
If EnableSelectMenuBetweenBrewBlink = "Enable" Then
If EnableSelectMenuBetweenBrew = "Enable" Then
If EnableSelectMenuBetweenBrewBlink = "Enable" Then
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
Else
Var EnableSelectMenuBetweenBrewBlink = "Enable"
EndIf
Else
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
EndIf
@ -870,7 +876,7 @@
Var CountUpBrewing = CountUpBrewing + 1
Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
If PreviseStepVideo = SlotVideo Then
;SAVELOG SlotVideo
Else
@ -880,9 +886,9 @@
;SAVELOG CountUpBrewing
;Var CountDownVideoTime = CountDownVideoTimeReload
Var StepVideo = SlotVideo + 2
;SAVELOG StepVideo
If StepVideo = 1 Then
@ -931,7 +937,7 @@
Var PictureFile = PictureFile + PictureBegin
Var PictureFile = PictureFile + videoID
Var PictureFile = PictureFile + PictureEnd
DEBUGVAR VideoPlayFile
DEBUGVAR PictureFile
EndIf
@ -940,7 +946,7 @@
EndIf
If IgnoreNetCore = "true" Then
If IgnoreNetCore = "true" Then
If CountDownBrewing = 0 Then
SAVELOG "CountDownBrewing = 0"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
@ -966,23 +972,23 @@
Var ButtonGamePressToPlayState = "Invisible"
Var Game01Enable = 0
EndIf
Refresh
TimerReset
</EventTimeout>
</EventTimeout>
<EventMachine>
</EventMachine>
; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
If ChangeStatus = "payout-end" Then
If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
@ -1066,9 +1072,9 @@
<State>EnableSelectMenuBetweenBrew</State>
<Filename> next_pic_bn </Filename>
<FilenamePress> next_pic_bp </FilenamePress>
<EventClick>
<EventClick>
If MachineState_Result = 0 Then
SAVELOG "User click next button"
Var Seeker = "next"
@ -1076,9 +1082,9 @@
CoinPause
Var PayCredit = 0
Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
</EventClick>
</EventClick>
<Language>
<X> 0 </X>
<Y> 20 </Y>
@ -1103,7 +1109,7 @@
<X> 526 </X>
<Y> 1680 </Y>
<Width> 241 </Width>
<Height> 204 </Height>
<Height> 204 </Height>
<State> ButtonGamePressToPlayState </State>
<EventClick>
DEBUGVAR Game01Enable
@ -1121,9 +1127,9 @@
<Y> 500 </Y>
<State>bg_strawlid_ST</State>
<Filename> bg_strawlid </Filename>
<EventClick>
<EventClick>
</EventClick>
</EventClick>
</Button>
; straw left
@ -1135,14 +1141,14 @@
<Filename> "ROOT/taobin_project/image/topping2/bn_straw.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_straw.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_straw.png" </FilenameDisable>
<EventClick>
<EventClick>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;Var StrawStateX = "Enable"
;Var StrawStateX = "Enable"
Else
Var StrawStateX = "Press"
Var Seeker.strawAction = 1
EndIf
Refresh
</EventClick>
@ -1156,10 +1162,10 @@
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
<EventClick>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;Var StrawStateX = "Enable"
;Var StrawStateX = "Enable"
Else
Var StrawStateX = "Press"
Var Seeker.strawAction = 1
@ -1179,18 +1185,18 @@
<Filename> "ROOT/taobin_project/image/topping2/bn_lid.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_lid.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_lid.png" ) </FilenameDisable>
<EventClick>
<EventClick>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID pic"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
Var Seeker.lidAction = 1
EndIf
DEBUGVAR SugarState1
Refresh
@ -1208,19 +1214,19 @@
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
<EventClick>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID cb"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
Var Seeker.lidAction = 1
EndIf
Refresh
EndIf
</EventClick>
@ -1233,7 +1239,7 @@
<State> ButtonGameCountDownState </State>
<Filename> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </FilenamePress>
<EventClick>
<EventClick>
</EventClick>
<Text>