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

Merge remote-tracking branch 'origin/masterpiece' into th_inter

Browse source
This commit is contained in:
Ittipat Lusuk 2025-03-25 10:40:52 +07:00
commit 1e8450e91f
24 changed files with 478 additions and 707 deletions
Download patch file Download diff file Expand all files Collapse all files

22
inter/tha/animation01/play_list.tsv
View file

@ -1339,14 +1339,14 @@ Macallan Lumina Mizuwari 11-99-05-0055 1 27 28 24 100 7:40 32
ชาไทยเต่าบิน (ชานมไทย) ร้อน 12-02-01-0039 1 10 7 24 100 7:40 32
ชาไทยเต่าบิน (ชานมไทย) เย็น 12-02-02-0039 1 10 7 23 24 100 7:40 32
ชาไทยเต่าบิน (ชานมไทย) ปั่น 12-02-03-0039 1 10 7 23 41 24 100 7:40 32
ยูสุโอริโอ้โวคาโน่ปั่น 12-03-03-0087 1 40 53 23 41 24 100 7:40
ยูซุคาราเมลโซดาเย็น 12-05-02-0147 1 53 22 13 23 24 100 7:40
เป๊ปซี่ยูซุ 12-05-02-0106 1 14 53 23 13 24 100 7:40
เป๊ปซี่มะพร้าว 12-05-02-0114 1 14 62 23 13 24 100 7:40
เป๊ปซี่ลิ้นจี่ 12-05-02-0057 1 14 13 11 23 24 100 7:40
เป๊ปซี่สตรอเบอรี 12-05-02-0058 1 14 13 19 23 24 100 7:40
เป๊ปซี่ทรอปิคอล 12-05-02-0148 1 14 34 62 23 24 100 7:40
เป๊ปซี่มะนาว 12-05-02-0149 1 14 13 12 23 24 100 7:40
เป๊ปซี่คาราเมล 12-05-02-0150 1 14 13 22 23 24 100 7:40
32
ยูสุโอริโอ้โวคาโน่ปั่น 12-03-03-0087 1 40 53 23 41 24 100 7:40 32
ยูซุคาราเมลโซดาเย็น 12-05-02-0147 1 53 22 13 23 24 100 7:40 32
32
เป๊ปซี่ยูซุ 12-05-02-0106 1 14 53 23 13 24 100 7:40 32
เป๊ปซี่มะพร้าว 12-05-02-0114 1 14 62 23 13 24 100 7:40 32
เป๊ปซี่ลิ้นจี่ 12-05-02-0057 1 14 13 11 23 24 100 7:40 32
เป๊ปซี่สตรอเบอรี 12-05-02-0058 1 14 13 19 23 24 100 7:40 32
เป๊ปซี่ทรอปิคอล 12-05-02-0148 1 14 34 62 23 24 100 7:40 32
เป๊ปซี่มะนาว 12-05-02-0149 1 14 13 12 23 24 100 7:40 32
เป๊ปซี่คาราเมล 12-05-02-0150 1 14 13 22 23 24 100 7:40 32

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

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>