0 608 "Enable" 1080 1312 "0xFF0000" SoundVolume TopView "hide" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/topview_button_back_main.xml" Var FileNumber = 1 DEBUGVAR SoundVolume 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 Var taobin_version = "1.00" 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 = "" ; 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 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 KanitSemiBoldTTF = "ROOT/taobin_project/font/Kanit/Kanit-Medium.ttf" Var BlinkStar = "ROOT/taobin_project/image/animation/blink_star.gif" 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 If MachineStage = "close-maintenance" Then Open "ROOT/taobin_project/xml/page_show_error.xml" EndIf If MachineStage = "mcu-upgrade" Then Open "ROOT/taobin_project/xml/page_show_error.xml" EndIf If NeedUpgrade = "true" Then Open "ROOT/taobin_project/xml/page_show_error.xml" EndIf Var TestLoopMakeDrink = 0 Var TestLoopSuccess = 0 Var TestLoopFailed = 0 Var cock_tail_str = "" READ_FILE "/mnt/sdcard/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" Else Var WheyShow = "true" Var CocktailShow = "false" Var RoadShow = "false" EndIf Var TermTemOnline = "false" Var TaobinOnline = "false" STRCONTAIN "9501" MaterialAvailable TaobinOnline STRCONTAIN "9505" MaterialAvailable TermTemOnline ; App fast STRCONTAIN "1063" MaterialAvailable AppFastEnable ;Var AppFastEnable = "false" If AppFastEnable = "true" Then Var AppFastButtonState = "Enable" Var WheyButtonState = "Invisible" Else Var AppFastButtonState = "Invisible" Var WheyButtonState = "Enable" EndIf Var TaobinOnlineX = "true" DEBUGVAR AppFastEnable DEBUGVAR TaobinOnline DEBUGVAR TermTemOnline ; Dtac. DEBUGVAR ShowDtac1 Var CAMPAIGN1 = "false" If TaobinOnlineX = "true" Then Var CountDownShowButton = 35 Var ShowButtonClickFull = "Invisible" Var VideoMainPage = "ROOT/taobin_project/video/main_page.mp4" EndIf If TermTemOnline = "true" Then Var CountDownShowButton = 28 Var ShowButtonClickFull = "Enable" Var VideoMainPage = "ROOT/termtem_project/video/termtem01.mp4" EndIf If TaobinOnlineX = "false" Then If TermTemOnline = "false" Then ; TODO Machine Initial Open "/ROOT/xml/outservice.xml" EndIf EndIf DEBUGVAR NetworkStatus If NetworkStatus = "ACTIVATE" 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 = "การสื่อสารขัดข้อง ชำระเงินได้เฉพาะเงินสด" Machine NetworkDown Var QRCODE99 = "" WEB "DISABLE" EndIf Var ShowPrice = "Enable" If RoadShow = "true" Then Var ShowPrice = "Invisible" EndIf ;SAVELOG WheyShow ;SAVELOG CocktailShow DEBUGVAR RoadShow ;SAVELOG ShowPrice Var CountDownPauseVideo = 0 Var NextPage = "-" If StartUpExt = "false" Then Else Machine Initial Var StartUpExt = "false" EndIf 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 SPLIT AdvertiseProfile "/" 1 AdvertiseProfile1 SPLIT AdvertiseProfile "/" 2 AdvertiseProfile2 SPLIT AdvertiseProfile "/" 3 AdvertiseProfile3 SPLIT AdvertiseProfile "/" 4 AdvertiseProfile4 SPLIT AdvertiseProfile "/" 5 AdvertiseProfile5 SPLIT AdvertiseProfile "/" 6 AdvertiseProfile6 SPLIT AdvertiseProfile "/" 7 AdvertiseProfile7 SPLIT AdvertiseProfile "/" 8 AdvertiseProfile8 SPLIT AdvertiseProfile "/" 9 AdvertiseProfile9 SPLIT AdvertiseProfile "/" 10 AdvertiseProfile10 SPLIT AdvertiseProfile "/" 11 AdvertiseProfile11 SPLIT AdvertiseProfile "/" 12 AdvertiseProfile12 SPLIT AdvertiseProfile "/" 13 AdvertiseProfile13 SPLIT AdvertiseProfile "/" 14 AdvertiseProfile14 SPLIT AdvertiseProfile "/" 15 AdvertiseProfile15 SPLIT AdvertiseProfile "/" 16 AdvertiseProfile16 SPLIT AdvertiseProfile "/" 17 AdvertiseProfile17 SPLIT AdvertiseProfile "/" 18 AdvertiseProfile18 ; Default Var AdvTaobinHome = "/mnt/sdcard/coffeevending/taobin_project/adv/taobin_adv_" Var AdvTaobinMenu = "/mnt/sdcard/coffeevending/taobin_project/adv/taobin_adv_menu_" Var AdvTaobinMenu2 = "/mnt/sdcard/coffeevending/taobin_project/adv/taobin_adv_menu2_" Var video_main_0 = AdvTaobinHome + AdvertiseProfile7 Var video_main_0 = video_main_0 + ".mp4" Var video_main_1 = AdvTaobinHome + AdvertiseProfile8 Var video_main_1 = video_main_1 + ".mp4" Var video_main_2 = AdvTaobinHome + AdvertiseProfile9 Var video_main_2 = video_main_2 + ".mp4" Var video_main_3 = AdvTaobinHome + AdvertiseProfile10 Var video_main_3 = video_main_3 + ".mp4" Var video_main_4 = AdvTaobinHome + AdvertiseProfile11 Var video_main_4 = video_main_4 + ".mp4" Var video_main_5 = AdvTaobinHome + AdvertiseProfile12 Var video_main_5 = video_main_5 + ".mp4" Var video_main_5 = AdvTaobinHome + AdvertiseProfile13 Var video_main_6 = video_main_6 + ".mp4" If AdvertiseProfile7 = "00" Then Var video_main_count = 1 Else If AdvertiseProfile8 = "00" Then Var video_main_count = 1 Else If AdvertiseProfile9 = "00" Then Var video_main_count = 2 Else If AdvertiseProfile10 = "00" Then Var video_main_count = 3 Else If AdvertiseProfile11 = "00" Then Var video_main_count = 4 Else If AdvertiseProfile12 = "00" Then Var video_main_count = 5 Else Var video_main_count = 6 EndIf EndIf EndIf EndIf EndIf EndIf If VideoAdvIndex = 0 Then Var video_menu_0 = AdvTaobinMenu + AdvertiseProfile7 Var video_menu_0 = video_menu_0 + ".mp4" EndIf If VideoAdvIndex = 1 Then Var video_menu_0 = AdvTaobinMenu + AdvertiseProfile8 Var video_menu_0 = video_menu_0 + ".mp4" EndIf If VideoAdvIndex = 2 Then Var video_menu_0 = AdvTaobinMenu + AdvertiseProfile9 Var video_menu_0 = video_menu_0 + ".mp4" EndIf If VideoAdvIndex = 3 Then Var video_menu_0 = AdvTaobinMenu + AdvertiseProfile10 Var video_menu_0 = video_menu_0 + ".mp4" EndIf If VideoAdvIndex = 4 Then Var video_menu_0 = AdvTaobinMenu + AdvertiseProfile11 Var video_menu_0 = video_menu_0 + ".mp4" EndIf If VideoAdvIndex = 5 Then Var video_menu_0 = AdvTaobinMenu + AdvertiseProfile12 Var video_menu_0 = video_menu_0 + ".mp4" EndIf If VideoAdvIndex = 6 Then Var video_menu_0 = AdvTaobinMenu + AdvertiseProfile13 Var video_menu_0 = video_menu_0 + ".mp4" EndIf If VideoAdvIndex = 0 Then Var video_menu2_1 = AdvTaobinMenu2 + AdvertiseProfile7 Var video_menu2_1 = video_menu2_1 + ".mp4" EndIf If VideoAdvIndex = 1 Then Var video_menu2_1 = AdvTaobinMenu2 + AdvertiseProfile8 Var video_menu2_1 = video_menu2_1 + ".mp4" EndIf If VideoAdvIndex = 2 Then Var video_menu2_1 = AdvTaobinMenu2 + AdvertiseProfile9 Var video_menu2_1 = video_menu2_1 + ".mp4" EndIf If VideoAdvIndex = 3 Then Var video_menu2_1 = AdvTaobinMenu2 + AdvertiseProfile10 Var video_menu2_1 = video_menu2_1 + ".mp4" EndIf If VideoAdvIndex = 4 Then Var video_menu2_1 = AdvTaobinMenu2 + AdvertiseProfile11 Var video_menu2_1 = video_menu2_1 + ".mp4" EndIf If VideoAdvIndex = 5 Then Var video_menu2_1 = AdvTaobinMenu2 + AdvertiseProfile12 Var video_menu2_1 = video_menu2_1 + ".mp4" EndIf If VideoAdvIndex = 6 Then Var video_menu2_1 = AdvTaobinMenu2 + AdvertiseProfile13 Var video_menu2_1 = video_menu2_1 + ".mp4" EndIf DEBUGVAR video_menu2_1 Var showCart = "Invisible" Var LedLidBlink = "no" Var WebAppShow = "Enable" Var EnableSelectMenuBetweenBrew = "Enable" DEBUGVAR XMLProfile Machine CancelWepApp StrLen AdvertiseProfile AdvertiseProfileLen If XMLProfile = "taobin_notopup" Then Var ButtontoTopupMenu = "Disable" Else Var ButtontoTopupMenu = "Enable" EndIf If NetworkStatus = "DOWN" Then Var WebAppShow = "Invisible" EndIf ;READ_FILE "/mnt/sdcard/spiral" SpiralOnline READ_FILE "/mnt/sdcard/new_layout" new_layout DEBUGVAR XMLPageVersionInt If XMLPageVersionInt > 640 Then Var new_layout = "true" Else Var new_layout = "false" EndIf DEBUGVAR new_layout If new_layout = "true" Then Machine MenuLayoutNew Else Machine MenuLayoutOld EndIf DEBUGVAR SpiralOnline Topping "ClearNextOrder" "-" If NetworkStatus = "DEACTIVE" Then Open "/ROOT/xml/offline.xml" EndIf If AdvertiseProfileLen = 0 Then CacheVarStr "get" AdvertiseProfile Else STRCONTAIN "00/00" AdvertiseProfile advPro If advPro = "true" Then CacheVarStr "get" AdvertiseProfile Else CacheVarStr "put" AdvertiseProfile EndIf EndIf DEBUGVAR AdvertiseProfile If RoadShow = "true" Then ;Var new_layout = "false" EndIf Var show_lang = "THAI" ;Var NETCORE_EVENT_CNT_TMP = 0 ;DEBUGVAR NETCORE_EVENT_CNT_TMP ;DEBUGVAR NCIC07_EVENT_CNT ; ;If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then ; ; Var NETCORE_EVENT_CNT_X = NETCORE_EVENT_CNT_X + 1 ; If NETCORE_EVENT_CNT_X >= 3 Then ; Var stop_now = "true" ; Var MachineErrorDetailAll = "Netcore Lost" ; DEBUGVAR "NCIC07_EVENT_CNT" ; DEBUGVAR NCIC07_EVENT_CNT ; Open "ROOT/taobin_project/xml/page_show_error.xml" ; EndIf ; ; ; ;Else ; ; Var NETCORE_EVENT_CNT_TMP = NCIC07_EVENT_CNT ; Var NETCORE_EVENT_CNT_X = 0 ; ;EndIf Var NETCORE_EVENT_CNT_X = 0 Var NETCORE_EVENT_CNT_TMP = NCIC07_EVENT_CNT 1000 If IgnoreNetCore = "true" Then Else If NetworkStatus = "DOWN" Then ;Open "/ROOT/xml/outservice.xml" Var WebAppShow = "Invisible" EndIf If NetworkStatus = "DEACTIVE" Then Open "/ROOT/xml/offline.xml" EndIf If MachineStage = "close-maintenance" Then Open "ROOT/taobin_project/xml/page_show_error.xml" EndIf If MachineStage = "mcu-upgrade" Then Open "ROOT/taobin_project/xml/page_show_error.xml" EndIf ;stop_now If NETCORE_LOST_CNT > 120 Then Var stop_now = "true" Var MachineErrorDetailAll = "???" SAVELOG "NETCORE_LOST_CNT" Open "ROOT/taobin_project/xml/page_show_error.xml" EndIf DEBUGVAR NETCORE_EVENT_CNT_X If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then Var NETCORE_EVENT_CNT_X = NETCORE_EVENT_CNT_X + 1 If NETCORE_EVENT_CNT_X >= 30 Then Var stop_now = "true" Var MachineErrorDetailAll = "Netcore Lost" DEBUGVAR "NCIC07_EVENT_CNT" DEBUGVAR NCIC07_EVENT_CNT Open "ROOT/taobin_project/xml/page_show_error.xml" EndIf Else Var NETCORE_EVENT_CNT_X = 0 Var NETCORE_EVENT_CNT_TMP = NCIC07_EVENT_CNT EndIf EndIf If MachineStage = "drink-failed" Then Open "ROOT/taobin_project/xml/page_show_error.xml" EndIf If MachineStage = "remove-cup" Then Open "ROOT/taobin_project/xml/page_remove_cup.xml" EndIf If NeedUpgrade = "true" Then Open "ROOT/taobin_project/xml/page_show_error.xml" EndIf If CountDownShowButton > 0 Then Var CountDownShowButton = CountDownShowButton - 1 EndIf ;SAVELOG 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 = 0 Then Var NextPage = "ROOT/taobin_project/xml/page_back_to_main.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" If new_layout = "true" Then OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_group_recommend.xml" Else OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_choose_drink1.xml" EndIf TopView "show" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" EndIf EndIf EndIf If TermTemOnline = "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 = 0 Then Var NextPage = "ROOT/taobin_project/xml/page_back_to_main.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 2 "/mnt/sdcard/coffeevending/termtem_project/xml/page_tt__catalog_choose_drink1.xml" 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 If CountUpReloadAll > 40 Then Var StartUpExt = "-" Var CountUpReloadAll = 0 ReloadAll EndIf EndIf ;DEBUGVAR CupOnArm ;Var CupOnArm = "true" If CupOnArm = "true" Then Var buttonRemoveCup = "Enable" Else Var buttonRemoveCup = "Invisible" EndIf If Seeker = "curr" Then If DoorCupPosition = "bottom" Then ; It normal Var EmergencyStop = "false" Else Var EmergencyStop = "true" ;Open "ROOT/taobin_project/xml/page_show_error.xml" EndIf EndIf Refresh TimerReset ;SAVELOG ShowButtonClick 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 Open "/mnt/sdcard/coffeevending/xml/main.xml" 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" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" TopView "show" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" EndIf Else EndIf 778 632 WebAppShow "ROOT/taobin_project/image/home/home/qr_bg.png" 843 98 150 "0xeae6e1" "0x000000" 150 WebAppShow testservice 5 1880 24 Center 1080 RobotoRegular 0xFFFFFF ShowNetworkProblemText