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

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

@ -1161,7 +1161,7 @@
1300003 Beans module ชุดเมล็ดกาแฟ
1300004 Bean tray ถาดใส่เมล็ดกาแฟ
1300005 Switch tray : สวิตซ์ถาด :
1300006 Check tray shutter ตรวจสอบชัตเตอร์ของถาด
1300006 Check tray shutter ตรวจสอบชัตเตอร์ถาด
1300007 Pay beans จ่ายถั่ว
1300008 1. Select beans 1. เลือกเมล็ดกาแฟ
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"
RefreshAll
Script "-" "-"
</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"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
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
</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"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
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
</EventTimeout>

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

@ -8,73 +8,21 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
@ -83,7 +31,6 @@
<ScrollableCatalog>
<X> 0 </X>
<Y> 497 </Y>

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

@ -10,73 +10,21 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
@ -85,7 +33,6 @@
<?hurr
#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>
;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
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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -50,6 +50,7 @@
<Timeout> 1000 </Timeout>
<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"
@ -58,6 +59,8 @@
Var ice_tab_process_show = "Invisible"
EndIf
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>
<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"
@ -61,6 +62,8 @@
Var ice_tab_process_show = "Invisible"
EndIf
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>
<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"
@ -79,7 +82,7 @@
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
; setvarint RefreshHealtMenu 1

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

@ -42,6 +42,9 @@
<Timeout> 1000 </Timeout>
<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"
@ -82,7 +85,7 @@
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
; 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>
<EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
;DEBUGVAR ICE_PROCESS_STATUS
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>
<EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/InstanceGetSetString.inc"
;DEBUGVAR ICE_PROCESS_STATUS
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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</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"

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"

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

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

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

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

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

@ -40,14 +40,7 @@
<Timeout> 1000 </Timeout>
<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/InstanceGetSetString.inc"
; setvarint RefreshPepsiMenu 1

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

@ -43,14 +43,7 @@
<Timeout> 1000 </Timeout>
<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/InstanceGetSetString.inc"
; setvarint RefreshPepsiMenu 1

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

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -8,42 +8,29 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Menu1Selected = "PressForever"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
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
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>
<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"
<ScrollableCatalog>
<X> 0 </X>
<Y> 497 </Y>
@ -2135,12 +2122,6 @@
</ScrollableCatalog>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup>

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

@ -10,56 +10,33 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
<?hurr
#include=menu_catalog_default_init.lxml
?>
Var Menu1Selected = "PressForever"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
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
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>
<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"
<?hurr
#include=menu_new_layout_gen_v3.py
?>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog>
<X> 0 </X>
<Y> 497 </Y>
@ -10111,8 +10069,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr
#include=menu_new_layout_gen_v3.py
?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -8,69 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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 FromBadValentinePro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,69 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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 FromBadValentinePro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog>
<X> 0 </X>
<Y> 497 </Y>
@ -6023,8 +5983,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr
#include=menu_new_layout_gen_v3.py
?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -8,72 +8,29 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog>
<X> 0 </X>
<Y> 497 </Y>
@ -7388,10 +7345,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -10,82 +10,33 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr
#include=menu_new_layout_gen_v3.py
?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -8,80 +8,29 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromWednesdayMelonPro = 0
Var Timeout = 0
;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
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog>
<X> 0 </X>
<Y> 497 </Y>
@ -4899,10 +4848,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -10,90 +10,33 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromWednesdayMelonPro = 0
Var Timeout = 0
;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
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr
#include=menu_new_layout_gen_v3.py
?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

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

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

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

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

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

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

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

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

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

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

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

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

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

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -8,69 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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 FromLipitPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,69 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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 FromLipitPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

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

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

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

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

@ -8,70 +8,29 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;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
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog>
<X> 0 </X>
<Y> 497 </Y>
@ -5343,8 +5302,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -10,78 +10,33 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;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
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr
#include=menu_new_layout_gen_v3.py
?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -8,69 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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 FromMondayBananaPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,69 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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 FromMondayBananaPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

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

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

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

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

@ -8,72 +8,29 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog>
<X> 0 </X>
<Y> 497 </Y>
@ -6934,10 +6891,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -10,82 +10,33 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr
#include=menu_new_layout_gen_v3.py
?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -8,7 +8,9 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
@ -18,60 +20,17 @@
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<ScrollableCatalog>
<X> 0 </X>
<Y> 497 </Y>
@ -3073,10 +3032,4 @@
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -10,7 +10,9 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
@ -20,70 +22,21 @@
<Timeout> 1000 </Timeout>
<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
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<?hurr
#include=menu_new_layout_gen_v3.py
?>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

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

@ -8,7 +8,7 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
@ -20,55 +20,10 @@
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,7 +10,7 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
@ -22,55 +22,10 @@
<Timeout> 1000 </Timeout>
<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
</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>
<EventOpen>
; 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 FromPepsiSecondCup30 = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -21,55 +20,10 @@
<Timeout> 1000 </Timeout>
<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
</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>
<EventOpen>
; 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 FromPepsiSecondCup30 = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -23,55 +22,10 @@
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

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

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

@ -8,37 +8,8 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
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
@ -49,55 +20,10 @@
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,37 +10,8 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
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
@ -51,55 +22,10 @@
<Timeout> 1000 </Timeout>
<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
</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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -8,12 +8,10 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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 RerunProCode = ""
Var FromRerunPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -22,55 +20,10 @@
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,12 +10,10 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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 RerunProCode = ""
Var FromRerunPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -24,55 +22,10 @@
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -8,11 +8,10 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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 FromRobinsonBeautyPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -21,55 +20,10 @@
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,11 +10,10 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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 FromRobinsonBeautyPro = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -23,55 +22,10 @@
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

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

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

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

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

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

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

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

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

@ -8,68 +8,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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

@ -10,68 +10,22 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</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>
<EventOpen>
; 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
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</EventOpen>
<Timeout> 1000 </Timeout>
<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
</EventTimeout>

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