"Enable" 1080 1920 "0xeae6e1" SoundVolume Var SendNotiPaySuccess = 2 Var GetMoreStrawCount = 3 Var CountUpWhenBREW_CNT = 0 DEBUGVAR TxRef1 SAVELOG "MYS page_brewing3.lxml" DEBUGVAR MachineStage Var PictureFileTextDesctionState = "Enable" If CART_COUNT >= 1 Then Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" Else Var PayReference = "" Var PayType = "newpay" EndIf Var DirImageDoing = "ROOT/taobin_project/inter/mys/image/page_doing" Var SelectDrink = Seeker.selected_a_drink Var ExtendData = Seeker.ExtendData Var ServiceAmount2 = Seeker.ServiceAmount2 DEBUGVAR Seeker DEBUGVAR Seeker.selected_a_drink DEBUGVAR Seeker.ServiceAmount2 DEBUGVAR PayAmount DEBUGVAR Seeker.CreditCard 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 WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "--" If show_eng = "true" Then Var IMG_CNT = DirImageDoing + "/img2_eng.png" Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3" Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw_en.png" Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw_en.png" Var bnStrawProblemReport = DirImageDoing + "/bn_send_report_straw_en.png" Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw_en.png" Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid_en.png" Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid_en.png" Var bn_get_lid_image = DirImageDoing + "/bn_get_lid_en.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid_en.png" Var brew_txt2 = "ROOT/taobin_project/video/brewing_txt_adv3_en.png" Var brew_txt1 = "ROOT/taobin_project/video/brewing_txt_adv1_en.png" Var XStraw = 274 Else Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3" ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then If SoundBackToSchoolType = 1 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/" EndIf If SoundBackToSchoolType = 2 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/" EndIf Var PlaySoundLag = RootPathSoundBackToSchool + "thankyou.wav" EndIf Play PlaySoundLag Var IMG_CNT = DirImageDoing + "/img2.png" Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw.png" Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw.png" Var bnStrawProblemReport = DirImageDoing + "/bn_send_report_straw.png" Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw.png" Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid.png" Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" Var bn_get_lid_image = DirImageDoing + "/bn_get_lid.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid.png" Var brew_txt2 = "ROOT/taobin_project/video/brewing_txt_adv3.png" Var brew_txt1 = "ROOT/taobin_project/video/brewing_txt_adv1.png" Var XStraw = 274 EndIf Var waitAckPay = 0 Var VendingTSIDTmp = "" Var VendingTSIDProblem = "" Var CreditReference = "" Var PayCredit = 0 ;include="ROOT/taobin_project/inc/check_version.inc" If Seeker.PayWithQR = 1 Then Var VendingTSIDTmp = Seeker.VendingTSID If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf If ChangeFlag2 = 1 Then Var TelephoneNumber = "0899999999" Var PayO2 = "" Var VendingDiscount = 0 Var VendingCampaign = 0 Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else If Seeker.StoreCreditFlag = 1 Then Var VendingDiscount = 0 Var VendingCampaign = 0 Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate EndIf EndIf EndIf If Seeker.TNumberTaobinCredit = "" Then If Seeker.TNumberTaobinMember = "" Then Var TelephoneNumberProblem = "" Else Var TelephoneNumberProblem = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit EndIf If TelephoneNumberProblem = "" Then ;Var TelephoneNumberProblem = "" Var ShowTextNumber = "Enable" Var Tel_Confirm_State = "Disable" Else Var ShowTextNumber = "Invisible" Var Tel_Confirm_State = "Enable" EndIf Var AddData = 0 DEBUGVAR Seeker.TNumberTaobinMember DEBUGVAR Seeker.PointTaobinStr If Seeker.TNumberTaobinMember = "" Then Else If Seeker.PayWithQR = 1 Then Var VendingTSID = VendingTSIDTmp Else Var VendingTSID = "" EndIf Var BmiYear = Seeker.PointTaobinStr Var PointCrm = "" If Seeker.FromConsent = 1 Then Var PointCrm = "pdpa1" EndIf Var GetScore = VendingTSID 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 VendingTSID = "" EndIf If Seeker.VendingCode = "MKFOO" Then Var AddData = 0 EndIf If GetFreeFromError = 1 Then ;Var GetFreeFromError = 0 Var TelephoneNumberProblem = TelephoneNumberGOTFree 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 DEBUGVAR Seeker.VendingCampaign If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping2_en" Else Var DirImage = "ROOT/taobin_project/image/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping2" EndIf DEBUGVAR show_eng 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 bg_strawlid = DirImage2 + "/bg_strawlidSmall.png" Var Seeker.strawAction = 0 Var Seeker.lidAction = 0 If Seeker.thankLidFlag = 1 Then Var bg_strawlid = DirImage2 + "/bg_strawSmall.png" Var LidStateX = "Invisible" Var Seeker.lidAction = 2 EndIf DEBUGVAR LastMakeDrinkResult If LastMakeDrinkResult = "success" Then Var MachineState_Result = 1 EndIf If LastMakeDrinkResult = "fail" Then SAVELOG "LastMakeDrinkResult is 2" Var MachineState_Result = 2 EndIf DEBUGVAR VendingCampaign DEBUGVAR MachineState_Result If MachineState_Result > 0 Then Var SelectMenuBetweenBrewEnable1 = "Invisible" Else Var SelectMenuBetweenBrewEnable1 = "Enable" EndIf If GetFreeFromError = 1 Then Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf If SelectMenuBetweenBrewEnable1 = "Enable" Then Var EnableGetMoreStrawFileName = "Enable" Var SelectMenuBetweenBrewEnable1Blink = "Enable" Else Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Var EnableGetMoreStrawFileName = "Invisible" EndIf ; Hide Var bg_strawProblem_ST = "Invisible" Var StrawProblemStatus = 1 Var StrawStateX = "Invisible" Var LidStateX = "Invisible" ; Override from config If StrawGetMoreState = "Invisible" Then Var bg_strawProblem_ST = "Enable" Var EnableGetMoreStrawFileName = "Invisible" EndIf If RoadShow = "true" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf DEBUGVAR VendingCashlessMyNext If Seeker.CreditCard = 1 Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Var SelectMenuBetweenBrewEnable1 = "Invisible" DEBUGVAR VendingCashlessMyNext If FeatureReceiveCCardEnablerFromNC = "true" Then If VendingCashlessMyNext = "" Then Var VendingCashlessMyNext = "DISABLE" EndIf ; case-v1 If VendingCashlessMyNext = "DISABLE" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf ; enable-by-v2-finexus If VendingCashlessMyNext = "ENABLE" Then Var SelectMenuBetweenBrewEnable1Blink = "Enable" Var SelectMenuBetweenBrewEnable1 = "Enable" EndIf EndIf EndIf If NeedUpgrade = "true" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf If NeedReboot = "true" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf DEBUGVAR NeedUpgrade DEBUGVAR NeedReboot ; copy stage Var bg_lidProblem_ST2 = bg_lidProblem_ST DEBUGVAR bg_lidProblem_ST2 ; zone Language If LanguageObjectShow = "Enable" Then Var XStraw = 350 Var SelectMenuBetweenBrewEnable2 = SelectMenuBetweenBrewEnable1 Var SelectMenuBetweenBrewEnable1 = "Invisible" Var IMG_CNT = DirImageDoing + "/bg_show_time_remaining.png" Var bg_lidProblem_ST = "Invisible" Var GetLidButtonState = "Invisible" Var bg_strawProblem_ST = "Invisible" var EnableGetMoreStrawFileName = "Invisible" var EnableGetMoreStrawFileName2 = "Enable" Var bg_strawProblem_ST2 = "Invisible" If bg_lidProblem_ST2 = "Invisible" Then Var GetLidButtonState2 = "Enable" Else Var GetLidButtonState2 = "Invisible" EndIf EndIf If NoLangObjectShow = "Enable" Then Var SelectMenuBetweenBrewEnable2 = "Invisible" Var bg_lidProblem_ST2 = "Invisible" Var GetLidButtonState2 = "Invisible" Var bg_strawProblem_ST2 = "Invisible" var EnableGetMoreStrawFileName2 = "Invisible" DEBUGVAR bg_lidProblem_ST If bg_lidProblem_ST = "Invisible" Then Var GetLidButtonState = "Enable" ;Var XStraw = 265 EndIf EndIf DEBUGVAR LanguageObjectShow DEBUGVAR NoLangObjectShow Var CreditCardVoid = 0 If InternationalEnable = 1 Then Var adver_brewing_en = 0 RootLayoutVisible 3 "hide" EndIf If adver_brewing_en = 1 Then Var adver_brewing_playing = 1 Var adver_brewing_play_index = 2 Var adver_brewing_count_down = 10 Var VideoPlayFile = DirImageDoing + "/tao_adv1.png" Var PictureFile = brew_txt1 EndIf Var CampaignEnable = 0 Var GetLidButtonCountDown = 0 ; language instance DEBUGVAR SelectMenuBetweenBrewEnable1 DEBUGVAR SelectMenuBetweenBrewEnable2 Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1 ; echo 1 > /mnt/sdcard/game_enable READ_FILE "/mnt/sdcard/game_enable" game_mode_str STRCONTAIN "1" game_mode_str game_mode_enable DEBUGVAR game_mode_enable If GameEnableFromTrickerEv = 1 Then Var game_mode_enable = "true" EndIf If GameOverrideDisable = 1 Then Var game_mode_enable = "false" EndIf READ_FILE "/mnt/sdcard/game_disable" game_mode_str STRCONTAIN "1" game_mode_str game_mode_disable DEBUGVAR game_mode_disable If game_mode_disable = "true" Then Var game_mode_enable = "false" EndIf DEBUGVAR GameEnableFromTrickerEv DEBUGVAR GameOverrideDisable DEBUGVAR Seeker If game_mode_enable = "true" Then DEBUGVAR GameInstalled If GameInstalled = "true" Then If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" If Seeker.TNumberTaobinMember = "" Then Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit EndIf StrLen TelephoneNumber TelNumLen DEBUGVAR TelephoneNumber DEBUGVAR TelNumLen If TelNumLen = 10 Then ; reset WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" "" ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://game.my.taobin.local:26969"\r\n" If TelephoneNumber = "0899999999" Then ; Coupon or customer not input phone number. Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") Else Var ACCString !assigned SprintFmt("ACC: "%s"\r\n", TelephoneNumber) EndIf DEBUGVAR ACCString If show_eng = "true" Then Var LangString = "LANG: "EN"\r\n" Else Var LangString = "LANG: "TH"\r\n" EndIf ; reset WRITE_FILE "/mnt/sdcard/taobingame_acc.yaml" "" APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" ACCString APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" LangString ; Var Game01Enable = 1 Else ; reset WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" "" ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.231:30460"\r\n" Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") DEBUGVAR ACCString If show_eng = "true" Then Var LangString = "LANG: "EN"\r\n" Else Var LangString = "LANG: "TH"\r\n" EndIf ; reset WRITE_FILE "/mnt/sdcard/taobingame_acc.yaml" "" APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" ACCString APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" LangString ; Var Game01Enable = 1 EndIf EndIf EndIf DEBUGVAR Game01Enable DEBUGVAR BREW_CNT If Game01Enable = 1 Then If BREW_CNT > 75 Then Var ButtonGameCountDown = BREW_CNT - 60 If ButtonGameCountDown > 10 Then Var ButtonGameCountDown = 10 EndIf Var ButtonGameCountDownState = "PressForever" Else Var Game01Enable = 0 Var ButtonGameCountDownState = "Invisible" Var ButtonGamePressToPlayState = "Invisible" Var ButtonGameCountDown = 0 EndIf Else Var ButtonGameCountDown = 0 Var ButtonGameCountDownState = "Invisible" EndIf DEBUGVAR ButtonGameCountDown Var ButtonGamePressToPlayState = "Invisible" ; BREW_CNT > 15 ( pre-time ) + 60 ( Game Time ) Game01Enable ; BREW_CNT > 15 ( pre-time ) + 50 ( Game Time ) + 10 (Debound Time) Game01Enable If Game01Enable = 1 Then If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 75 Then If Game01Enable = 1 Then SAVELOG "Game01Enable set zero event open 2" EndIf Var Game01Enable = 0 Var ButtonGameCountDownState = "Invisible" Var ButtonGamePressToPlayState = "Invisible" EndIf EndIf If BREW_CNT > 70 Then Else If Game01Enable = 1 Then SAVELOG "Game01Enable set zero event open 1" EndIf Var Game01Enable = 0 Var ButtonGamePressToPlayState = "Invisible" EndIf EndIf Var AppRunFlagState = "" Var HasResumePreventFlag = "false" DEBUGVAR SelectMenuBetweenBrewEnable1Blink DEBUGVAR SelectMenuBetweenBrewEnable1 DEBUGVAR SelectMenuBetweenBrewEnable2 Var XPosiShowCountDownBrew = 768 Refresh ;include="ROOT/taobin_project/inter/mys/xml/page_brewing3_event.lxml" 60 1290 PictureFileTextDesctionState PictureFile 0 1655 SelectMenuBetweenBrewEnable1Text text_next_order 0 1655 1080 SelectMenuBetweenBrewEnable2 000408 835 1735 SelectMenuBetweenBrewEnable1Blink "ROOT/taobin_project/image/page_payment/arrow_1.png" ; zone show time remaining 751 413 IMG_CNT ; XPosiShowCountDownBrew 470 End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing 816 429 LanguageObjectShow 000405 941 518 LanguageObjectShow 000406 Var BREW_COUNT_DOWN_FROM_APP = "off" Var CountDownBrewing = 121 Var BREW_COUNT_DOWN_FROM_APP = "off" Var CountDownBrewing = 2 ; ; ; ; ; ; ; Next Order ; 792 1787 SelectMenuBetweenBrewEnable1 next_pic_bn next_pic_bp If MachineState_Result = 0 Then SAVELOG "User click next button" Var Seeker = "next" Var MultiPayEnable = "false" CoinPause Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf 733 1787 SelectMenuBetweenBrewEnable2 Var( DirImageDoing + "/bn_next_order.png" ) Var( DirImageDoing + "/bp_next_order.png" )"/bp_next_order.png" If MachineState_Result = 0 Then SAVELOG "User click next button" Var Seeker = "next" Var MultiPayEnable = "false" CoinPause Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf 0 20 297 96 000407 ; ; ; ; ; ; ; Button Straw, More request and report. ; XStraw 1787 EnableGetMoreStrawFileName bnGetMoreStrawFileName bpGetMoreStrawFileName "No" Var EnableGetMoreStrawFileNameCountDown = 5 Var EnableGetMoreStrawFileName = "PressForever" Var GetMoreStrawCount = GetMoreStrawCount - 1 DEBUGVAR GetMoreStrawCount If GetMoreStrawCount > 0 Then Machine Straw EndIf XStraw 1787 bg_strawProblem_ST bnStrawProblemReport bpStrawProblemReport Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด" __CMD "straw-alert-disable" 0 strawStr "-" __CMD "send-error-code" 1231 "-" "-" Var bg_strawProblem_ST = "Invisible" Refresh 526 1787 ButtonGameCountDownState Var( DirImageDoing + "/bn_game_cnt_down.png") Var( DirImageDoing + "/bn_game_cnt_down.png") 0 0 64 Center 240 KanitBoldTTF 0xFFFFFF ButtonGameCountDownState ButtonGameCountDown 526 1680 241 204 ButtonGamePressToPlayState "ROOT/taobin_project/app/game/TAMATIAN-01_en.gif" 526 1680 241 204 ButtonGamePressToPlayState DEBUGVAR Game01Enable SAVELOG "Press play game" Var Game01Enable = 0 Var ButtonGamePressToPlayState = "Invisible" RunApp "com.NDF.taobin" ; ; ; ; ; ; ; Lid button, Get one and report ; 14 1787 bg_lidProblem_ST bnLidProblemReport bpLidProblemReport Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST = "Invisible" Refresh 14 1787 GetLidButtonState "No" bn_get_lid_image bp_get_lid_image If GetLidButtonState = "Enable" Then Machine Lid Var GetLidButtonCountDown = 12 EndIf Var GetLidButtonState = "Press" Refresh ;==================================================================== XStraw 1787 EnableGetMoreStrawFileName2 Var( DirImageDoing + "/bn_get_more_straw.png" ) Var( DirImageDoing + "/bp_get_more_straw.png" ) "No" Var EnableGetMoreStrawFileNameCountDown = 5 Var EnableGetMoreStrawFileName2 = "PressForever" Var GetMoreStrawCount = GetMoreStrawCount - 1 DEBUGVAR GetMoreStrawCount If GetMoreStrawCount > 0 Then Machine Straw Else Var EnableGetMoreStrawFileName2 = "Invisible" EndIf 50 20 331 96 000402 XStraw 1787 96 bg_strawProblem_ST2 Var( DirImageDoing + "/bn_send_report.png" ) Var( DirImageDoing + "/bn_send_report.png" ) Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด" __CMD "straw-alert-disable" 0 strawStr "-" __CMD "send-error-code" 1231 "-" "-" Var bg_strawProblem_ST2 = "Invisible" Refresh 0 12 331 96 000401 ;------------------------- 14 1787 96 bg_lidProblem_ST2 Var( DirImageDoing + "/bn_send_report.png" ) Var( DirImageDoing + "/bn_send_report.png" ) Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST2 = "Invisible" Refresh 0 12 331 96 000400 14 1787 GetLidButtonState2 "No" Var( DirImageDoing + "/bn_get_lid.png" ) Var( DirImageDoing + "/bp_get_lid.png" ) If GetLidButtonState2 = "Enable" Then Machine Lid Var GetLidButtonCountDown = 12 EndIf Var GetLidButtonState2 = "Press" Refresh 40 20 232 96 000403 ; test drinkfail with phone number Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ; test drinkfail with phone number Var TelephoneNumberProblem = "1234567890" Open "ROOT/taobin_project/xml/page_drinkfail2.xml" 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_card.lxml"