diff --git a/inter/hkg/menu/lang.tsv b/inter/hkg/menu/lang.tsv index a04f0192..046f5cec 100644 --- a/inter/hkg/menu/lang.tsv +++ b/inter/hkg/menu/lang.tsv @@ -19,7 +19,7 @@ TextID Note English Mandarin Simplified Mandarin Traditional 000012 Don't know what it means without context. App Fast N/A N/A Menu - Font=Kanit,Type=Regular,Size=16,Color=0x5A5A5A,Align=center-vertical-horizontal N/A N/A + Font=Kanit,Type=Regular,Size=16,Color=0x5A5A5A,Align=center-vertical-horizontal Font=Kanit,Type=Regular,Size=16,Color=0x5A5A5A,Align=center-vertical-horizontal Font=Kanit,Type=Regular,Size=16,Color=0x5A5A5A,Align=center-vertical-horizontal 000013 UNAVAILABLE 暂无供应 暫無供應 diff --git a/inter/hkg/xml/multi/control_and_lang_swith.ev b/inter/hkg/xml/multi/control_and_lang_swith.ev index c9ffa696..9498d0ea 100644 --- a/inter/hkg/xml/multi/control_and_lang_swith.ev +++ b/inter/hkg/xml/multi/control_and_lang_swith.ev @@ -35,6 +35,8 @@ Else Var InstanceTabOpenFile6 = "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_health.lxml" EndIf +Var InstanceTabOpenFile8 = "ROOT/taobin_project/inter/tha/xml/multi/start_up_inst_dummy.lxml" + Var InstanceTabOpenFile9 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.lxml" Var InstanceTabOpenFile10 = "ROOT/taobin_project/inter/hkg/xml/multi/tab_menu.lxml" diff --git a/inter/hkg/xml/multi/menu_catalog_default_init.lxml b/inter/hkg/xml/multi/menu_catalog_default_init.lxml index 2fc9b731..8c03eaca 100644 --- a/inter/hkg/xml/multi/menu_catalog_default_init.lxml +++ b/inter/hkg/xml/multi/menu_catalog_default_init.lxml @@ -35,18 +35,18 @@ EndIf If LanguageShow = "MTC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" - Var DirImage = "ROOT/taobin_project/image/page3_MTC" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/" + Var DirImage = "ROOT/taobin_project/image/page3_mtc" Var ice_tab_text = "冰塊及時準備好了。 " InstanceSetString "ShowMTC" EndIf If LanguageShow = "MSC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" - Var DirImage = "ROOT/taobin_project/image/page3_MSC" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/" + Var DirImage = "ROOT/taobin_project/image/page3_msc" Var ice_tab_text = "冰块及时准备好了。 " InstanceSetString "ShowMSC" diff --git a/inter/hkg/xml/multi/menu_catalog_new.lxml b/inter/hkg/xml/multi/menu_catalog_new.lxml index ef3f4a04..29f4ed19 100644 --- a/inter/hkg/xml/multi/menu_catalog_new.lxml +++ b/inter/hkg/xml/multi/menu_catalog_new.lxml @@ -14,6 +14,11 @@ DEBUGVAR SaveStringInst DEBUGVAR show_eng + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile @@ -93,13 +98,13 @@ EndIf If LanguageShow = "MTC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/" EndIf If LanguageShow = "MSC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/" EndIf diff --git a/inter/hkg/xml/multi/menu_catalog_new_menu.lxml b/inter/hkg/xml/multi/menu_catalog_new_menu.lxml index 10f31b42..fa078c1b 100644 --- a/inter/hkg/xml/multi/menu_catalog_new_menu.lxml +++ b/inter/hkg/xml/multi/menu_catalog_new_menu.lxml @@ -15,13 +15,13 @@ EndIf If LanguageShow = "MTC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/" EndIf If LanguageShow = "MSC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/" EndIf Var ButtonLanguageCurrentXPosition = 1005 diff --git a/inter/hkg/xml/multi/page_catalog.lxml b/inter/hkg/xml/multi/page_catalog.lxml index dc8e4d3c..bd78daec 100644 --- a/inter/hkg/xml/multi/page_catalog.lxml +++ b/inter/hkg/xml/multi/page_catalog.lxml @@ -18,6 +18,30 @@ DEBUGVAR ToppingNewShow + DEBUGVAR OpenFromPageBoard + If OpenFromPageBoard = 1 Then + Var OpenFromPageBoard = 0 + Var langnext1 = "true" + Var langnext2 = "true" + Var langnext3 = "true" + Var langnext4 = "true" + Var langnext5 = "true" + Var langnext6 = "true" + Var langnext7 = "true" + Var langnext8 = "true" + SAVELOG "======================================= RefreshAll Languages ================================" + EndIf + + If LanguageShow = "ENG" Then + SetLanguage "ENG" + EndIf + If LanguageShow = "MSC" Then + SetLanguage "MSC" + EndIf + If LanguageShow = "MTC" Then + SetLanguage "MTC" + EndIf + Var NextPage = "-" Var Seeker.thankLidFlag = 0 @@ -317,6 +341,22 @@ EndIf EndIf + If SelectedMenu = "whey" Then + Var MultiProcessTimer = MultiProcessTimer + 1 + If Inst8MenuLoaded = "done" Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 5 + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml" + Else + If MultiProcessTimer >= 20 Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 5 + Var MultiProcessTimer = 0 + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml" + EndIf + EndIf + EndIf + If SelectedMenu = "healthy" Then Var MultiProcessTimer = MultiProcessTimer + 1 If Inst9MenuLoaded = "done" Then @@ -333,21 +373,21 @@ EndIf EndIf - ;If SelectedMenu = "pepsi" Then - ;Var MultiProcessTimer = MultiProcessTimer + 1 - ;If Inst10MenuLoaded = "done" Then - ;Var MultiProcess = "Invisible" - ;TabMenuVisibleInst 8 - ;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml" - ;Else - ;If MultiProcessTimer >= 20 Then - ;Var MultiProcess = "Invisible" - ;TabMenuVisibleInst 8 - ;Var MultiProcessTimer = 0 - ;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml" - ;EndIf - ;EndIf - ;EndIf + If SelectedMenu = "pepsi" Then + Var MultiProcessTimer = MultiProcessTimer + 1 + If Inst10MenuLoaded = "done" Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 8 + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml" + Else + If MultiProcessTimer >= 20 Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 8 + Var MultiProcessTimer = 0 + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml" + EndIf + EndIf + EndIf If SelectedMenu = "soda" Then Var MultiProcessTimer = MultiProcessTimer + 1 @@ -423,6 +463,14 @@ If LanguageShow = "MYANMAR" Then Var show_eng = "true" EndIf + + If LanguageShow = "MTC" Then + Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/What_would_you_like_to_drink_today.mp3" + EndIf + + If LanguageShow = "MSC" Then + Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/What_would_you_like_to_drink_today.mp3" + EndIf Play PlaySoundLag Var countDownRetrun = 120 @@ -693,8 +741,17 @@ "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - TabMenuVisibleInst 5 - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml" + + If Inst8MenuLoaded = "done" Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 5 + + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml" + Else + Var MultiProcessTimer = 0 + Var MultiProcess = "Enable" + Var SelectedMenu = "whey" + EndIf diff --git a/inter/hkg/xml/multi/page_catalog_group_coffee.lxml b/inter/hkg/xml/multi/page_catalog_group_coffee.lxml index a80ef05b..41edbc92 100644 --- a/inter/hkg/xml/multi/page_catalog_group_coffee.lxml +++ b/inter/hkg/xml/multi/page_catalog_group_coffee.lxml @@ -1,267 +1,204 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - - - If SlientRefreshIndex = 2 Then - Var SlientRefreshIndex = 3 - - EndIf - - - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" - Var Menu2Selected = "PressForever" - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" - - Var Timeout = 0 - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" - - SetInstanceIgnoreTouch - - - DEBUGVAR SlientRefreshIndex - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - GetVisible inst_show2 - ;DEBUGVAR inst_show2 - - - If inst_show2 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If LanguageShow = "ENG" Then - InstanceSetString "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - EndIf - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If LanguageShow = "ENG" Then - InstanceSetString "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - EndIf - - EndIf - EndIf - - If SlientRefreshIndex = 2 Then - If inst_show2 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile2 - Open CurrentOpenFile2 - - Else - Var SlientRefreshIndex = 3 - EndIf - EndIf - - If inst_show2 = 1 Then - If langnext1 = "true" Then - Var langnext1 = "false" - DEBUGVAR langnext - EndIf - EndIf - - - - - - Var Inst5CountMenuEnable = 0 - Var Inst5CountCurrentMenuEnable = 0 - GetFrameScrollBlockCount Inst5CountCurrentMenuEnable - GetCurrentEnableBlockCount Inst5CountMenuEnable - - ;DEBUGVAR Inst5CountMenuEnable - ;DEBUGVAR Inst5CountMenuEnablePrev - ;DEBUGVAR Inst5CountCurrentMenuEnable - - If Inst5CountMenuEnablePrev = "" Then - Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable - Var Inst5CountDownForOpenXML = 0 - Var Inst5CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then - - Else - SAVELOG "Inst5 Refresh ===================================================================== Refresh" - Var Inst5CountDownForOpenXML = 10 - Var Inst5CountMenuEnablePrev = CountMenuEnable - EndIf - - If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then - - Else - If Inst5CountDownForOpenXML = 0 Then - SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" - Var Inst5CountDownForOpenXML = 10 - EndIf - EndIf - - If Inst5CountCurrentMenuEnable = 0 Then - - DEBUGVAR Inst5CountDownOpenXMLFromMenuZero - - If Inst5CountDownOpenXMLFromMenuZero > 0 Then - Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 - If Inst5CountDownOpenXMLFromMenuZero = 0 Then - Var Inst5CountDownOpenXMLFromMenuZero = 20 - Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_coffee.lxml" - EndIf - EndIf - EndIf - - If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then - If Inst5CountCurrentMenuEnable > 0 Then - Var Inst5MenuLoaded = "done" - EndIf - EndIf - - If Inst5CountDownForOpenXML > 0 Then - Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 - DEBUGVAR Inst5CountDownForOpenXML - If Inst5CountDownForOpenXML = 0 Then - Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_coffee.lxml" - EndIf - InstanceGetString SaveStringInst - If SaveStringInst = "RefreshNow" Then - - Else - If LanguageShow = "ENG" Then - Var SaveStringInst = "ShowEng" - Var show_eng = "false" - EndIf - If LanguageShow = "THAI" Then - Var SaveStringInst = "ShowThai" - Var show_eng = "true" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "false" - Var SaveStringInst = "ShowMYANMAR" - EndIf - EndIf - EndIf - - TimerReset - - - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - DEBUGVAR EnabledBlockUpdateInst6 - DEBUGVAR EnabledBlocksDrawInst6 - - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - DEBUGVAR LanguageShow - - - If SaveStringInst = "ShowThai" Then - If LanguageShow = "THAI" Then - - Else - Var show_eng = "true" - InstanceSetString "ShowMYANMAR" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - - If SaveStringInst = "ShowMYANMAR" Then - If LanguageShow = "MYANMAR" Then - - Else - Var show_eng = "false" - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - Var show_eng = "false" - InstanceSetString "ShowThai" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - - - - - - -;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + + + If SlientRefreshIndex = 2 Then + Var SlientRefreshIndex = 3 + + EndIf + + + + + + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" + Var Menu2Selected = "PressForever" + + RootLayoutVisible 12 "show" + + Var Timeout = 0 + ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" + + SetInstanceIgnoreTouch + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" + + DEBUGVAR SlientRefreshIndex + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + GetVisible inst_show2 + DEBUGVAR inst_show2 + + If inst_show2 = 1 Then + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If LanguageShow = "ENG" Then + InstanceSetString "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + InstanceSetString "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + InstanceSetString "ShowMSC" + EndIf + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If LanguageShow = "ENG" Then + InstanceSetString "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + InstanceSetString "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + InstanceSetString "ShowMSC" + EndIf + + EndIf + EndIf + + If SlientRefreshIndex = 2 Then + If inst_show2 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + + Else + Var SlientRefreshIndex = 3 + EndIf + EndIf + + If inst_show2 = 1 Then + If langnext1 = "true" Then + Var langnext1 = "false" + DEBUGVAR langnext + RefreshAll + EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + Var SaveStringInst = "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + Var SaveStringInst = "ShowMSC" + EndIf + EndIf + EndIf + + + + + + Var Inst5CountMenuEnable = 0 + Var Inst5CountCurrentMenuEnable = 0 + GetFrameScrollBlockCount Inst5CountCurrentMenuEnable + GetCurrentEnableBlockCount Inst5CountMenuEnable + + ;DEBUGVAR Inst5CountMenuEnable + ;DEBUGVAR Inst5CountMenuEnablePrev + ;DEBUGVAR Inst5CountCurrentMenuEnable + + If Inst5CountMenuEnablePrev = "" Then + Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable + Var Inst5CountDownForOpenXML = 0 + Var Inst5CountDownOpenXMLFromMenuZero = 20 + EndIf + + If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then + + Else + SAVELOG "Inst5 Refresh ===================================================================== Refresh" + Var Inst5CountDownForOpenXML = 10 + Var Inst5CountMenuEnablePrev = CountMenuEnable + EndIf + + If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then + + Else + If Inst5CountDownForOpenXML = 0 Then + SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" + Var Inst5CountDownForOpenXML = 10 + EndIf + EndIf + + If Inst5CountCurrentMenuEnable = 0 Then + + DEBUGVAR Inst5CountDownOpenXMLFromMenuZero + + If Inst5CountDownOpenXMLFromMenuZero > 0 Then + Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 + If Inst5CountDownOpenXMLFromMenuZero = 0 Then + Var Inst5CountDownOpenXMLFromMenuZero = 20 + Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_coffee.lxml" + EndIf + EndIf + EndIf + + If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then + If Inst5CountCurrentMenuEnable > 0 Then + Var Inst5MenuLoaded = "done" + EndIf + EndIf + + If Inst5CountDownForOpenXML > 0 Then + Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 + DEBUGVAR Inst5CountDownForOpenXML + If Inst5CountDownForOpenXML = 0 Then + Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_coffee.lxml" + EndIf + EndIf + + TimerReset + + +;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" + + + 10 497 @@ -24157,10 +24094,10 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - + + + + + + + diff --git a/inter/hkg/xml/multi/page_catalog_group_coffee.skt b/inter/hkg/xml/multi/page_catalog_group_coffee.skt index 6257c6a7..75a5d2ce 100644 --- a/inter/hkg/xml/multi/page_catalog_group_coffee.skt +++ b/inter/hkg/xml/multi/page_catalog_group_coffee.skt @@ -11,6 +11,7 @@ ; On open + SetInstanceIgnoreTouch If SlientRefreshIndex = 2 Then Var SlientRefreshIndex = 3 @@ -57,7 +58,7 @@ If inst_show2 = 1 Then InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst + DEBUGVAR SaveStringInst If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile @@ -113,6 +114,7 @@ If langnext1 = "true" Then Var langnext1 = "false" DEBUGVAR langnext + RefreshAll EndIf EndIf @@ -181,85 +183,23 @@ If SaveStringInst = "RefreshNow" Then Else - If LanguageShow = "ENG" Then - Var SaveStringInst = "ShowEng" - Var show_eng = "false" - EndIf - If LanguageShow = "THAI" Then - Var SaveStringInst = "ShowThai" - Var show_eng = "true" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "false" - Var SaveStringInst = "ShowMYANMAR" - EndIf + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + Var SaveStringInst = "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + Var SaveStringInst = "ShowMSC" + EndIf EndIf EndIf TimerReset - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - DEBUGVAR EnabledBlockUpdateInst6 - DEBUGVAR EnabledBlocksDrawInst6 - - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - DEBUGVAR LanguageShow - - - If SaveStringInst = "ShowThai" Then - If LanguageShow = "THAI" Then - - Else - Var show_eng = "true" - InstanceSetString "ShowMYANMAR" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - - If SaveStringInst = "ShowMYANMAR" Then - If LanguageShow = "MYANMAR" Then - - Else - Var show_eng = "false" - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - Var show_eng = "false" - InstanceSetString "ShowThai" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" diff --git a/inter/hkg/xml/multi/page_catalog_group_forkid.lxml b/inter/hkg/xml/multi/page_catalog_group_forkid.lxml index 23f5fd05..bd25a404 100644 --- a/inter/hkg/xml/multi/page_catalog_group_forkid.lxml +++ b/inter/hkg/xml/multi/page_catalog_group_forkid.lxml @@ -225,80 +225,6 @@ TimerReset - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - DEBUGVAR LanguageShow - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMTC" Then - If LanguageShow = "MTC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMSC" Then - If LanguageShow = "MSC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" diff --git a/inter/hkg/xml/multi/page_catalog_group_forkid.skt b/inter/hkg/xml/multi/page_catalog_group_forkid.skt index 2e7f9f1f..619a24a0 100644 --- a/inter/hkg/xml/multi/page_catalog_group_forkid.skt +++ b/inter/hkg/xml/multi/page_catalog_group_forkid.skt @@ -228,80 +228,6 @@ TimerReset - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - DEBUGVAR LanguageShow - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMTC" Then - If LanguageShow = "MTC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMSC" Then - If LanguageShow = "MSC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" diff --git a/inter/hkg/xml/multi/page_catalog_group_health.lxml b/inter/hkg/xml/multi/page_catalog_group_health.lxml index 2775306a..90b86d7c 100644 --- a/inter/hkg/xml/multi/page_catalog_group_health.lxml +++ b/inter/hkg/xml/multi/page_catalog_group_health.lxml @@ -195,84 +195,6 @@ TimerReset - - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - - - - DEBUGVAR LanguageShow - - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMTC" Then - If LanguageShow = "MTC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMSC" Then - If LanguageShow = "MSC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" diff --git a/inter/hkg/xml/multi/page_catalog_group_health.skt b/inter/hkg/xml/multi/page_catalog_group_health.skt index dc220b14..c7685b76 100644 --- a/inter/hkg/xml/multi/page_catalog_group_health.skt +++ b/inter/hkg/xml/multi/page_catalog_group_health.skt @@ -198,84 +198,6 @@ TimerReset - - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - - - - DEBUGVAR LanguageShow - - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMTC" Then - If LanguageShow = "MTC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMSC" Then - If LanguageShow = "MSC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 4 Then - Var SlientRefreshIndex = 5 - EndIf - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" - Var Menu4Selected = "PressForever" - - RootLayoutVisible 12 "show" - - Var Timeout = 0 - ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" - - SetInstanceIgnoreTouch - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" - - DEBUGVAR SlientRefreshIndex - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show4 - ;DEBUGVAR inst_show4 - - If inst_show4 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If LanguageShow = "ENG" Then - InstanceSetString "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If LanguageShow = "ENG" Then - InstanceSetString "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - EndIf - - EndIf - EndIf - - If SlientRefreshIndex = 4 Then - If inst_show4 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile4 - Open CurrentOpenFile4 - - Else - Var SlientRefreshIndex = 5 - - EndIf - EndIf - - If inst_show4 = 1 Then - If langnext3 = "true" Then - Var langnext3 = "false" - DEBUGVAR langnext - RefreshAll - EndIf - - InstanceGetString SaveStringInst - If SaveStringInst = "RefreshNow" Then - - Else - If LanguageShow = "ENG" Then - Var SaveStringInst = "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - Var SaveStringInst = "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - Var SaveStringInst = "ShowMSC" - EndIf - EndIf - EndIf - - - Var Inst7CountMenuEnable = 0 - Var Inst7CountCurrentMenuEnable = 0 - GetFrameScrollBlockCount Inst7CountCurrentMenuEnable - GetCurrentEnableBlockCount Inst7CountMenuEnable - - ;DEBUGVAR Inst7CountMenuEnable - ;DEBUGVAR Inst7CountMenuEnablePrev - ;DEBUGVAR Inst7CountCurrentMenuEnable - - If Inst7CountMenuEnablePrev = "" Then - Var Inst7CountMenuEnablePrev = Inst7CountMenuEnable - Var Inst7CountDownForOpenXML = 0 - Var Inst7CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst7CountMenuEnable = Inst7CountMenuEnablePrev Then - - Else - SAVELOG "Inst7 Refresh ===================================================================== Refresh" - Var Inst7CountDownForOpenXML = 10 - Var Inst7CountMenuEnablePrev = CountMenuEnable - EndIf - - If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then -https://www.facebook.com/marketplace/?ref=bookmark - Else - If Inst7CountDownForOpenXML = 0 Then - SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh" - Var Inst7CountDownForOpenXML = 10 - EndIf - EndIf - - - If Inst7CountCurrentMenuEnable = 0 Then - - DEBUGVAR Inst7CountDownOpenXMLFromMenuZero - - If Inst7CountDownOpenXMLFromMenuZero > 0 Then - Var Inst7CountDownOpenXMLFromMenuZero = Inst7CountDownOpenXMLFromMenuZero - 1 - If Inst7CountDownOpenXMLFromMenuZero = 0 Then - Var Inst7CountDownOpenXMLFromMenuZero = 20 - Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_milk.lxml" - EndIf - EndIf - EndIf - - If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then - If Inst7CountCurrentMenuEnable > 0 Then - Var Inst7MenuLoaded = "done" - EndIf - EndIf - - If Inst7CountDownForOpenXML > 0 Then - Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1 - DEBUGVAR Inst7CountDownForOpenXML - If Inst7CountDownForOpenXML = 0 Then - Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_milk.lxml" - EndIf - EndIf - - TimerReset - - - -;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 4 Then + Var SlientRefreshIndex = 5 + EndIf + + + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" + Var Menu4Selected = "PressForever" + + RootLayoutVisible 12 "show" + + Var Timeout = 0 + ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" + + SetInstanceIgnoreTouch + + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" + + DEBUGVAR SlientRefreshIndex + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show4 + ;DEBUGVAR inst_show4 + + If inst_show4 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If LanguageShow = "ENG" Then + InstanceSetString "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + InstanceSetString "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + InstanceSetString "ShowMSC" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If LanguageShow = "ENG" Then + InstanceSetString "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + InstanceSetString "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + InstanceSetString "ShowMSC" + EndIf + + EndIf + EndIf + + If SlientRefreshIndex = 4 Then + If inst_show4 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile4 + Open CurrentOpenFile4 + + Else + Var SlientRefreshIndex = 5 + + EndIf + EndIf + + If inst_show4 = 1 Then + If langnext3 = "true" Then + Var langnext3 = "false" + DEBUGVAR langnext + RefreshAll + EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + Var SaveStringInst = "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + Var SaveStringInst = "ShowMSC" + EndIf + EndIf + EndIf + + + Var Inst7CountMenuEnable = 0 + Var Inst7CountCurrentMenuEnable = 0 + GetFrameScrollBlockCount Inst7CountCurrentMenuEnable + GetCurrentEnableBlockCount Inst7CountMenuEnable + + ;DEBUGVAR Inst7CountMenuEnable + ;DEBUGVAR Inst7CountMenuEnablePrev + ;DEBUGVAR Inst7CountCurrentMenuEnable + + If Inst7CountMenuEnablePrev = "" Then + Var Inst7CountMenuEnablePrev = Inst7CountMenuEnable + Var Inst7CountDownForOpenXML = 0 + Var Inst7CountDownOpenXMLFromMenuZero = 20 + EndIf + + If Inst7CountMenuEnable = Inst7CountMenuEnablePrev Then + + Else + SAVELOG "Inst7 Refresh ===================================================================== Refresh" + Var Inst7CountDownForOpenXML = 10 + Var Inst7CountMenuEnablePrev = CountMenuEnable + EndIf + + If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then + + Else + If Inst7CountDownForOpenXML = 0 Then + SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh" + Var Inst7CountDownForOpenXML = 10 + EndIf + EndIf + + + If Inst7CountCurrentMenuEnable = 0 Then + + DEBUGVAR Inst7CountDownOpenXMLFromMenuZero + + If Inst7CountDownOpenXMLFromMenuZero > 0 Then + Var Inst7CountDownOpenXMLFromMenuZero = Inst7CountDownOpenXMLFromMenuZero - 1 + If Inst7CountDownOpenXMLFromMenuZero = 0 Then + Var Inst7CountDownOpenXMLFromMenuZero = 20 + Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_milk.lxml" + EndIf + EndIf + EndIf + + If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then + If Inst7CountCurrentMenuEnable > 0 Then + Var Inst7MenuLoaded = "done" + EndIf + EndIf + + If Inst7CountDownForOpenXML > 0 Then + Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1 + DEBUGVAR Inst7CountDownForOpenXML + If Inst7CountDownForOpenXML = 0 Then + Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_milk.lxml" + EndIf + EndIf + + TimerReset + + + +;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" + + + 10 497 @@ -8965,15 +8965,15 @@ https://www.facebook.com/marketplace/?ref=bookmark Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - - RefreshAll - - - - + + + + + + + + RefreshAll + + + + diff --git a/inter/hkg/xml/multi/page_catalog_group_milk.skt b/inter/hkg/xml/multi/page_catalog_group_milk.skt index 87003922..c8f1296e 100644 --- a/inter/hkg/xml/multi/page_catalog_group_milk.skt +++ b/inter/hkg/xml/multi/page_catalog_group_milk.skt @@ -158,7 +158,7 @@ EndIf If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then -https://www.facebook.com/marketplace/?ref=bookmark + Else If Inst7CountDownForOpenXML = 0 Then SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh" diff --git a/inter/hkg/xml/multi/page_catalog_group_other.lxml b/inter/hkg/xml/multi/page_catalog_group_other.lxml index ee2ab465..3d551494 100644 --- a/inter/hkg/xml/multi/page_catalog_group_other.lxml +++ b/inter/hkg/xml/multi/page_catalog_group_other.lxml @@ -135,98 +135,69 @@ EndIf EndIf + Var Inst11CountMenuEnable = 0 + Var Inst11CountCurrentMenuEnable = 0 + GetFrameScrollBlockCount Inst11CountCurrentMenuEnable + GetCurrentEnableBlockCount Inst11CountMenuEnable + + ;DEBUGVAR Inst11CountMenuEnable + ;DEBUGVAR Inst11CountMenuEnablePrev + ;DEBUGVAR Inst11CountCurrentMenuEnable + + If Inst11CountMenuEnablePrev = "" Then + Var Inst11CountMenuEnablePrev = Inst11CountMenuEnable + Var Inst11CountDownForOpenXML = 0 + Var Inst11CountDownOpenXMLFromMenuZero = 20 + EndIf + + If Inst11CountMenuEnable = Inst11CountMenuEnablePrev Then + + Else + SAVELOG "Inst11 Refresh ===================================================================== Refresh" + Var Inst11CountDownForOpenXML = 10 + Var Inst11CountMenuEnablePrev = CountMenuEnable + EndIf + + If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then + + Else + If Inst11CountDownForOpenXML = 0 Then + SAVELOG "Inst11 Refresh =======================Inst11CountMenuEnable / Inst11CountCurrentMenuEnable ============================================== Refresh" + Var Inst11CountDownForOpenXML = 10 + EndIf + EndIf + + If Inst11CountCurrentMenuEnable = 0 Then + + DEBUGVAR Inst11CountDownOpenXMLFromMenuZero + + If Inst11CountDownOpenXMLFromMenuZero > 0 Then + Var Inst11CountDownOpenXMLFromMenuZero = Inst11CountDownOpenXMLFromMenuZero - 1 + If Inst11CountDownOpenXMLFromMenuZero = 0 Then + Var Inst11CountDownOpenXMLFromMenuZero = 20 + Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_other.lxml" + EndIf + EndIf + EndIf + + + If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then + If Inst11CountCurrentMenuEnable > 0 Then + Var Inst11MenuLoaded = "done" + EndIf + EndIf + + If Inst11CountDownForOpenXML > 0 Then + Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1 + DEBUGVAR Inst11CountDownForOpenXML + If Inst11CountDownForOpenXML = 0 Then + Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_other.lxml" + EndIf + EndIf + TimerReset - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - DEBUGVAR EnabledBlockUpdateInst6 - DEBUGVAR EnabledBlocksDrawInst6 - - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - Else - If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then - Var StatusRefresh = "NoRefresh" - DEBUGVAR StatusRefresh - Else - Var StatusRefresh = "Refresh" - DEBUGVAR StatusRefresh - GetXMLFileNameCurrentRunning CurrentOpenFile2 - Open CurrentOpenFile2 - EndIf - - EndIf - DEBUGVAR LanguageShow - - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMTC" Then - If LanguageShow = "MTC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMSC" Then - If LanguageShow = "MSC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" diff --git a/inter/hkg/xml/multi/page_catalog_group_other.skt b/inter/hkg/xml/multi/page_catalog_group_other.skt index 40e9f0f8..9ae2024d 100644 --- a/inter/hkg/xml/multi/page_catalog_group_other.skt +++ b/inter/hkg/xml/multi/page_catalog_group_other.skt @@ -137,98 +137,69 @@ EndIf EndIf + Var Inst11CountMenuEnable = 0 + Var Inst11CountCurrentMenuEnable = 0 + GetFrameScrollBlockCount Inst11CountCurrentMenuEnable + GetCurrentEnableBlockCount Inst11CountMenuEnable + + ;DEBUGVAR Inst11CountMenuEnable + ;DEBUGVAR Inst11CountMenuEnablePrev + ;DEBUGVAR Inst11CountCurrentMenuEnable + + If Inst11CountMenuEnablePrev = "" Then + Var Inst11CountMenuEnablePrev = Inst11CountMenuEnable + Var Inst11CountDownForOpenXML = 0 + Var Inst11CountDownOpenXMLFromMenuZero = 20 + EndIf + + If Inst11CountMenuEnable = Inst11CountMenuEnablePrev Then + + Else + SAVELOG "Inst11 Refresh ===================================================================== Refresh" + Var Inst11CountDownForOpenXML = 10 + Var Inst11CountMenuEnablePrev = CountMenuEnable + EndIf + + If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then + + Else + If Inst11CountDownForOpenXML = 0 Then + SAVELOG "Inst11 Refresh =======================Inst11CountMenuEnable / Inst11CountCurrentMenuEnable ============================================== Refresh" + Var Inst11CountDownForOpenXML = 10 + EndIf + EndIf + + If Inst11CountCurrentMenuEnable = 0 Then + + DEBUGVAR Inst11CountDownOpenXMLFromMenuZero + + If Inst11CountDownOpenXMLFromMenuZero > 0 Then + Var Inst11CountDownOpenXMLFromMenuZero = Inst11CountDownOpenXMLFromMenuZero - 1 + If Inst11CountDownOpenXMLFromMenuZero = 0 Then + Var Inst11CountDownOpenXMLFromMenuZero = 20 + Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_other.lxml" + EndIf + EndIf + EndIf + + + If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then + If Inst11CountCurrentMenuEnable > 0 Then + Var Inst11MenuLoaded = "done" + EndIf + EndIf + + If Inst11CountDownForOpenXML > 0 Then + Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1 + DEBUGVAR Inst11CountDownForOpenXML + If Inst11CountDownForOpenXML = 0 Then + Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_other.lxml" + EndIf + EndIf + TimerReset - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - DEBUGVAR EnabledBlockUpdateInst6 - DEBUGVAR EnabledBlocksDrawInst6 - - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - Else - If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then - Var StatusRefresh = "NoRefresh" - DEBUGVAR StatusRefresh - Else - Var StatusRefresh = "Refresh" - DEBUGVAR StatusRefresh - GetXMLFileNameCurrentRunning CurrentOpenFile2 - Open CurrentOpenFile2 - EndIf - - EndIf - DEBUGVAR LanguageShow - - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMTC" Then - If LanguageShow = "MTC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMSC" Then - If LanguageShow = "MSC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" diff --git a/inter/hkg/xml/multi/page_catalog_group_recommend.lxml b/inter/hkg/xml/multi/page_catalog_group_recommend.lxml index 36232698..2dff393b 100644 --- a/inter/hkg/xml/multi/page_catalog_group_recommend.lxml +++ b/inter/hkg/xml/multi/page_catalog_group_recommend.lxml @@ -1,234 +1,234 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" - - Var Menu1Selected = "PressForever" - - Var OreoBigButtonEnable = "Enable" - - If $12-01-01-0001.Button = "Invisible" Then - Var esp102101001Enable = "Invisible" - Var esp122101001Enable = "Enable" - - Else - Var esp102101001Enable = "Enable" - Var esp122101001Enable = "Invisible" - - EndIf - - SAVELOG PreviseXMLFileName2 - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" - - Var Timeout = 0 - - If show_eng = "true" Then - - Var text_unavailable = "UNAVAILABLE###size=16" - Else - Var text_unavailable = "หมด###size=32" - - EndIf - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" - RootLayoutVisible 13 "show" - RootLayoutVisible 3 "show" - - - SetInstanceIgnoreTouch - - - - - DEBUGVAR LanguageShow - If LanguageShow = "ENG" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - - EndIf - If LanguageShow = "THAI" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "true" - DEBUGVAR show_eng - Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" - EndIf - If LanguageShow = "MTC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" - Var ice_tab_text = "冰塊及時準備好了。 " - EndIf - - If LanguageShow = "MSC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" - Var ice_tab_text = "冰块及时准备好了。 " - EndIf - ;inter-image - If CountryName = "Malaysia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - ;inter-image - If CountryName = "australia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - - ;SAVELOG "EventLanguageOnChange menu -list" - - - - Var LanguageButtonEnable = "Enable" - - OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" - RefreshAll - - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show - ;DEBUGVAR inst_show - - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - - If inst_show = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If LanguageShow = "ENG" Then - InstanceSetString "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If LanguageShow = "ENG" Then - InstanceSetString "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - EndIf - - EndIf - EndIf - - Var Timeout = Timeout + 1 - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/EventTimeOutWihtOutMultiInstance.ev" - - TimerReset - - -;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" - - - DEBUGVAR LanguageShow - If LanguageShow = "ENG" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - - EndIf - If LanguageShow = "THAI" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "true" - DEBUGVAR show_eng - Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" - EndIf - If LanguageShow = "MTC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" - Var ice_tab_text = "冰塊及時準備好了。 " - EndIf - If LanguageShow = "MSC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" - Var ice_tab_text = "冰块及时准备好了。 " - EndIf - ;inter-image - If CountryName = "Malaysia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - ;inter-image - If CountryName = "australia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - - ;SAVELOG "EventLanguageOnChange menu -list" - - - - Var LanguageButtonEnable = "Enable" - - - - OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" + + Var Menu1Selected = "PressForever" + + Var OreoBigButtonEnable = "Enable" + + If $12-01-01-0001.Button = "Invisible" Then + Var esp102101001Enable = "Invisible" + Var esp122101001Enable = "Enable" + + Else + Var esp102101001Enable = "Enable" + Var esp122101001Enable = "Invisible" + + EndIf + + SAVELOG PreviseXMLFileName2 + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" + + Var Timeout = 0 + + If show_eng = "true" Then + + Var text_unavailable = "UNAVAILABLE###size=16" + Else + Var text_unavailable = "หมด###size=32" + + EndIf + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" + RootLayoutVisible 13 "show" + RootLayoutVisible 3 "show" + + + SetInstanceIgnoreTouch + + + + + DEBUGVAR LanguageShow + If LanguageShow = "ENG" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + + EndIf + If LanguageShow = "THAI" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "true" + DEBUGVAR show_eng + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" + EndIf + If LanguageShow = "MTC" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/" + Var ice_tab_text = "冰塊及時準備好了。 " + EndIf + + If LanguageShow = "MSC" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/" + Var ice_tab_text = "冰块及时准备好了。 " + EndIf + ;inter-image + If CountryName = "Malaysia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + ;inter-image + If CountryName = "australia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + + ;SAVELOG "EventLanguageOnChange menu -list" + + + + Var LanguageButtonEnable = "Enable" + + OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" + RefreshAll + + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show + ;DEBUGVAR inst_show + + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + + If inst_show = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If LanguageShow = "ENG" Then + InstanceSetString "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + InstanceSetString "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + InstanceSetString "ShowMSC" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If LanguageShow = "ENG" Then + InstanceSetString "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + InstanceSetString "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + InstanceSetString "ShowMSC" + EndIf + + EndIf + EndIf + + Var Timeout = Timeout + 1 + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/EventTimeOutWihtOutMultiInstance.ev" + + TimerReset + + +;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" + + + DEBUGVAR LanguageShow + If LanguageShow = "ENG" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + + EndIf + If LanguageShow = "THAI" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "true" + DEBUGVAR show_eng + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" + EndIf + If LanguageShow = "MTC" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/" + Var ice_tab_text = "冰塊及時準備好了。 " + EndIf + If LanguageShow = "MSC" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/" + Var ice_tab_text = "冰块及时准备好了。 " + EndIf + ;inter-image + If CountryName = "Malaysia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + ;inter-image + If CountryName = "australia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + + ;SAVELOG "EventLanguageOnChange menu -list" + + + + Var LanguageButtonEnable = "Enable" + + + + OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" + + + 16 10 @@ -12946,29 +12946,29 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - -;BigLogoLayout - - - - - + + + + + + + +;BigLogoLayout + + + + + diff --git a/inter/hkg/xml/multi/page_catalog_group_recommend.skt b/inter/hkg/xml/multi/page_catalog_group_recommend.skt index 4b495bba..1a3f12b0 100644 --- a/inter/hkg/xml/multi/page_catalog_group_recommend.skt +++ b/inter/hkg/xml/multi/page_catalog_group_recommend.skt @@ -67,14 +67,14 @@ Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" EndIf If LanguageShow = "MTC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/" Var ice_tab_text = "冰塊及時準備好了。 " EndIf If LanguageShow = "MSC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/" Var ice_tab_text = "冰块及时准备好了。 " EndIf ;inter-image @@ -194,13 +194,13 @@ Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" EndIf If LanguageShow = "MTC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/" Var ice_tab_text = "冰塊及時準備好了。 " EndIf If LanguageShow = "MSC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/" Var ice_tab_text = "冰块及时准备好了。 " EndIf ;inter-image diff --git a/inter/hkg/xml/multi/page_catalog_group_tea.lxml b/inter/hkg/xml/multi/page_catalog_group_tea.lxml index 577a91ed..42581a13 100644 --- a/inter/hkg/xml/multi/page_catalog_group_tea.lxml +++ b/inter/hkg/xml/multi/page_catalog_group_tea.lxml @@ -183,82 +183,6 @@ TimerReset - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - DEBUGVAR LanguageShow - - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMTC" Then - If LanguageShow = "MTC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMSC" Then - If LanguageShow = "MSC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" diff --git a/inter/hkg/xml/multi/page_catalog_group_tea.skt b/inter/hkg/xml/multi/page_catalog_group_tea.skt index 93aed9fa..6c0ffb0b 100644 --- a/inter/hkg/xml/multi/page_catalog_group_tea.skt +++ b/inter/hkg/xml/multi/page_catalog_group_tea.skt @@ -186,82 +186,6 @@ TimerReset - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - DEBUGVAR LanguageShow - - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMTC" Then - If LanguageShow = "MTC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMSC" Then - If LanguageShow = "MSC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" diff --git a/inter/hkg/xml/multi/page_catalog_group_whey.lxml b/inter/hkg/xml/multi/page_catalog_group_whey.lxml index 56bc7a1a..575cd158 100644 --- a/inter/hkg/xml/multi/page_catalog_group_whey.lxml +++ b/inter/hkg/xml/multi/page_catalog_group_whey.lxml @@ -1,306 +1,216 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 5 Then - Var SlientRefreshIndex = 6 - EndIf - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" - If AppFastEnable = "true" Then - Var Menu11Selected = "PressForever" - Var Menu7Selected = "Invisible" - Else - Var Menu11Selected = "Invisible" - Var Menu7Selected = "PressForever" - EndIf - - RootLayoutVisible 12 "show" - - Var Timeout = 0 - ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" - - SetInstanceIgnoreTouch - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" - - DEBUGVAR SlientRefreshIndex - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show8 - ;DEBUGVAR inst_show8 - - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - - If inst_show8 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If LanguageShow = "ENG" Then - InstanceSetString "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - EndIf - - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If LanguageShow = "ENG" Then - InstanceSetString "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - EndIf - - - EndIf - EndIf - - - If SlientRefreshIndex = 5 Then - If inst_show8 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile8 - Open CurrentOpenFile8 - Else - Var SlientRefreshIndex = 6 - EndIf - EndIf - - If inst_show8 = 1 Then - If langnext7 = "true" Then - Var langnext7 = "false" - DEBUGVAR langnext - RefreshAll - EndIf - - InstanceGetString SaveStringInst - If SaveStringInst = "RefreshNow" Then - - Else - If LanguageShow = "ENG" Then - Var SaveStringInst = "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - Var SaveStringInst = "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - Var SaveStringInst = "ShowMSC" - EndIf - EndIf - EndIf - - - Var Inst8CountMenuEnable = 0 - Var Inst8CountCurrentMenuEnable = 0 - GetFrameScrollBlockCount Inst8CountCurrentMenuEnable - GetCurrentEnableBlockCount Inst8CountMenuEnable - - ;DEBUGVAR Inst8CountMenuEnable - ;DEBUGVAR Inst8CountMenuEnablePrev - ;DEBUGVAR Inst8CountCurrentMenuEnable - - If Inst8CountMenuEnablePrev = "" Then - Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable - Var Inst8CountDownForOpenXML = 0 - Var Inst8CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst8CountMenuEnablePrev = "" Then - Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable - Var Inst8CountDownForOpenXML = 0 - Var Inst8CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then - - Else - SAVELOG "Inst8 Refresh ===================================================================== Refresh" - Var Inst8CountDownForOpenXML = 10 - Var Inst8CountMenuEnablePrev = CountMenuEnable - EndIf - - If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then - - Else - If Inst6CountDownForOpenXML = 0 Then - SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh" - Var Inst6CountDownForOpenXML = 10 - EndIf - EndIf - - If Inst8CountCurrentMenuEnable = 0 Then - - DEBUGVAR Inst8CountDownOpenXMLFromMenuZero - - If Inst8CountDownOpenXMLFromMenuZero > 0 Then - Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 - If Inst8CountDownOpenXMLFromMenuZero = 0 Then - Var Inst8CountDownOpenXMLFromMenuZero = 20 - Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_whey.lxml" - EndIf - EndIf - EndIf - - If Inst8CountDownForOpenXML > 0 Then - Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 - DEBUGVAR Inst8CountDownForOpenXML - If Inst8CountDownForOpenXML = 0 Then - Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_whey.lxml" - EndIf - EndIf - - - - TimerReset - - - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - DEBUGVAR EnabledBlockUpdateInst6 - DEBUGVAR EnabledBlocksDrawInst6 - - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - Else - If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then - Var StatusRefresh = "NoRefresh" - DEBUGVAR StatusRefresh - Else - Var StatusRefresh = "Refresh" - DEBUGVAR StatusRefresh - GetXMLFileNameCurrentRunning CurrentOpenFile2 - Open CurrentOpenFile2 - EndIf - - EndIf - DEBUGVAR LanguageShow - - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMTC" Then - If LanguageShow = "MTC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMSC" Then - If LanguageShow = "MSC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - - - - - -;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 5 Then + Var SlientRefreshIndex = 6 + EndIf + + + + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" + If AppFastEnable = "true" Then + Var Menu11Selected = "PressForever" + Var Menu7Selected = "Invisible" + Else + Var Menu11Selected = "Invisible" + Var Menu7Selected = "PressForever" + EndIf + + RootLayoutVisible 12 "show" + + Var Timeout = 0 + ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" + + SetInstanceIgnoreTouch + + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" + + DEBUGVAR SlientRefreshIndex + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show5 + ;DEBUGVAR inst_show5 + + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + + If inst_show5 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If LanguageShow = "ENG" Then + InstanceSetString "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + InstanceSetString "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + InstanceSetString "ShowMSC" + EndIf + + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If LanguageShow = "ENG" Then + InstanceSetString "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + InstanceSetString "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + InstanceSetString "ShowMSC" + EndIf + + + EndIf + EndIf + + + If SlientRefreshIndex = 5 Then + If inst_show5 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile8 + Open CurrentOpenFile8 + Else + Var SlientRefreshIndex = 6 + EndIf + EndIf + + If inst_show5 = 1 Then + If langnext7 = "true" Then + Var langnext7 = "false" + DEBUGVAR langnext + RefreshAll + EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + Var SaveStringInst = "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + Var SaveStringInst = "ShowMSC" + EndIf + EndIf + EndIf + + + Var Inst8CountMenuEnable = 0 + Var Inst8CountCurrentMenuEnable = 0 + GetFrameScrollBlockCount Inst8CountCurrentMenuEnable + GetCurrentEnableBlockCount Inst8CountMenuEnable + + ;DEBUGVAR Inst8CountMenuEnable + ;DEBUGVAR Inst8CountMenuEnablePrev + ;DEBUGVAR Inst8CountCurrentMenuEnable + + If Inst8CountMenuEnablePrev = "" Then + Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable + Var Inst8CountDownForOpenXML = 0 + Var Inst8CountDownOpenXMLFromMenuZero = 20 + EndIf + + If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then + + Else + SAVELOG "Inst8 Refresh ===================================================================== Refresh" + Var Inst8CountDownForOpenXML = 10 + Var Inst8CountMenuEnablePrev = CountMenuEnable + EndIf + + If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then + + Else + If Inst8CountDownForOpenXML = 0 Then + SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh" + Var Inst8CountDownForOpenXML = 10 + EndIf + EndIf + + If Inst8CountCurrentMenuEnable = 0 Then + + DEBUGVAR Inst8CountDownOpenXMLFromMenuZero + + If Inst8CountDownOpenXMLFromMenuZero > 0 Then + Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 + If Inst8CountDownOpenXMLFromMenuZero = 0 Then + Var Inst8CountDownOpenXMLFromMenuZero = 20 + Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_whey.lxml" + EndIf + EndIf + EndIf + + If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then + If Inst8CountCurrentMenuEnable > 0 Then + Var Inst8MenuLoaded = "done" + EndIf + EndIf + + If Inst8CountDownForOpenXML > 0 Then + Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 + DEBUGVAR Inst8CountDownForOpenXML + If Inst8CountDownForOpenXML = 0 Then + Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_whey.lxml" + EndIf + EndIf + + + + TimerReset + + +;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" + + + + 10 497 @@ -5410,8 +5320,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/hkg/xml/multi/page_catalog_group_whey.skt b/inter/hkg/xml/multi/page_catalog_group_whey.skt index 7aba9ddd..a76c707e 100644 --- a/inter/hkg/xml/multi/page_catalog_group_whey.skt +++ b/inter/hkg/xml/multi/page_catalog_group_whey.skt @@ -56,13 +56,13 @@ - GetVisible inst_show8 - ;DEBUGVAR inst_show8 + GetVisible inst_show5 + ;DEBUGVAR inst_show5 InstanceGetString SaveStringInst ;DEBUGVAR SaveStringInst - If inst_show8 = 1 Then + If inst_show5 = 1 Then InstanceGetString SaveStringInst ;DEBUGVAR SaveStringInst If SaveStringInst = "RefreshNow" Then @@ -111,7 +111,7 @@ If SlientRefreshIndex = 5 Then - If inst_show8 = 0 Then + If inst_show5 = 0 Then GetXMLFileNameCurrentRunning CurrentOpenFile8 Open CurrentOpenFile8 Else @@ -119,7 +119,7 @@ EndIf EndIf - If inst_show8 = 1 Then + If inst_show5 = 1 Then If langnext7 = "true" Then Var langnext7 = "false" DEBUGVAR langnext @@ -174,12 +174,12 @@ Var Inst8CountMenuEnablePrev = CountMenuEnable EndIf - If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then + If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then Else - If Inst6CountDownForOpenXML = 0 Then - SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh" - Var Inst6CountDownForOpenXML = 10 + If Inst8CountDownForOpenXML = 0 Then + SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh" + Var Inst8CountDownForOpenXML = 10 EndIf EndIf @@ -196,6 +196,12 @@ EndIf EndIf + If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then + If Inst8CountCurrentMenuEnable > 0 Then + Var Inst8MenuLoaded = "done" + EndIf + EndIf + If Inst8CountDownForOpenXML > 0 Then Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 DEBUGVAR Inst8CountDownForOpenXML @@ -209,96 +215,6 @@ TimerReset - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - DEBUGVAR EnabledBlockUpdateInst6 - DEBUGVAR EnabledBlocksDrawInst6 - - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - Else - If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then - Var StatusRefresh = "NoRefresh" - DEBUGVAR StatusRefresh - Else - Var StatusRefresh = "Refresh" - DEBUGVAR StatusRefresh - GetXMLFileNameCurrentRunning CurrentOpenFile2 - Open CurrentOpenFile2 - EndIf - - EndIf - DEBUGVAR LanguageShow - - - If SaveStringInst = "ShowEng" Then - If LanguageShow = "ENG" Then - - Else - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMTC" Then - If LanguageShow = "MTC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - If SaveStringInst = "ShowMSC" Then - If LanguageShow = "MSC" Then - - Else - If LanguageShow = "Eng" Then - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - EndIf - - - - - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" diff --git a/inter/hkg/xml/multi/tab_menu.lxml b/inter/hkg/xml/multi/tab_menu.lxml index 5591f9f5..a6780a8d 100644 --- a/inter/hkg/xml/multi/tab_menu.lxml +++ b/inter/hkg/xml/multi/tab_menu.lxml @@ -22,13 +22,13 @@ EndIf If LanguageShow = "MTC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/" EndIf If LanguageShow = "MSC" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" + Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/" EndIf ;inter-image diff --git a/xml/page_board.xml b/xml/page_board.xml index f7e38ea3..089370a7 100644 --- a/xml/page_board.xml +++ b/xml/page_board.xml @@ -1038,10 +1038,10 @@ If EnableMultiInstance = "true" Then Var InternationalEnable = 1 TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/video/script_video.ev" - EnableLanguage "ENG" - EnableLanguage "MSC" - EnableLanguage "MTC" + ;EnableLanguage "MSC" + ;EnableLanguage "MTC" + Var LanguageShow = "ENG" SetLanguage "ENG" LanguageControl "UpdateList" "-" @@ -1102,7 +1102,6 @@ DEBUGVAR ShowButtonClick2 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" - Else TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/video/script_video.ev" diff --git a/xml/page_catalog.lxml b/xml/page_catalog.lxml index 6d68c644..b7708394 100644 --- a/xml/page_catalog.lxml +++ b/xml/page_catalog.lxml @@ -24,6 +24,7 @@ If CountryName = "HongKong" Then If EnableMultiInstance = "true" Then + Var OpenFromPageBoard = 1 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_catalog.lxml" EndIf