"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var CountUpBrewing = BrewTime - CountDownBrewing ;Var CountUpBrewing = 0 Var CountDownVideoTimeReload = AnimationVideoPlayTime Var CountDownVideoTime = 1 Var StepVideo = 1 Var PreviseStepVideo = 90 Var Timeout = 0 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_lid_straw_en" Var PictureEnd = "_en.png" Var BottomText = PicturePath + "text_bottom_eng.png" Var lid_straw_bg_iamge = DirImage + "/img4.png" If LidState = "Enable" Then Var lid_straw_bg_iamge = DirImage + "/img3.png" EndIf Else Var DirImage = "ROOT/taobin_project/image/page_lid_straw" Var PictureEnd = ".png" Var BottomText = PicturePath + "text_bottom_thai2.png" Var lid_straw_bg_iamge = DirImage + "/img4.png" If LidState = "Enable" Then Var lid_straw_bg_iamge = DirImage + "/img3.png" EndIf EndIf If InternationalEnable = 1 Then Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing/" Var PictureBegin = "txt_" Var PictureEnd = "_en.png" If SettingVideoBrewingUseCommon = 1 Then Var VideoPath = "/mnt/sdcard/coffeevending/taobin_project/inter/common/animation01/" Var VideoFileBegin = "TaoBin2_draft02_art" Var VideoFileEnd = ".mp4" Else ;inter-play-list Var VideoPath = "/mnt/sdcard/coffeevending/taobin_project/animation01/" Var VideoFileBegin = "TaoBin2_draft02_art" Var VideoFileEnd = ".mp4" EndIf Var PicturePath = CountryRootPath + "/image/page_doing/" Var PictureBegin = "txt_" Var PictureEnd = "_en.png" ;inter-has-alter-anim If CountryName = "UnitedArabEmirates Dubai" Then ;check LanguageShow If LanguageShow = "ENG" Then Var PicturePath = "ROOT/taobin_project/image/page_doing/" EndIf EndIf Else Var VideoPath = "/mnt/sdcard/coffeevending/taobin_project/animation01/" Var VideoFileBegin = "TaoBin2_draft02_art" Var VideoFileEnd = ".mp4" Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing/" Var PictureBegin = "txt_" EndIf Var VideoPlayFile = VideoPath Var VideoPlayFile = VideoPlayFile + VideoFileBegin Var VideoPlayFile = VideoPlayFile + "1" Var VideoPlayFile = VideoPlayFile + VideoFileEnd Var PictureFile = PicturePath Var PictureFile = PictureFile + PictureBegin Var PictureFile = PictureFile + "1" Var PictureFile = PictureFile + PictureEnd If Seeker.PayWithQR = 0 Then If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" If Seeker.TNumberTaobinMember = "" Then Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf EndIf If Seeker = "next" Then ;CoinBack If ChangeFlag2 = 0 Then If Seeker.PayWithQR = 0 Then DEBUGVAR TxRef1 Var PayDetail2 = ToppingDetail DEBUGVAR PayDetail DEBUGVAR PayDetail2 UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2 EndIf If CountryName = "UnitedArabEmirates Dubai" Then Var brewing3ContiInter = CountryRootPath + "/xml/page_brewing3Conti.lxml" Open brewing3ContiInter Else If New_Payment = 1 Then TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev" EndIf Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" EndIf Else Open "ROOT/taobin_project/xml/page_get_yourchange.xml" EndIf Else DEBUGVAR ChangeFlag2 If ChangeFlag2 = 0 Then If Seeker.PayWithQR = 0 Then DEBUGVAR TxRef1 Var PayDetail2 = ToppingDetail DEBUGVAR PayDetail DEBUGVAR PayDetail2 UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2 EndIf If InternationalEnable = 1 Then Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml" Open Brew3Inter Else If New_Payment = 1 Then TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev" EndIf Open "ROOT/taobin_project/xml/page_brewing3.xml" EndIf Else Open "ROOT/taobin_project/xml/page_get_yourchange.xml" EndIf EndIf Var LidState = Lid1Status ;Lid1Status Var StarwState = "Enable" If Lid1Status = "Disable" Then Var LidState = "Invisible" EndIf STRCONTAIN "9701" BrewParam IgnoreLidStraw DEBUGVAR BrewParam DEBUGVAR IgnoreLidStraw DEBUGVAR Service_LidStraw If IgnoreLidStraw = "true" Then Var IgnoreLidStraw = "false" SAVELOG "Ignore lid straw because recipe disable" If InternationalEnable = 1 Then Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml" Open Brew3Inter Else Open "ROOT/taobin_project/xml/page_brewing3.xml" EndIf EndIf If Service_LidStraw = "Disable" Then SAVELOG "Service_LidStraw" If InternationalEnable = 1 Then Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml" Open Brew3Inter Else Open "ROOT/taobin_project/xml/page_brewing3.xml" EndIf EndIf DEBUGVAR StrawAutoRelease1 Var UserPressButton = "false" SAVELOG "page_lid_straw.xml" If InternationalEnable = 1 Then Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml" Open Brew3Inter Else Open "ROOT/taobin_project/xml/page_brewing3.xml" EndIf 1000 If CountDownBrewing > 0 Then Var CountDownBrewing = CountDownBrewing - 1 EndIf Var ShowCountDownBrewing = BREW_CNT Var Timeout = Timeout + 1 If Timeout > 10 Then If InternationalEnable = 1 Then Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml" Open Brew3Inter Else Open "ROOT/taobin_project/xml/page_brewing3.xml" EndIf EndIf Refresh TimerReset ; remove by kong ; optimize new step advertise ; 751 413 page_doing_show_time_image ; XPosiShowCountDownBrew 470 End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf If MachineStage = "drink-failed" Then Var MachineState_Result = 2 EndIf If ChangeStatus = "payout-end" Then EndIf