"Enable" 1080 1920 "0xeae6e1" "ROOT/taobin_project/sounds/chaching.mp3" SoundVolume ; On open Var CountDownThankyou = 3 Var CountDownBrewing = BrewTime Var CountUpBrewing = 0 SAVELOG BrewTime Var ShowCountDownBrewing = CountDownBrewing Var Timeout = 0 Var ChangeFlag = 0 Var ErrTimeout = 0 Var ActionOKCase = 0 Var ChangeTimeout = 0 Var ChangeFlag2 = 0 Var GotoStoreCredit0 = 0 Var StoreCreditAmount = 0 Var buttonRemoveCup = "Invisible" Var MachineState_Result = 0 Var FailedCount = 0 Var ChangeAmountSum = 0 Var Tel_Confirm_Flag = 0 Var TimeoutToNext = 3 DEBUGVAR Seeker If Seeker = "curr" Then Var LastMakeDrinkResult = "-" EndIf If show_eng = "true" Then Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png" Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" Var BottomText = PicturePath + "text_bottom_eng.png" Var DirImage = "ROOT/taobin_project/image/page_thankyou_en" Else Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png" Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" Var BottomText = PicturePath + "text_bottom_thai2.png" Var DirImage = "ROOT/taobin_project/image/page_thankyou" EndIf DEBUGVAR StarwState DEBUGVAR LidState DEBUGVAR BottomText If StarwState = "Press" Then Machine StrawWithDelay LED LedDoorLid Blink 255 255 255 255 EndIf If LidState = "Press" Then Machine LidWithDelay LED LedDoorLid Blink 255 255 255 255 EndIf DEBUGVAR Seeker.TNumberTaobinCredit DEBUGVAR TelephoneNumber DEBUGVAR Seeker.StoreCreditFlag If Seeker = "next" Then Var NextOrder = "true" EndIf If VendingCreditRemain = "" Then Var RemainCreditST = "Invisible" Else Var RemainCreditST = "Enable" EndIf Var SaveTheWorldST = "Invisible" Var SaveTheWorldCount = 0 If Seeker.thankLidFlag = 0 Then Var SaveTheWorldCount = SaveTheWorldCount + 1 EndIf If Seeker.thankStrawFlag = 0 Then Var SaveTheWorldCount = SaveTheWorldCount + 1 EndIf DEBUGVAR LedLidBlink DEBUGVAR SaveTheWorldCount If SaveTheWorldCount = 2 Then If LedLidBlink = "no" Then Var SaveTheWorldST = "Enable" EndIf Var video_id_to_ran = 3 Var video_name_to_play = "taobin_save_world" If new_layout = "true" Then Random2 1 3 video_id_to_ran Else Random video_id_to_ran EndIf Var ThankyouST = "Invisible" Else Var video_id_to_ran = 2 Var video_name_to_play = "taobin_thank" If new_layout = "true" Then Random2 1 2 video_id_to_ran Else Random video_id_to_ran EndIf Var ThankyouST = "Enable" EndIf If new_layout = "true" Then DEBUGVAR video_id_to_ran Var show_video = 1 Var SaveTheWorldST = "Invisible" Var video_file_name = "ROOT/taobin_project/video/" + video_name_to_play Var video_file_name = video_file_name + video_id_to_ran Var video_file_name = video_file_name + ".mp4" DEBUGVAR video_file_name Var VideoFileNameStage = "Enable" Var TimeoutToNext = 5 Var ThankyouST = "Invisible" Else Var show_video = 0 Var VideoFileNameStage = "Invisible" Var TimeoutToNext = 3 EndIf 1000 Var CountDownBrewing = CountDownBrewing - 1 ;Var CountDownThankyou = CountDownThankyou - 1 Var Timeout = Timeout + 1 If Timeout = TimeoutToNext Then If CART_INDEX = 0 Then Else ;Cart "MakeID" CART_INDEX EndIf If Seeker.PayWithQR = 0 Then If Seeker.FreeVendingCampaign = 0 Then If Seeker.IntVendingCampaign < PayAmount Then Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign Var SumCoinAmount = SumCoinAmount + Seeker.IntVendingCredit If SumCoinAmount >= PayAmount Then Var Canout = SumCoinAmount - PayAmount If Canout > 0 Then ;Change Canout ;Var ChangeFlag2 = 1 Var GotoStoreCredit0 = 1 Var StoreCreditAmount = Canout EndIf EndIf EndIf Else Var Canout = CoinAmount If Canout > 0 Then ;Change Canout ;Var ChangeFlag2 = 1 Var GotoStoreCredit0 = 1 Var StoreCreditAmount = Canout EndIf EndIf Else Var Canout = CoinAmount If Canout > 0 Then ;Change Canout ;Var ChangeFlag2 = 1 Var GotoStoreCredit0 = 1 Var StoreCreditAmount = Canout EndIf EndIf Var CountDownThankyou = 0 EndIf ; run test; If CountDownThankyou = 0 Then If IgnoreNetCore = "true" Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf If TestLoopMakeDrink = 1 Then Open "ROOT/taobin_project/xml/page_brewing2.xml" EndIf Var CountDownBrewing = BrewTime Var CountUpBrewing = 0 SAVELOG BrewTime Var ShowCountDownBrewing = CountDownBrewing If RoadShow = "true" Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" Else If Seeker.PayWithQR = 0 Then Var ServiceAmount2 = Seeker.ServiceAmount2 Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var PdpaAccept = 0 Var CreditReference = Seeker.CreditReferenceTmp Var VendingDiscount = Seeker.VendingDiscount Var VendingCampaign = Seeker.VendingCampaign Var PayDetail = "2/F:1115/0//XML|" + Seeker.OrderChanel Var PayType = "" Var Seeker.TxRef1 = TxRef1 If Seeker.CodeChannel = 1 Then Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + Seeker.CodeNumber 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 + "/" UpdateTxRef1 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail Else DEBUGVAR TxRef1 UpdateTxRef1 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail EndIf EndIf If PayOfflineMode = 1 Then If StoreCreditAmount > 0 Then Change StoreCreditAmount Var ChangeFlag2 = 1 EndIf If CART_INDEX >= 2 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Open "ROOT/taobin_project/xml/page_collect_point_1.xml" Else If Seeker.StoreCreditFlag = 1 Then Var Seeker.CurrCreditAmount = StoreCreditAmount Var Seeker.CurrCreditTelNum = Seeker.TNumberTaobinCredit Var Seeker.CurrCreditPinNum = Seeker.CoffeePinNumber DEBUGVAR Seeker.CurrCreditAmount If Seeker.FreeVendingCampaign = 1 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" Else If CART_INDEX >= 2 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Open "ROOT/taobin_project/xml/page_collect_point_1.xml" EndIf Else If GotoStoreCredit0 = 1 Then Open "ROOT/taobin_project/xml/page_payment_storeCredit0.xml" Else If Seeker.FreeVendingCampaign = 1 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" Else If CART_INDEX >= 2 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Open "ROOT/taobin_project/xml/page_collect_point_1.xml" EndIf EndIf EndIf EndIf EndIf EndIf Var ShowCountDownBrewing = CountDownBrewing Refresh TimerReset ; ; 0 ; 0 ; "ROOT/taobin_project/image/ad_medium_2.png" ; 89 700 ThankyouST "ROOT/taobin_project/image/page_thankyou/img1.png" 0 0 SaveTheWorldST "ROOT/taobin_project/image/page_thankyou/img3.png" 760 413 RemainCreditST Var( DirImage + "/remainCredit.png" ) 760 480 70 413 Center RobotoBlack 0x513C2F VendingCreditRemain ; ; 751 ; 413 ; page_doing_show_time_image ; ;; ; ; XPosiShowCountDownBrew ; 470 ; End ; 153 ; 88 ; RobotoBold ; 0x513C2F ; ShowCountDownBrewing ; If ChangeStatus = "payout-end" Then EndIf