1080 1920 Var Top2Timeout = 0 Var lang_icon_file_name[0] = "bn_eng_lang.png" Var lang_icon_file_name[1] = "bn_thai_lang.png" Var lang_icon_file_name[3] = "bn_japan_lang.png" Var lang_icon_file_name[2] = "bn_china_lang.png" Var lang_icon_file_name[4] = "bn_malay_lang.png" Var LanguageButtonListEnable = "Invisible" Var langFileNameIcon = lang_icon_file_name[LanguageShowByIndex] Var langfn = "ROOT/taobin_project/image/lang/" + langFileNameIcon ;If CountryName = "Malaysia" Then ; Var dirImageLang = CountryRootPath + "image/lang/" ; Var langfn = dirImageLang + langFileNameIcon ; DEBUGVAR langfn ; DEBUGVAR ButtonLanguageCurrentXPosition ; DEBUGVAR ButtonLanguageCurrentYPosition ;EndIf Var ButtonLanguageListXPositionIcon = ButtonLanguageListXPosition + 27 Var ButtonLanguageListYPositionIcon = ButtonLanguageListYPosition + 14 DEBUGVAR ENABLE_LANGUAGE_COUNT If ENABLE_LANGUAGE_COUNT = "" Then LanguageControl "UpdateList" 1 EndIf If ENABLE_LANGUAGE_COUNT = 1 Then Var LanguageButtonEnable = "Invisible" EndIf IF Not#CountDownForMulti = "" Then Var Not#CountDownForMulti = 99 EndIf 1000 ;DEBUGVAR Top2Timeout Var Top2Timeout = Top2Timeout + 1 If Top2Timeout = 20 Then Open "ROOT/taobin_project/xml/topview2.xml" EndIf If TimeForClose > 0 Then Var TimeForClose = TimeForClose - 1 DEBUGVAR TimeForClose EndIf If TimeForClose = 1 Then Var LanguageButtonListEnable = "Invisible" Refresh EndIf If EnableMultiInstance = "true" Then If Not#CountDownForMulti = 99 Then ;DEBUGVAR Not#CountDownForMulti Else If Not#CountDownForMulti = 1 Then OpenRedirect "/taobin_project/xml/page_catalog_group_coffee.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/coffee.ev" OpenRedirect "/taobin_project/xml/page_catalog_group_tea.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/tea.ev" OpenRedirect "/taobin_project/xml/page_catalog_group_milk.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/milk.ev" OpenRedirect "/taobin_project/xml/page_catalog_group_other.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/sodaother.ev" Var InstanceTabOpenFile2 = "ROOT/taobin_project/xml/menutab/page_catalog_group_coffee.xml" Var InstanceTabOpenFile3 = "ROOT/taobin_project/xml/menutab/page_catalog_group_tea.xml" Var InstanceTabOpenFile4 = "ROOT/taobin_project/xml/menutab/page_catalog_group_milk.xml" If AppFastButtonState = "Enable" Then Var InstanceTabOpenFile5 = "ROOT/taobin_project/xml/menutab/page_catalog_group_appfast.xml" EndIf If WheyButtonState = "Enable" Then Var InstanceTabOpenFile5 = "ROOT/taobin_project/xml/menutab/page_catalog_group_whey.xml" OpenRedirect "/taobin_project/xml/page_catalog_group_whey.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/kidandwhey.ev" EndIf If MenuKidButtonState = "Enable" Then Var InstanceTabOpenFile5 = "ROOT/taobin_project/xml/menutab/page_catalog_group_forkid.xml" OpenRedirect "/taobin_project/xml/page_catalog_group_forkid.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/kidandwhey.ev" EndIf If CocktailShow = "true" Then Var InstanceTabOpenFile6 = "ROOT/taobin_project/xml/menutab/page_catalog_group_cocktail.xml" OpenRedirect "/taobin_project/xml/page_catalog_group_cocktail.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/health.ev" Else Var InstanceTabOpenFile6 = "ROOT/taobin_project/xml/menutab/page_catalog_group_health.xml" OpenRedirect "/taobin_project/xml/page_catalog_group_health.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/health.ev" EndIf Var InstanceTabOpenFile7 = "ROOT/taobin_project/xml/menutab/page_catalog_group_other.xml" TabMenuVisibleInst 99 EndIf If Not#CountDownForMulti > 0 Then Var Not#CountDownForMulti = Not#CountDownForMulti - 1 EndIf EndIf EndIf If BrewCommand = "RefreshAll" Then Var BrewCommand = "-" If EnableMultiInstance = "true" Then InstanceOverSetString "RefreshNow" 5 InstanceOverSetString "RefreshNow" 6 InstanceOverSetString "RefreshNow" 7 InstanceOverSetString "RefreshNow" 8 InstanceOverSetString "RefreshNow" 9 InstanceOverSetString "RefreshNow" 10 InstanceOverSetString "RefreshNow" 11 ; TODO EndIf If Not#CountDownForMulti = 99 Then Var Not#CountDownForMulti = 5 EndIf EndIf TimerReset ButtonLanguageCurrentXPosition ButtonLanguageCurrentYPosition LanguageButtonEnable "LangIcon" langfn DEBUGVAR ENABLE_LANGUAGE_COUNT If ENABLE_LANGUAGE_COUNT = 2 Then LanguageControl "ChangeNextLang" "" Open "ROOT/taobin_project/xml/topview2.xml" Else Var LanguageButtonListEnable = "Enable" DEBUGVAR LanguageButtonListEnable Var TimeForClose = 10 EndIf Refresh ButtonLanguageListXPosition ButtonLanguageListYPosition 986 "auto" "vertical" LanguageButtonListEnable ; 82 51 "Enable" "ROOT/taobin_project/image/lang/lang_bg_top.png" 82 56 ENABLE_THAI "ROOT/taobin_project/image/lang/lang_bg_center.png" 82 56 ENABLE_ENG "ROOT/taobin_project/image/lang/lang_bg_center.png" 82 56 ENABLE_JAPAN "ROOT/taobin_project/image/lang/lang_bg_center.png" 82 56 ENABLE_CHINA "ROOT/taobin_project/image/lang/lang_bg_center.png" 82 56 ENABLE_MALAY "ROOT/taobin_project/image/lang/lang_bg_center.png" 82 51 "Enable" "ROOT/taobin_project/image/lang/lang_bg_bottom.png" ButtonLanguageListXPositionIcon ButtonLanguageListYPositionIcon 958 "auto" "vertical" LanguageButtonListEnable ; 82 68 ENABLE_THAI 0 0 56 56 ENABLE_THAI "ROOT/taobin_project/image/lang/bn_thai_lang.png" Var LanguageButtonListEnable = "Invisible" Var langFileNameIcon = lang_icon_file_name[LanguageShowByIndex] Var langfn = "ROOT/taobin_project/image/lang/" + langFileNameIcon SetLanguage "THAI" Open "ROOT/taobin_project/xml/topview2.xml" 82 68 ENABLE_ENG 0 0 56 56 ENABLE_ENG "ROOT/taobin_project/image/lang/bn_eng_lang.png" SetLanguage "ENG" Var LanguageButtonListEnable = "Invisible" Var langFileNameIcon = lang_icon_file_name[LanguageShowByIndex] Var langfn = "ROOT/taobin_project/image/lang/" + langFileNameIcon Open "ROOT/taobin_project/xml/topview2.xml" 82 68 ENABLE_JAPAN 0 0 56 56 ENABLE_JAPAN "ROOT/taobin_project/image/lang/bn_japan_lang.png" SetLanguage "JAPAN" Var LanguageButtonListEnable = "Invisible" Var langFileNameIcon = lang_icon_file_name[LanguageShowByIndex] Var langfn = "ROOT/taobin_project/image/lang/" + langFileNameIcon Open "ROOT/taobin_project/xml/topview2.xml" 82 68 ENABLE_CHINA 0 0 82 56 ENABLE_CHINA "ROOT/taobin_project/image/lang/bn_china_lang.png" SetLanguage "CHINA" Var LanguageButtonListEnable = "Invisible" Var langFileNameIcon = lang_icon_file_name[LanguageShowByIndex] Var langfn = "ROOT/taobin_project/image/lang/" + langFileNameIcon Open "ROOT/taobin_project/xml/topview2.xml" 82 68 ENABLE_MALAY 0 0 82 56 ENABLE_MALAY "ROOT/taobin_project/image/lang/bn_malay_lang.png" SetLanguage "MALAY" Var LanguageButtonListEnable = "Invisible" Var langFileNameIcon = lang_icon_file_name[LanguageShowByIndex] Var langfn = "ROOT/taobin_project/image/lang/" + langFileNameIcon Open "ROOT/taobin_project/xml/topview2.xml" ;