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

Merge branch 'master' of ssh://192.168.10.159:/1TBHDD/ikong/taobin_project

Browse source
This commit is contained in:
Pakin 2023-12-19 09:45:06 +07:00
commit a93be87eff
24 changed files with 1168 additions and 707 deletions
Download patch file Download diff file Expand all files Collapse all files

0
inter/mys/animation01/play_list.tsv Normal file
View file

22
xml/menutab/menu_catalog_new.xml
View file

@ -23,6 +23,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_appfast.xml
View file

@ -187,6 +187,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_cocktail.xml
View file

@ -179,6 +179,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

1430
xml/menutab/page_catalog_group_coffee.xml
View file

File diff suppressed because it is too large Load diff

22
xml/menutab/page_catalog_group_forkid.xml
View file

@ -188,6 +188,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_health.xml
View file

@ -179,6 +179,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_milk.xml
View file

@ -177,6 +177,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_oreo.xml
View file

@ -175,6 +175,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_other.xml
View file

@ -178,6 +178,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_pepsi_pro.xml
View file

@ -175,6 +175,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_pro_15THB.xml
View file

@ -197,6 +197,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_pro_melon.xml
View file

@ -173,6 +173,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_pro_mymint.xml
View file

@ -176,6 +176,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_pro_pepween.xml
View file

@ -204,6 +204,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_recommend.xml
View file

@ -196,6 +196,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_soft_serve.xml
View file

@ -175,6 +175,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_songkran.xml
View file

@ -175,6 +175,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_tea.xml
View file

@ -179,6 +179,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_group_whey.xml
View file

@ -184,6 +184,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

22
xml/menutab/page_catalog_momday.xml
View file

@ -175,6 +175,28 @@
EndIf EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
EndIf
TimerReset TimerReset

7
xml/page_board.xml
View file

@ -1249,6 +1249,9 @@
Var OpenFromPageBoard = 1 Var OpenFromPageBoard = 1
Var RoutineSlientRefresh = 6
If InternationalEnable = 1 Then If InternationalEnable = 1 Then
; show language icon ; show language icon
@ -1287,7 +1290,7 @@
DEBUGVAR CountUpReloadAll DEBUGVAR CountUpReloadAll
; Original value is 40 ; Original value is 40
If CountUpReloadAll > 80 Then If CountUpReloadAll > 100 Then
Var NeedReboot = "false" Var NeedReboot = "false"
Var StartUpExt = "-" Var StartUpExt = "-"
@ -1627,6 +1630,8 @@
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml"
Var RoutineSlientRefresh = 8
Var OpenFromPageBoard = 1 Var OpenFromPageBoard = 1
If InternationalEnable = 1 Then If InternationalEnable = 1 Then

16
xml/topview2.xml
View file

@ -43,6 +43,16 @@
IF Not#CountDownForMulti = "" Then IF Not#CountDownForMulti = "" Then
Var Not#CountDownForMulti = 99 Var Not#CountDownForMulti = 99
EndIf EndIf
If EnableMultiInstance = "true" Then
Var OpenRedirectSize = -1
GetRedirectCount OpenRedirectSize
If OpenRedirectSize = 0 Then
SAVELOG "OpenRedirectSize zero size"
Var Not#CountDownForMulti = 5
EndIf
EndIf
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
@ -110,6 +120,8 @@
Var Not#CountDownForMulti = Not#CountDownForMulti - 1 Var Not#CountDownForMulti = Not#CountDownForMulti - 1
EndIf EndIf
EndIf EndIf
EndIf EndIf
@ -132,6 +144,10 @@
EndIf EndIf
EndIf EndIf
If RoutineSlientRefresh > 0 Then
Var RoutineSlientRefresh = RoutineSlientRefresh - 1
EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>

4
xml_main/startup.xml
View file

@ -108,8 +108,8 @@
Var RandomPromotionMyworld = 0 Var RandomPromotionMyworld = 0
Var RandomSalePackage = 0 Var RandomSalePackage = 0
Var XMLPageVersion = "7.98" Var XMLPageVersion = "7.99"
Var XMLPageVersionInt = 798 Var XMLPageVersionInt = 799
;Oreo ;Oreo
Var OreoGuarantee = 0 Var OreoGuarantee = 0
</EventOpen> </EventOpen>