"Enable" 1080 1920 "0xeae6e1" SoundVolume Var ActionOKCase = 0 Var Seeker = "curr" If PayCredit = 0 Then Var PayCredit = 1 CoinBack EndIf ;Var PayCredit = 0 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 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 = "Invisible" DEBUGVAR VendingCashlessMyNext If Seeker.CreditCard = 1 Then Var EnableSelectMenuBetweenBrew = "Invisible" DEBUGVAR VendingCashlessMyNext If FeatureReceiveCCardEnablerFromNC = "true" Then If VendingCashlessMyNext = "" Then Var VendingCashlessMyNext = "DISABLE" EndIf ; case-v1 If VendingCashlessMyNext = "DISABLE" Then Var EnableSelectMenuBetweenBrew = "Invisible" EndIf ; enable-by-v2-finexus If VendingCashlessMyNext = "ENABLE" Then Var EnableSelectMenuBetweenBrew = "Enable" EndIf EndIf EndIf 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 ; e-receipt If Seeker.e_receipt = "true" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Var SelectMenuBetweenBrewEnable1 = "Invisible" Var SelectMenuBetweenBrewEnable2Blink = "Invisible" Var SelectMenuBetweenBrewEnable2 = "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" Var CreditCardVoid = 0 DEBUGVAR ButtonGameCountDownState ;include="ROOT/taobin_project/inter/mys/xml/page_brewing3Conti_event.lxml" ;include="ROOT/taobin_project/inc/video.inc" ; ; 0 ; 0 ; "ROOT/taobin_project/image/ad_medium_2.png" ; 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 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 792 1687 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 Else Var topupCreditWithCash = "Enable" Var SeekerTmp = "curr" Var TelephoneNumber = SeekerTmp.TNumberTaobinCredit EndIf SAVELOG "User click topup-credit button" Var Seeker = "topupCredit" CoinPause Var PayCredit = 0 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 DEBUGVAR "TestVoidCredit" ;TestSwitchApp "com.finexuscards.yippiepos.VOID" "true" "page_brewing3.lxml::EventUnitTest5" ;com.forthvending.newui ;TestSwitchApp "com.forthvending.newui" "true" "page_brewing3.lxml::EventUnitTest5" Open "ROOT/taobin_project/inter/mys/xml/page_void_credit_cardConti.lxml"