0 608 "Enable" 1080 1312 "0xEAE6E1" SoundVolume RootLayoutVisible 3 "show" RootLayoutVisible 14 "hide" If UsePepsiTheme = 1 Then Var ShowErrorPage = CountryRootPath + "/xml/page_show_error.lxml" Open ShowErrorPage EndIf Var countClick = 0 Var countClick2 = 0 If InternationalEnable = 1 Then If CountryName = "Thailand" Then Var CurrentPageShowError = 1 EndIf If CountryName = "HongKong" Then Var CurrentPageShowError = 1 EndIf EndIf DEBUGVAR MachineStage DEBUGVAR stop_now DEBUGVAR LanguageShow ;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml" Var show_error_normal = "Invisible" Var show_error_sp1 = "Enable" StopLongPlay If LEDSet = "true" Then Else LED LedDoorCup On 255 0 0 255 LED LedDoorLid Off 255 255 255 255 EndIf Function 2 Var TimeOut = 0 Var textStep = 0 TRY "ROOT/taobin_project/xml/default_color_settings.ev" 1000 Var EmergencyStop = "-" If SleepModeXML = "ON" Then Var BackgroundColor = "0x2C2F4E" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" Open "ROOT/taobin_project/xml/page_sleepmode.xml" EndIf If EmergencyStop = "true" Then If DoorCupPosition = "bottom" Then ; It normal Var EmergencyStop = "false" Else Var MachineErrorDetailAll = "Emergency stop!" EndIf Else Var MachineErrorDetailAll = MachineErrorDetailEng If textStep > 3 Then Var textStep = 0 Var MachineErrorDetailAll = MachineErrorDetailAll + " [ \ ]" EndIf If textStep = 3 Then Var MachineErrorDetailAll = MachineErrorDetailAll + " [ - ]" EndIf If textStep = 2 Then Var MachineErrorDetailAll = MachineErrorDetailAll + " [ / ]" EndIf If textStep = 1 Then Var MachineErrorDetailAll = MachineErrorDetailAll + " [ | ]" EndIf Var textStep = textStep + 1 ;DEBUGVAR MachineErrorDetailAll ;DEBUGVAR textStep If NETCORE_LOST_CNT > 0 Then Else DEBUGVAR NCIC07_EVENT_CNT DEBUGVAR NETCORE_EVENT_CNT_TMP If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then Var NETCORE_LOST_COUNT_UP = NETCORE_LOST_COUNT_UP + 1 DEBUGVAR NETCORE_LOST_COUNT_UP If NETCORE_LOST_COUNT_UP > 300 Then If textStep > 3 Then Var MachineErrorDetailAll = MachineErrorDetailAll + " !" EndIf If textStep = 3 Then Var MachineErrorDetailAll = MachineErrorDetailAll + " !!" EndIf If textStep = 2 Then Var MachineErrorDetailAll = MachineErrorDetailAll + " !!!" EndIf If textStep = 1 Then Var MachineErrorDetailAll = MachineErrorDetailAll + " !!!!" EndIf EndIf Else If stop_now_from_netcore_event = 1 Then Var stop_now = "false" SAVELOG "stop_now_from_netcore_event is set" Var stop_now_from_netcore_event = 0 EndIf If stop_now_from_door_cup = 1 Then Var stop_now = "false" SAVELOG "stop_now_from_door_cup is set" Var stop_now_from_door_cup = 0 EndIf If MachineStage = "" Then Var LEDSet = "false" Open "ROOT/taobin_project/xml/page_board.xml" EndIf If MachineStage = "show-menu" Then Var LEDSet = "false" Open "ROOT/taobin_project/xml/page_board.xml" EndIf If MachineStage = "remove-cup" Then Var LEDSet = "false" Open "ROOT/taobin_project/xml/page_remove_cup.xml" EndIf If MachineStage = "drink-failed" Then Var FirstOpen = 1 Var LEDSet = "true" ;Open "ROOT/taobin_project/xml/page_show_error.xml" Refresh EndIf If FirstOpen = 1 Then Var FirstOpen = 0 If MachineStage = "close-maintenance" Then Var LEDSet = "true" ;Open "ROOT/taobin_project/xml/page_show_error.xml" Refresh EndIf EndIf EndIf EndIf EndIf DEBUGVAR show_error_normal DEBUGVAR show_error_sp1 DEBUGVAR TimeOut Var TimeOut = TimeOut + 1 If TimeOut > 30 Then Var TimeOut = 0 Open "ROOT/taobin_project/xml/page_show_error.lxml" EndIf Refresh TimerReset Var LEDSet = "true" ;Open "ROOT/taobin_project/xml/page_show_error.lxml" DEBUGVAR LanguageShow If CountryName = "HongKong" Then Var show_eng_button_stage = "Invisible" Var LanguageButtonEnable = "Invisible" Var BtnLangToggleIndex = "Enable" Else Var LanguageButtonEnable = "Enable" EndIf Var ButtonLanguageCurrentXPosition = 990 Var ButtonLanguageCurrentYPosition = 648 Var ButtonLanguageListXPosition = 970 Var ButtonLanguageListYPosition = 640 OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" Function 2 RefreshAll DEBUGVAR MachineStage DEBUGVAR stop_now Var DirImage = "ROOT/taobin_project/image/vending_error_en" If MachineStage = "show-menu" Then If LanguageShow = "THAI" Then Var DirImage = "ROOT/taobin_project/image/vending_error" EndIf If LanguageShow = "ENG" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "JAPAN" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "CHINA" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MALAY" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "UAE_DUBAI" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/vending_error_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage = CountryRootPath + "image/vending_error_msc" EndIf If LanguageShow = "MTC" Then Var DirImage = CountryRootPath + "image/vending_error_mtc" EndIf EndIf If MachineStage = "mcu-upgrade" Then If LanguageShow = "THAI" Then Var DirImage = "ROOT/taobin_project/image/vending_error" EndIf If LanguageShow = "ENG" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "JAPAN" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "CHINA" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MALAY" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "UAE_DUBAI" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/vending_error_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage = CountryRootPath + "image/vending_error_msc" EndIf If LanguageShow = "MTC" Then Var DirImage = CountryRootPath + "image/vending_error_mtc" EndIf EndIf If NeedUpgrade = "true" Then If LanguageShow = "THAI" Then Var DirImage = "ROOT/taobin_project/image/vending_error" EndIf If LanguageShow = "ENG" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "JAPAN" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "CHINA" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MALAY" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "UAE_DUBAI" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/vending_error_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage = CountryRootPath + "image/vending_error_msc" EndIf If LanguageShow = "MTC" Then Var DirImage = CountryRootPath + "image/vending_error_mtc" EndIf EndIf DEBUGVAR MachineStage If MachineStage = "close-maintenance" Then DEBUGVAR stop_now If stop_now = "true" Then If LanguageShow = "THAI" Then Var DirImage = "ROOT/taobin_project/image/vending_error" EndIf If LanguageShow = "ENG" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "JAPAN" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "CHINA" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MALAY" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "UAE_DUBAI" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/vending_error_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage = CountryRootPath + "image/vending_error_msc" EndIf If LanguageShow = "MTC" Then Var DirImage = CountryRootPath + "image/vending_error_mtc" EndIf Else Var show_error_normal = "Enable" Var show_error_sp1 = "Invisible" If LanguageShow = "THAI" Then Var DirImage = "ROOT/taobin_project/image/close_th" EndIf If LanguageShow = "ENG" Then Var DirImage = CountryRootPath + "image/close_en" EndIf If LanguageShow = "JAPAN" Then Var DirImage = CountryRootPath + "image/close_en" EndIf If LanguageShow = "CHINA" Then Var DirImage = CountryRootPath + "image/close_en" EndIf If LanguageShow = "MALAY" Then Var DirImage = CountryRootPath + "image/close_en" EndIf If LanguageShow = "UAE_DUBAI" Then Var DirImage = CountryRootPath + "image/close_en" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = CountryRootPath + "image/close_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage = CountryRootPath + "image/close_hkg" EndIf If LanguageShow = "MTC" Then Var DirImage = CountryRootPath + "image/close_hkg" EndIf EndIf EndIf If MachineStage = "drink-failed" Then If stop_now = "true" Then If LanguageShow = "THAI" Then Var DirImage = "ROOT/taobin_project/image/vending_error" EndIf If LanguageShow = "ENG" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "JAPAN" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "CHINA" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MALAY" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/vending_error_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage = CountryRootPath + "image/vending_error_msc" EndIf If LanguageShow = "MTC" Then Var DirImage = CountryRootPath + "image/vending_error_mtc" EndIf Else Var show_error_normal = "Enable" Var show_error_sp1 = "Invisible" If LanguageShow = "THAI" Then Var DirImage = "ROOT/taobin_project/image/close_th" EndIf If LanguageShow = "ENG" Then Var DirImage = CountryRootPath + "image/close_en" EndIf If LanguageShow = "JAPAN" Then Var DirImage = CountryRootPath + "image/close_en" EndIf If LanguageShow = "CHINA" Then Var DirImage = CountryRootPath + "image/close_en" EndIf If LanguageShow = "MALAY" Then Var DirImage = CountryRootPath + "image/close_en" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = CountryRootPath + "image/close_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage = CountryRootPath + "image/close_hkg" EndIf If LanguageShow = "MTC" Then Var DirImage = CountryRootPath + "image/close_hkg" EndIf EndIf EndIf If NETCORE_LOST_CNT > 0 Then If LanguageShow = "THAI" Then Var DirImage = "ROOT/taobin_project/image/vending_error" EndIf If LanguageShow = "ENG" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "JAPAN" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "CHINA" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MALAY" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/vending_error_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage = CountryRootPath + "image/vending_error_msc" EndIf If LanguageShow = "MTC" Then Var DirImage = CountryRootPath + "image/vending_error_mtc" EndIf EndIf If NETCORE_EVENT_CNT_X >= 30 Then Var NETCORE_EVENT_CNT_X = 0 If LanguageShow = "THAI" Then Var DirImage = "ROOT/taobin_project/image/vending_error" EndIf If LanguageShow = "ENG" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "JAPAN" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "CHINA" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MALAY" Then Var DirImage = CountryRootPath + "image/vending_error_en" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/vending_error_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage = CountryRootPath + "image/vending_error_msc" EndIf If LanguageShow = "MTC" Then Var DirImage = CountryRootPath + "image/vending_error_mtc" EndIf EndIf Var MaintenanceCard = 20 Random MaintenanceCard Var index = 1 + MaintenanceCard DEBUGVAR DirImage Var RandomImage = "ROOT/taobin_project/image/close_en/Frame" + index Var RandomImage = RandomImage + ".png" DEBUGVAR RandomImage DEBUGVAR Seeker DEBUGVAR DoorCupPosition DEBUGVAR DoorLidPosition DEBUGVAR EmergencyStop show_error_normal 127 688 Var(DirImage + "/img1.png") show_error_normal 0 924 RandomImage show_error_normal 0 1750 Var(DirImage + "/text2.png") show_error_sp1 0 897 Var(DirImage + "/img1.png") show_error_sp1 0 694 Var(DirImage + "/text1.png") show_error_sp1 0 1685 Var(DirImage + "/text2.png") 0 1860 200 50 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var countClick = countClick + 1 If countClick = 3 Then EndIf If countClick = 10 Then Var countClick = 0 MainMenu EndIf Refresh 870 1860 200 50 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 5 1868 24 Center 1080 RobotoRegular 0xDE794E MachineErrorDetailAll