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

THAI INTER : Include ;inter-image, ;inter-multi, Add Image

Browse source
This commit is contained in:
Ittipat Lusuk 2025-03-25 10:35:54 +07:00
parent e369ee4205
commit 56c4f2ef41
748 changed files with 4899 additions and 4667 deletions
Download patch file Download diff file Expand all files Collapse all files

9
inter/tha/xml/menu_catalog_default_init.lxml
View file

@ -7,12 +7,12 @@
DEBUGVAR LanguageShow
DEBUGVAR CountryName
;inter-image
If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at "
Var ice_tab_text = "Ice will be ready at "
EndIf
If LanguageShow = "THAI" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
@ -30,17 +30,12 @@
Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/"
EndIf
;inter-image
If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at "
EndIf
;inter-image
If CountryName = "Australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"

3
inter/tha/xml/menu_catalog_new.lxml
View file

@ -85,6 +85,7 @@
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
@ -105,14 +106,12 @@
Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/"
EndIf
;inter-image
If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at "
EndIf
;inter-image
If CountryName = "australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"

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

@ -25,11 +25,11 @@
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var show_eng = "true"
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
EndIf
If LanguageShow = "THAI" Then
Var show_eng = "false"

1
inter/tha/xml/multi/page_catalog.lxml
View file

@ -438,6 +438,7 @@
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/What_would_you_like_to_drink_today.mp3"
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"

306
inter/tha/xml/multi/page_catalog_group_appfast.lxml
View file

@ -1,149 +1,151 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible"
Else
Var Menu11Selected = "Invisible"
Var Menu7Selected = "PressForever"
EndIf
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
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/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/page_catalog_group_whey.lxml"
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible"
Else
Var Menu11Selected = "Invisible"
Var Menu7Selected = "PressForever"
EndIf
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
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/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/page_catalog_group_whey.lxml"
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -1945,9 +1947,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_appfast.skt
View file

@ -55,6 +55,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -82,6 +83,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

226
inter/tha/xml/multi/page_catalog_group_cocktail.lxml
View file

@ -1,109 +1,111 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -18945,9 +18947,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_cocktail.skt
View file

@ -52,6 +52,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -79,6 +80,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

4
inter/tha/xml/multi/page_catalog_group_coffee.lxml
View file

@ -65,6 +65,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -92,6 +93,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -135,6 +137,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf
@ -217,6 +220,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf

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

@ -67,6 +67,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -94,6 +95,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -137,6 +139,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf
@ -221,6 +224,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf

212
inter/tha/xml/multi/page_catalog_group_deep_fryer.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -1200,9 +1202,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_deep_fryer.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

461
inter/tha/xml/multi/page_catalog_group_forkid.lxml
View file

@ -1,227 +1,230 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 5 Then
Var SlientRefreshIndex = 6
EndIf
</EventOpen>
<EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; protein
If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible"
Var Menu21Selected = "Invisible"
Else
Var Menu11Selected = "Invisible"
Var Menu7Selected = "Invisible"
Var Menu21Selected = "PressForever"
EndIf
RootLayoutVisible 12 "show"
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex
</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
GetVisible inst_show5
;DEBUGVAR inst_show5
If inst_show5 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 5 Then
If inst_show5 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5
Else
Var SlientRefreshIndex = 6
EndIf
EndIf
If langnext4 = "true" Then
Var langnext4 = "false"
DEBUGVAR langnext4
RefreshAll
EndIf
If inst_show5 = 1 Then
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
EndIf
If LanguageShow = "MYANMAR" Then
Var SaveStringInst = "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
Var SaveStringInst = "ShowMSC"
EndIf
EndIf
EndIf
Var Inst8CountMenuEnable = 0
Var Inst8CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnablePrev
;DEBUGVAR Inst8CountCurrentMenuEnable
If Inst8CountMenuEnablePrev = "" Then
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
Var Inst8CountDownForOpenXML = 0
Var Inst8CountDownOpenXMLFromMenuZero = 20
EndIf
If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then
Else
SAVELOG "Inst8 Refresh ===================================================================== Refresh"
Var Inst8CountDownForOpenXML = 10
Var Inst8CountMenuEnablePrev = CountMenuEnable
EndIf
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
Else
If Inst8CountDownForOpenXML = 0 Then
SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh"
Var Inst8CountDownForOpenXML = 10
EndIf
EndIf
If Inst8CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst8CountDownOpenXMLFromMenuZero
If Inst8CountDownOpenXMLFromMenuZero > 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1
If Inst8CountDownOpenXMLFromMenuZero = 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
EndIf
EndIf
EndIf
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
If Inst8CountCurrentMenuEnable > 0 Then
Var Inst8MenuLoaded = "done"
EndIf
EndIf
If Inst8CountDownForOpenXML > 0 Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
DEBUGVAR Inst8CountDownForOpenXML
If Inst8CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 5 Then
Var SlientRefreshIndex = 6
EndIf
</EventOpen>
<EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; protein
If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible"
Var Menu21Selected = "Invisible"
Else
Var Menu11Selected = "Invisible"
Var Menu7Selected = "Invisible"
Var Menu21Selected = "PressForever"
EndIf
RootLayoutVisible 12 "show"
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex
</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
GetVisible inst_show5
;DEBUGVAR inst_show5
If inst_show5 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 5 Then
If inst_show5 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5
Else
Var SlientRefreshIndex = 6
EndIf
EndIf
If langnext4 = "true" Then
Var langnext4 = "false"
DEBUGVAR langnext4
RefreshAll
EndIf
If inst_show5 = 1 Then
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
EndIf
If LanguageShow = "MYANMAR" Then
Var SaveStringInst = "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
Var SaveStringInst = "ShowMSC"
EndIf
EndIf
EndIf
Var Inst8CountMenuEnable = 0
Var Inst8CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnablePrev
;DEBUGVAR Inst8CountCurrentMenuEnable
If Inst8CountMenuEnablePrev = "" Then
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
Var Inst8CountDownForOpenXML = 0
Var Inst8CountDownOpenXMLFromMenuZero = 20
EndIf
If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then
Else
SAVELOG "Inst8 Refresh ===================================================================== Refresh"
Var Inst8CountDownForOpenXML = 10
Var Inst8CountMenuEnablePrev = CountMenuEnable
EndIf
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
Else
If Inst8CountDownForOpenXML = 0 Then
SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh"
Var Inst8CountDownForOpenXML = 10
EndIf
EndIf
If Inst8CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst8CountDownOpenXMLFromMenuZero
If Inst8CountDownOpenXMLFromMenuZero > 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1
If Inst8CountDownOpenXMLFromMenuZero = 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
EndIf
EndIf
EndIf
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
If Inst8CountCurrentMenuEnable > 0 Then
Var Inst8MenuLoaded = "done"
EndIf
EndIf
If Inst8CountDownForOpenXML > 0 Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
DEBUGVAR Inst8CountDownForOpenXML
If Inst8CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -7021,8 +7024,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

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

@ -75,6 +75,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -101,6 +102,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -143,6 +145,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf

451
inter/tha/xml/multi/page_catalog_group_health.lxml
View file

@ -1,222 +1,225 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 6 Then
Var SlientRefreshIndex = 7
EndIf
Var HealthRefreshTimeOut = 0
</EventOpen>
<EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu22Selected = "PressForever"
RootLayoutVisible 12 "show"
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex
</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
GetVisible inst_show6
;DEBUGVAR inst_show6
If inst_show6 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 6 Then
If inst_show6 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile6
Open CurrentOpenFile6
Else
Var SlientRefreshIndex = 7
EndIf
EndIf
If langnext5 = "true" Then
Var langnext5 = "false"
RefreshAll
EndIf
If inst_show6 = 1 Then
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
EndIf
If LanguageShow = "MYANMAR" Then
Var SaveStringInst = "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
Var SaveStringInst = "ShowMSC"
EndIf
EndIf
EndIf
Var Inst9CountMenuEnable = 0
Var Inst9CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst9CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst9CountMenuEnable
;DEBUGVAR Inst9CountMenuEnable
;DEBUGVAR Inst9CountMenuEnablePrev
;DEBUGVAR Inst9CountCurrentMenuEnable
If Inst9CountMenuEnablePrev = "" Then
Var Inst9CountMenuEnablePrev = Inst9CountMenuEnable
Var Inst9CountDownForOpenXML = 0
Var Inst9CountDownOpenXMLFromMenuZero = 20
EndIf
If Inst9CountMenuEnable = Inst9CountMenuEnablePrev Then
Else
SAVELOG "Inst9 Refresh ===================================================================== Refresh"
Var Inst9CountDownForOpenXML = 10
Var Inst9CountMenuEnablePrev = CountMenuEnable
EndIf
If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then
Else
If Inst9CountDownForOpenXML = 0 Then
SAVELOG "Inst9 Refresh =======================Inst9CountMenuEnable / Inst9CountCurrentMenuEnable ============================================== Refresh"
Var Inst9CountDownForOpenXML = 10
EndIf
EndIf
If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then
If Inst9CountCurrentMenuEnable > 0 Then
Var Inst9MenuLoaded = "done"
EndIf
EndIf
If Inst9CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst9CountDownOpenXMLFromMenuZero
If Inst9CountDownOpenXMLFromMenuZero > 0 Then
Var Inst9CountDownOpenXMLFromMenuZero = Inst9CountDownOpenXMLFromMenuZero - 1
If Inst9CountDownOpenXMLFromMenuZero = 0 Then
Var Inst9CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml"
EndIf
EndIf
EndIf
If Inst9CountDownForOpenXML > 0 Then
Var Inst9CountDownForOpenXML = Inst9CountDownForOpenXML - 1
DEBUGVAR Inst9CountDownForOpenXML
If Inst9CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml"
EndIf
EndIf
If HealthRefreshTimeOut > 15 Then
Var HealthRefreshTimeOut = 0
Script "-" "-"
EndIf
Var HealthRefreshTimeOut = HealthRefreshTimeOut + 1
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 6 Then
Var SlientRefreshIndex = 7
EndIf
Var HealthRefreshTimeOut = 0
</EventOpen>
<EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu22Selected = "PressForever"
RootLayoutVisible 12 "show"
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex
</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
GetVisible inst_show6
;DEBUGVAR inst_show6
If inst_show6 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 6 Then
If inst_show6 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile6
Open CurrentOpenFile6
Else
Var SlientRefreshIndex = 7
EndIf
EndIf
If langnext5 = "true" Then
Var langnext5 = "false"
RefreshAll
EndIf
If inst_show6 = 1 Then
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
EndIf
If LanguageShow = "MYANMAR" Then
Var SaveStringInst = "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
Var SaveStringInst = "ShowMSC"
EndIf
EndIf
EndIf
Var Inst9CountMenuEnable = 0
Var Inst9CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst9CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst9CountMenuEnable
;DEBUGVAR Inst9CountMenuEnable
;DEBUGVAR Inst9CountMenuEnablePrev
;DEBUGVAR Inst9CountCurrentMenuEnable
If Inst9CountMenuEnablePrev = "" Then
Var Inst9CountMenuEnablePrev = Inst9CountMenuEnable
Var Inst9CountDownForOpenXML = 0
Var Inst9CountDownOpenXMLFromMenuZero = 20
EndIf
If Inst9CountMenuEnable = Inst9CountMenuEnablePrev Then
Else
SAVELOG "Inst9 Refresh ===================================================================== Refresh"
Var Inst9CountDownForOpenXML = 10
Var Inst9CountMenuEnablePrev = CountMenuEnable
EndIf
If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then
Else
If Inst9CountDownForOpenXML = 0 Then
SAVELOG "Inst9 Refresh =======================Inst9CountMenuEnable / Inst9CountCurrentMenuEnable ============================================== Refresh"
Var Inst9CountDownForOpenXML = 10
EndIf
EndIf
If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then
If Inst9CountCurrentMenuEnable > 0 Then
Var Inst9MenuLoaded = "done"
EndIf
EndIf
If Inst9CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst9CountDownOpenXMLFromMenuZero
If Inst9CountDownOpenXMLFromMenuZero > 0 Then
Var Inst9CountDownOpenXMLFromMenuZero = Inst9CountDownOpenXMLFromMenuZero - 1
If Inst9CountDownOpenXMLFromMenuZero = 0 Then
Var Inst9CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml"
EndIf
EndIf
EndIf
If Inst9CountDownForOpenXML > 0 Then
Var Inst9CountDownForOpenXML = Inst9CountDownForOpenXML - 1
DEBUGVAR Inst9CountDownForOpenXML
If Inst9CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml"
EndIf
EndIf
If HealthRefreshTimeOut > 15 Then
Var HealthRefreshTimeOut = 0
Script "-" "-"
EndIf
Var HealthRefreshTimeOut = HealthRefreshTimeOut + 1
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -12760,8 +12763,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

3
inter/tha/xml/multi/page_catalog_group_health.skt
View file

@ -64,6 +64,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -91,6 +92,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -131,6 +133,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf

3
inter/tha/xml/multi/page_catalog_group_milk.lxml
View file

@ -57,6 +57,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -84,6 +85,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -126,6 +128,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf

3
inter/tha/xml/multi/page_catalog_group_milk.skt
View file

@ -61,6 +61,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -88,6 +89,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -130,6 +132,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf

212
inter/tha/xml/multi/page_catalog_group_oreo.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -5093,9 +5095,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_oreo.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

3
inter/tha/xml/multi/page_catalog_group_other.lxml
View file

@ -55,6 +55,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -82,6 +83,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -125,6 +127,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf

3
inter/tha/xml/multi/page_catalog_group_other.skt
View file

@ -58,6 +58,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -85,6 +86,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -128,6 +130,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf

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

@ -59,6 +59,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -86,6 +87,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

2
inter/tha/xml/multi/page_catalog_group_other_other.skt
View file

@ -64,6 +64,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -91,6 +92,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

3
inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml
View file

@ -61,6 +61,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -88,6 +89,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -128,6 +130,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf

3
inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt
View file

@ -64,6 +64,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -91,6 +92,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -131,6 +133,7 @@
If SaveStringInst = "RefreshNow" Then
Else
;inter-multi
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pepsi_pro.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -3673,9 +3675,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pepsi_pro.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_12_day_12_menu.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -5093,9 +5095,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_12_day_12_menu.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_7up_lucky_draw_x2.lxml
View file

@ -1,98 +1,100 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -15739,13 +15741,13 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_7up_lucky_draw_x2.skt
View file

@ -44,6 +44,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -71,6 +72,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

214
inter/tha/xml/multi/page_catalog_group_pro_bad_valentine.lxml
View file

@ -1,103 +1,105 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -4029,9 +4031,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_bad_valentine.skt
View file

@ -47,6 +47,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -74,6 +75,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

208
inter/tha/xml/multi/page_catalog_group_pro_banana_mint_lucky_draw_x3.lxml
View file

@ -1,96 +1,98 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -9351,13 +9353,13 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_banana_mint_lucky_draw_x3.skt
View file

@ -42,6 +42,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -69,6 +70,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

218
inter/tha/xml/multi/page_catalog_group_pro_buble_tea.lxml
View file

@ -1,99 +1,101 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -11480,15 +11482,15 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_buble_tea.skt
View file

@ -45,6 +45,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -72,6 +73,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

234
inter/tha/xml/multi/page_catalog_group_pro_cocoa_77.lxml
View file

@ -1,107 +1,109 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0
Var FromWednesdayMelonPro = 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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0
Var FromWednesdayMelonPro = 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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -7623,15 +7625,15 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_cocoa_77.skt
View file

@ -53,6 +53,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -80,6 +81,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

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

@ -44,6 +44,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -71,6 +72,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

2
inter/tha/xml/multi/page_catalog_group_pro_coconut_milk.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

222
inter/tha/xml/multi/page_catalog_group_pro_freefile.lxml
View file

@ -1,101 +1,103 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -1187,15 +1189,15 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_freefile.skt
View file

@ -47,6 +47,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -74,6 +75,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

218
inter/tha/xml/multi/page_catalog_group_pro_halloween.lxml
View file

@ -1,99 +1,101 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromHalloweenPro = 0
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromHalloweenPro = 0
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -6163,15 +6165,15 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_halloween.skt
View file

@ -45,6 +45,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -72,6 +73,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_happy_trios.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -1543,9 +1545,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_happy_trios.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

222
inter/tha/xml/multi/page_catalog_group_pro_jemila.lxml
View file

@ -1,101 +1,103 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -4027,15 +4029,15 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_jemila.skt
View file

@ -47,6 +47,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -74,6 +75,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

214
inter/tha/xml/multi/page_catalog_group_pro_lipit.lxml
View file

@ -1,103 +1,105 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -3674,9 +3676,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_lipit.skt
View file

@ -47,6 +47,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -74,6 +75,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

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

@ -44,6 +44,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -71,6 +72,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

2
inter/tha/xml/multi/page_catalog_group_pro_matcha_every_day.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

206
inter/tha/xml/multi/page_catalog_group_pro_melon.lxml
View file

@ -1,100 +1,102 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -2251,8 +2253,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_melon.skt
View file

@ -44,6 +44,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -71,6 +72,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

210
inter/tha/xml/multi/page_catalog_group_pro_mom_cocoa.lxml
View file

@ -1,97 +1,99 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -8315,13 +8317,13 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_mom_cocoa.skt
View file

@ -43,6 +43,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -70,6 +71,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

214
inter/tha/xml/multi/page_catalog_group_pro_monday_banana.lxml
View file

@ -1,103 +1,105 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -1189,9 +1191,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_monday_banana.skt
View file

@ -47,6 +47,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -74,6 +75,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

218
inter/tha/xml/multi/page_catalog_group_pro_mymint.lxml
View file

@ -1,99 +1,101 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var FromMyMintPro = 0
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -5473,15 +5475,15 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup>
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
;BigLogoLayout
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_mymint.skt
View file

@ -45,6 +45,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -72,6 +73,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

218
inter/tha/xml/multi/page_catalog_group_pro_nam_hom_coconut.lxml
View file

@ -1,99 +1,101 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -10770,15 +10772,15 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_nam_hom_coconut.skt
View file

@ -45,6 +45,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -72,6 +73,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_oreo_11.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -7223,9 +7225,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_oreo_11.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_ovaltine_school.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -1192,9 +1194,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_ovaltine_school.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

214
inter/tha/xml/multi/page_catalog_group_pro_passion_mint.lxml
View file

@ -1,97 +1,99 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -4733,15 +4735,15 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_passion_mint.skt
View file

@ -43,6 +43,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -70,6 +71,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

210
inter/tha/xml/multi/page_catalog_group_pro_peach.lxml
View file

@ -1,101 +1,103 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -5116,9 +5118,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_peach.skt
View file

@ -45,6 +45,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -72,6 +73,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_pepsi_second_cup_30.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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"
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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"
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -5093,9 +5095,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_pepsi_second_cup_30.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

54
inter/tha/xml/multi/page_catalog_group_pro_pepween.lxml
View file

@ -72,6 +72,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -99,6 +100,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -125,32 +127,32 @@
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
<Width> 1080 </Width>
<ScrollHeight> "auto" </ScrollHeight>
<Scroll> "Vertical" </Scroll>
<Column> 4 </Column>
<Script>
Var block_index_override = 0
Var block_index_move = 0
</Script>
;dummy_layout.inc
</FrameScroll>
; Cart
<Button>
<X> 915 </X>
<Y> 1769 </Y>
<State> showCart </State>
<Filename> cart_image_bn </Filename>
<FilenamePress> cart_image_bp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
<Width> 1080 </Width>
<ScrollHeight> "auto" </ScrollHeight>
<Scroll> "Vertical" </Scroll>
<Column> 4 </Column>
<Script>
Var block_index_override = 0
Var block_index_move = 0
</Script>
;dummy_layout.inc
</FrameScroll>
; Cart
<Button>
<X> 915 </X>
<Y> 1769 </Y>
<State> showCart </State>
<Filename> cart_image_bn </Filename>
<FilenamePress> cart_image_bp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>

2
inter/tha/xml/multi/page_catalog_group_pro_pepween.skt
View file

@ -74,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -101,6 +102,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_red_string_of_fate.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -1188,9 +1190,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_red_string_of_fate.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

214
inter/tha/xml/multi/page_catalog_group_pro_rerun.lxml
View file

@ -1,103 +1,105 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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"
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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"
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -4384,9 +4386,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_rerun.skt
View file

@ -47,6 +47,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -74,6 +75,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_robinson_beauty.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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"
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;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"
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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -4383,9 +4385,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_robinson_beauty.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_strawberry_series.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -2983,9 +2985,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_strawberry_series.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

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

@ -44,6 +44,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -71,6 +72,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

2
inter/tha/xml/multi/page_catalog_group_pro_tea_time.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_thick_tea_by_brewer.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -1200,9 +1202,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_thick_tea_by_brewer.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

218
inter/tha/xml/multi/page_catalog_group_pro_wednesday_melon.lxml
View file

@ -1,99 +1,101 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0
Var FromWednesdayMelonPro = 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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Timeout = 0
Var FromWednesdayMelonPro = 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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -5102,15 +5104,15 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>
;BigLogoLayout
;include="ROOT/taobin_project/inc/button_remove_cup.inc"
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_wednesday_melon.skt
View file

@ -45,6 +45,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -72,6 +73,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_weekday_discount.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -5803,9 +5805,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_weekday_discount.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

212
inter/tha/xml/multi/page_catalog_group_pro_weekday_discount_event_on.lxml
View file

@ -1,102 +1,104 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -5803,9 +5805,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_pro_weekday_discount_event_on.skt
View file

@ -46,6 +46,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -73,6 +74,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

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

@ -116,6 +116,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -143,6 +144,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

2
inter/tha/xml/multi/page_catalog_group_recommend.skt
View file

@ -118,6 +118,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -145,6 +146,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

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

@ -42,6 +42,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -69,6 +70,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

2
inter/tha/xml/multi/page_catalog_group_recommend_multi_pro.skt
View file

@ -44,6 +44,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -71,6 +72,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

210
inter/tha/xml/multi/page_catalog_group_soft_serve.lxml
View file

@ -1,101 +1,103 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<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_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
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll>
<X> 10 </X>
<Y> 497 </Y>
@ -6867,9 +6869,9 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

2
inter/tha/xml/multi/page_catalog_group_soft_serve.skt
View file

@ -45,6 +45,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
@ -72,6 +73,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
;inter-multi
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf

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