"Enable" 1080 1920 BackgroundColor "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 DetectCoinAmount = 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 FromMomCocoaPro = 1 Then If DiscountMomCocoaPro > 0 Then Var Seeker.BuyMomCocoaProFlag = 1 EndIf EndIf 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" Var VendingCreditRemainx = VendingCreditRemain INT VendingCreditRemainx Var VendingCreditRemain !assigned StringFmt( VendingCreditRemainx, DisplayFormat, PreScaleConvertShow ) 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" Random2 1 3 video_id_to_ran Var ThankyouST = "Invisible" Else Var video_id_to_ran = 2 Var video_name_to_play = "taobin_thank" Random2 1 2 video_id_to_ran Var ThankyouST = "Enable" EndIf DEBUGVAR video_id_to_ran Var show_video = 1 Var SaveTheWorldST = "Invisible" If InternationalEnable = 1 Then Var video_file_name = "ROOT/taobin_project/inter/common/video/" + video_name_to_play Else Var video_file_name = "ROOT/taobin_project/video/" + video_name_to_play EndIf Var video_file_name = video_file_name + video_id_to_ran Var video_file_name = video_file_name + ".mp4" If SaveTheWorldCount < 2 Then If InternationalEnable = 1 Then Var script_thankyou = CountryRootPath + "video/script_thank.ev" TRY script_thankyou Else TRY "/mnt/sdcard/coffeevending/taobin_project/video/script2.ev" EndIf EndIf DEBUGVAR video_file_name Var VideoFileNameStage = "Enable" Var TimeoutToNext = 5 Var ThankyouST = "Invisible" Var remainCredit = "/remainCredit.png" ;inter-image If CountryName = "Malaysia" Then Var remainCredit = "/remainCredit-MYR.png" EndIf ;inter-image If CountryName = "Indonesia" Then Var remainCredit = "/remainCredit-IDR.png" EndIf ;inter-image If CountryName = "Australia" Then Var remainCredit = "/remainCredit-AUD.png" EndIf ;inter-image If CountryName = "Singapore" Then Var remainCredit = "/remainCredit-SGP.png" EndIf ;inter-image If CountryName = "HongKong" Then Var remainCredit = "/remainCredit-HKG.png" EndIf DEBUGVAR Seeker.CreditCard DEBUGVAR Seeker.CreditCardRef TRY "/mnt/sdcard/coffeevending/taobin_project/xml/sometime/script_thankyou.ev" 1000 Var CountDownBrewing = BREW_CNT 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.CreditCard = 1 Then DEBUGVAR CoinAmount If CoinAmount > 0 Then DEBUGVAR "Change Canout" Change CoinAmount Var ChangeFlag2 = 1 EndIf Else DEBUGVAR Seeker.UseCreditPayFullDrinkPrice If Seeker.UseCreditPayFullDrinkPrice = 1 Then If CoinAmount > 0 Then Var StoreCreditAmount = CoinAmount Var DetectCoinAmount = 1 EndIf Else 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 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 If Seeker.IsLineMember = 0 Then If LuckyDrawCampaign = 1 Then Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml" Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf EndIf If TestLoopMakeDrink = 1 Then Open "ROOT/taobin_project/xml/page_brewing_test_loop.xml" EndIf Var CountDownBrewing = BrewTime Var CountUpBrewing = 0 SAVELOG BrewTime Var ShowCountDownBrewing = CountDownBrewing If RoadShow = "true" Then If Seeker.IsLineMember = 0 Then If LuckyDrawCampaign = 1 Then Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml" Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else If EnablePayLaterMode = 1 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Var Seeker.OrderChanel = Seeker.OrderChanel + ":" Var Seeker.OrderChanel = Seeker.OrderChanel + Seeker.CampaignPayChanel Var Seeker.OrderChanel = Seeker.OrderChanel + ":" Var Seeker.OrderChanel = Seeker.OrderChanel + Seeker 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:1311/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 + "/" 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 Else 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 EndIf If PayOfflineMode = 1 Then If StoreCreditAmount > 0 Then Change StoreCreditAmount Var ChangeFlag2 = 1 EndIf If CART_INDEX >= 2 Then If Seeker.IsLineMember = 0 Then If LuckyDrawCampaign = 1 Then Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml" Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf EndIf DEBUGVAR ChangeFlag2 TRY "ROOT/taobin_project/xml/open_page_collect_point.ev" Else If Seeker.StoreCreditFlag = 1 Then Var Seeker.CurrCreditAmount = StoreCreditAmount Var Seeker.CurrCreditTelNum = Seeker.TNumberTaobinCredit Var Seeker.CurrCreditPinNum = Seeker.CoffeePinNumber DEBUGVAR Seeker.CurrCreditAmount DEBUGVAR Seeker.CreditNotEnoughRefID DEBUGVAR Seeker.CreditEnoughRefID If Seeker.CreditNotEnoughRefID = "" Then Var CurrAmount = Seeker.CurrCreditAmount Var CurrTelePhoneNum = Seeker.CurrCreditTelNum Var CurrPinNum = Seeker.CurrCreditPinNum If DetectCoinAmount = 1 Then Var ServiceAmountSupCampain = Seeker.ServiceAmount2 - Seeker.IntVendingCampaign If CurrAmount >= ServiceAmountSupCampain Then Var creditToTopup = CurrAmount - ServiceAmountSupCampain Var RefID = "0/" + Seeker.CreditEnoughRefID Var Seeker.CreditReferenceTmp = RefID AddData 41 CurrTelePhoneNum creditToTopup CurrPinNum RefID Else Var RefID = "" AddData 41 CurrTelePhoneNum CurrAmount CurrPinNum RefID EndIf Else Var RefID = "" AddData 41 CurrTelePhoneNum CurrAmount CurrPinNum RefID EndIf Else Var ServiceAmountSupCampain = Seeker.ServiceAmount2 - Seeker.IntVendingCampaign If CoinAmount >= ServiceAmountSupCampain Then DEBUGVAR Seeker.IntVendingCredit Var CurrAmount = Seeker.CurrCreditAmount - Seeker.IntVendingCredit Var Seeker.IntVendingCredit = 0 Var RefID = "0/" + Seeker.CreditNotEnoughRefID Var Seeker.CreditReferenceTmp = RefID Else Var CurrAmount = CoinAmount Var RefID = "" + ServiceAmountSupCampain Var RefID = RefID + "/" Var RefID = RefID + Seeker.CreditNotEnoughRefID Var Seeker.CreditReferenceTmp = RefID EndIf Var CurrTelePhoneNum = Seeker.CurrCreditTelNum Var CurrPinNum = Seeker.CurrCreditPinNum AddData 41 CurrTelePhoneNum CurrAmount CurrPinNum RefID EndIf If Seeker.FreeVendingCampaign = 1 Then If Seeker.CollectPointPromotion = 1 Then TRY "ROOT/taobin_project/xml/open_page_collect_point.ev" Else If Seeker.CollectPointMain = 1 Then TRY "ROOT/taobin_project/xml/open_page_collect_point.ev" EndIf EndIf If Seeker.IsLineMember = 0 Then If LuckyDrawCampaign = 1 Then Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml" Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else If CART_INDEX >= 2 Then If Seeker.IsLineMember = 0 Then If LuckyDrawCampaign = 1 Then Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml" Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf EndIf TRY "ROOT/taobin_project/xml/open_page_collect_point.ev" EndIf Else If GotoStoreCredit0 = 1 Then If CountryName = "Singapore" Then ; force-change-cash Change StoreCreditAmount Var ChangeFlag2 = 1 ; ask-if-member-yet Var MemberPrompt = CountryRootPath + "/xml/page_member_prompt.lxml" If SettingIgnoreCollectPoint = 1 Then Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_1.lxml" Else Open MemberPrompt EndIf Else Open "ROOT/taobin_project/xml/page_payment_storeCredit0.xml" EndIf Else If Seeker.FreeVendingCampaign = 1 Then ;If ChildrenFree = 1 Then ; TRY "ROOT/taobin_project/xml/open_page_collect_point.ev" ;EndIf If Seeker.CollectPointPromotion = 1 Then TRY "ROOT/taobin_project/xml/open_page_collect_point.ev" Else If Seeker.CollectPointMain = 1 Then TRY "ROOT/taobin_project/xml/open_page_collect_point.ev" EndIf EndIf If Seeker.IsLineMember = 0 Then If LuckyDrawCampaign = 1 Then Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml" Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else If CART_INDEX >= 2 Then If Seeker.IsLineMember = 0 Then If LuckyDrawCampaign = 1 Then Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml" Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf EndIf TRY "ROOT/taobin_project/xml/open_page_collect_point.ev" 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 ) 760 480 60 413 Center RobotoBlack 0x513C2F VendingCreditRemain ;include="ROOT/taobin_project/inc/video_no_eventopen.inc" ; ; 751 ; 413 ; page_doing_show_time_image ; ;; ; ; XPosiShowCountDownBrew ; 470 ; End ; 153 ; 88 ; RobotoBold ; 0x513C2F ; ShowCountDownBrewing ; If ChangeStatus = "payout-end" Then EndIf