"Enable" 1080 1920 "0xeae6e1" SoundVolume RootLayoutVisible 3 "hide" Var waitAckPay = 0 Var ChangeFlag = 0 If New_Payment = 1 Then Open "ROOT/taobin_project/xml/page_NewBrewing3Conti.xml" EndIf If InternationalEnable = 1 Then If CountryName = "Thailand" Then ;do not thing Else Var Brewing3ContiXMLFile = CountryRootPath + "/xml/page_brewing3Conti.xml" DEBUGVAR Brewing3ContiXMLFile Open Brewing3ContiXMLFile EndIf EndIf Var ActionOKCase = 0 Var Seeker = "curr" If PayCredit = 0 Then Var PayCredit = 1 CoinBack EndIf ;Var PayCredit = 0 ;inter-image 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" Else Var DirImage = "ROOT/taobin_project/image/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping2" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping_mmr" Var IMG_CNT = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png" EndIf If LanguageShow = "MSC" Then Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping_msc" EndIf If LanguageObjectShow = "Enable" Then Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/" Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png" EndIf Var next_pic_bn = DirImage + "/bn_add_order.png" Var next_pic_bp = DirImage + "/bp_add_order.png" Var text_next_order = DirImage + "/text_next_order.png" Var topup_credit_bn = DirImage + "/bn_topup_credit.png" Var topup_credit_bp = DirImage + "/bp_topup_credit.png" Var EnableTopupCreditBetweenBrew = "Enable" If NextOrder = "true" Then Var EnableSelectMenuBetweenBrew = "Invisible" Else Var EnableSelectMenuBetweenBrew = "Enable" EndIf If GetFreeFromError = 1 Then Var EnableSelectMenuBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" EndIf If EnableSelectMenuBetweenBrew = "Enable" Then Var EnableSelectMenuBetweenBrewBlink = "Enable" Else Var EnableSelectMenuBetweenBrewBlink = "Invisible" EndIf Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png" If Seeker.thankLidFlag = 1 Then Var bg_strawlid = DirImage2 + "/bg_strawSmall.png" Var LidStateX = "Invisible" EndIf Var TimeoutWaitPay = 10 Var PayReference = "" Var PayType = "newpay" Var MachineState_Result = 0 If LastMakeDrinkResult = "success" Then Var MachineState_Result = 1 EndIf If LastMakeDrinkResult = "fail" Then Var MachineState_Result = 2 EndIf Var ExtendData = Seeker.ExtendData Var SelectDrink = Seeker.selected_a_drink Var ServiceAmount2 = Seeker.ServiceAmount2 DEBUGVAR Seeker DEBUGVAR Seeker.selected_a_drink DEBUGVAR Seeker.ServiceAmount2 DEBUGVAR Seeker.CodeNumber Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData ; On open move from page_brewing3.xml Var countClick2 = 0 Var Timeout = 0 Var PrintCoinAmount = 0 Var AddData = 0 DEBUGVAR Seeker.TNumberTaobinMember DEBUGVAR Seeker.PointTaobinStr If Seeker.TNumberTaobinMember = "" Then Else If Seeker.PayWithQR = 1 Then Var VendingTSIDTmp1 = VendingTSIDTmp Else Var VendingTSIDTmp1 = "" EndIf Var BmiYear = Seeker.PointTaobinStr Var PointCrm = "" If Seeker.FromConsent = 1 Then Var PointCrm = "pdpa1" EndIf Var GetScore = VendingTSIDTmp1 If Seeker.TaobinErrorNetwork = 0 Then Var Cid = 11 Var AddData = 1 ;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore Else Var PointCrm = "" Var Cid = 14 Var AddData = 1 ;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore EndIf Var VendingTSIDTmp1 = "" EndIf If Seeker.VendingCode = "MKFOO" Then Var AddData = 0 EndIf If MyMintEnable = 1 Then If FromMyMintPro = 1 Then Var AddData = 0 EndIf EndIf If ProBadValentineEnable = 1 Then If FromBadValentinePro = 1 Then Var AddData = 0 EndIf EndIf If LipitPro = 1 Then If FromLipitPro = 1 Then If Seeker.CodeChannel = 1 Then If Seeker.CollectPointMain = 1 Then Else Var AddData = 0 EndIf EndIf EndIf EndIf If LedLidBlink = "true" Then Var LedLidBlink = "no" LED LedDoorLid Blink 255 255 255 255 EndIf Var CreditReference = Seeker.CreditReferenceTmp Var VendingDiscount = Seeker.VendingDiscount Var VendingCampaign = Seeker.VendingCampaign Var TxReference = Seeker.TxRef1 DEBUGVAR TxReference Var DirImage = "ROOT/taobin_project/image/complete/" Var next_pic_bg = DirImage + "/Preparing.png" Var bg_strawlid_ST = "Invisible" Var bg_strawProblem_ST = "Invisible" Var StrawStateX = "Invisible" Var LidStateX = "Invisible" If Seeker.CreditCard = 1 Then Var EnableSelectMenuBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" EndIf If MachineState_Result > 0 Then Var EnableTopupCreditBetweenBrew = "Invisible" EndIf Var CreditCardVoid = 0 DEBUGVAR ButtonGameCountDownState If CreditCardVoid = 1 Then Var ChangeOK = 2 EndIf If ActionOKCase = 1 Then If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber = "0899999999" Var ServiceType = "coffee" Var ECommerce = "" Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 Var ActionOKCase = 2 SAVELOG "back_to_main from line > 142." Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Else SAVELOG "back_to_main from line > 147." Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Else EndIf If waitAckPay = 1 Then SAVELOG "waitAckPay = 1" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf If ActionOKCase = 1 Then If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber = "0899999999" Var ServiceType = "coffee" Var ECommerce = "" Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 Var ActionOKCase = 2 SAVELOG "back_to_main from line > 204." Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Else SAVELOG "back_to_main from line > 173." Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Else EndIf 1000 Var Timeout = Timeout + 1 If MOVE_CUP_TO_DOOR = "true" Then Var MOVE_CUP_TO_DOOR = "false" EndIf If BREW_COUNT_DOWN_FROM_APP = "on" Then Var CountDownBrewing = BREW_CNT Else If CountDownBrewing > 0 Then Var CountDownBrewing = CountDownBrewing - 1 EndIf Endif If Simulation = "true" Then If CountDownBrewing = 0 Then ;Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf 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" ;EndIf If CountDownBrewing = 0 Then ;Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf Var ShowCountDownBrewing = CountDownBrewing If FrontDoorVersionInt > 19999 Then TRY "ROOT/taobin_project/xml/process/ledv4_process.ev" LEDv2 GEN4_POS On 100 20 0 LED_TIMES LED_DIM_TIMES EndIf If Timeout > 540 Then SAVELOG "back_to_main from line > 217." Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf If Timeout > 480 Then Var MachineState_Result = 2 EndIf If ChangeFlag = 1 Then Var ChangeTimeout = ChangeTimeout + 1 EndIf If waitAckPay = 1 Then If Timeout > 60 Then Var VendingTSIDTmp1 = "" SAVELOG "waitAckPay = 1 tineout > 60" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf If waitAckPay = 2 Then If Timeout > TimeoutWaitPay Then If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber = "0899999999" Var ServiceType = "coffee" Var ECommerce = "" Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" 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" EndIf EndIf If ChangeOK = 2 Then If ActionOKCase = 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 If HURR_FOREVER = "S:0" Then Var HURR_FOREVER = "F:1303" EndIf Var PayDetail = "2/" + HURR_FOREVER 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/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 = "" Var PayDetail2 = Seeker.PayDetail2 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 315." ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ;EndIf Var waitAckPay = 2 Var TimeoutWaitPay = 45 Var Timeout = 5 Var ActionOKCase = 1 EndIf EndIf If ChangeTimeout > 30 Then If ActionOKCase = 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 If HURR_FOREVER = "S:0" Then Var HURR_FOREVER = "F:1303" EndIf Var PayDetail = "2/" + HURR_FOREVER 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/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 = "" Var PayDetail2 = Seeker.PayDetail2 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 357." ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ;EndIf Var waitAckPay = 2 Var TimeoutWaitPay = 45 Var Timeout = 5 Var ActionOKCase = 1 EndIf EndIf If ChangeOK = 3 Then If ActionOKCase = 0 Then Var SVT = "coffee" Var ACC = "0899999999" If Seeker.TNumberTaobinMember = "" Then Else Var ACC = Seeker.TNumberTaobinMember EndIf If HURR_FOREVER = "S:0" Then Var HURR_FOREVER = "F:1303" EndIf Var PayDetail = "2/" + HURR_FOREVER Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel Var DEE = PayDetail PAYEXT SVT ACC VendingTSIDTmp DEE CoinBack Var ActionOKCase = 1 If Seeker.CodeChannel = 0 Then SAVELOG "back_to_main from line > 391." Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Var waitAckPay = 2 Var TimeoutWaitPay = 45 Var Timeout = 5 EndIf EndIf If MachineState_Result = 1 Then ;Var MachineState_Result = 2 EndIf If MachineState_Result = 1 Then DEBUGVAR PaySuccessWithDaemonTask If waitAckPay = 0 Then Var waitAckPay = 0 Var Timeout = 0 Var ProcessText = "" 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 If AddData = 1 Then Var Cid = 26 DEBUGVAR "Brewing3Conti" DEBUGVAR Seeker DEBUGVAR Seeker.UseGet15Discount If NewCollectPoint = 1 Then If Seeker.UseGet15Discount = 1 Then Var Cid = 39 Else Var Cid = 40 Var PreviousSeeker.UseGetDrink5Bath = 0 EndIf EndIf AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore EndIf Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var PayDetail = "2/" + HURR_FOREVER 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.VendingCode = "C48" Var Seeker.CodeNumber = "0000000000" Var VendingCampaign = ServiceAmount2 EndIf If Seeker.PayWithQR = 0 Then If Seeker.CodeChannel = 1 Then Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + "" Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + Seeker.VendingCode Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + SelectDrink Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + BoxID Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + "S" Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + Seeker.CodeNumber Var SessionID2 = SessionID2 + "/" If Seeker.CreditCard = 1 Then CashlessReq SUCCESS "" ;CashlessReq FAIL "" EndIf Var PayDetail2 = Seeker.PayDetail2 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else If Seeker.CreditCard = 1 Then CashlessReq SUCCESS "" ;CashlessReq FAIL "" EndIf Var PayDetail2 = Seeker.PayDetail2 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate EndIf Else ;no wait ack pay Var waitAckPay = 0 Var SVT = "coffee" Var ACC = "0899999999" Var DEE = PayDetail If Seeker.TNumberTaobinMember = "" Then Else Var ACC = Seeker.TNumberTaobinMember EndIf PAYEXT SVT ACC VendingTSIDTmp DEE CoinBack EndIf EndIf __CMD "clear-stock-data" 0 "-" "-" Var ServiceSuccess = "yes" If waitAckPay = 0 Then SAVELOG "waitAckPay = 0 Timeout" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf If MachineState_Result = 2 Then SAVELOG MachineStage If ErrTimeout = 0 Then Var ErrTimeout = 1 If AddData = 1 Then Var Cid = 26 If NewCollectPoint = 1 Then If Seeker.UseGet15Discount = 1 Then Var Cid = 39 Else Var Cid = 40 Var PreviousSeeker.UseGetDrink5Bath = 0 EndIf EndIf AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore EndIf If Seeker.PayWithQR = 0 Then If Seeker.CreditCard = 1 Then CashlessReq FAIL "" Var ChangeFlag = 1 Var CreditCardVoid = 1 Else If Seeker.CodeChannel = 0 Then If ChangeFlag = 0 Then Var ChangeFlag = 1 If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 2 Else If GetFreeFromError = 1 Then Var ChangeOK = 2 Else Change ServiceAmount2 EndIf EndIf EndIf Else If Seeker.VendingCode = "MKFOO" Then Var Cid = 33 Var PointCrm = "0" Var GetScore = "1" Var TelephoneNumberx = "0899999999" AddData Cid Seeker.TNumberTaobinMember Seeker.CodeNumber PointCrm GetScore Var Seeker.CodeChannel = 0 EndIf If CoinAmount > 0 Then If ChangeFlag = 0 Then Var ChangeFlag = 1 Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 2 Else Change ServiceAmount3 EndIf EndIf Else Var ChangeOK = 2 EndIf EndIf EndIf Else 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 DEBUGVAR LastMakeDrinkResult DEBUGVAR MachineStage If LastMakeDrinkResult = "success" Then Var MachineState_Result = 1 EndIf If LastMakeDrinkResult = "fail" Then Var MachineState_Result = 2 EndIf If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf If MachineStage = "drink-failed" Then If RoadShow = "true" Then Open "ROOT/taobin_project/xml/page_back_to_error.xml" Else Var MachineState_Result = 2 EndIf EndIf If MachineState_Result > 0 Then Var EnableSelectMenuBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" EndIf If EnableSelectMenuBetweenBrew = "Enable" Then If EnableSelectMenuBetweenBrewBlink = "Enable" Then Var EnableSelectMenuBetweenBrewBlink = "Invisible" Else Var EnableSelectMenuBetweenBrewBlink = "Enable" EndIf Else Var EnableSelectMenuBetweenBrewBlink = "Invisible" EndIf DEBUGVAR CountUpBrewing ; animation video loop If AnimationOn = "true" Then Var CountUpBrewing = CountUpBrewing + 1 Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime If PreviseStepVideo = SlotVideo Then ;SAVELOG SlotVideo Else Var PreviseStepVideo = SlotVideo ;SAVELOG PreviseStepVideo ;SAVELOG SlotVideo ;SAVELOG CountUpBrewing ;Var CountDownVideoTime = CountDownVideoTimeReload Var StepVideo = SlotVideo + 2 ;SAVELOG StepVideo If StepVideo = 1 Then Var videoID = VideoID1 EndIf If StepVideo = 2 Then Var videoID = VideoID2 EndIf If StepVideo = 3 Then Var videoID = VideoID3 EndIf If StepVideo = 4 Then Var videoID = VideoID4 EndIf If StepVideo = 5 Then Var videoID = VideoID5 EndIf If StepVideo = 6 Then Var videoID = VideoID6 EndIf If StepVideo = 7 Then Var videoID = VideoID7 EndIf If StepVideo = 8 Then Var videoID = VideoID8 EndIf If StepVideo = 9 Then Var videoID = VideoID9 EndIf ;SAVELOG videoID If videoID = 0 Then Else If videoID = "---" Then Else Var VideoPlayFile = VideoPath Var VideoPlayFile = VideoPlayFile + VideoFileBegin Var VideoPlayFile = VideoPlayFile + videoID Var VideoPlayFile = VideoPlayFile + VideoFileEnd Var PictureFile = PicturePath Var PictureFile = PictureFile + PictureBegin Var PictureFile = PictureFile + videoID Var PictureFile = PictureFile + PictureEnd DEBUGVAR VideoPlayFile DEBUGVAR PictureFile EndIf EndIf EndIf EndIf If IgnoreNetCore = "true" Then If CountDownBrewing = 0 Then SAVELOG "CountDownBrewing = 0" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf If ButtonGameCountDown > 0 Then If ButtonGameCountDown = 1 Then Var ButtonGameCountDownState = "Invisible" Var ButtonGamePressToPlayState = "Enable" EndIf Var ButtonGameCountDown = ButtonGameCountDown - 1 DEBUGVAR ButtonGameCountDown EndIf DEBUGVAR BREW_CNT DEBUGVAR ButtonGamePressToPlayState If BREW_CNT > 60 Then Else Var ButtonGamePressToPlayState = "Invisible" Var Game01Enable = 0 EndIf ;include="ROOT/taobin_project/inc/timeout_lid_and_straw_step.inc" Refresh TimerReset ; this copy in file menu_brew2.xml and menu_lid_straw.xml If ChangeStatus = "payout-end" Then If ChangeFlag = 1 Then Var ChangeOK = 2 EndIf EndIf ;include="ROOT/taobin_project/inc/video.inc" 60 1290 PictureFile ; ; 60 ; 1649 ; BottomText ; 0 1655 EnableSelectMenuBetweenBrew text_next_order 835 1735 EnableSelectMenuBetweenBrewBlink "ROOT/taobin_project/image/page_payment/arrow_1.png" ; 751 413 IMG_CNT ; XPosiShowCountDownBrew 470 End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing 816 429 LanguageObjectShow 000405 941 518 LanguageObjectShow 000406 792 1787 EnableSelectMenuBetweenBrew next_pic_bn next_pic_bp If MachineState_Result = 0 Then SAVELOG "User click next button" Var Seeker = "next" Var MultiPayEnable = "false" CoinPause Var PayCredit = 0 Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf 262 1787 EnableTopupCreditBetweenBrew topup_credit_bn topup_credit_bp If MachineState_Result = 0 Then If NextOrder = "true" Then Var topupCreditWithCash = "Disable" Var SeekerTmp = "next" Var TelephoneNumber = SeekerTmp.TNumberTaobinCredit Var PayCredit = 1 Else Var topupCreditWithCash = "Enable" Var SeekerTmp = "curr" Var TelephoneNumber = SeekerTmp.TNumberTaobinCredit CoinPause Var PayCredit = 0 EndIf SAVELOG "User click topup-credit button" Var Seeker = "topupCredit" If TelephoneNumber = "" Then Open "ROOT/taobin_project/xml/page_topup_credit.xml" Else Open "ROOT/taobin_project/xml/page_topup_credit-ChooseNumber.xml" EndIf EndIf 526 1680 241 204 ButtonGamePressToPlayState "ROOT/taobin_project/app/game/TAMATIAN-01.gif" 526 1680 241 204 ButtonGamePressToPlayState DEBUGVAR Game01Enable SAVELOG "Press play game conti" Var Game01Enable = 0 Var ButtonGamePressToPlayState = "Invisible" RunApp "com.NDF.taobin" 10 500 bg_strawlid_ST bg_strawlid ; straw left 50 572 StrawStateX "No" "ROOT/taobin_project/image/topping2/bn_straw.png" "ROOT/taobin_project/image/topping2/bp_straw.png" "ROOT/taobin_project/image/topping2/bd_straw.png" SAVELOG "Click straw cb" If StrawStateX = "Press" Then ;Var StrawStateX = "Enable" Else Var StrawStateX = "Press" Var Seeker.strawAction = 1 EndIf Refresh 377 579 StrawStateX "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) SAVELOG "Click straw cb" If StrawStateX = "Press" Then ;Var StrawStateX = "Enable" Else Var StrawStateX = "Press" Var Seeker.strawAction = 1 EndIf Refresh ; LID left 50 648 LidStateX "No" "ROOT/taobin_project/image/topping2/bn_lid.png" "ROOT/taobin_project/image/topping2/bp_lid.png" Var( DirImage + "/bd_lid.png" ) If Seeker.thankLidFlag = 0 Then SAVELOG "Click LID pic" If LidStateX = "Press" Then ;Var LidStateX = "Enable" Else Var LidStateX = "Press" Var Seeker.lidAction = 1 EndIf DEBUGVAR SugarState1 Refresh EndIf 377 655 LidStateX "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) If Seeker.thankLidFlag = 0 Then SAVELOG "Click LID cb" If LidStateX = "Press" Then ;Var LidStateX = "Enable" Else Var LidStateX = "Press" Var Seeker.lidAction = 1 EndIf Refresh EndIf 526 1787 ButtonGameCountDownState "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" 0 0 64 Center 240 KanitBoldTTF 0xFFFFFF ButtonGameCountDownState ButtonGameCountDown ;include="ROOT/taobin_project/inc/button_request_lid_and_straw.inc"