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

Pro .skt remake

Browse source
This commit is contained in:
wanlop run 2025-04-04 11:35:43 +07:00
parent 9bededbc2b
commit c1a99a887d
113 changed files with 3017 additions and 10391 deletions
Download patch file Download diff file Expand all files Collapse all files

17
inter/tha/.special/RoadShow.ev
View file

@ -1,7 +1,6 @@
SAVELOG "RoadShow.ev 200435 201316 EFR02 RoadShowBoxID = is 1" SAVELOG "RoadShow.ev 173950 172303 EFR02 RoadShowBoxID is 2"
SAVELOG "RoadShow.ev 172325 EFR01 RoadShowBoxID is 2" SAVELOG "4 Apr"
SAVELOG "17 Marrrrrrr"
Var RoadShow = "false" Var RoadShow = "false"
@ -17,10 +16,10 @@ Var RoadShowBoxID = 0
If SystemDateYearInt = 2025 Then If SystemDateYearInt = 2025 Then
; EFR02 ; EFR02
If BoxID = 200435 Then If BoxID = 173950 Then
Var RoadShowBoxID = 1 Var RoadShowBoxID = 1
EndIf EndIf
If BoxID = 201316 Then If BoxID = 172303 Then
Var RoadShowBoxID = 1 Var RoadShowBoxID = 1
EndIf EndIf
@ -28,13 +27,13 @@ If SystemDateYearInt = 2025 Then
; EFR01 ; EFR01
If BoxID = 172325 Then If BoxID = 172325 Then
Var RoadShowBoxID = 2
EndIf EndIf
If SystemDateMonthInt = 3 Then If SystemDateMonthInt = 4 Then
If RoadShowBoxID = 1 Then If RoadShowBoxID = 1 Then
If SystemDateDayInt = 29 Then If SystemDateDayInt = 4 Then
Var RoadShow = "true" Var RoadShow = "true"
Var RoadShowMarketCode = "EFR02" Var RoadShowMarketCode = "EFR02"
@ -43,7 +42,7 @@ If SystemDateYearInt = 2025 Then
EndIf EndIf
If RoadShowBoxID = 2 Then If RoadShowBoxID = 2 Then
If SystemDateDayInt = 29 Then If SystemDateDayInt = 4 Then
Var RoadShow = "true" Var RoadShow = "true"
Var RoadShowMarketCode = "EFR01" Var RoadShowMarketCode = "EFR01"

2
inter/tha/menu/lang.tsv
View file

@ -1161,7 +1161,7 @@
1300003 Beans module ชุดเมล็ดกาแฟ 1300003 Beans module ชุดเมล็ดกาแฟ
1300004 Bean tray ถาดใส่เมล็ดกาแฟ 1300004 Bean tray ถาดใส่เมล็ดกาแฟ
1300005 Switch tray : สวิตซ์ถาด : 1300005 Switch tray : สวิตซ์ถาด :
1300006 Check tray shutter ตรวจสอบชัตเตอร์ของถาด 1300006 Check tray shutter ตรวจสอบชัตเตอร์ถาด
1300007 Pay beans จ่ายถั่ว 1300007 Pay beans จ่ายถั่ว
1300008 1. Select beans 1. เลือกเมล็ดกาแฟ 1300008 1. Select beans 1. เลือกเมล็ดกาแฟ
1300009 2. Select direction 2. เลือกทิศทาง 1300009 2. Select direction 2. เลือกทิศทาง

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

2
inter/tha/xml/multi/menu_catalog_new.lxml
View file

@ -68,6 +68,8 @@
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
RefreshAll RefreshAll
Script "-" "-"
</EventLanguageOnChange> </EventLanguageOnChange>

83
inter/tha/xml/multi/v3/page_catalog_group_appfast.lxml
View file

@ -28,93 +28,16 @@
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then ;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
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 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 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 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_whey.lxml"
EndIf
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_whey.lxml"
EndIf
EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>

83
inter/tha/xml/multi/v3/page_catalog_group_appfast.skt
View file

@ -31,93 +31,16 @@
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then ;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
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 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 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 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_whey.lxml"
EndIf
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_whey.lxml"
EndIf
EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>

57
inter/tha/xml/multi/v3/page_catalog_group_cocktail.lxml
View file

@ -8,73 +8,21 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu8Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -83,7 +31,6 @@
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>

57
inter/tha/xml/multi/v3/page_catalog_group_cocktail.skt
View file

@ -10,73 +10,21 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu8Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -85,7 +33,6 @@
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>

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

File diff suppressed because it is too large Load diff

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

@ -50,12 +50,16 @@
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show_coffee GetVisible inst_show_coffee

52
inter/tha/xml/multi/v3/page_catalog_group_deep_fryer.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_deep_fryer.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

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

@ -50,6 +50,7 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
@ -58,6 +59,8 @@
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show_for_kid GetVisible inst_show_for_kid

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

@ -53,6 +53,7 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
@ -61,6 +62,8 @@
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show_for_kid GetVisible inst_show_for_kid

5
inter/tha/xml/multi/v3/page_catalog_group_health.lxml
View file

@ -39,6 +39,9 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
@ -79,7 +82,7 @@
SAVELOG "OPEN FROM 6" SAVELOG "OPEN FROM 6"
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_health.lxml"
EndIf EndIf
; setvarint RefreshHealtMenu 1 ; setvarint RefreshHealtMenu 1

5
inter/tha/xml/multi/v3/page_catalog_group_health.skt
View file

@ -42,6 +42,9 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
@ -82,7 +85,7 @@
SAVELOG "OPEN FROM 6" SAVELOG "OPEN FROM 6"
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_health.lxml"
EndIf EndIf
; setvarint RefreshHealtMenu 1 ; setvarint RefreshHealtMenu 1

2803
inter/tha/xml/multi/v3/page_catalog_group_melon.skt
View file

File diff suppressed because it is too large Load diff

2
inter/tha/xml/multi/v3/page_catalog_group_milk.lxml
View file

@ -37,6 +37,8 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then

2
inter/tha/xml/multi/v3/page_catalog_group_milk.skt
View file

@ -39,6 +39,8 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then

52
inter/tha/xml/multi/v3/page_catalog_group_oreo.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_oreo.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

32
inter/tha/xml/multi/v3/page_catalog_group_other.lxml
View file

@ -43,10 +43,36 @@
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
</EventOnShow> ; setvarint RefreshOtherOrg 1
If RefreshOtherOrg = 1 Then
Var RefreshOtherOrg = 0
SAVELOG "OPEN FROM 8"
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_other.lxml"
EndIf
GetVisible inst_show_other_org
;DEBUGVAR inst_show_other_org
Var OtherOrgRefreshTimeOut = OtherOrgRefreshTimeOut + 1
;DEBUGVAR OtherOrgRefreshTimeOut
If OtherOrgRefreshTimeOut > 15 Then
Var OtherOrgRefreshTimeOut = 0
Script "-" "-"
If inst_show_other_org = 1 Then
;RefreshAll
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

32
inter/tha/xml/multi/v3/page_catalog_group_other.skt
View file

@ -46,10 +46,36 @@
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
</EventOnShow> ; setvarint RefreshOtherOrg 1
If RefreshOtherOrg = 1 Then
Var RefreshOtherOrg = 0
SAVELOG "OPEN FROM 8"
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_other.lxml"
EndIf
GetVisible inst_show_other_org
;DEBUGVAR inst_show_other_org
Var OtherOrgRefreshTimeOut = OtherOrgRefreshTimeOut + 1
;DEBUGVAR OtherOrgRefreshTimeOut
If OtherOrgRefreshTimeOut > 15 Then
Var OtherOrgRefreshTimeOut = 0
Script "-" "-"
If inst_show_other_org = 1 Then
;RefreshAll
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

42
inter/tha/xml/multi/v3/page_catalog_group_other_other.lxml
View file

@ -14,6 +14,8 @@
Var SlientRefreshIndex = 8 Var SlientRefreshIndex = 8
EndIf EndIf
Var OtherOtherRefreshTimeOut = 1
Var inst_show_other_other_counter = 10
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
@ -31,25 +33,22 @@
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
Var inst_show_other_other = 7 Var OtherOtherRefreshTimeOut = 14
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
RefreshAll
RefreshAll
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;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
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
; setvarint RefreshOtherOther 1 ; setvarint RefreshOtherOther 1
If RefreshOtherOther = 1 Then If RefreshOtherOther = 1 Then
@ -60,21 +59,20 @@
GetVisible inst_show_other_other GetVisible inst_show_other_other
DEBUGVAR inst_show_other_other
If inst_show_other_other = 1 Then Var OtherOtherRefreshTimeOut = OtherOtherRefreshTimeOut + 1
If inst_show_other_other_counter > 0 Then DEBUGVAR OtherOtherRefreshTimeOut
DEBUGVAR inst_show_other_other_counter
Var inst_show_other_other_counter = inst_show_other_other_counter - 1
If inst_show_other_other_counter = 0 Then If OtherOtherRefreshTimeOut > 15 Then
RefreshAll
Var inst_show_other_other_counter = 7
EndIf Var OtherOtherRefreshTimeOut = 0
EndIf Script "-" "-"
If inst_show_other_other = 1 Then
;RefreshAll
EndIf
EndIf EndIf
TimerReset TimerReset

42
inter/tha/xml/multi/v3/page_catalog_group_other_other.skt
View file

@ -17,6 +17,8 @@
Var SlientRefreshIndex = 8 Var SlientRefreshIndex = 8
EndIf EndIf
Var OtherOtherRefreshTimeOut = 1
Var inst_show_other_other_counter = 10
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
@ -34,25 +36,22 @@
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
Var inst_show_other_other = 7 Var OtherOtherRefreshTimeOut = 14
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
RefreshAll
RefreshAll
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;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
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
; setvarint RefreshOtherOther 1 ; setvarint RefreshOtherOther 1
If RefreshOtherOther = 1 Then If RefreshOtherOther = 1 Then
@ -63,21 +62,20 @@
GetVisible inst_show_other_other GetVisible inst_show_other_other
DEBUGVAR inst_show_other_other
If inst_show_other_other = 1 Then Var OtherOtherRefreshTimeOut = OtherOtherRefreshTimeOut + 1
If inst_show_other_other_counter > 0 Then DEBUGVAR OtherOtherRefreshTimeOut
DEBUGVAR inst_show_other_other_counter
Var inst_show_other_other_counter = inst_show_other_other_counter - 1
If inst_show_other_other_counter = 0 Then If OtherOtherRefreshTimeOut > 15 Then
RefreshAll
Var inst_show_other_other_counter = 7
EndIf Var OtherOtherRefreshTimeOut = 0
EndIf Script "-" "-"
If inst_show_other_other = 1 Then
;RefreshAll
EndIf
EndIf EndIf
TimerReset TimerReset

9
inter/tha/xml/multi/v3/page_catalog_group_pepsi_7up.lxml
View file

@ -40,14 +40,7 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
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
; setvarint RefreshPepsiMenu 1 ; setvarint RefreshPepsiMenu 1

9
inter/tha/xml/multi/v3/page_catalog_group_pepsi_7up.skt
View file

@ -43,14 +43,7 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
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
; setvarint RefreshPepsiMenu 1 ; setvarint RefreshPepsiMenu 1

50
inter/tha/xml/multi/v3/page_catalog_group_pepsi_pro.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

50
inter/tha/xml/multi/v3/page_catalog_group_pepsi_pro.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_12_day_12_menu.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_12_day_12_menu.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

45
inter/tha/xml/multi/v3/page_catalog_group_pro_15THB.lxml
View file

@ -8,42 +8,29 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu1Selected = "PressForever"
Var OreoBigButtonEnable = "Enable"
Var From15THBPro = 0
If $12-01-01-0001.Button = "Invisible" Then
Var esp102101001Enable = "Invisible"
Var esp122101001Enable = "Enable"
Else
Var esp102101001Enable = "Enable"
Var esp122101001Enable = "Invisible"
EndIf
SAVELOG PreviseXMLFileName2
Var Timeout = 0 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/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -2135,12 +2122,6 @@
</ScrollableCatalog> </ScrollableCatalog>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup> </Popup>

49
inter/tha/xml/multi/v3/page_catalog_group_pro_15THB.skt
View file

@ -10,56 +10,33 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
<?hurr ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
#include=menu_catalog_default_init.lxml
?>
Var Menu1Selected = "PressForever"
Var OreoBigButtonEnable = "Enable"
Var From15THBPro = 0
If $12-01-01-0001.Button = "Invisible" Then
Var esp102101001Enable = "Invisible"
Var esp122101001Enable = "Enable"
Else
Var esp102101001Enable = "Enable"
Var esp122101001Enable = "Invisible"
EndIf
SAVELOG PreviseXMLFileName2
Var Timeout = 0 Var Timeout = 0
If show_eng = "true" Then
Var text_unavailable = "UNAVAILABLE###size=16"
Else
Var text_unavailable = "หมด###size=32"
EndIf
<?hurr
#include=menu_catalog_new_menu.lxml
?>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup> </Popup>

58
inter/tha/xml/multi/v3/page_catalog_group_pro_7up_lucky_draw_x2.lxml
View file

@ -8,71 +8,29 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -10111,8 +10069,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

58
inter/tha/xml/multi/v3/page_catalog_group_pro_7up_lucky_draw_x2.skt
View file

@ -10,79 +10,33 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

51
inter/tha/xml/multi/v3/page_catalog_group_pro_bad_valentine.lxml
View file

@ -8,69 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var FromBadValentinePro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

51
inter/tha/xml/multi/v3/page_catalog_group_pro_bad_valentine.skt
View file

@ -10,69 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var FromBadValentinePro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

58
inter/tha/xml/multi/v3/page_catalog_group_pro_banana_mint_lucky_draw_x3.lxml
View file

@ -8,69 +8,29 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -6023,8 +5983,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

58
inter/tha/xml/multi/v3/page_catalog_group_pro_banana_mint_lucky_draw_x3.skt
View file

@ -10,77 +10,33 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

61
inter/tha/xml/multi/v3/page_catalog_group_pro_buble_tea.lxml
View file

@ -8,72 +8,29 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -7388,10 +7345,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

61
inter/tha/xml/multi/v3/page_catalog_group_pro_buble_tea.skt
View file

@ -10,82 +10,33 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

71
inter/tha/xml/multi/v3/page_catalog_group_pro_cocoa_77.lxml
View file

@ -8,80 +8,29 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0
Var FromWednesdayMelonPro = 0
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
If show_eng = "true" Then
Var extension = "_en.png"
Else
Var extension = ".png"
EndIf
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -4899,10 +4848,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

71
inter/tha/xml/multi/v3/page_catalog_group_pro_cocoa_77.skt
View file

@ -10,90 +10,33 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0
Var FromWednesdayMelonPro = 0
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
If show_eng = "true" Then
Var extension = "_en.png"
Else
Var extension = ".png"
EndIf
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_coconut_milk.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_coconut_milk.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

63
inter/tha/xml/multi/v3/page_catalog_group_pro_freefile.lxml
View file

@ -8,74 +8,29 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -807,10 +762,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

63
inter/tha/xml/multi/v3/page_catalog_group_pro_freefile.skt
View file

@ -10,84 +10,33 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

61
inter/tha/xml/multi/v3/page_catalog_group_pro_halloween.lxml
View file

@ -8,8 +8,8 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromHalloweenPro = 0
Var Timeout = 0 Var Timeout = 0
@ -20,60 +20,17 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -3981,12 +3938,6 @@
</ScrollableCatalog> </ScrollableCatalog>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup> </Popup>

65
inter/tha/xml/multi/v3/page_catalog_group_pro_halloween.skt
View file

@ -1,5 +1,5 @@
<?hurr <?hurr
#include=menu_head.py #include=menu_head.py
?> ?>
<Popup> <Popup>
@ -10,8 +10,8 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromHalloweenPro = 0
Var Timeout = 0 Var Timeout = 0
@ -22,70 +22,21 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup> </Popup>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_happy_trios.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_happy_trios.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

63
inter/tha/xml/multi/v3/page_catalog_group_pro_jemila.lxml
View file

@ -8,74 +8,29 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -2621,12 +2576,6 @@
</ScrollableCatalog> </ScrollableCatalog>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup> </Popup>

63
inter/tha/xml/multi/v3/page_catalog_group_pro_jemila.skt
View file

@ -10,84 +10,33 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup> </Popup>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_kingdom_thai_tea.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_kingdom_thai_tea.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

53
inter/tha/xml/multi/v3/page_catalog_group_pro_lipit.lxml
View file

@ -8,69 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var FromLipitPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

53
inter/tha/xml/multi/v3/page_catalog_group_pro_lipit.skt
View file

@ -10,69 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var FromLipitPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_matcha_every_day.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_matcha_every_day.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

57
inter/tha/xml/multi/v3/page_catalog_group_pro_melon.lxml
View file

@ -7,67 +7,23 @@
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -1486,4 +1442,5 @@
</Popup> </Popup>

57
inter/tha/xml/multi/v3/page_catalog_group_pro_melon.skt
View file

@ -9,67 +9,23 @@
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -82,4 +38,5 @@
?> ?>
</Popup> </Popup>

61
inter/tha/xml/multi/v3/page_catalog_group_pro_mom_cocoa.lxml
View file

@ -8,70 +8,29 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -5343,8 +5302,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

61
inter/tha/xml/multi/v3/page_catalog_group_pro_mom_cocoa.skt
View file

@ -10,78 +10,33 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

53
inter/tha/xml/multi/v3/page_catalog_group_pro_monday_banana.lxml
View file

@ -8,69 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var FromMondayBananaPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

53
inter/tha/xml/multi/v3/page_catalog_group_pro_monday_banana.skt
View file

@ -10,69 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var FromMondayBananaPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

61
inter/tha/xml/multi/v3/page_catalog_group_pro_mymint.lxml
View file

@ -8,8 +8,8 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
Var Timeout = 0 Var Timeout = 0
@ -20,60 +20,17 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -3527,12 +3484,6 @@
</ScrollableCatalog> </ScrollableCatalog>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup> </Popup>

61
inter/tha/xml/multi/v3/page_catalog_group_pro_mymint.skt
View file

@ -10,8 +10,8 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
Var Timeout = 0 Var Timeout = 0
@ -22,70 +22,21 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup> </Popup>

63
inter/tha/xml/multi/v3/page_catalog_group_pro_nam_hom_coconut.lxml
View file

@ -8,72 +8,29 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -6934,10 +6891,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

63
inter/tha/xml/multi/v3/page_catalog_group_pro_nam_hom_coconut.skt
View file

@ -10,82 +10,33 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_oreo_11.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_oreo_11.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_ovaltine_school.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_ovaltine_school.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

61
inter/tha/xml/multi/v3/page_catalog_group_pro_passion_mint.lxml
View file

@ -8,7 +8,9 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
@ -18,60 +20,17 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -3073,10 +3032,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

61
inter/tha/xml/multi/v3/page_catalog_group_pro_passion_mint.skt
View file

@ -10,7 +10,9 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
@ -20,70 +22,21 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

51
inter/tha/xml/multi/v3/page_catalog_group_pro_peach.lxml
View file

@ -8,7 +8,7 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
@ -20,55 +20,10 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

51
inter/tha/xml/multi/v3/page_catalog_group_pro_peach.skt
View file

@ -10,7 +10,7 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
@ -22,55 +22,10 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_pepsi_second_cup_30.lxml
View file

@ -8,11 +8,10 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var FromPepsiSecondCup30 = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -21,55 +20,10 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_pepsi_second_cup_30.skt
View file

@ -10,11 +10,10 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var FromPepsiSecondCup30 = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -23,55 +22,10 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

556
inter/tha/xml/multi/v3/page_catalog_group_pro_pepsi_x_taobin.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -151,25 +105,25 @@
<IceState> $12-05-02-0133.Button </IceState> <IceState> $12-05-02-0133.Button </IceState>
<BlendState> "Disable2" </BlendState> <BlendState> "Disable2" </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0133.Price = -1 Then If $12-05-02-0133.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0133.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0133.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -229,17 +183,17 @@
Var PD_CODE3 = "##-##-##-####" Var PD_CODE3 = "##-##-##-####"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi Extra" Var aliasName[0] = "Pepsi Extra"
Var aliasDesc[0] = "Pepsi, Soda And Ice" Var aliasDesc[0] = "Pepsi, Soda And Ice"
Var aliasName[1] = "เป๊ปซี่ (เพิ่มปริมาณ)" Var aliasName[1] = "เป๊ปซี่ (เพิ่มปริมาณ)"
Var aliasDesc[1] = "เป๊ปซี่ โซดา และน้ำแข็ง" Var aliasDesc[1] = "เป๊ปซี่ โซดา และน้ำแข็ง"
Var aliasName[2] = "-" Var aliasName[2] = "-"
Var aliasDesc[2] = "-" Var aliasDesc[2] = "-"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "ပက်စီ\n(အပိုဖြည့်)" Var aliasName[5] = "ပက်စီ\n(အပိုဖြည့်)"
Var aliasDesc[5] = "ပက်စီ ဆိုဒါ ရေခဲ" Var aliasDesc[5] = "ပက်စီ ဆိုဒါ ရေခဲ"
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""
@ -378,25 +332,25 @@
<IceState> $12-05-02-0106.Button </IceState> <IceState> $12-05-02-0106.Button </IceState>
<BlendState> "Disable2" </BlendState> <BlendState> "Disable2" </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0106.Price = -1 Then If $12-05-02-0106.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0106.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0106.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -456,17 +410,17 @@
Var PD_CODE3 = "##-##-##-####" Var PD_CODE3 = "##-##-##-####"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi Yuzu" Var aliasName[0] = "Pepsi Yuzu"
Var aliasDesc[0] = "Pepsi Yuzu Soda" Var aliasDesc[0] = "Pepsi Yuzu Soda"
Var aliasName[1] = "เป๊ปซี่ยูซุ" Var aliasName[1] = "เป๊ปซี่ยูซุ"
Var aliasDesc[1] = "เป๊ปซี่ ยูซุ โซดา" Var aliasDesc[1] = "เป๊ปซี่ ยูซุ โซดา"
Var aliasName[2] = "柚子百事可乐" Var aliasName[2] = "柚子百事可乐"
Var aliasDesc[2] = "百事可乐、柚子、冰" Var aliasDesc[2] = "百事可乐、柚子、冰"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "-" Var aliasName[5] = "-"
Var aliasDesc[5] = "-" Var aliasDesc[5] = "-"
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""
@ -605,25 +559,25 @@
<IceState> $12-05-02-0057.Button </IceState> <IceState> $12-05-02-0057.Button </IceState>
<BlendState> "Disable2" </BlendState> <BlendState> "Disable2" </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0057.Price = -1 Then If $12-05-02-0057.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0057.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0057.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -683,17 +637,17 @@
Var PD_CODE3 = "##-##-##-####" Var PD_CODE3 = "##-##-##-####"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi Lychee" Var aliasName[0] = "Pepsi Lychee"
Var aliasDesc[0] = "Pepsi Lychee Soda" Var aliasDesc[0] = "Pepsi Lychee Soda"
Var aliasName[1] = "เป๊ปซี่ลิ้นจี่" Var aliasName[1] = "เป๊ปซี่ลิ้นจี่"
Var aliasDesc[1] = "เป๊ปซี่ โซดา ลิ้นจี่" Var aliasDesc[1] = "เป๊ปซี่ โซดา ลิ้นจี่"
Var aliasName[2] = "-" Var aliasName[2] = "-"
Var aliasDesc[2] = "-" Var aliasDesc[2] = "-"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "-" Var aliasName[5] = "-"
Var aliasDesc[5] = "-" Var aliasDesc[5] = "-"
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""
@ -832,25 +786,25 @@
<IceState> $12-05-02-0058.Button </IceState> <IceState> $12-05-02-0058.Button </IceState>
<BlendState> "Disable2" </BlendState> <BlendState> "Disable2" </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0058.Price = -1 Then If $12-05-02-0058.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0058.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0058.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -910,17 +864,17 @@
Var PD_CODE3 = "##-##-##-####" Var PD_CODE3 = "##-##-##-####"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi Strawberry" Var aliasName[0] = "Pepsi Strawberry"
Var aliasDesc[0] = "Pepsi Strawberry Soda" Var aliasDesc[0] = "Pepsi Strawberry Soda"
Var aliasName[1] = "เป๊ปซี่สตรอเบอรี" Var aliasName[1] = "เป๊ปซี่สตรอเบอรี"
Var aliasDesc[1] = "เป๊ปซี่ โซดา สตรอเบอรี" Var aliasDesc[1] = "เป๊ปซี่ โซดา สตรอเบอรี"
Var aliasName[2] = "-" Var aliasName[2] = "-"
Var aliasDesc[2] = "-" Var aliasDesc[2] = "-"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "-" Var aliasName[5] = "-"
Var aliasDesc[5] = "-" Var aliasDesc[5] = "-"
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""
@ -1059,25 +1013,25 @@
<IceState> $12-05-02-0148.Button </IceState> <IceState> $12-05-02-0148.Button </IceState>
<BlendState> "Disable2" </BlendState> <BlendState> "Disable2" </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0148.Price = -1 Then If $12-05-02-0148.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0148.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0148.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -1137,17 +1091,17 @@
Var PD_CODE3 = "##-##-##-####" Var PD_CODE3 = "##-##-##-####"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi Tropical" Var aliasName[0] = "Pepsi Tropical"
Var aliasDesc[0] = "Pepsi Medicine Drink Coconut Soda" Var aliasDesc[0] = "Pepsi Medicine Drink Coconut Soda"
Var aliasName[1] = "เป๊ปซี่ทรอปิคอล" Var aliasName[1] = "เป๊ปซี่ทรอปิคอล"
Var aliasDesc[1] = "เป๊ปซี่ เครื่องดื่มเต่าทรงพลัง มะพร้าว/n(มีคาเฟอีน)" Var aliasDesc[1] = "เป๊ปซี่ เครื่องดื่มเต่าทรงพลัง มะพร้าว/n(มีคาเฟอีน)"
Var aliasName[2] = "-" Var aliasName[2] = "-"
Var aliasDesc[2] = "-" Var aliasDesc[2] = "-"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "-" Var aliasName[5] = "-"
Var aliasDesc[5] = "-" Var aliasDesc[5] = "-"
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""
@ -1286,25 +1240,25 @@
<IceState> $12-05-02-0149.Button </IceState> <IceState> $12-05-02-0149.Button </IceState>
<BlendState> "Disable2" </BlendState> <BlendState> "Disable2" </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0149.Price = -1 Then If $12-05-02-0149.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0149.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0149.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -1364,17 +1318,17 @@
Var PD_CODE3 = "##-##-##-####" Var PD_CODE3 = "##-##-##-####"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi Lime" Var aliasName[0] = "Pepsi Lime"
Var aliasDesc[0] = "Pepsi Lime Soda" Var aliasDesc[0] = "Pepsi Lime Soda"
Var aliasName[1] = "เป๊ปซี่มะนาว" Var aliasName[1] = "เป๊ปซี่มะนาว"
Var aliasDesc[1] = "เป๊ปซี่ โซดา มะนาว" Var aliasDesc[1] = "เป๊ปซี่ โซดา มะนาว"
Var aliasName[2] = "-" Var aliasName[2] = "-"
Var aliasDesc[2] = "-" Var aliasDesc[2] = "-"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "-" Var aliasName[5] = "-"
Var aliasDesc[5] = "-" Var aliasDesc[5] = "-"
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""
@ -1513,25 +1467,25 @@
<IceState> $12-05-02-0150.Button </IceState> <IceState> $12-05-02-0150.Button </IceState>
<BlendState> "Disable2" </BlendState> <BlendState> "Disable2" </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0150.Price = -1 Then If $12-05-02-0150.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0150.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0150.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -1591,17 +1545,17 @@
Var PD_CODE3 = "##-##-##-####" Var PD_CODE3 = "##-##-##-####"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi Caramel" Var aliasName[0] = "Pepsi Caramel"
Var aliasDesc[0] = "Pepsi Caramel Soda" Var aliasDesc[0] = "Pepsi Caramel Soda"
Var aliasName[1] = "เป๊ปซี่คาราเมล" Var aliasName[1] = "เป๊ปซี่คาราเมล"
Var aliasDesc[1] = "เป๊ปซี่ โซดา คาราเมล" Var aliasDesc[1] = "เป๊ปซี่ โซดา คาราเมล"
Var aliasName[2] = "-" Var aliasName[2] = "-"
Var aliasDesc[2] = "-" Var aliasDesc[2] = "-"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "-" Var aliasName[5] = "-"
Var aliasDesc[5] = "-" Var aliasDesc[5] = "-"
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""
@ -1740,25 +1694,25 @@
<IceState> $12-05-02-0114.Button </IceState> <IceState> $12-05-02-0114.Button </IceState>
<BlendState> "Disable2" </BlendState> <BlendState> "Disable2" </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0114.Price = -1 Then If $12-05-02-0114.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0114.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0114.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -1818,17 +1772,17 @@
Var PD_CODE3 = "##-##-##-####" Var PD_CODE3 = "##-##-##-####"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi Coconut " Var aliasName[0] = "Pepsi Coconut "
Var aliasDesc[0] = "Pepsi Coconut Soda" Var aliasDesc[0] = "Pepsi Coconut Soda"
Var aliasName[1] = "เป๊ปซี่มะพร้าว" Var aliasName[1] = "เป๊ปซี่มะพร้าว"
Var aliasDesc[1] = "เป๊ปซี่ มะพร้าว โซดา" Var aliasDesc[1] = "เป๊ปซี่ มะพร้าว โซดา"
Var aliasName[2] = "-" Var aliasName[2] = "-"
Var aliasDesc[2] = "-" Var aliasDesc[2] = "-"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "-" Var aliasName[5] = "-"
Var aliasDesc[5] = "-" Var aliasDesc[5] = "-"
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""
@ -1967,25 +1921,25 @@
<IceState> $12-05-02-0046.Button </IceState> <IceState> $12-05-02-0046.Button </IceState>
<BlendState> $12-05-03-0046.Button </BlendState> <BlendState> $12-05-03-0046.Button </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0046.Price = -1 Then If $12-05-02-0046.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0046.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0046.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $12-05-03-0046.Price = -1 Then If $12-05-03-0046.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-03-0046.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-03-0046.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -2045,17 +1999,17 @@
Var PD_CODE3 = "12-05-03-0046" Var PD_CODE3 = "12-05-03-0046"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi Plum" Var aliasName[0] = "Pepsi Plum"
Var aliasDesc[0] = "Pepsi, Ume & Ice" Var aliasDesc[0] = "Pepsi, Ume & Ice"
Var aliasName[1] = "เป๊ปซี่บ๊วย" Var aliasName[1] = "เป๊ปซี่บ๊วย"
Var aliasDesc[1] = "เป๊ปซี่ บ๊วย โซดา " Var aliasDesc[1] = "เป๊ปซี่ บ๊วย โซดา "
Var aliasName[2] = "梅子百事可乐" Var aliasName[2] = "梅子百事可乐"
Var aliasDesc[2] = "百事可乐、梅子风味糖浆、冰" Var aliasDesc[2] = "百事可乐、梅子风味糖浆、冰"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "ပက်စီဆားမက်မွန်သီး" Var aliasName[5] = "ပက်စီဆားမက်မွန်သီး"
Var aliasDesc[5] = "ပက်စီ ဆားငန်သီး ဆိုဒါ " Var aliasDesc[5] = "ပက်စီ ဆားငန်သီး ဆိုဒါ "
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""
@ -2194,25 +2148,25 @@
<IceState> $12-05-02-0104.Button </IceState> <IceState> $12-05-02-0104.Button </IceState>
<BlendState> $12-05-03-0104.Button </BlendState> <BlendState> $12-05-03-0104.Button </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0104.Price = -1 Then If $12-05-02-0104.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0104.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0104.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $12-05-03-0104.Price = -1 Then If $12-05-03-0104.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-03-0104.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-03-0104.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -2272,17 +2226,17 @@
Var PD_CODE3 = "12-05-03-0104" Var PD_CODE3 = "12-05-03-0104"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi Plum" Var aliasName[0] = "Pepsi Plum"
Var aliasDesc[0] = "Pepsi, Ume & Ice" Var aliasDesc[0] = "Pepsi, Ume & Ice"
Var aliasName[1] = "เป๊ปซี่บ๊วย" Var aliasName[1] = "เป๊ปซี่บ๊วย"
Var aliasDesc[1] = "เป๊ปซี่ บ๊วย โซดา " Var aliasDesc[1] = "เป๊ปซี่ บ๊วย โซดา "
Var aliasName[2] = "梅子百事可乐" Var aliasName[2] = "梅子百事可乐"
Var aliasDesc[2] = "百事可乐、梅子、冰" Var aliasDesc[2] = "百事可乐、梅子、冰"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "ပက်စီဆားငန်သီး" Var aliasName[5] = "ပက်စီဆားငန်သီး"
Var aliasDesc[5] = "ပက်စီ ဆားငန်သီး ဆိုဒါ " Var aliasDesc[5] = "ပက်စီ ဆားငန်သီး ဆိုဒါ "
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""
@ -2421,25 +2375,25 @@
<IceState> $12-05-02-0007.Button </IceState> <IceState> $12-05-02-0007.Button </IceState>
<BlendState> $12-05-03-0007.Button </BlendState> <BlendState> $12-05-03-0007.Button </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0007.Price = -1 Then If $12-05-02-0007.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0007.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0007.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $12-05-03-0007.Price = -1 Then If $12-05-03-0007.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-03-0007.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-03-0007.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -2499,17 +2453,17 @@
Var PD_CODE3 = "12-05-03-0007" Var PD_CODE3 = "12-05-03-0007"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi" Var aliasName[0] = "Pepsi"
Var aliasDesc[0] = "Pepsi & Ice" Var aliasDesc[0] = "Pepsi & Ice"
Var aliasName[1] = "เป๊ปซี่น้ำแข็ง" Var aliasName[1] = "เป๊ปซี่น้ำแข็ง"
Var aliasDesc[1] = "เป๊ปซี่ " Var aliasDesc[1] = "เป๊ปซี่ "
Var aliasName[2] = "百事可乐" Var aliasName[2] = "百事可乐"
Var aliasDesc[2] = "百事可乐、冰" Var aliasDesc[2] = "百事可乐、冰"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "ပက်စီ" Var aliasName[5] = "ပက်စီ"
Var aliasDesc[5] = "ပက်စီ " Var aliasDesc[5] = "ပက်စီ "
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""
@ -2648,25 +2602,25 @@
<IceState> $12-05-02-0094.Button </IceState> <IceState> $12-05-02-0094.Button </IceState>
<BlendState> $12-05-03-0094.Button </BlendState> <BlendState> $12-05-03-0094.Button </BlendState>
<HotPrice> eval( <HotPrice> eval(
If $##-##-##-####.Price = -1 Then If $##-##-##-####.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $##-##-##-####.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </HotPrice> ) </HotPrice>
<IcePrice> eval( <IcePrice> eval(
If $12-05-02-0094.Price = -1 Then If $12-05-02-0094.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-02-0094.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-02-0094.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </IcePrice> ) </IcePrice>
<BlendPrice> eval( <BlendPrice> eval(
If $12-05-03-0094.Price = -1 Then If $12-05-03-0094.Price = -1 Then
Var return = "Free" Var return = "Free"
Else Else
Var return !assigned StringFmt( $12-05-03-0094.Price , DisplayFormat, PreScaleConvertShow) Var return !assigned StringFmt( $12-05-03-0094.Price , DisplayFormat, PreScaleConvertShow)
EndIf EndIf
) </BlendPrice> ) </BlendPrice>
<IceProcessingState> <IceProcessingState>
eval( eval(
@ -2726,17 +2680,17 @@
Var PD_CODE3 = "12-05-03-0094" Var PD_CODE3 = "12-05-03-0094"
; begin lang ; begin lang
Var aliasName[0] = "Pepsi" Var aliasName[0] = "Pepsi"
Var aliasDesc[0] = "Pepsi, Soda And Ice" Var aliasDesc[0] = "Pepsi, Soda And Ice"
Var aliasName[1] = "เป๊ปซี่โซดา" Var aliasName[1] = "เป๊ปซี่โซดา"
Var aliasDesc[1] = "เป๊ปซี่ โซดา และน้ำแข็ง" Var aliasDesc[1] = "เป๊ปซี่ โซดา และน้ำแข็ง"
Var aliasName[2] = "百事可乐" Var aliasName[2] = "百事可乐"
Var aliasDesc[2] = "百事可乐、苏打水、冰" Var aliasDesc[2] = "百事可乐、苏打水、冰"
Var aliasName[3] = "-" Var aliasName[3] = "-"
Var aliasDesc[3] = "-" Var aliasDesc[3] = "-"
Var aliasName[4] = "-" Var aliasName[4] = "-"
Var aliasDesc[4] = "-" Var aliasDesc[4] = "-"
Var aliasName[5] = "ပက်စီဆိုဒါ" Var aliasName[5] = "ပက်စီဆိုဒါ"
Var aliasDesc[5] = "ပက်စီ ဆိုဒါ ရေခဲ" Var aliasDesc[5] = "ပက်စီ ဆိုဒါ ရေခဲ"
Var NameLang[0][0] = "" Var NameLang[0][0] = ""
Var NameLang[0][1] = "" Var NameLang[0][1] = ""
Var NameLang[0][2] = "" Var NameLang[0][2] = ""

52
inter/tha/xml/multi/v3/page_catalog_group_pro_pepsi_x_taobin.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

80
inter/tha/xml/multi/v3/page_catalog_group_pro_pepween.lxml
View file

@ -8,37 +8,8 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Open "ROOT/taobin_project/xml/page_catalog_group_pro_pepween_fixed.xml"
Var NightTime = 0
If SystemTimeHourInt >= 19 Then
Var NightTime = 1
Else
If SystemTimeHourInt < 5 Then
Var NightTime = 1
Else
Var NightTime = 0
EndIf
EndIf
DEBUGVAR SystemTimeHourInt
If NightTime = 1 Then
Var Haunted7price = 30
Var Haunted7PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n//bn_haunted_woods_50.png"
Var Haunted7Image = "ROOT/taobin_project/image/page_drink_n//bn_haunted_woods_50.png"
Var Haunted7ImagePress = "ROOT/taobin_project/image/page_drink_press_n//bn_haunted_woods_50.png"
Var Haunted7ImageDisable = "ROOT/taobin_project/image/page_drink_disable_n2//bn_haunted_woods_50.png"
Else
Var Haunted7price = $12-99-03-0066.Price
Var Haunted7PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n//bn_haunted_woods.png"
Var Haunted7Image = "ROOT/taobin_project/image/page_drink_n//bn_haunted_woods.png"
Var Haunted7ImagePress = "ROOT/taobin_project/image/page_drink_press_n//bn_haunted_woods.png"
Var Haunted7ImageDisable = "ROOT/taobin_project/image/page_drink_disable_n2//bn_haunted_woods.png"
EndIf
Var Timeout = 0 Var Timeout = 0
@ -49,55 +20,10 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

80
inter/tha/xml/multi/v3/page_catalog_group_pro_pepween.skt
View file

@ -10,37 +10,8 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Open "ROOT/taobin_project/xml/page_catalog_group_pro_pepween_fixed.xml"
Var NightTime = 0
If SystemTimeHourInt >= 19 Then
Var NightTime = 1
Else
If SystemTimeHourInt < 5 Then
Var NightTime = 1
Else
Var NightTime = 0
EndIf
EndIf
DEBUGVAR SystemTimeHourInt
If NightTime = 1 Then
Var Haunted7price = 30
Var Haunted7PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n//bn_haunted_woods_50.png"
Var Haunted7Image = "ROOT/taobin_project/image/page_drink_n//bn_haunted_woods_50.png"
Var Haunted7ImagePress = "ROOT/taobin_project/image/page_drink_press_n//bn_haunted_woods_50.png"
Var Haunted7ImageDisable = "ROOT/taobin_project/image/page_drink_disable_n2//bn_haunted_woods_50.png"
Else
Var Haunted7price = $12-99-03-0066.Price
Var Haunted7PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n//bn_haunted_woods.png"
Var Haunted7Image = "ROOT/taobin_project/image/page_drink_n//bn_haunted_woods.png"
Var Haunted7ImagePress = "ROOT/taobin_project/image/page_drink_press_n//bn_haunted_woods.png"
Var Haunted7ImageDisable = "ROOT/taobin_project/image/page_drink_disable_n2//bn_haunted_woods.png"
EndIf
Var Timeout = 0 Var Timeout = 0
@ -51,55 +22,10 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_red_string_of_fate.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_red_string_of_fate.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

53
inter/tha/xml/multi/v3/page_catalog_group_pro_rerun.lxml
View file

@ -8,12 +8,10 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var RerunProCode = ""
Var FromRerunPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -22,55 +20,10 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

53
inter/tha/xml/multi/v3/page_catalog_group_pro_rerun.skt
View file

@ -10,12 +10,10 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var RerunProCode = ""
Var FromRerunPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -24,55 +22,10 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_robinson_beauty.lxml
View file

@ -8,11 +8,10 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var FromRobinsonBeautyPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -21,55 +20,10 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_robinson_beauty.skt
View file

@ -10,11 +10,10 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
Var FromRobinsonBeautyPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -23,55 +22,10 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_strawberry_series.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_strawberry_series.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

62
inter/tha/xml/multi/v3/page_catalog_group_pro_tea_time.lxml
View file

@ -8,73 +8,29 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromTeaTimePro = 0
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -6708,10 +6664,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

62
inter/tha/xml/multi/v3/page_catalog_group_pro_tea_time.skt
View file

@ -10,83 +10,33 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromTeaTimePro = 0
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_thick_tea_by_brewer.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_thick_tea_by_brewer.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

63
inter/tha/xml/multi/v3/page_catalog_group_pro_wednesday_melon.lxml
View file

@ -8,10 +8,10 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0
Var FromWednesdayMelonPro = 0
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -20,60 +20,17 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog> <ScrollableCatalog>
<X> 0 </X> <X> 0 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -3302,10 +3259,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

63
inter/tha/xml/multi/v3/page_catalog_group_pro_wednesday_melon.skt
View file

@ -10,10 +10,10 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0
Var FromWednesdayMelonPro = 0
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -22,70 +22,21 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr
#include=menu_new_layout_gen_v3.py #include=menu_new_layout_gen_v3.py
?> ?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup> </Popup>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_weekday_discount.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_weekday_discount.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_weekday_discount_event_on.lxml
View file

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

52
inter/tha/xml/multi/v3/page_catalog_group_pro_weekday_discount_event_on.skt
View file

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/ForProGroup.inc"
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
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
TimerReset TimerReset
</EventTimeout> </EventTimeout>

Some files were not shown because too many files have changed in this diff Show more