0 608 "Enable" 1080 1312 "0xeae6e1" SoundVolume DEBUGVAR LangProcess Var ToggleAfterEventProfileOff = 0 Var SetSpiralOnline = 0 ;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 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 KanitSemiBold = "ROOT/taobin_project/font/Kanit/Kanit-SemiBold.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 NotoSansThaiBold = "ROOT/taobin_project/font/Noto_Sans_Thai/NotoSansThai-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 MontserratBold = "ROOT/taobin_project/font/Montserrat/Montserrat-Bold.ttf" Var InterRegular = "ROOT/taobin_project/font/Inter/Inter-Regular.ttf" Var PepsiExtend = "ROOT/taobin_project/font/PepsiOwners2/PepsiOwners2-Extended220909.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 Else Var XPosiShowCountDownBrew = 768 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 ; 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 STRCONTAIN "1042" MaterialAvailable CocoaPowderEnable STRCONTAIN "1037" MaterialAvailable 7UpSyrupEnable STRCONTAIN "1038" MaterialAvailable PepsiHighYSyrupEnable STRCONTAIN "1052" MaterialAvailable CollagenPowderEnable ;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" 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 Else Var ShowNetworkProblem = "Enable" Var ShowButtonClick2 = "Invisible" Var ShowNetworkProblemText = "การสื่อสารขัดข้อง ชำระเงินได้เฉพาะเงินสด" If NetworkStatus = "DOWN" Then Machine NetworkDown EndIf 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 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 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 DEBUGVAR LangProcess ; lang-lock-until-done If LangProcess = "Done" Then Var ShowButtonClick = "Enable" ;Var ShowButtonClickFull = "Enable" Else Var ShowButtonClick = "Invisible" Var ShowButtonClickFull = "Invisible" EndIf SetLanguage LanguageInit ; lang-lock-until-done If LangProcess = "Done" Then Var ShowButtonClick = "Enable" ;Var ShowButtonClickFull = "Enable" Else Var ShowButtonClick = "Invisible" Var ShowButtonClickFull = "Invisible" EndIf DEBUGVAR LangProcess 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 = "HKG" Then Var CountryName = "HongKong" 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 Var LangProcess = "Done" 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 ;inter-xml-open If CountryName = "HongKong" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/video/script_video.ev" EndIf DEBUGVAR CountDownShowButton DEBUGVAR EventTurnOn Var UsePepsiTheme = 0 Var NoTrickPriceProfile = 0 Var NeedRefreshProfile = 0 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" ; zone-fast-load-lang READ_FILE "/mnt/sdcard/enable_load_lang_fast" ENABLE_LOAD_LANG_V2 STRCONTAIN "1" ENABLE_LOAD_LANG_V2 UseLoadLangV2 ;inter-page-board If CountryName = "Malaysia" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/video/script_video.ev" DEBUGVAR LangProcess EnableLanguage "ENG" EnableLanguage "MALAY" DEBUGVAR LangProcess SetLanguage "ENG" DEBUGVAR LangProcess 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 DEBUGVAR UseLoadLangV2 DEBUGVAR Not#LanguageLoaded DEBUGVAR Not#LanguageResult DEBUGVAR LangProcess DEBUGVAR LangLoadTime If UseLoadLangV2 = "true" Then ; load-process-should-be-done-b4-this If Not#LanguageLoaded = "" Then LoadLanguageV2 "/mnt/sdcard/coffeevending/taobin_project/inter/mys/menu/lang.tsv" EndIf Else If Not#LanguageLoaded = "" Then LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/mys/menu/lang.tsv" EndIf 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 Var cups_sold_text = "Cups Sold Worldwide" Var UseSlideShowVideo = 0 If BoxID = 210037 Then Var UseSlideShowVideo = 1 EndIf If BoxID = 210011 Then Var UseSlideShowVideo = 1 EndIf If BoxID = 200002 Then Var UseSlideShowVideo = 1 EndIf TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/xml/event/event_profile.ev" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" 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 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" EndIf ;inter-page-board If CountryName = "Australia" Then Var SettingVideoBrewingUseCommon = 1 TRY "/mnt/sdcard/coffeevending/taobin_project/inter/aus/video/script_video.ev" 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 credit card 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 Worldwide" Var MinPhoneNumber = 10 Var MaxPhoneNumber = 10 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" EndIf ;inter-page-board If CountryName = "USANewYork" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/usaNY/video/script_video.ev" 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" 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 = 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 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" EndIf ;inter-page-board If CountryName = "Singapore" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/sgp/video/script_video.ev" 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 VideoMainPage = "ROOT/taobin_project/inter/sgp/video/video_main.mp4" Var ShowNetworkProblemText = "Network error. Payment Cash only." Var CountryRootPath = "ROOT/taobin_project/inter/sgp/" Var CountryShortName = "sgp" Var TextPriceMenuSize = 12 Var TextPriceMenuY = 266 Var TextPriceMenuBlendX = 180 Var TextPriceMenuHotX = 48 Var ShowButtonClick2 = "Invisible" Var ButtontoTopupMenu = "Invisible" Var PriceUnitText = "Price in SGD" Var MemberButtonFileName = "" Var MemberButtonFileNameRest = "" Var MemberButtonFileName = "ROOT/taobin_project/image/main_page_en/bp_main_page_member.png" Var MemberButtonFileNameRest = "ROOT/taobin_project/image/main_page_en/bn_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 If BoxID = 210604 Then Var SettingIgnoreCollectPoint = 0 EndIf ;If BoxID = 210699 Then ;Var SettingIgnoreCollectPoint = 0 ;EndIf READ_FILE "/mnt/sdcard/coffeevending/use_pt_dev" use_pt_dev STRCONTAIN "1" use_pt_dev enable_pt_mode_by_cfg If enable_pt_mode_by_cfg = "true" Then DEBUGVAR enable_pt_mode_by_cfg Var SettingIgnoreCollectPoint = 0 EndIf Var SettingVideoBrewingUseCommon = 1 Var MinPhoneNumber = 8 Var MaxPhoneNumber = 8 Var ShowCountDownAsPercent = 1 DEBUGVAR ShowButtonClick2 Var UsePepsiTheme = 1 Var TargetThemeNum = 2 ; Var = "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" 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" 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 ExtraToppingState = "Invisible" Var PriceUnitText = "Price in DH" Var cups_sold_text = "Cups Sold Worldwide" 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 Var UsePepsiTheme = 1 Var TargetThemeNum = 2 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" EndIf If CountryName = "HongKong" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/video/script_video.ev" 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/hkg/" Var CountryShortName = "hkg" Var TextPriceMenuSize = 12 Var TextPriceMenuY = 266 Var TextPriceMenuBlendX = 180 Var TextPriceMenuHotX = 48 Var ShowButtonClick2 = "Invisible" Var ButtontoTopupMenu = "Invisible" Var PriceUnitText = "HKG$" Var MemberButtonFileName = "ROOT/taobin_project/image/main_page_en/bp_main_page_member.png" Var MemberButtonFileNameRest = "ROOT/taobin_project/image/main_page_en/bn_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/hkg/menu/lang.tsv" EndIf Var cups_sold_text = "Cups Sold Worldwide" STRCONTAIN "541215" MaterialAvailable SugarZeroCalEnable Var SettingDisableTaobinCredit = "true" ;Var SettingDisableTaobinCode = "false" Var SettingIgnoreCollectPoint = 1 READ_FILE "/mnt/sdcard/coffeevending/use_pt_dev" use_pt_dev STRCONTAIN "1" use_pt_dev enable_pt_mode_by_cfg If enable_pt_mode_by_cfg = "true" Then DEBUGVAR enable_pt_mode_by_cfg Var SettingIgnoreCollectPoint = 0 EndIf Var SettingVideoBrewingUseCommon = 1 Var MinPhoneNumber = 8 Var MaxPhoneNumber = 8 Var ShowCountDownAsPercent = 0 DEBUGVAR ShowButtonClick2 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" EndIf ; New mode ; Inter + Multi-Instance available ./inter/tha/multi ; Below. Pendding from XMLProfile DEBUGVAR MyanmarLangEnable DEBUGVAR EnableMultiInstance ;Var MyanmarLangEnable = "true" Var MyanmarLangEnable = "false" ;Var MyanmarLangEnable = "" If MyanmarLangEnable = "" Then Else If EnableMultiInstance = "true" Then If CountryName = "Thailand" Then ; test payment Var New_Payment = 1 Var InternationalEnable = 1 DEBUGVAR InternationalEnable ;TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/video/script_video.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/xml/multi_ads/ads_path.ev" ;specified to unittest4 Var CountryRootPath = "ROOT/taobin_project/inter/tha/" Var CountryShortName = "tha" Var OpenFileXML = CountryRootPath + "xml/event/tricker.ev" DEBUGVAR OpenFileXML TRY OpenFileXML Var WebAppShow = "Invisible" Var ENABLE_UAE_DUBAI = "Invisible" EnableLanguage "ENG" EnableLanguage "THAI" ;EnableLanguage "MYANMAR" If MyanmarLangEnable = "true" Then EnableLanguage "MYANMAR" EndIf SetLanguage "THAI" LanguageControl "UpdateList" "-" Var show_eng = "false" ;Var ShowNetworkProblemText = "Network error. Payment Cash only." Var TextPriceMenuSize = 12 Var TextPriceMenuY = 266 Var TextPriceMenuBlendX = 180 Var TextPriceMenuHotX = 48 Var ShowButtonClick2 = "Invisible" Var ButtontoTopupMenu = "Enable" Var CurrentPageShowError = 0 Var PriceUnitText = "" Var show_eng_button_stage = "Invisible" Var XButtonMember = 384 Var YButtonMember = 1695 If Not#LanguageLoaded = "" Then LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/tha/menu/lang.tsv" EndIf Var cups_sold_text = "Cups Sold Worldwide" Var MinPhoneNumber = 10 Var MaxPhoneNumber = 10 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" EndIf EndIf EndIf DEBUGVAR InternationalEnable DEBUGVAR CountryRootPath DEBUGVAR LangProcess 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 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 If IgnoreProfileFromRunEV = "" Then Var IgnoreProfileFromRunEV = 0 EndIf If ToggleAfterEventProfileOff = "" Then Var ToggleAfterEventProfileOff = 0 EndIf DEBUGVAR IgnoreProfileFromRunEV DEBUGVAR ToggleAfterEventProfileOff If ToggleAfterEventProfileOff = 1 Then Var IgnoreProfileFromRunEV = 0 EndIf If IgnoreProfileFromRunEV = 0 Then TRY "ROOT/taobin_project/xml/profile/run.ev" EndIf If ToggleAfterEventProfileOff = 1 Then Var IgnoreProfileFromRunEV = 1 Var ToggleAfterEventProfileOff = 0 EndIf 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 Var dummyPhone = "089999999" If GetNamHomCoconutRemainRewardLastTime = "" Then Var GetNamHomCoconutRemainRewardLastTime = 0 EndIf DEBUGVAR NamHomCoconutPro DEBUGVAR CurrentMainVideo If NamHomCoconutPro = 1 Then If CurrentMainVideo = 2 Then Var ShouldShowNamHomCoconutRemainReward = 1 DEBUGVAR GetNamHomCoconutRemainRewardLastTime DEBUGVAR SystemTimeMinuteInt Var TimeDiff = SystemTimeMinuteInt - GetNamHomCoconutRemainRewardLastTime DEBUGVAR TimeDiff If TimeDiff >= 15 Then DEBUGVAR "update nam hom coconut remain reward!!!" DEBUGVAR GetNamHomCoconutRemainReward If GetNamHomCoconutRemainReward = 0 Then GETACCEXT dummyPhone 34 Var GetNamHomCoconutRemainReward = 1 EndIf Else If TimeDiff <= -15 Then DEBUGVAR "update nam hom coconut remain reward!!!" If GetNamHomCoconutRemainReward = 0 Then GETACCEXT dummyPhone 34 Var GetNamHomCoconutRemainReward = 1 EndIf EndIf EndIf EndIf EndIf Var CurrentMainVideo = CurrentMainVideoTemp DEBUGVAR SettingDisableTaobinCredit If SettingDisableTaobinCredit = "true" Then Var ShowButtonClick2 = "Invisible" EndIf DEBUGVAR ShowButtonClick2 Machine OrderCheck DEBUGVAR CLOSE_ORDER_NOW SAVELOG "EVENTOPEN ON page_board.xml" ; move to TRY actoin. ; Move to end of EventOpen for override war Var RoadShow = "false" TRY "ROOT/taobin_project/xml/sometime/RoadShow.ev" ; New mode ; Inter + Multi-Instance available ./inter/tha/multi ; Below. Pendding from XMLProfile DEBUGVAR EnableMultiInstance Var RedirectToNormalVersion = 0 READ_FILE "/mnt/sdcard/coffeevending/MyanmarLangEnable" MyanmarLangEnable DEBUGVAR MyanmarLangEnable If MyanmarLangEnable = "" Then Else If EnableMultiInstance = "true" Then If MyanmarLangEnable = "" Then Var MyanmarLangEnable = "false" EndIf If CountryName = "Thailand" Then Var InternationalEnable = 1 DEBUGVAR InternationalEnable ;TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/video/script_video.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/xml/multi_ads/ads_path.ev" ;specified to unittest4 Var OpenFileXML = CountryRootPath + "xml/event/tricker.ev" DEBUGVAR OpenFileXML TRY OpenFileXML EnableLanguage "ENG" EnableLanguage "THAI" ;EnableLanguage "MYANMAR" Var RedirectToNormalVersion = 1 If MyanmarLangEnable = "true" Then EnableLanguage "MYANMAR" Var RedirectToNormalVersion = 0 EndIf SetLanguage "THAI" LanguageControl "UpdateList" "-" Var show_eng = "false" ;Var ShowNetworkProblemText = "Network error. Payment Cash only." Var CountryRootPath = "ROOT/taobin_project/inter/tha/" Var CountryShortName = "tha" Var TextPriceMenuSize = 12 Var TextPriceMenuY = 266 Var TextPriceMenuBlendX = 180 Var TextPriceMenuHotX = 48 Var ShowButtonClick2 = "Invisible" Var ButtontoTopupMenu = "Enable" Var PriceUnitText = "" Var MemberButtonFileName = "ROOT/taobin_project/image/main_page/bp_main_page_member.png" Var MemberButtonFileNameRest = "ROOT/taobin_project/image/main_page/bn_main_page_member.png" Var show_eng_button_stage = "Invisible" Var XButtonMember = 384 Var YButtonMember = 1695 If Not#LanguageLoaded = "" Then LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/tha/menu/lang.tsv" EndIf Var cups_sold_text = "Cups Sold Worldwide" Var MinPhoneNumber = 10 Var MaxPhoneNumber = 10 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" EndIf EndIf EndIf If UsePepsiTheme = 1 Then If InternationalEnable = 1 Then ; enable-color TRY "ROOT/taobin_project/inter/whatthecup/common/color_settings.ev" Var MainStartPepsiThemeDir = "ROOT/taobin_project/inter/whatthecup/" + CountryShortName Var MainStartPepsiThemeDir = MainStartPepsiThemeDir + "/image/main_page/" ;Var img_rest_main_page = MainStartPepsiThemeDir + "bn_main_page_start.png" Var img_press_main_page = "" Var VideoMainPage = "ROOT/taobin_project/inter/whatthecup/common/video/video_main_wtc.mp4" Var ShowButtonClickFull = "Enable" ; root-path Var CountryWTCRootPath = "ROOT/taobin_project/inter/whatthecup/" + CountryShortName EndIf Else ; default-theme TRY "ROOT/taobin_project/xml/default_color_settings.ev" EndIf XMLSaveFileNameForResume 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_board.xml" XMLSaveFileNameForResume 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" Var CountDownPauseVideo2 = 2 DEBUGVAR CountDownPauseVideo2 Var TimeProfilePrice = 0 DEBUGVAR LangProcess DEBUGVAR LangLoadTime ; lang-lock-until-done If LangProcess = "Done" Then Var ShowButtonClick = "Enable" If UsePepsiTheme = 1 Then Var ShowButtonClickFull = "Enable" EndIf Else Var ShowButtonClick = "Invisible" Var ShowButtonClickFull = "Invisible" EndIf Var onResume = "false" Machine DoorClose Machine NewPaymentOpenBrewingXMLEnable ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_hide.lxml" 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 Var GetNamHomCoconutRemainRewardLastTime = SystemTimeMinuteInt EndIf EndIf If GetNamHomCoconutRemainReward = 1 Then SAVELOG "Get Nam hom coconut remain reward requet error." EndIf ReloadAll 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" PRICE "Reset" "-" PRICE "Load" "-" PRICE "CheckAndApply" XMLProfile DEBUGVAR ProfileIndex[0] DEBUGVAR ProfileIndex[1] DEBUGVAR ProfileIndex[2] DEBUGVAR ProfileIndex[3] DEBUGVAR ProfileIndex[4] DEBUGVAR ProfileIndex[5] DEBUGVAR ProfileIndex[6] DEBUGVAR ProfileIndex[7] DEBUGVAR ProfileIndex[8] DEBUGVAR ProfileIndex[9] DEBUGVAR ProfileIndex[10] PRICE "Reload" "-" If CountryName = "-Thailand-" Then Var InternationalEnable = 1 DEBUGVAR InternationalEnable ;TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/video/script_video.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/xml/multi_ads/ads_path.ev" ;specified to unittest4 Var OpenFileXML = CountryRootPath + "xml/event/tricker.ev" DEBUGVAR OpenFileXML TRY OpenFileXML EnableLanguage "ENG" EnableLanguage "THAI" EnableLanguage "MYANMAR" SetLanguage "THAI" LanguageControl "UpdateList" "-" Var show_eng = "false" ;Var img_press_main_page = "ROOT/taobin_project/image/main_page/bp_main_page_start.png" ;Var img_rest_main_page = "" ;Var img_reset_topup = "" ;ROOT/taobin_project/image/main_page/bn_main_page_topup.png ;Var ShowNetworkProblemText = "Network error. Payment Cash only." Var CountryRootPath = "ROOT/taobin_project/inter/tha/" Var CountryShortName = "tha" Var TextPriceMenuSize = 12 Var TextPriceMenuY = 266 Var TextPriceMenuBlendX = 180 Var TextPriceMenuHotX = 48 Var ShowButtonClick2 = "Invisible" Var ButtontoTopupMenu = "Enable" Var PriceUnitText = "" ;Var MemberButtonFileName = "ROOT/taobin_project/image/TermTempage2/bp_main_page_member.png" ;Var MemberButtonFileNameRest = "ROOT/taobin_project/image/TermTempage2/bn_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/tha/menu/lang.tsv" EndIf Var cups_sold_text = "Cups Sold Worldwide" Var MinPhoneNumber = 10 Var MaxPhoneNumber = 10 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" EndIf Var XMLProfile = "y18IDCardCaffeine" Var TimeProfilePrice = 0 Var XMLProfile = "ProfileIncrease35" Var TimeProfilePrice = 0 Var XMLProfile = "ProfileIncrease45" Var TimeProfilePrice = 0 Var buttonRemoveCup = "Enable" DEBUGVAR buttonRemoveCup Var XMLProfile = "Discount90Per" CacheVarStr "put" XMLProfile 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 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 ;DEBUGVAR CountDownShowButton ;DEBUGVAR ShowButtonClick ;DEBUGVAR ShowButtonClickFull ;DEBUGVAR CountDownPauseVideo If TaobinOnlineX = "true" Then If CountDownShowButton = 31 Then Var ShowButtonClickFull = "Enable" Var ShowButtonClick = "Invisible" If UsePepsiTheme = 1 Then Var ShowButtonClickFull = "Enable" EndIf If InternationalEnable = 1 Then If CountryName = "Thailand" Then Var ShowButtonClick = "Enable" Var ShowButtonClickFull = "Enable" EndIf EndIf Refresh EndIf If CountDownShowButton = 3 Then Var ShowButtonClick = "Enable" Var ShowButtonClickFull = "Invisible" If UsePepsiTheme = 1 Then Var ShowButtonClickFull = "Enable" EndIf Refresh EndIf If CountDownPauseVideo > 0 Then DEBUGVAR CountDownPauseVideo ; ignore Var CountDownPauseVideo = CountDownPauseVideo - 1 Var CountDownPauseVideo2 = CountDownPauseVideo - 1 DEBUGVAR CountDownPauseVideo2 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 DEBUGVAR InternationalEnable DEBUGVAR CountryName If InternationalEnable = 1 Then If CountryName = "Thailand" Then SAVELOG " Thailand Thailand Thailand Thailand Pooon Pooon Pooon Pooon Pooon" TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/event/script_common_for_open_promotion_xml.ev" Else ; 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 EndIf 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 ; setvarint CountUpReloadAll 49 ; Original value is 40 If EnableMultiInstance = "true" Then If CountUpReloadAll > 300 Then Var NeedReboot = "false" Var StartUpExt = "-" Var CountUpReloadAll = 0 ReloadAll EndIf If CountUpReloadAll = 50 Then Var SlientRefreshIndex = 2 EndIf If CountUpReloadAll = 150 Then Var SlientRefreshIndex = 2 EndIf If CountUpReloadAll = 200 Then Var SlientRefreshIndex = 2 EndIf If CountUpReloadAll = 250 Then Var SlientRefreshIndex = 2 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 Var TimeProfilePrice = TimeProfilePrice + 1 If XMLProfilePrevious = XMLProfile Then Else DEBUGVAR XMLProfile DEBUGVAR XMLProfilePrevious If NoTrickPriceProfile = 0 Then If TimeProfilePrice = 5 Then PRICE "Reset" "-" PRICE "Load" "-" PRICE "CheckAndApply" XMLProfile DEBUGVAR ProfileIndex[0] DEBUGVAR ProfileIndex[1] DEBUGVAR ProfileIndex[2] DEBUGVAR ProfileIndex[3] DEBUGVAR ProfileIndex[4] DEBUGVAR ProfileIndex[5] DEBUGVAR ProfileIndex[6] DEBUGVAR ProfileIndex[7] DEBUGVAR ProfileIndex[8] DEBUGVAR ProfileIndex[9] DEBUGVAR ProfileIndex[10] PRICE "Reload" "-" Var XMLProfilePrevious = XMLProfile EndIf EndIf EndIf Refresh TimerReset SAVELOG "EVENT END" If TaobinOnlineX = "true" Then Var CountDownShowButton = 35 EndIf If EventTurnOn = 1 Then Var CountDownShowButton = 30 EndIf Var CountDownPauseVideo = 6 If EventTurnOn = 1 Then Var CountDownPauseVideo = 12 EndIf DEBUGVAR CountDownPauseVideoEnable If CountDownPauseVideoEnable = "" Then Else Var CountDownPauseVideo = 1 EndIf Refresh SAVELOG NetworkStatus ;Open "/mnt/sdcard/coffeevending/xml/main.xml" SAVELOG NetworkStatus If SELLSTATUS = "DEACTIVE" Then Open "/mnt/sdcard/coffeevending/xml/main.xml" EndIf 212 1481 ShowButtonClick ; "0x00BDFF" img_rest_main_page img_press_main_page ; "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" If CocktailShow = "true" Then OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" Else If SpiralOnline = "true" Then If InternationalEnable = 1 Then If CountryName = "Thailand" Then OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml" EndIf Else OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_with_vending.xml" EndIf Else If InternationalEnable = 1 Then OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml" Else OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.xml" EndIf EndIf EndIf TopView "show" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" XButtonMember YButtonMember ShowButtonClick2 ; "0x00BDFF" MemberButtonFileNameRest MemberButtonFileName "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var NextPage = "-" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" If InternationalEnable = 1 Then If CountryName = "Thailand" Then OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_before_check_member.xml" Else ;inter-xml-open DEBUGVAR CountryName If CountryName = "UnitedArabEmirates Dubai" Then OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_check_member.xml" Else Var ChackMemberPage = CountryRootPath + "xml/page_check_member.lxml" OpenInst 2 ChackMemberPage EndIf EndIf Else OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_before_check_member.xml" EndIf TopView "show" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" 556 1695 ButtontoTopupMenu ; "0x00BDFF" img_reset_topup "ROOT/taobin_project/image/main_page/bp_main_page_topup.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var PayDetail="" Var NextPage = "-" Open "ROOT/xml/service_menu.xml" 2 609 ShowButtonClickFull ; "0x00BDFF" 1070 1310 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "click ShowButtonClickFull" Var NextPage = "-" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" If SpiralOnline = "true" Then If InternationalEnable = 1 Then If CountryName = "Thailand" Then OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml" EndIf Else OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_with_vending.xml" EndIf Else If InternationalEnable = 1 Then OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml" Else OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.xml" EndIf EndIf If TermTemOnline = "true" Then OpenInst 2 "/mnt/sdcard/coffeevending/termtem_project/xml/page_tt_catalog.xml" EndIf TopView "show" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" 780 630 buttonRemoveCup ; "0x00BDFF" 500 Var(RootPath + "image/main_page/bn_remove_cup.png") Var(RootPath + "image/main_page/bp_remove_cup.png") Machine RemoveCup Machine DoorLidOpen Var CheckCupStateDoorCupClose = "reset" Var buttonRemoveCup = "Invisible" 0 1870 ShowNetworkProblem "0xFF0000" 1080 60 If IgnoreNetCore = "true" Then Var NextPage = "-" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml" TopView "show" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" EndIf 0 608 "Enable" 120 120 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 If CountryName = "Thailand" Then SAVELOG " Thailand Thailand Thailand Thailand Pooon Pooon Pooon Pooon Pooon" TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/event/script_common_for_open_promotion_xml.ev" Else ; 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 EndIf Else If CocktailShow = "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" ShowNetworkProblem 5 1880 24 Center 1080 RobotoRegular 0xFFFFFF ShowNetworkProblemText 0 1870 eval( If LangProcess = "LoadConfig" Then Var return = "Enable" Else Var return = "Invisible" EndIf ) "0xFFFF00" 1080 60 eval( If LangProcess = "LoadConfig" Then Var return = "Enable" Else Var return = "Invisible" EndIf ) 5 1880 24 Center 1080 RobotoRegular 0x000000 eval( If LangProcess = "LoadConfig" Then Var return = "Loading ..." Else Var return = "" EndIf )