diff --git a/inter/tha/xml/multi/instance5.inc b/inter/tha/xml/multi/instance5.inc
new file mode 100644
index 00000000..82e26180
--- /dev/null
+++ b/inter/tha/xml/multi/instance5.inc
@@ -0,0 +1,183 @@
+
+
+ GetVisible inst_show2
+ ;DEBUGVAR inst_show2
+
+
+ If inst_show2 = 1 Then
+ InstanceGetString SaveStringInst
+ ;DEBUGVAR SaveStringInst
+ If SaveStringInst = "RefreshNow" Then
+ SAVELOG "OPEN slient Refresh"
+ GetXMLFileNameCurrentRunning CurrentOpenFile
+ Open CurrentOpenFile
+
+ If show_eng = "true" Then
+ InstanceSetString "ShowEng"
+ Else
+ InstanceSetString "ShowThai"
+ EndIf
+ EndIf
+ EndIf
+
+ ; setvarint SlientRefreshEnable 1
+ ;DEBUGVAR SlientRefreshEnable
+
+ If SlientRefreshEnable = 1 Then
+ If SaveStringInst = "RefreshNow" Then
+ SAVELOG "OPEN slient 2"
+ GetXMLFileNameCurrentRunning CurrentOpenFile
+ Open CurrentOpenFile
+
+ If show_eng = "true" Then
+ InstanceSetString "ShowEng"
+ Else
+ InstanceSetString "ShowThai"
+ EndIf
+
+ EndIf
+ EndIf
+
+ If SlientRefreshIndex = 2 Then
+ If inst_show2 = 0 Then
+ SAVELOG "OPEN slient 1"
+ GetXMLFileNameCurrentRunning CurrentOpenFile2
+ Open CurrentOpenFile2
+
+ Else
+ Var SlientRefreshIndex = 3
+ EndIf
+ EndIf
+
+ If langnext1 = "true" Then
+ DEBUGVAR langnext1
+ Var langnext1 = "false"
+ RefreshAll
+ EndIf
+
+ If inst_show2 = 1 Then
+
+
+ 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
+
+
+
+
+
+ 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
+ SAVELOG "OPEN FROM 1"
+ Open "ROOT/taobin_project/inter/tha/xml/multi/v3/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
+ SAVELOG "OPEN FROM 2"
+ Open "ROOT/taobin_project/inter/tha/xml/multi/v3/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
+
+ ; setvarint RefreshCoffeeMenu 1
+ If RefreshCoffeeMenu = 1 Then
+ Var RefreshCoffeeMenu = 0
+ SAVELOG "OPEN FROM 3"
+ ;Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml"
+ RefreshAll
+ EndIf
+
+ ; setvarint ScriptCoffeeMenu 1
+ If ScriptCoffeeMenu = 1 Then
+ Var ScriptCoffeeMenu = 0
+ SAVELOG "Runscript 3"
+ Script "-" "-"
+ EndIf
+
+ If CoffeeRefreshTimeOut > 15 Then
+ Var CoffeeRefreshTimeOut = 0
+ Script "-" "-"
+ EndIf
+
+ Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1
+
\ No newline at end of file
diff --git a/inter/tha/xml/multi/instance8.inc b/inter/tha/xml/multi/instance8.inc
new file mode 100644
index 00000000..542941c9
--- /dev/null
+++ b/inter/tha/xml/multi/instance8.inc
@@ -0,0 +1,137 @@
+
+ GetVisible inst_show5
+ ;DEBUGVAR inst_show5
+
+
+ If inst_show5 = 1 Then
+ InstanceGetString SaveStringInst
+ ;DEBUGVAR SaveStringInst
+ If SaveStringInst = "RefreshNow" Then
+ GetXMLFileNameCurrentRunning CurrentOpenFile
+ Open CurrentOpenFile
+
+ If show_eng = "true" Then
+ InstanceSetString "ShowEng"
+ Else
+ InstanceSetString "ShowThai"
+ EndIf
+ EndIf
+ EndIf
+
+ ; setvarint SlientRefreshEnable 1
+ ;DEBUGVAR SlientRefreshEnable
+
+ If SlientRefreshEnable = 1 Then
+ If SaveStringInst = "RefreshNow" Then
+ GetXMLFileNameCurrentRunning CurrentOpenFile
+ Open CurrentOpenFile
+
+ If show_eng = "true" Then
+ InstanceSetString "ShowEng"
+ Else
+ InstanceSetString "ShowThai"
+ EndIf
+
+ EndIf
+ EndIf
+
+
+ If SlientRefreshIndex = 5 Then
+ If inst_show5 = 0 Then
+ GetXMLFileNameCurrentRunning CurrentOpenFile5
+ Open CurrentOpenFile5
+ Else
+ Var SlientRefreshIndex = 6
+ EndIf
+ EndIf
+
+ If langnext4 = "true" Then
+ Var langnext4 = "false"
+ DEBUGVAR langnext4
+ RefreshAll
+ EndIf
+
+ If inst_show5 = 1 Then
+
+
+ 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
+
+
+ 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/tha/xml/multi/v3/page_catalog_group_forkid.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/tha/xml/multi/v3/page_catalog_group_forkid.lxml"
+ EndIf
+ EndIf
+
\ No newline at end of file
diff --git a/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml b/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml
index c71d957a..0c3b1cc9 100644
--- a/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml
+++ b/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml
@@ -52,187 +52,7 @@
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
- SAVELOG "OPEN slient Refresh"
- GetXMLFileNameCurrentRunning CurrentOpenFile
- Open CurrentOpenFile
-
- If show_eng = "true" Then
- InstanceSetString "ShowEng"
- Else
- InstanceSetString "ShowThai"
- EndIf
- EndIf
- EndIf
-
- ; setvarint SlientRefreshEnable 1
- ;DEBUGVAR SlientRefreshEnable
-
- If SlientRefreshEnable = 1 Then
- If SaveStringInst = "RefreshNow" Then
- SAVELOG "OPEN slient 2"
- GetXMLFileNameCurrentRunning CurrentOpenFile
- Open CurrentOpenFile
-
- If show_eng = "true" Then
- InstanceSetString "ShowEng"
- Else
- InstanceSetString "ShowThai"
- EndIf
-
- EndIf
- EndIf
-
- If SlientRefreshIndex = 2 Then
- If inst_show2 = 0 Then
- SAVELOG "OPEN slient 1"
- GetXMLFileNameCurrentRunning CurrentOpenFile2
- Open CurrentOpenFile2
-
- Else
- Var SlientRefreshIndex = 3
- EndIf
- EndIf
-
- If langnext1 = "true" Then
- DEBUGVAR langnext1
- Var langnext1 = "false"
- RefreshAll
- EndIf
-
- If inst_show2 = 1 Then
-
-
- 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
-
-
-
-
-
- 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
- SAVELOG "OPEN FROM 1"
- Open "ROOT/taobin_project/inter/tha/xml/multi/v3/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
- SAVELOG "OPEN FROM 2"
- Open "ROOT/taobin_project/inter/tha/xml/multi/v3/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
-
- ; setvarint RefreshCoffeeMenu 1
- If RefreshCoffeeMenu = 1 Then
- Var RefreshCoffeeMenu = 0
- SAVELOG "OPEN FROM 3"
- ;Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml"
- RefreshAll
- EndIf
-
- ; setvarint ScriptCoffeeMenu 1
- If ScriptCoffeeMenu = 1 Then
- Var ScriptCoffeeMenu = 0
- SAVELOG "Runscript 3"
- Script "-" "-"
- EndIf
-
- If CoffeeRefreshTimeOut > 15 Then
- Var CoffeeRefreshTimeOut = 0
- Script "-" "-"
- EndIf
-
- Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1
+ ;include="ROOT/taobin_project/inter/tha/xml/multi/coffee_instance.inc"
TimerReset
diff --git a/inter/tha/xml/multi/v3/page_catalog_group_coffee.skt b/inter/tha/xml/multi/v3/page_catalog_group_coffee.skt
index 4e5d32f2..c2a9990c 100644
--- a/inter/tha/xml/multi/v3/page_catalog_group_coffee.skt
+++ b/inter/tha/xml/multi/v3/page_catalog_group_coffee.skt
@@ -54,187 +54,7 @@
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
- SAVELOG "OPEN slient Refresh"
- GetXMLFileNameCurrentRunning CurrentOpenFile
- Open CurrentOpenFile
-
- If show_eng = "true" Then
- InstanceSetString "ShowEng"
- Else
- InstanceSetString "ShowThai"
- EndIf
- EndIf
- EndIf
-
- ; setvarint SlientRefreshEnable 1
- ;DEBUGVAR SlientRefreshEnable
-
- If SlientRefreshEnable = 1 Then
- If SaveStringInst = "RefreshNow" Then
- SAVELOG "OPEN slient 2"
- GetXMLFileNameCurrentRunning CurrentOpenFile
- Open CurrentOpenFile
-
- If show_eng = "true" Then
- InstanceSetString "ShowEng"
- Else
- InstanceSetString "ShowThai"
- EndIf
-
- EndIf
- EndIf
-
- If SlientRefreshIndex = 2 Then
- If inst_show2 = 0 Then
- SAVELOG "OPEN slient 1"
- GetXMLFileNameCurrentRunning CurrentOpenFile2
- Open CurrentOpenFile2
-
- Else
- Var SlientRefreshIndex = 3
- EndIf
- EndIf
-
- If langnext1 = "true" Then
- DEBUGVAR langnext1
- Var langnext1 = "false"
- RefreshAll
- EndIf
-
- If inst_show2 = 1 Then
-
-
- 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
-
-
-
-
-
- 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
- SAVELOG "OPEN FROM 1"
- Open "ROOT/taobin_project/inter/tha/xml/multi/v3/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
- SAVELOG "OPEN FROM 2"
- Open "ROOT/taobin_project/inter/tha/xml/multi/v3/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
-
- ; setvarint RefreshCoffeeMenu 1
- If RefreshCoffeeMenu = 1 Then
- Var RefreshCoffeeMenu = 0
- SAVELOG "OPEN FROM 3"
- ;Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml"
- RefreshAll
- EndIf
-
- ; setvarint ScriptCoffeeMenu 1
- If ScriptCoffeeMenu = 1 Then
- Var ScriptCoffeeMenu = 0
- SAVELOG "Runscript 3"
- Script "-" "-"
- EndIf
-
- If CoffeeRefreshTimeOut > 15 Then
- Var CoffeeRefreshTimeOut = 0
- Script "-" "-"
- EndIf
-
- Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1
+ ;include="ROOT/taobin_project/inter/tha/xml/multi/coffee_instance.inc"
TimerReset
diff --git a/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml b/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml
index 9b66e1bb..7235eed2 100644
--- a/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml
+++ b/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml
@@ -59,141 +59,9 @@
- GetVisible inst_show5
- ;DEBUGVAR inst_show5
+ ;include="ROOT/taobin_project/inter/tha/xml/multi/instance5.inc"
- If inst_show5 = 1 Then
- InstanceGetString SaveStringInst
- ;DEBUGVAR SaveStringInst
- If SaveStringInst = "RefreshNow" Then
- GetXMLFileNameCurrentRunning CurrentOpenFile
- Open CurrentOpenFile
-
- If show_eng = "true" Then
- InstanceSetString "ShowEng"
- Else
- InstanceSetString "ShowThai"
- EndIf
- EndIf
- EndIf
-
- ; setvarint SlientRefreshEnable 1
- ;DEBUGVAR SlientRefreshEnable
-
- If SlientRefreshEnable = 1 Then
- If SaveStringInst = "RefreshNow" Then
- GetXMLFileNameCurrentRunning CurrentOpenFile
- Open CurrentOpenFile
-
- If show_eng = "true" Then
- InstanceSetString "ShowEng"
- Else
- InstanceSetString "ShowThai"
- EndIf
-
- EndIf
- EndIf
-
-
- If SlientRefreshIndex = 5 Then
- If inst_show5 = 0 Then
- GetXMLFileNameCurrentRunning CurrentOpenFile5
- Open CurrentOpenFile5
- Else
- Var SlientRefreshIndex = 6
- EndIf
- EndIf
-
- If langnext4 = "true" Then
- Var langnext4 = "false"
- DEBUGVAR langnext4
- RefreshAll
- EndIf
-
- If inst_show5 = 1 Then
-
-
- 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
-
-
- 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/tha/xml/multi/v3/page_catalog_group_forkid.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/tha/xml/multi/v3/page_catalog_group_forkid.lxml"
- EndIf
- EndIf
TimerReset
diff --git a/inter/tha/xml/multi/v3/page_catalog_group_forkid.skt b/inter/tha/xml/multi/v3/page_catalog_group_forkid.skt
index 6320d480..bd14f096 100644
--- a/inter/tha/xml/multi/v3/page_catalog_group_forkid.skt
+++ b/inter/tha/xml/multi/v3/page_catalog_group_forkid.skt
@@ -62,141 +62,9 @@
- GetVisible inst_show5
- ;DEBUGVAR inst_show5
+ ;include="ROOT/taobin_project/inter/tha/xml/multi/instance5.inc"
- If inst_show5 = 1 Then
- InstanceGetString SaveStringInst
- ;DEBUGVAR SaveStringInst
- If SaveStringInst = "RefreshNow" Then
- GetXMLFileNameCurrentRunning CurrentOpenFile
- Open CurrentOpenFile
-
- If show_eng = "true" Then
- InstanceSetString "ShowEng"
- Else
- InstanceSetString "ShowThai"
- EndIf
- EndIf
- EndIf
-
- ; setvarint SlientRefreshEnable 1
- ;DEBUGVAR SlientRefreshEnable
-
- If SlientRefreshEnable = 1 Then
- If SaveStringInst = "RefreshNow" Then
- GetXMLFileNameCurrentRunning CurrentOpenFile
- Open CurrentOpenFile
-
- If show_eng = "true" Then
- InstanceSetString "ShowEng"
- Else
- InstanceSetString "ShowThai"
- EndIf
-
- EndIf
- EndIf
-
-
- If SlientRefreshIndex = 5 Then
- If inst_show5 = 0 Then
- GetXMLFileNameCurrentRunning CurrentOpenFile5
- Open CurrentOpenFile5
- Else
- Var SlientRefreshIndex = 6
- EndIf
- EndIf
-
- If langnext4 = "true" Then
- Var langnext4 = "false"
- DEBUGVAR langnext4
- RefreshAll
- EndIf
-
- If inst_show5 = 1 Then
-
-
- 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
-
-
- 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/tha/xml/multi/v3/page_catalog_group_forkid.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/tha/xml/multi/v3/page_catalog_group_forkid.lxml"
- EndIf
- EndIf
TimerReset
diff --git a/menu/new-layout.tsv b/menu/new-layout.tsv
index 96647404..a31ba2d7 100644
--- a/menu/new-layout.tsv
+++ b/menu/new-layout.tsv
@@ -170,7 +170,7 @@ Name=Milk,file=page_catalog_group_milk.skt
โอรีโอปั่นภูเขาไฟ Oreo Smoothie \nVolcano นม น้ำตาล โอรีโอ \n Milk, Sugar, Oreo, Ice - - 12-03-03-0009 bn_smoothie_oreo.png - - - posi2 - - - - - #REF! NN #REF!
ซูเปอร์โกโก้เข้ม คูณ 3 Super Cocoa X3 โกโก้ 3x นม และน้ำตาล Milk, Cocoa, Sugar - 12-03-02-0067 12-03-03-0067 IcedCocoax3.png - - - posi1 - - -
โอวัลตินรถโรงเรียน\nภูเขาไฟ Mini Bus Ovaltine\nVolcano โอวัลติน น้ำตาล และ นม Ovaltine, Sugar, milk - - 12-03-03-0094 bn_iced_Ovaltine_cocoa_smoothie.png - - - posi1 2024/12/16T00:00:00 - -
- ยูสุโอริโอ้โวคาโน่ Yuzu Milk Oreo Volcano ยูซุ นม โอริโอ้ Yuzu Milk Oreo - - 12-03-03-0087 bn_bn_Yuzu_Milk_Oreo_Volcano.png - - - posi1 2025/04/01T00:00:00 - -
+IGNORE ยูสุโอริโอ้โวคาโน่ Yuzu Milk Oreo Volcano ยูซุ นม โอริโอ้ Yuzu Milk Oreo - - 12-03-03-0087 bn_bn_Yuzu_Milk_Oreo_Volcano.png - - - posi1 2025/04/01T00:00:00 - -
เต่าบินไอติมถัง\nกะทิ Coconut Milk\nIce Cream มะพร้าว, คาราเมล, นม, น้ำตาล\nและ น้ำแข็ง Coconut, Caramel, Milk, Sugar\nAnd Ice - - 12-03-03-0103 bn_Coconut_Milk_Smoothie.png - - - posi1 2025/03/01T00:00:00 - -
เต่าบินไอติมถัง\nสตรอเบอรี Coconut Milk\nStrawberry Ice Cream มะพร้าว, คาราเมล, สตรอเบอรี, นม,\nน้ำตาล และ น้ำแข็ง Coconut, Caramel, Strawberry, Milk,\nSugar And Ice - - 12-03-03-0104 bn_Coconut_Milk_Strawberry_Smoothie.png - - - posi1 2025/03/01T00:00:00 - -
เต่าบินไอติมถัง\nโกโก้ Coconut Milk\nCocoa Ice Cream มะพร้าว, คาราเมล, โกโก้, นม, น้ำตาล\nและ น้ำแข็ง Coconut, Caramel, Cocoa, Milk,\nSugar And Ice - - 12-03-03-0105 bn_Coconut_Milk_Cocoa_Smoothie.png - - - posi1 2025/03/01T00:00:00 - -
diff --git a/xml/page_board.xml b/xml/page_board.xml
index 1e8bfe59..d1712438 100644
--- a/xml/page_board.xml
+++ b/xml/page_board.xml
@@ -1228,7 +1228,8 @@
If CountryName = "Thailand" Then
Var MyanmarLangEnable = "true"
- Var CatalogLayoutV3 = 0
+
+ Var CatalogLayoutV3 = 1
; test payment
Var New_Payment = 1
diff --git a/xml/page_catalog_group_milk.xml b/xml/page_catalog_group_milk.xml
index 296b74b0..f15a105a 100644
--- a/xml/page_catalog_group_milk.xml
+++ b/xml/page_catalog_group_milk.xml
@@ -1047,257 +1047,6 @@ Volcano"
text_unavailable
center-vertical-horizontal
-
- ; - - -
- ; ==================> Len = 15
- ; - - 12-03-03-0087
-
- 33
- 22
- 225
- 296
- Flag( 12-03-03-0087.Button,DateTimeStart="2025/04/01T00:00:00",$Sum1203030087)
-
-
- 16
- 164
- 24
- 220
- "multi2"
- KanitMediumTTF
- 0x322B26
- showthaiText
- "ยูสุโอริโอ้โวคาโน่"
-
-
- 16
- 220
- 14
- 220
- KanitMediumTTF
- 0x6F5F51
- showthaiText
- "ยูซุ นม โอริโอ้"
-
-
- 16
- 164
- 22
- 220
- "multi2"
- KanitMediumTTF
- 0x322B26
- showengText
- "Yuzu Milk Oreo Volcano"
-
-
- 16
- 220
- 14
- 220
- KanitMediumTTF
- 0x6F5F51
- showengText
- "Yuzu Milk Oreo"
-
-
- 16
- 264
- Var( DirImage2 + "option_deactive.png" )
-
-
- 16
- 264
- "Invisible"
- Var( DirImage2 + "hot.png" )
- Var( DirImage2 + "hot_db.png" )
-
-
- 50
- TextPriceMenuY
- TextPriceMenuSize
- 220
- KanitMediumTTF
- 0x6F5F51
- 0xEAE6E1
- "Invisible"
- StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) ; test
-
-
- 81
- 264
- Var( DirImage2 + "cold.png" )
- Var( DirImage2 + "cold_db.png" )
- "Invisible"
-
-
- 115
- TextPriceMenuY
- TextPriceMenuSize
- 220
- KanitMediumTTF
- 0x6F5F51
- 0xEAE6E1
- "Invisible"
- StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) ; test
-
-
- 146
- 264
- Var( DirImage2 + "blend.png" )
- Var( DirImage2 + "blend_db.png" )
- $12-03-03-0087.Button
-
-
- 180
- TextPriceMenuY
- TextPriceMenuSize
- 220
- KanitRegularTTF
- 0x6F5F51
- 0xEAE6E1
- $12-03-03-0087.Button
- StringFmt( $12-03-03-0087.Price , DisplayFormat, PreScaleConvertShow) ; test
-
-
- 81
- 264
-
- eval(
- If ICE_PROCESS_STATUS = 2 Then
-
- Var ice_tab_process_show = "Invisible"
-
- Else
- Var ice_tab_process_show = "Invisible"
- EndIf
- Var return = ice_tab_process_show
- )
-
- "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png"
- "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png"
-
-
- 49
- 117
-
- eval(
- If $Sum1203030087 = "Disable" Then
- STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable
- STRCONTAIN "ERR" $##-##-##-####.TAG tag2_is_disable
- STRCONTAIN "ERR" $12-03-03-0087.TAG tag3_is_disable
- Var return = "Invisible"
- If tag1_is_disable = "true" Then
- Var return = "Enable"
- EndIf
- If tag2_is_disable = "true" Then
- Var return = "Enable"
- EndIf
- If tag3_is_disable = "true" Then
- Var return = "Enable"
- EndIf
- Else
- Var return = "Invisible"
- EndIf
- )
-
- "ROOT/taobin_project/image//img_menu_err2.png"
-
-
- 84
- 266
- 10
- OpunMediumTTF
- 0xDE794E
- ice_tab_process_show
- ice_show_open
-
-
- 48
- 116
- 32
- 128
- 64
- MITRegularTTF
- 0x5A5A5A
- "disable-show"
- $Sum1203030087
- text_unavailable
- center-vertical-horizontal
-
; - - -
; ==================> Len = 15
diff --git a/xml/page_topping_select5.xml b/xml/page_topping_select5.xml
index 65a3b2e1..3fa173ec 100644
--- a/xml/page_topping_select5.xml
+++ b/xml/page_topping_select5.xml
@@ -95,6 +95,25 @@
Open "ROOT/taobin_project/xml/page_topping_select8.xml"
EndIf
+ Var ProductSodaCat = "12-05-02-0014,12-05-02-0015,12-05-02-0008,12-05-03-0008,12-05-02-0009,12-05-03-0009,12-05-02-0003,12-05-03-0003,12-05-02-0002,12-05-03-0002,12-05-02-0033,12-05-03-0033,12-05-02-0032,12-05-03-0032,12-05-02-0041,12-05-03-0041,12-05-02-0023,12-05-03-0023,12-05-02-0040,12-05-03-0040,12-05-02-0010,12-05-03-0010,12-05-02-0001,12-05-03-0001,12-05-02-0024,12-05-03-0024,12-05-02-0025,12-05-03-0025,12-05-02-0026,12-05-03-0026,12-05-02-0090,12-05-02-0104,12-05-03-0104,12-05-02-0094,12-05-03-0094,12-05-02-0104,12-05-02-0093,12-05-02-0106,12-05-02-0114,12-05-03-0114,12-05-02-0136,12-05-03-0136,12-05-02-0137,12-05-03-0137,12-05-02-0138,12-05-03-0138,12-05-02-0139,12-05-03-0139,12-05-02-0140,12-05-03-0140,12-05-02-0141,12-05-03-0141,12-05-02-0142,12-05-03-0142,12-05-02-0143,12-05-03-0143"
+ STRCONTAIN PD_CODE1 ProductSodaCat IsCatalogSoda
+ DEBUGVAR IsCatalogSoda
+ If IsCatalogSoda = "true" Then
+ Open "ROOT/taobin_project/xml/page_topping_select8.xml"
+ EndIf
+
+ STRCONTAIN PD_CODE2 ProductSodaCat IsCatalogSoda
+ DEBUGVAR IsCatalogSoda
+ If IsCatalogSoda = "true" Then
+ Open "ROOT/taobin_project/xml/page_topping_select8.xml"
+ EndIf
+
+ STRCONTAIN PD_CODE3 ProductSodaCat IsCatalogSoda
+ DEBUGVAR IsCatalogSoda
+ If IsCatalogSoda = "true" Then
+ Open "ROOT/taobin_project/xml/page_topping_select8.xml"
+ EndIf
+
EndIf