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

add Profile AllPriceUp05 and 10

Browse source
This commit is contained in:
wanlop run 2024-02-08 13:25:14 +07:00
parent 5ff368f812
commit 55c72fefc8
28 changed files with 415 additions and 340 deletions
Download patch file Download diff file Expand all files Collapse all files

15
animation01/play_list.tsv
View file

@ -953,3 +953,18 @@ ICED GINGER YUZU TEA 12-02-02-0054 1 10 53 23 24 120 15:00 23
ICED GINGER MATCHA 12-02-02-0055 1 8 9 10 23 24 120 15:00 23
GINGER MILK TEA SMOOTHIE 12-02-03-0053 1 6 10 23 41 24 120 15:00 23
GINGER MILK TEA OREO SMOOTHIE 12-02-03-0056 1 6 10 40 23 40 41 24 120 15:00 23
tokyo banana mocha 12-01-02-0061 1 56 2 3 5 15 23 24 120 15:00 23
tokyo banana mocha 12-01-03-0061 1 56 2 3 5 15 23 41 24 120 16:00 23
tokyo banana mocha 12-21-02-0061 1 56 2 3 5 15 23 24 120 17:00 23
tokyo banana mocha 12-21-03-0061 1 56 2 3 5 15 23 41 24 120 18:00 23
tokyo banana matcha cafe latte 12-01-02-0062 1 56 9 3 5 15 23 24 120 19:00 23
tokyo banana matcha cafe latte 12-21-02-0062 1 56 9 3 5 15 23 24 120 20:00 23
tokyo banana straw cocoa 12-03-03-0044 1 56 15 19 23 24 120 21:00 23
tokyo banana straw milk 12-03-03-0045 1 56 6 19 23 24 120 22:00 23
Banana Milk Oreo Smoothie 12-03-03-0029 1 56 6 40 41 24 120 23:00 23
tokyo banana ginger tea 12-02-02-0053 1 56 10 23 24 120 0:00 23
tokyo banana thai milk tea 12-02-02-0054 1 56 6 10 23 24 120 1:00 23
tokyo banana matcha 12-02-02-0055 1 56 9 23 24 120 2:00 23
tokyo banana power drink soda 12-05-02-0078 1 56 34 13 23 24 120 3:00 23

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

31
landscape/xml/menu_list.xml
View file

@ -8,12 +8,19 @@
<EventOpen>
SAVELOG "Landscape mode"
RootLayoutVisible 2 "show"
Var Timeout = 0
</EventOpen>
<Timeout> 60000 </Timeout>
<Timeout> 1000 </Timeout>
<EventTimeout>
Open "ROOT/taobin_project/landscape/xml/menu_list.xml"
Var Timeout = Timeout + 1
Machine MenuLayoutNew
If Timeout > 15 Then
Open "ROOT/taobin_project/landscape/xml/menu_list.xml"
EndIf
</EventTimeout>
@ -32,5 +39,23 @@
</Video>
<Button>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1920 </Width>
<Height> 1080 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var result = "-"
CheckApp "com.forthrd.taoslave" result
If result = "true" Then
Counter "Dashboard"
Else
MainMenu
EndIf
</EventClick>
</Button>
</Popup>

18
landscape/xml/startup.xml
View file

@ -1,17 +1,29 @@
<Popup>
<Width> 1080</Width>
<Height> 1920 </Height>
<Width> 1920</Width>
<Height> 1080 </Height>
<EventOpen>
TopView "show"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
SAVELOG "Open menu-list.xml"
Open "ROOT/taobin_project/landscape/xml/menu_list.xml"
Refresh
TimerReset
</EventTimeout>
<Text>
<X> 0 </X>
<X> 400 </X>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> "WAIT" </Value>
</Text>
</Popup>

18
menu/new-layout.tsv
View file

@ -544,15 +544,15 @@ Name=Peach,file=page_catalog_group_pro_peach.skt
ยูอาเดอะมิสซิงพีช You're the missing\nPEACH น้ำเชื่อมพีช น้ำเชื่อมสตรอเบอร์รี่ และโซดา Peach Syrup, Strawberry Syrup, Soda & Ice - 12-05-02-0073 - bn_peach_Strawberry_Soda.png - - - posi1
Name=BadValentine,file=page_catalog_group_pro_bad_valentine.skt
เป็นเด็กดื้อโดนตี เป็นเด็กดีโดนทิ้งตลอด Bad kid got smacked, good ones get ditched. กาแฟ น้ำ นม โกโก้ และ น้ำเชื่อมกล้วย Espresso, Banana Syrup,\ncocoa, Milk - 12-01-02-0061 12-01-03-0061 bn_hot_americano_peach.png - - - posi1
ตัดบทบอกฝันดี = เขาไม่อยากคุย Ghosted, sending a "night" means the convo's dead. กาแฟ น้ำ นม มัทฉะ และ น้ำเชื่อมกล้วย Espresso, Banana Syrup,\nMatcha, Milk - 12-01-02-0062 - bn_hot_peach_latte.png - - - posi1
ที่ทำดีด้วยเขาไม่ได้มีใจ แต่เขามีเมตตา He's the kindness fix, zero romance drama. น้ำเชื่อมกล้วย น้ำเชื่อมสตรอเบอร์รี่ นม และโกโก้ banana syrup, Strawberry syrup,\nMilk, cocoa - - 12-03-03-0044 bn_hot_peach_tea.png - - - posi1
ตกอยู่ในสถานะสแตนด์บาย Love's on mute, stuck in suspense. น้ำเชื่อมกล้วย น้ำเชื่อมสตรอเบอร์รี่ และนม banana syrup, Strawberry syrup,\nMilk - - 12-03-03-0045 bn_hot_peach_jasmine_tea.png - - - posi1
บอกว่าคุยได้พอทักไปก็หาย Promised a chat, but poof, gone once you say "hey." น้ำเชื่อมกล้วย นม น้ำตาล Oreo Banana Syrup, Milk,\nSugar, Oreo - - 12-03-03-0029 bn_peach_Milk.png - - - posi1
เขาจะกลับมาก็ต่อเมื่อไม่เหลือใคร Pops up when the rest bail on you. น้ำเชื่อมกล้วย ขิง และน้ำแข็ง Banana Syrup, Ginger and Ice - 12-02-02-0053 - bn_peach_Cocoa.png - - - posi1
รักหมดใจ เจ็บหมดตัวมีอยู่จริง Love deep, broke hard, that's the real deal. น้ำเชื่อมกล้วย ชาไทย นม และน้ำแข็ง Banana Syrup, Thai tea, milk and Ice - 12-02-02-0054 - bn_peach_Oreo_smoothie.png - - - posi1
คนลืมก่อนชนะ โอเคเราแพ้ Forget love before winning, fine, we'll take the L. น้ำเชื่อมกล้วย มัทฉะ และน้ำแข็ง Banana Syrup, Matcha and Ice - 12-02-02-0055 - bn_iced_peach - - - posi1
ถ้าแชทหนักขวาเป็นกีฬา เราคงได้เหรียญทองไปแล้ว Chatting's our sport, gold in the "No Reply" event. น้ำเชื่อมกล้วย เต่าทรงพลัง \n(มีคาเฟอีน) Banana Syrup, Medicine drink, Soda and Ice - 12-05-02-0078 - bn_iced_peach_soda.png - - - posi1
เป็นเด็กดื้อโดนตีเป็น\nเด็กดีโดนทิ้งตลอด Bad kids smacked\ngood ones ditched กาแฟ น้ำ นม โกโก้ และ น้ำเชื่อมกล้วย Espresso, Banana Syrup,\ncocoa, Milk - 12-01-02-0061 12-01-03-0061 bn_iced_Mocha_Tokyobanana_smoothie.png - 12-21-02-0061 12-21-03-0061 posi1
ตัดบทบอกฝันดี\n= เขาไม่อยากคุย Ghosted after night\nconvo's dead กาแฟ น้ำ นม มัทฉะ และ น้ำเชื่อมกล้วย Espresso, Banana Syrup,\nMatcha, Milk - 12-01-02-0062 - bn_iced_matcha_Latte_TokyoBanana.png - 12-21-02-0062 - posi1
ที่ทำดีด้วยเขาไม่ได้มีใจ\nแต่เขามีเมตตา Kindness fix,\nzero romance drama. น้ำเชื่อมกล้วย น้ำเชื่อมสตรอเบอร์รี่ นม และโกโก้ banana syrup, Strawberry syrup,\nMilk, cocoa - - 12-03-03-0044 bn_Choco_straw_banana_smoothie.png - - - posi1
ตกอยู่ในสถานะ\nสแตนด์บาย Love on mute,\nstuck in suspense. น้ำเชื่อมกล้วย น้ำเชื่อมสตรอเบอร์รี่ และนม banana syrup, Strawberry syrup,\nMilk - - 12-03-03-0045 bn_iced_strawberry_Tokyobanana_smoothie.png - - - posi1
บอกว่าคุยได้\nพอทักไปก็หาย Promised a chat, but\npoof,gone after HEY. น้ำเชื่อมกล้วย นม น้ำตาล Oreo Banana Syrup, Milk,\nSugar, Oreo - - 12-03-03-0029 bn_BananaOreo_smoothie_bad_valentine.png - - - posi1
เขาจะกลับมาก็ต่อเมื่อ\nไม่เหลือใคร Pops up when the\nrest bail on you. น้ำเชื่อมกล้วย ขิง และน้ำแข็ง Banana Syrup, Ginger and Ice - 12-02-02-0053 - bn_iced_Ginger_TokyoBanana.png - - - posi1
รักหมดใจ\nเจ็บหมดตัวมีอยู่จริง Love deep, broke\nhard–the real deal. น้ำเชื่อมกล้วย ชาไทย นม และน้ำแข็ง Banana Syrup, Thai tea, milk and Ice - 12-02-02-0054 - bn_iced_ThaiTea_TokyoBanana.png - - - posi1
คนลืมก่อนชนะ\nโอเคเราแพ้ Forget love, take\nthe L น้ำเชื่อมกล้วย มัทฉะ และน้ำแข็ง Banana Syrup, Matcha and Ice - 12-02-02-0055 - bn_iced_matcha_TokyoBanana.png - - - posi1
แชมป์โอลิมปิก\nสาขาชวนคุย Chat's our sport,\ngold in NO REPLY น้ำเชื่อมกล้วย เต่าทรงพลัง \n(มีคาเฟอีน) Banana Syrup, Medicine drink, Soda and Ice - 12-05-02-0078 - bn_iced_energy_drink_Banana_soda.png - - - posi1
Name=Lip It

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

9
ui/lang.tsv
View file

@ -495,7 +495,7 @@
800358 Bottom board . ( Disc bottom) บอร์ด จานหมุนล่าง ( Disc-board bottom ) Bottom board . ( Disc bottom)
800359 Front board. ( Door ) บอร์ด ประตู ( Door board ) Front board. ( Door )
800360 MCU on android Board. บอร์ด android ( mcu on-board ) MCU on android Board.
800361 Changer and bill board. บอร์ด ( Coin/Bill ) Changer and bill board.
800361 MDB Board บอร์ด ( MDB ) Changer and bill board.
800362 AC hub board. บอร์ดวัดไฟ ( AC Hub ) AC hub board.
800363 Xcoin Xcoin Xcoin
800364 Refill board. บอร์ดเติมของ( Refill board) Refill board.
@ -792,3 +792,10 @@
800745 Pay %s powder %d gram จ่าย %s ผง %d กรัม
800746 Rotate clean หมุนล้าง
800747 Rotate brew หมุนชง
900001 Clean Espresso path? ล้าง espresso เส้นไหน ?
900002 Clean esp drop at station 2 ลงชุดชง 2
900003 Clean esp drop at station 3 ลงชุดชง 3

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

32
xml/menutab/menu_catalog_new.xml
View file

@ -14,7 +14,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -23,28 +23,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_appfast.xml
View file

@ -178,7 +178,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -187,28 +187,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_coffee.xml
View file

@ -170,7 +170,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -179,28 +179,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_forkid.xml
View file

@ -179,7 +179,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -188,28 +188,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_health.xml
View file

@ -170,7 +170,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -179,28 +179,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_milk.xml
View file

@ -168,7 +168,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -177,28 +177,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_oreo.xml
View file

@ -166,7 +166,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -175,28 +175,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_other.xml
View file

@ -169,7 +169,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -178,28 +178,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_pepsi_pro.xml
View file

@ -166,7 +166,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -175,28 +175,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_pro_15THB.xml
View file

@ -188,7 +188,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -197,28 +197,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_pro_melon.xml
View file

@ -164,7 +164,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -173,28 +173,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_pro_mymint.xml
View file

@ -167,7 +167,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -176,28 +176,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_pro_pepween.xml
View file

@ -195,7 +195,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -204,28 +204,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_pro_rerun.xml
View file

@ -168,7 +168,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -177,28 +177,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_recommend.xml
View file

@ -187,7 +187,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -196,28 +196,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_soft_serve.xml
View file

@ -166,7 +166,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -175,28 +175,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_songkran.xml
View file

@ -166,7 +166,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -175,28 +175,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_tea.xml
View file

@ -170,7 +170,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -179,28 +179,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_group_whey.xml
View file

@ -175,7 +175,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -184,28 +184,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

32
xml/menutab/page_catalog_momday.xml
View file

@ -166,7 +166,7 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -175,28 +175,28 @@
EndIf
If RoutineSlientRefresh > 0 Then
If RoutineSlientRefresh = 2 Then
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
GetVisible inst_show
;DEBUGVAR inst_show
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset

4
xml/page_board.xml
View file

@ -1050,7 +1050,7 @@
</EventOpen>
<EventUnitTest1>
Var XMLProfile = "AllPrice05"
Var XMLProfile = "AllPriceUp05"
Open CurrentXMLFileName0
</EventUnitTest1>
@ -1080,7 +1080,7 @@
</EventUnitTest2>
<EventUnitTest3>
Var XMLProfile = "AllPrice10"
Var XMLProfile = "AllPriceUp10"
Open CurrentXMLFileName0
</EventUnitTest3>

16
xml/profile/run.ev
View file

@ -31,6 +31,9 @@
STRCONTAIN "AllPrice05" XMLProfile AllPrice05
STRCONTAIN "AllPrice10" XMLProfile AllPrice10
STRCONTAIN "AllPriceUp05" XMLProfile AllPriceUp05
STRCONTAIN "AllPriceUp10" XMLProfile AllPriceUp10
DEBUGVAR EnableLiveness
DEBUGVAR Only18
@ -90,6 +93,19 @@
EndIf
If AllPriceUp05 = "true" Then
Var price_apply = 3
__CMD "invoke-all-up-price-5" "-" "-" "-"
EndIf
If AllPriceUp10 = "true" Then
Var price_apply = 4
__CMD "invoke-all-up-price-10" "-" "-" "-"
EndIf
If price_apply = 0 Then
Var HalfPrice = "false"

4
xml_main/startup.xml
View file

@ -108,8 +108,8 @@
Var RandomPromotionMyworld = 0
Var RandomSalePackage = 0
Var XMLPageVersion = "8.16"
Var XMLPageVersionInt = 816
Var XMLPageVersion = "8.18"
Var XMLPageVersionInt = 818
;Oreo
Var OreoGuarantee = 0
</EventOpen>