0 608 "Enable" 1080 1312 "0xeae6e1" SoundVolume ;TopView "hide" ;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/topview_blank_main.xml" Var FileNumber = 1 Var img_press_main_page = "ROOT/taobin_project/image/main_page/bp_main_page_start.png" Var img_rest_main_page = "" Var MemberButtonFileNameRest = "" Var img_reset_topup = "" Var CNTDOWN_PROTECT_SCREEN_BLANK = 120 DEBUGVAR SoundVolume Var credit_card_enable = "" READ_FILE "/mnt/sdcard/credit_card_enable" credit_card_enable Var eng_enable = "true" Var thai_enable = "true" Var show_eng = "false" Var NextOrder = "false" Var Seeker = "next" Var Seeker.thankLidFlag = 0 Var Seeker.thankStrawFlag = 0 Var Seeker = "curr" Var Seeker.thankLidFlag = 0 Var Seeker.thankStrawFlag = 0 DEBUGVAR web_ref DEBUGVAR web_payment DEBUGVAR web_telnum DEBUGVAR web_code DEBUGVAR web_pin Var web_telnumOK = "" Var web_readyOK = "false" Var GetFreeFromError = 0 Cart "DeleteMenuID" "ALL" Var MultiPayEnable = "false" ;Var MultiPayEnable = "true" Var ShoppyPayEnable = "true" Var WebAppEnable = "true" Var WebAppShow = "Enable" Var PayType = "" Var Seeker.CurrCreditAmount = 0 Var Seeker.CurrCreditUse = 0 Var Seeker.CurrCreditTelNum = "" Var Seeker.CurrCreditPinNum = "" DEBUGVAR PaySuccessWithDaemonTask Var PaidPaymentFromNextStage = 0 Var DrinkPaid = "-" ; On open Var menu_back_to_main = "ROOT/taobin_project/xml/page_back_to_main.xml" Var charOfBaht = "฿" Var KanitTTF = "ROOT/taobin_project/font/Kanit/Kanit-Light.ttf" Var KanitMediaTTF = "ROOT/taobin_project/font/Kanit/Kanit-Medium.ttf" Var KanitBoldTTF = "ROOT/taobin_project/font/Kanit/Kanit-Bold.ttf" Var RobotoBold = "ROOT/taobin_project/font/Roboto/Roboto-Bold.ttf" Var RobotoBlack = "ROOT/taobin_project/font/Roboto/Roboto-Black.ttf" Var RobotoRegular = "ROOT/taobin_project/font/Roboto/Roboto-Regular.ttf" Var RobotoThin = "ROOT/taobin_project/font/Roboto/Roboto-Thin.ttf" Var RobotoCondensedRegular = "ROOT/taobin_project/font/Roboto/RobotoCondensed-Regular.ttf" Var KanitMediumTTF = "ROOT/taobin_project/font/Kanit/Kanit-Regular.ttf" Var KanitRegularTTF = "ROOT/taobin_project/font/Kanit/Kanit-Regular.ttf" Var KanitThinTTF = "ROOT/taobin_project/font/Kanit/Kanit-Thin.ttf" Var KanitLightTTF = "ROOT/taobin_project/font/Kanit/Kanit-Light.ttf" Var OpunMediumTTF = "ROOT/taobin_project/font/Opun/Opun-Medium.ttf" Var OpunThinTTF = "ROOT/taobin_project/font/Opun/Opun-Thin.ttf" Var OpunBoldTTF = "ROOT/taobin_project/font/Opun/Opun-Bold.ttf" Var KanitSemiBoldTTF = "ROOT/taobin_project/font/Kanit/Kanit-Medium.ttf" Var BlinkStar = "ROOT/taobin_project/image/animation/blink_star.gif" Var MITRegularTTF = "ROOT/taobin_project/font/Mitr/Mitr-Regular.ttf" Var DinCondensedRegular = "ROOT/taobin_project/font/Din/DIN-Regular.ttf" Var DinCondensedBold = "ROOT/taobin_project/font/Din/DIN-Condensed-Bold.ttf" Var ChivoMonoBold = "ROOT/taobin_project/font/ChivoMono/ChivoMono-Bold.ttf" Var ChivoMonoSemiBold = "ROOT/taobin_project/font/ChivoMono/ChivoMono-SemiBold.ttf" Var InterRegular = "ROOT/taobin_project/font/Inter/Inter-Regular.ttf" Var countClick = 0 Var RoadShow = "false" Var IgnorePoint = "true" Var ShowButtonClick = "Enable" Var ShowButtonClickFull = "Invisible" Var ShowButtonClick2 = "Enable" ;SAVELOG DisplayType If DisplayType = "2" Then Var XPosiShowCountDownBrew = 693 Var WQR = 185 Var HQR = 185 Else Var XPosiShowCountDownBrew = 768 Var WQR = 290 Var HQR = 290 EndIf Var MinPhoneNumber = 10 Var MaxPhoneNumber = 10 Var TestLoopMakeDrink = 0 Var TestLoopSuccess = 0 Var TestLoopFailed = 0 Var cock_tail_str = "" READ_FILE "/mnt/sdcard/coffeevending/cock_tail_enable" cock_tail_str STRCONTAIN "1" cock_tail_str cock_tail_enable If cock_tail_enable = "true" Then Var WheyShow = "false" Var CocktailShow = "true" Var RoadShow = "true" STRCONTAIN "1401" MaterialAvailable BeerTrapEnable Else Var WheyShow = "true" Var CocktailShow = "false" Var RoadShow = "false" EndIf ; move to TRY actoin. Var RoadShow = "false" TRY "ROOT/taobin_project/xml/sometime/RoadShow.ev" ; take a look file page_board_1.xml If XMLProfile = "" Then CacheVarStr "get" XMLProfile Else CacheVarStr "put" XMLProfile EndIf Var TermTemOnline = "false" Var TaobinOnline = "false" If MaterialAvailable = "" Then CacheVarStr "get" MaterialAvailable Else CacheVarStr "put" MaterialAvailable EndIf DEBUGVAR MaterialAvailable STRCONTAIN "9501" MaterialAvailable TaobinOnline STRCONTAIN "9505" MaterialAvailable TermTemOnline ; App fast STRCONTAIN "1063" MaterialAvailable AppFastEnable STRCONTAIN "1046" MaterialAvailable WheyEnable STRCONTAIN "1208" MaterialAvailable PromoteYuzuEnable STRCONTAIN "1058" MaterialAvailable OreoEnable STRCONTAIN "1068" MaterialAvailable JasmineTeaEnable STRCONTAIN "1210" MaterialAvailable MelonSyrupEnable STRCONTAIN "1212" MaterialAvailable MintSyrupEnable STRCONTAIN "1213" MaterialAvailable PeachSyrupEnable STRCONTAIN "1211" MaterialAvailable BananaSyrupEnable STRCONTAIN "1215" MaterialAvailable SugarZeroCalEnable STRCONTAIN "1206" MaterialAvailable EnergyDrinkEnable STRCONTAIN "1216" MaterialAvailable CoconutSyrupEnable ;Var AppFastEnable = "false" If AppFastEnable = "true" Then Var AppFastButtonState = "Enable" Var WheyButtonState = "Invisible" Var MenuKidButtonState ="Invisible" Else If WheyEnable = "true" Then Var AppFastButtonState = "Invisible" Var WheyButtonState = "Enable" Var MenuKidButtonState ="Invisible" Var MenuKidEnable = "false" Else Var MenuKidEnable = "true" Var AppFastButtonState = "Invisible" Var WheyButtonState = "Invisible" Var MenuKidButtonState ="Enable" EndIf EndIf If CocktailShow = "true" Then Var WheyEnable = "false" Var MenuKidEnable = "false" Var MenuKidButtonState = "Invisible" Var WheyShow = "false" Var WheyButtonState = "Invisible" Var WebAppShow = "Invisible" EndIf Var TaobinOnlineX = "true" DEBUGVAR AppFastButtonState DEBUGVAR MenuKidButtonState DEBUGVAR TaobinOnline DEBUGVAR WheyButtonState DEBUGVAR WheyEnable ; Dtac. Var CAMPAIGN1 = "false" If TaobinOnlineX = "true" Then Var EventTurnOn = 0 ; CountDownShowButton must value 35 Var CountDownShowButton = 35 Var ShowButtonClickFull = "Invisible" If LanguageInit = "ENG" Then Var VideoMainPage = "ROOT/taobin_project/video/main_page_en.mp4" Var show_eng = "true" Else Var VideoMainPage = "ROOT/taobin_project/video/main_page.mp4" Var show_eng = "false" EndIf DEBUGVAR SystemDateMonthInt DEBUGVAR SystemDateDayInt EndIf If TaobinOnlineX = "false" Then If TermTemOnline = "false" Then ; TODO Machine Initial Open "/ROOT/xml/outservice.xml" EndIf EndIf DEBUGVAR SELLSTATUS DEBUGVAR NetworkStatus If SELLSTATUS = "" Then CacheVarStr "get" SELLSTATUS Else CacheVarStr "put" SELLSTATUS EndIf DEBUGVAR SELLSTATUS DEBUGVAR AdvertiseProfile Var SELLONLINE = 0 If SELLSTATUS = "SELLONLINE" Then Var SELLONLINE = 1 EndIf If SELLSTATUS = "SELLNOCASH" Then Var SELLONLINE = 1 EndIf If IgnoreNetCore = "true" Then Var SELLONLINE = 1 Var ButtontoTopupMenu = "Enable" Var ShowButtonClick2 = "Enable" ; for test press button Var ShowNetworkProblem = "Enable" EndIf If SELLONLINE = 1 Then Var ShowNetworkProblem = "Invisible" Var ShowNetworkProblemText = "" Machine NetworkUp Var QRCODE99x = "" GenHashWithTimeStamp QRCODE99x Var QRCODE99 = "https://taobin-beverage.web.app/" + QRCODE99x ;Var QRCODE99 = "https://uat-taobin-beverage.firebaseapp.com/" + QRCODE99x WEB "ENABLE" Else Var ShowNetworkProblem = "Enable" Var ShowButtonClick2 = "Invisible" Var ShowNetworkProblemText = "การสื่อสารขัดข้อง ชำระเงินได้เฉพาะเงินสด" If NetworkStatus = "DOWN" Then Machine NetworkDown EndIf Var QRCODE99 = "" WEB "DISABLE" EndIf Var ShowPrice = "Enable" If RoadShow = "true" Then Var ShowPrice = "Invisible" Var WebAppShow = "Invisible" EndIf ;SAVELOG WheyShow ;SAVELOG CocktailShow DEBUGVAR RoadShow ;SAVELOG ShowPrice Var CountDownPauseVideo = 0 Var NextPage = "-" If StartUpExt = "false" Then Else Var OreoGuarantee = 0 Machine Initial Var StartUpExt = "false" Var CameraSettingStatus = "" ;DEBUGVAR "FlushTxRef1" ;FlushTxRef1 ;If JXMLVersionInt > 428 Then ; LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/ui/lang.tsv" ;EndIf Var SoundThaiIndex = 0 EndIf DEBUGVAR Not#LanguageLoaded ;DEBUGVAR "FlushTxRef1" ;FlushTxRef1 StopLongPlay Var TimerFirst = "true" Var buttonRemoveCup = "Invisible" Var led_new = "0" READ_FILE "/mnt/sdcard/coffeevending/led_new" led_new DEBUGVAR led_new If led_new = "1" Then LEDv2 LedDoorCupV2 Off 255 194 166 20 6 LEDv2 LedDoorLidV2 Off 255 255 255 20 6 Else LED LedDoorCup Off 255 255 255 255 LED LedDoorLid Off 255 255 255 255 EndIf Var showCart = "Invisible" Var LedLidBlink = "no" Var EnableSelectMenuBetweenBrew = "Enable" If JXMLVersionInt > 412 Then Var ToppingNewShow = "true" EndIf DEBUGVAR XMLProfile Machine CancelWepApp StrLen AdvertiseProfile AdvertiseProfileLen STRCONTAIN "taobin_notopup" XMLProfile taobin_notopup DEBUGVAR taobin_notopup If taobin_notopup = "true" Then Var ButtontoTopupMenu = "Disable" Else If SELLSTATUS = "SELLNOCASH" Then Var ButtontoTopupMenu = "Disable" Else Var ButtontoTopupMenu = "Enable" EndIf EndIf If NetworkStatus = "DOWN" Then Var WebAppShow = "Invisible" EndIf DEBUGVAR XMLPageVersionInt ; forever Var new_layout = "true" Machine MenuLayoutNew DEBUGVAR SpiralOnline Topping "ClearNextOrder" "-" If AdvertiseProfileLen = 0 Then CacheVarStr "get" AdvertiseProfile Else CacheVarStr "put" AdvertiseProfile EndIf DEBUGVAR AdvertiseProfile Var show_lang = "THAI" Var NETCORE_EVENT_CNT_TMP = NCIC07_EVENT_CNT DEBUGVAR CameraCount If CameraCount = 0 Then CameraService "Start" EndIf If CameraCount = "" Then CameraService "Start" EndIf DEBUGVAR CountryName DEBUGVAR LanguageListEnable DEBUGVAR DisplayFormat DEBUGVAR ScaleValueForCalculation DEBUGVAR PreScaleConvertShow DEBUGVAR UnitPostDisplay DEBUGVAR LanguageInit Var TextPriceMenuSize = 14 Var TextPriceMenuY = 264 Var TextPriceMenuBlendX = 174 Var TextPriceMenuHotX = 50 ; zone init lang ; CountryName Var show_eng_button_stage = "Enable" Var MemberButtonFileName = "ROOT/taobin_project/image/TermTempage2/bp_main_page_member.png" Machine __arm_toggle GetLongTimeInMinute CurrentTime DEBUGVAR LastTimeClickOrder DEBUGVAR CurrentTime If LastTimeClickOrder = "" Then GetLongTimeInMinute LastTimeClickOrder EndIf Var DiffTimeInMinute = CurrentTime - LastTimeClickOrder DEBUGVAR DiffTimeInMinute If DiffTimeInMinute > 120 Then GetLongTimeInMinute LastTimeClickOrder ScreenRefresh EndIf ; zone config language SetLanguage LanguageInit Var InternationalEnable = 0 Var InternationalEnableStr = "false" Var cups_sold_text = "เสิร์ฟแล้ว ( CUPS SOLD )" Var XButtonMember = 212 Var YButtonMember = 1695 ; CountryName If CountryName = "" Then READ_FILE "/mnt/sdcard/coffeevending/country/short" StrCountryShort DEBUGVAR StrCountryShort If StrCountryShort = "MYS" Then Var CountryName = "Malaysia" EndIf If StrCountryShort = "MYR" Then Var CountryName = "Malaysia" EndIf If StrCountryShort = "AUS" Then Var CountryName = "Australia" EndIf If StrCountryShort = "SGP" Then Var CountryName = "Singapore" EndIf If StrCountryShort = "UAE_DUBAI" Then Var CountryName = "UnitedArabEmirates Dubai" EndIf If StrCountryShort = "" Then Var CountryName = "Thailand" EndIf ; EndIf ; Zone set video main page. ; ignore collection point Var SettingIgnoreCollectPoint = 0 Var SettingVideoBrewingUseCommon = 0 Var adver_brewing_en = 1 ;inter-xml-open If CountryName = "Australia" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/aus/video/script_video.ev" EndIf ;inter-xml-open If CountryName = "Malaysia" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/video/script_video.ev" EndIf ;inter-xml-open If CountryName = "Thailand" Then TRY "/mnt/sdcard/coffeevending/taobin_project/video/script1.ev" EndIf ;inter-xml-open If CountryName = "USANewYork" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/usaNY/video/script_video.ev" EndIf ;inter-xml-open If CountryName = "Singapore" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/sgp/video/script_video.ev" EndIf DEBUGVAR CountDownShowButton DEBUGVAR EventTurnOn ;inter-page-board If CountryName = "Malaysia" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/video/script_video.ev" Var WebAppShow = "Invisible" EnableLanguage "ENG" EnableLanguage "MALAY" SetLanguage "ENG" LanguageControl "UpdateList" "-" Var InternationalEnable = 1 Var show_eng = "true" ;Var VideoMainPage = "ROOT/taobin_project/inter/common/video/video_main.mp4" Var img_press_main_page = "ROOT/taobin_project/image/main_page_en/bp_main_page_start.png" Var ShowNetworkProblemText = "Network error. Payment Cash only." Var CountryRootPath = "ROOT/taobin_project/inter/mys/" Var CountryShortName = "mys" Var PriceUnitText = "Prices in MYR" Var TextPriceMenuSize = 12 Var TextPriceMenuY = 266 Var ShowButtonClick2 = "Enable" Var ButtontoTopupMenu = "Invisible" Var MemberButtonFileName = "ROOT/taobin_project/image/main_page_en/bp_main_page_member.png" Var show_eng_button_stage = "Invisible" Var CountDownShowButton = 35 Var XButtonMember = 384 Var YButtonMember = 1695 If Not#LanguageLoaded = "" Then LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/mys/menu/lang.tsv" EndIf ; load credit If EnableCreditCard = "" Then CacheVarStr "get" EnableCreditCard Else CacheVarStr "put" EnableCreditCard EndIf DEBUGVAR EnableCreditCard STRCONTAIN "1215" MaterialAvailable SugarZeroCalEnable Var MinPhoneNumber = 10 Var MaxPhoneNumber = 11 EndIf ;inter-page-board If CountryName = "Indonesia" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/idr/video/script_video.ev" Var TextPriceMenuSize = 14 Var show_eng_button_stage = "Invisible" Var MemberButtonFileName = "ROOT/taobin_project/image/main_page_en/bp_main_page_member.png" Var CountryRootPath = "ROOT/taobin_project/inter/ids/" Var CountDownShowButton = 35 Var CountryShortName = "ids" If Not#LanguageLoaded = "" Then LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/ids/menu/lang.tsv" EndIf Var PriceUnitText = "" Var XButtonMember = 212 Var YButtonMember = 1695 Var MinPhoneNumber = 11 Var MaxPhoneNumber = 12 STRCONTAIN "1215" MaterialAvailable SugarZeroCalEnable EndIf ;inter-page-board If CountryName = "Australia" Then Var SettingVideoBrewingUseCommon = 1 TRY "/mnt/sdcard/coffeevending/taobin_project/inter/aus/video/script_video.ev" Var WebAppShow = "Invisible" EnableLanguage "ENG" SetLanguage "ENG" LanguageControl "UpdateList" "-" Var InternationalEnable = 1 Var show_eng = "true" ;Var VideoMainPage = "ROOT/taobin_project/inter/aus/video/video_main.mp4" Var img_press_main_page = "ROOT/taobin_project/image/main_page_en/bp_main_page_start.png" Var ShowNetworkProblemText = "Network error. Payment Cash only." Var CountryRootPath = "ROOT/taobin_project/inter/aus/" Var CountryShortName = "aus" Var TextPriceMenuSize = 12 Var TextPriceMenuY = 264 Var TextPriceMenuBlendX = 180 Var TextPriceMenuHotX = 48 Var ShowButtonClick2 = "Enable" Var ButtontoTopupMenu = "Invisible" Var PriceUnitText = "" Var MemberButtonFileName = "ROOT/taobin_project/image/main_page_en/bp_main_page_member.png" Var show_eng_button_stage = "Invisible" Var CountDownShowButton = 35 Var XButtonMember = 384 Var YButtonMember = 1695 If Not#LanguageLoaded = "" Then LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/aus/menu/lang.tsv" EndIf DEBUGVAR MaterialAvailable STRCONTAIN "511215" MaterialAvailable SugarZeroCalEnable Var cups_sold_text = "CUPS SOLD" Var MinPhoneNumber = 8 Var MaxPhoneNumber = 8 EndIf ;inter-page-board If CountryName = "USANewYork" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/usaNY/video/script_video.ev" Var WebAppShow = "Invisible" EnableLanguage "ENG" SetLanguage "ENG" LanguageControl "UpdateList" "-" Var InternationalEnable = 1 Var show_eng = "true" ;Var VideoMainPage = "ROOT/taobin_project/inter/usaNY/video/video_main.mp4" Var img_press_main_page = "ROOT/taobin_project/image/main_page_en/bp_main_page_start.png" Var ShowNetworkProblemText = "Network error. Payment Cash only." Var CountryRootPath = "ROOT/taobin_project/inter/usaNY/" Var CountryShortName = "usaNY" ar TextPriceMenuSize = 12 Var TextPriceMenuY = 264 Var TextPriceMenuBlendX = 180 Var TextPriceMenuHotX = 48 Var ShowButtonClick2 = "Enable" Var ButtontoTopupMenu = "Invisible" Var PriceUnitText = "" Var MemberButtonFileName = "ROOT/taobin_project/image/main_page_en/bp_main_page_member.png" Var show_eng_button_stage = "Invisible" Var CountDownShowButton = 35 Var XButtonMember = 212 Var YButtonMember = 1695 If Not#LanguageLoaded = "" Then LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/usaNY/menu/lang.tsv" EndIf STRCONTAIN "1215" MaterialAvailable SugarZeroCalEnable Var MinPhoneNumber = 10 Var MaxPhoneNumber = 11 EndIf ;inter-page-board If CountryName = "Singapore" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/sgp/video/script_video.ev" Var WebAppShow = "Invisible" EnableLanguage "ENG" SetLanguage "ENG" LanguageControl "UpdateList" "-" Var InternationalEnable = 1 Var show_eng = "true" Var img_press_main_page = "ROOT/taobin_project/image/main_page_en/bp_main_page_start.png" Var ShowNetworkProblemText = "Network error. Payment Cash only." Var CountryRootPath = "ROOT/taobin_project/inter/sgp/" Var CountryShortName = "sgp" ar TextPriceMenuSize = 12 Var TextPriceMenuY = 264 Var TextPriceMenuBlendX = 180 Var TextPriceMenuHotX = 48 Var ShowButtonClick2 = "Invisible" Var ButtontoTopupMenu = "Invisible" Var PriceUnitText = "Price in SGD" Var MemberButtonFileName = "ROOT/taobin_project/image/main_page_en/bp_main_page_member.png" Var show_eng_button_stage = "Invisible" Var CountDownShowButton = 35 Var XButtonMember = 384 Var YButtonMember = 1695 If Not#LanguageLoaded = "" Then LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/sgp/menu/lang.tsv" EndIf STRCONTAIN "521215" MaterialAvailable SugarZeroCalEnable Var SettingDisableTaobinCredit = "true" Var SettingDisableTaobinCode = "false" ; Singapore disable point Var SettingIgnoreCollectPoint = 1 Var SettingVideoBrewingUseCommon = 1 Var MinPhoneNumber = 8 Var MaxPhoneNumber = 8 EndIf ;inter-page-board ; wait If CountryName = "UnitedArabEmirates Dubai" Then SAVELOG "UnitedArabEmirates Dubai UnitedArabEmirates Dubai UnitedArabEmirates Dubai" TRY "/mnt/sdcard/coffeevending/taobin_project/inter/uae_dubai/video/script_video.ev" Var WebAppShow = "Invisible" EnableLanguage "ENG" EnableLanguage "UAE_DUBAI" SetLanguage "ENG" LanguageControl "UpdateList" "-" Var InternationalEnable = 1 Var show_eng = "true" Var img_press_main_page = "ROOT/taobin_project/image/main_page_en/bp_main_page_start.png" Var ShowNetworkProblemText = "Network error. Payment Cash only." Var CountryRootPath = "ROOT/taobin_project/inter/uae_dubai/" Var CountryShortName = "uae_dubai" Var TextPriceMenuSize = 12 Var TextPriceMenuY = 266 Var TextPriceMenuBlendX = 180 Var TextPriceMenuHotX = 48 Var ShowButtonClick2 = "Enable" Var ButtontoTopupMenu = "Invisible" Var PriceUnitText = "Price in DH" Var MemberButtonFileName = "ROOT/taobin_project/image/main_page_en/bp_main_page_member.png" Var show_eng_button_stage = "Invisible" Var CountDownShowButton = 35 Var XButtonMember = 384 Var YButtonMember = 1695 If Not#LanguageLoaded = "" Then LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/uae_dubai/menu/lang.tsv" EndIf Var SettingDisableTaobinCredit = "true" Var SettingDisableTaobinCode = "false" ; Dubai disable point Var SettingIgnoreCollectPoint = 1 Var SettingVideoBrewingUseCommon = 1 Var MinPhoneNumber = 9 Var MaxPhoneNumber = 9 EndIf DEBUGVAR InternationalEnable DEBUGVAR CountryRootPath If InternationalEnable = 1 Then Var LanguageObjectShow = "Enable" Var NoLangObjectShow = "Invisible" Var XMLLiveInfoEnable = 0 If Not#LanguageResult = "false" Then LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/ui/lang.tsv" EndIf Var RootPath = "ROOT/taobin_project/inter/common/" Var OpenFileXML = CountryRootPath + "xml/event/tricker.ev" DEBUGVAR OpenFileXML TRY OpenFileXML Else Var LanguageObjectShow = "Invisible" Var NoLangObjectShow = "Enable" TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/tricker.ev" Var RootPath = "ROOT/taobin_project/" EndIf TRY "/mnt/sdcard/coffeevending/taobin_project/xml/multi_ads/ads_path.ev" Var StrXMLPageVer = "ver=" + XMLPageVersionInt WRITE_FILE "/mnt/sdcard/coffeevending/version/xml_page_version.int" StrXMLPageVer If SELLONLINE = 1 Then Else Var ShowNetworkProblem = "Enable" Var ShowButtonClick2 = "Invisible" If NetworkStatus = "DOWN" Then Machine NetworkDown EndIf Var QRCODE99 = "" WEB "DISABLE" EndIf If GameInstalled = "" Then CheckApp "com.NDF.taobin" GameInstalled EndIf Var CountDownCheckCamera = 10 ;DEBUGVAR EnableLiveness DEBUGVAR LivenessLicenseFailNumber ;DEBUGVAR LivenessControlVersion ;DEBUGVAR Not#CameraSettingStatus RootLayoutVisible 3 "hide" If SELLSTATUS = "DEACTIVE" Then Open "/ROOT/xml/offline.xml" EndIf Var CheckCupStateDoorCupClose = "" ; zone cup on arm If CupOnArm = "true" Then If CheckCupStateDoorCupClose = "" Then Var buttonRemoveCup = "Enable" EndIf If CheckCupStateDoorCupClose = "done" Then Var buttonRemoveCup = "Enable" EndIf Else If buttonRemoveCup = "Enable" Then Var buttonRemoveCup = "Invisible" EndIf EndIf TRY "ROOT/taobin_project/xml/profile/run.ev" Var NETCORE_LOST_COUNT_UP = 0 Var NoWaitMachineEnable = 1 DEBUGVAR NeedUpgrade If NoWaitMachineEnable = 1 Then If stop_now = "true" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf Else If MachineStage = "close-maintenance" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf EndIf If MachineStage = "mcu-upgrade" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf If NeedUpgrade = "true" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf If RoadShow = "true" Then Var ShowNetworkProblem = "Invisible" Var ShowNetworkProblemText = "" EndIf Var SlientRefreshEnable = 0 Var ShouldShowNamHomCoconutRemainReward = 0 Var ShowNamHomCoconutRemainReward = "Invisible" Var GetNamHomCoconutRemainReward = 0 Var NamHomCoconutRemainReward_Y = 1071 Var NamHomCoconutRemainRewardNumber_Y = 1130 DEBUGVAR NamHomCoconutPro DEBUGVAR CurrentMainVideo If NamHomCoconutPro = 1 Then If CurrentMainVideo = 2 Then Var ShouldShowNamHomCoconutRemainReward = 1 EndIf Var GetNamHomCoconutRemainReward = 1 Var dummy_phone = "089999999" GETACCEXT dummy_phone 34 EndIf If EnergyDrink1BathPro = 1 Then If CurrentMainVideo = 1 Then Var VideoMainPage = "ROOT/taobin_project/video/main_page_event_pro2.mp4" Var CurrentMainVideoTemp = 2 EndIf EndIf If CoffeeDrink1BathPro = 1 Then If CurrentMainVideo = 1 Then Var VideoMainPage = "ROOT/taobin_project/video/main_page_event_pro3.mp4" Var CurrentMainVideoTemp = 2 EndIf EndIf Var CurrentMainVideo = CurrentMainVideoTemp If SettingDisableTaobinCredit = "true" Then Var ShowButtonClick2 = "Invisible" EndIf DEBUGVAR CLOSE_ORDER_NOW If GetNamHomCoconutRemainReward = 1 Then If Ext1a = "" Then SAVELOG "Get Nam hom coconut remain reward error Ext1a is empty." Else DEBUGVAR Ext1a SPLIT2 Ext1a "/" RemainRewardSpl Var SuperSetRemain = RemainRewardSpl[0] Var BalanceEssenceTonerRemain = RemainRewardSpl[1] Var CleansingGalRemain = RemainRewardSpl[2] Var TumbleBottleRemain = RemainRewardSpl[3] Var ClearGelRemain = RemainRewardSpl[4] Var E_GiftCard100BathRemain = RemainRewardSpl[5] Var ClearGel4mlRemain = RemainRewardSpl[6] INT SuperSetRemain INT BalanceEssenceTonerRemain INT CleansingGalRemain INT TumbleBottleRemain INT ClearGelRemain INT E_GiftCard100BathRemain INT ClearGel4mlRemain Var SumNamHomCoconutRemainReward = SuperSetRemain Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + BalanceEssenceTonerRemain Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + CleansingGalRemain Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + TumbleBottleRemain Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + ClearGelRemain Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + E_GiftCard100BathRemain Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + ClearGel4mlRemain If ShouldShowNamHomCoconutRemainReward = 1 Then Var ShowNamHomCoconutRemainReward = "Enable" EndIf ;DEBUG ;Var SumNamHomCoconutRemainReward = 200 If SumNamHomCoconutRemainReward > 500 Then Var ShowNamHomCoconutRemainReward = "Invisible" Else If SumNamHomCoconutRemainReward = 0 Then SAVELOG "NamHomCoconutPro: All reward out of stock" WRITE_FILE "/mnt/sdcard/nam_hom_coconut_reward_out_of_stock" "1" EndIf EndIf Var NamHomCoconutRemainReward = SumNamHomCoconutRemainReward DEBUGVAR NamHomCoconutRemainReward EndIf EndIf If GetNamHomCoconutRemainReward = 1 Then SAVELOG "Get Nam hom coconut remain reward requet error." EndIf Var XMLProfile = "AllPriceUp05" Open CurrentXMLFileName0 Var NextPage = "ROOT/taobin_project/xml/page_back_to_main.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" Var OpenFromPageBoard = 1 If InternationalEnable = 1 Then ; show language icon OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" RootLayoutVisible 3 "show" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_group_recommend.lxml" Else TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev" EndIf Machine DoorClose TopView "show" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" Var XMLProfile = "AllPriceUp10" Open CurrentXMLFileName0 Var XMLProfile = "Discount50" Open CurrentXMLFileName0 SAVELOG "EventDrink EventDrink EventDrink EventDrink EventDrink " 1000 If CNTDOWN_PROTECT_SCREEN_BLANK > 0 Then Var CNTDOWN_PROTECT_SCREEN_BLANK = CNTDOWN_PROTECT_SCREEN_BLANK - 1 EndIf If CNTDOWN_PROTECT_SCREEN_BLANK = 0 Then SAVELOG "CNTDOWN_PROTECT_SCREEN_BLANK" Open "ROOT/taobin_project/xml/page_board.xml" EndIf If IgnoreNetCore = "true" Then Else If NetworkStatus = "DOWN" Then Var WebAppShow = "Invisible" EndIf If SELLSTATUS = "DEACTIVE" Then Open "/ROOT/xml/offline.xml" EndIf If NoWaitMachineEnable = 1 Then If RecoveryRunning = "true" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf If stop_now = "true" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf Else If MachineStage = "close-maintenance" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf EndIf If CLOSE_ORDER_NOW = "true" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf If MachineStage = "mcu-upgrade" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf ;stop_now If NETCORE_LOST_CNT > 120 Then Var stop_now = "true" Var MachineErrorDetailAll = "???" SAVELOG "NETCORE_LOST_CNT" TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf ;DEBUGVAR NETCORE_EVENT_CNT_X If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then If NETCORE_EVENT_CNT_X = "" Then Var NETCORE_EVENT_CNT_X = 0 EndIf Var NETCORE_EVENT_CNT_X = NETCORE_EVENT_CNT_X + 1 If NETCORE_EVENT_CNT_X = 30 Then DEBUGVAR NETCORE_EVENT_CNT_X EndIf If NETCORE_EVENT_CNT_X = 90 Then DEBUGVAR NETCORE_EVENT_CNT_X EndIf If NETCORE_EVENT_CNT_X > 3600 Then Var stop_now = "true" Var stop_now_from_netcore_event = 1 Var MachineErrorDetailAll = "Netcore Lost" SAVELOG "Netcore Lost NCIC07_EVENT_CNT" DEBUGVAR NCIC07_EVENT_CNT TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf Else Var NETCORE_EVENT_CNT_X = 0 Var NETCORE_EVENT_CNT_TMP = NCIC07_EVENT_CNT EndIf EndIf If MachineStage = "drink-failed" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf If MachineStage = "remove-cup" Then Open "ROOT/taobin_project/xml/page_remove_cup.xml" EndIf If BrewTimeoutExtend = 1 Then DEBUGVAR BrewTimeoutExtend DEBUGVAR DoorCupPosition If DoorCupPosition = "bottom" Then SAVELOG "BrewTimeoutExtend = 0 Clear Error Flag" Var BrewTimeoutExtend = 0 ; clear stage Else Var stop_now = "true" Var stop_now_from_door_cup = 1 TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf Else If DoorCupPosition = "Bottom" Then Var BrewTimeoutExtend = 0 Else Var BrewTimeoutExtend = 0 EndIf EndIf If NeedUpgrade = "true" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf If CountDownShowButton > 0 Then Var CountDownShowButton = CountDownShowButton - 1 EndIf ;DEBUGVAR MachineStage ;SAVELOG CountDownShowButton ;SAVELOG ShowButtonClickFull If TaobinOnlineX = "true" Then If CountDownShowButton = 31 Then Var ShowButtonClickFull = "Enable" Var ShowButtonClick = "Invisible" Refresh EndIf If CountDownShowButton = 3 Then Var ShowButtonClick = "Enable" Var ShowButtonClickFull = "Invisible" Refresh EndIf If CountDownPauseVideo > 0 Then ; ignore Var CountDownPauseVideo = CountDownPauseVideo - 1 If CountDownPauseVideo = 2 Then TapScreen 30 638 EndIf If CountDownPauseVideo = 1 Then TapScreen 860 1004 EndIf If CountDownPauseVideo = 0 Then Var NextPage = "ROOT/taobin_project/xml/page_back_to_main.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" Var OpenFromPageBoard = 1 If InternationalEnable = 1 Then ; show language icon OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" RootLayoutVisible 3 "show" Var OpenFileXML = CountryRootPath + "xml/event/script_common_for_open_promotion_xml.ev" TRY OpenFileXML ;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_group_recommend.lxml" Else If BeerTrapEnable = "true" Then OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" Else TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev" EndIf EndIf Machine DoorClose TopView "show" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" EndIf EndIf EndIf If TimerFirst = "true" Then Var TimerFirst = "false" Var CountUpReloadAll = CountUpReloadAll + 1 DEBUGVAR CountUpReloadAll ; Original value is 40 If EnableMultiInstance = "true" Then If CountUpReloadAll > 300 Then Var NeedReboot = "false" Var StartUpExt = "-" Var CountUpReloadAll = 0 ReloadAll EndIf Else If CountUpReloadAll > 100 Then Var NeedReboot = "false" Var StartUpExt = "-" Var CountUpReloadAll = 0 ReloadAll EndIf EndIf EndIf If CupOnArm = "true" Then If CheckCupStateDoorCupClose = "" Then Var buttonRemoveCup = "Enable" EndIf If CheckCupStateDoorCupClose = "done" Then Var buttonRemoveCup = "Enable" EndIf Else If buttonRemoveCup = "Enable" Then Var buttonRemoveCup = "Invisible" EndIf EndIf If Seeker = "curr" Then If DoorCupPosition = "bottom" Then ; It normal Var EmergencyStop = "false" Else Var EmergencyStop = "true" EndIf EndIf If MainPageEventWithTimeout = "" Then Else If MainPageEventWithTimeout > 0 Then Var MainPageEventWithTimeout = MainPageEventWithTimeout - 1 EndIf ;DEBUGVAR MainPageEventWithTimeout If MainPageEventWithTimeout = 1 Then Var CountDownPauseVideo = 4 EndIf EndIf Refresh TimerReset SAVELOG "EVENT END" If TaobinOnlineX = "true" Then Var CountDownShowButton = 35 EndIf If TermTemOnline = "true" Then Var CountDownShowButton = 28 EndIf Var CountDownPauseVideo = 6 If TaobinOnlineX = "true" Then ;TouchTapClose EndIf ;Open CurrentXMLFileName0 Refresh SAVELOG NetworkStatus ;Open "/mnt/sdcard/coffeevending/xml/main.xml" SAVELOG NetworkStatus If SELLSTATUS = "DEACTIVE" Then Open "/mnt/sdcard/coffeevending/xml/main.xml" EndIf DEBUGVAR web_ready If web_ready = "true" Then If web_ref = QRCODE99x Then Var web_readyOK = web_ready Var web_telnumOK = web_telnum Var web_app_prepar = "true" ; Handle penetrator If Only18 = "true" Then OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 2 "ROOT/taobin_project/xml/page_identity18_verification.xml" Else OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" EndIf TopView "show" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" EndIf Else EndIf 224 NamHomCoconutRemainReward_Y ShowNamHomCoconutRemainReward "ROOT/taobin_project/image/event/nam_hom_coconut/reward_remain.png" 379 NamHomCoconutRemainRewardNumber_Y ShowNamHomCoconutRemainReward 224 112 OpunBoldTTF 100 0xFF0000 center-vertical-horizontal NamHomCoconutRemainReward 778 632 WebAppShow "ROOT/taobin_project/image/home/home/qr_bg.png" 843 98 150 "0xeae6e1" "0x000000" 150 WebAppShow testservice ShowNetworkProblem 5 1880 24 Center 1080 RobotoRegular 0xFFFFFF ShowNetworkProblemText