pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

doing soda

Browse source
This commit is contained in:
wanlop run 2025-03-24 16:19:02 +07:00
parent 3e2fa45943
commit a6aa0bf1e0
10 changed files with 346 additions and 881 deletions
Download patch file Download diff file Expand all files Collapse all files

183
inter/tha/xml/multi/instance5.inc Normal file
View file

@ -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

137
inter/tha/xml/multi/instance8.inc Normal file
View file

@ -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

182
inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml
View file

@ -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

182
inter/tha/xml/multi/v3/page_catalog_group_coffee.skt
View file

@ -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

134
inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml
View file

@ -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
</EventTimeout>

134
inter/tha/xml/multi/v3/page_catalog_group_forkid.skt
View file

@ -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
</EventTimeout>

2
menu/new-layout.tsv
View file

@ -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 - -

Can't render this file because it has a wrong number of fields in line 3.

3
xml/page_board.xml
View file

@ -1228,7 +1228,8 @@
If CountryName = "Thailand" Then
Var MyanmarLangEnable = "true"
Var CatalogLayoutV3 = 0
Var CatalogLayoutV3 = 1
; test payment
Var New_Payment = 1

251
xml/page_catalog_group_milk.xml
View file

@ -1047,257 +1047,6 @@ Volcano" </Value>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - - -
; ==================> Len = 15
; - - 12-03-03-0087
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-03-03-0087.Button,DateTimeStart="2025/04/01T00:00:00",$Sum1203030087) </State>
<Button>
<State> $Sum1203030087 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_bn_Yuzu_Milk_Oreo_Volcano.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_bn_Yuzu_Milk_Oreo_Volcano.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_bn_Yuzu_Milk_Oreo_Volcano.png" </FilenameDisable>
<OverlayImage> xmlpro( 12-03-03-0087, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
Var NameDrink = "Yuzu Milk Oreo Volcano"
Var NameDrinkTH = "ยูสุโอริโอ้โวคาโน่"
Var DrinkDescriptionTH = "ยูซุ นม โอริโอ้"
Var DrinkDescription = "Yuzu Milk Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_bn_Yuzu_Milk_Oreo_Volcano.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price
Var PriceD2 = $-.Price
Var PriceD3 = $12-03-03-0087.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "##-##-##-####"
Var PD_CODE3 = "12-03-03-0087"
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = "Disable2"
Var PD_STAGE_3 = $12-03-03-0087.Button
Var OverlayMenuFilter !assigned xmlpro( 12-03-03-0087, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "-"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "12-03-03-0087"
EndIf
EndIf
Var menu_name_eng_hot = $##-##-##-####.NameE
Var menu_desc_eng_hot = $##-##-##-####.descriptionE
Var menu_name_thai_hot = $##-##-##-####.Name
Var menu_desc_thai_hot = $##-##-##-####.description
Var menu_name_eng_cold = $##-##-##-####.NameE
Var menu_desc_eng_cold = $##-##-##-####.descriptionE
Var menu_name_thai_cold = $##-##-##-####.Name
Var menu_desc_thai_cold = $##-##-##-####.description
Var menu_name_eng_blender = $12-03-03-0087.NameE
Var menu_desc_eng_blender = $12-03-03-0087.descriptionE
Var menu_name_thai_blender = $12-03-03-0087.Name
Var menu_desc_thai_blender = $12-03-03-0087.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Open "ROOT/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "ยูสุโอริโอ้โวคาโน่" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "ยูซุ นม โอริโอ้" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "Yuzu Milk Oreo Volcano" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Yuzu Milk Oreo" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage2 + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "cold_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 115 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "blend_db.png" ) </FilenameDisable>
<State> $12-03-03-0087.Button </State>
</Image>
<Text>
<X> 180 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitRegularTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-03-03-0087.Button </State>
<Value> StringFmt( $12-03-03-0087.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
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
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
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
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum1203030087 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - - -
; ==================> Len = 15

19
xml/page_topping_select5.xml
View file

@ -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