add Profile AllPriceUp05 and 10

animation01/play_list.tsv

@@ -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

landscape/xml/menu_list.xml

@@ -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>
 

landscape/xml/startup.xml

@@ -1,17 +1,29 @@
 <Popup>
-<Width> 1080</Width>
+<Width> 1920</Width>
-<Height> 1920 </Height>
+<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>

menu/new-layout.tsv

@@ -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
+		เป็นเด็กดื้อโดนตีเป็น\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
-		ตัดบทบอกฝันดี = เขาไม่อยากคุย	Ghosted, sending a "night" means the convo's dead.	กาแฟ น้ำ นม มัทฉะ และ น้ำเชื่อมกล้วย	Espresso, Banana Syrup,\nMatcha, Milk	-	12-01-02-0062	-	bn_hot_peach_latte.png	-	-	-	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
-		ที่ทำดีด้วยเขาไม่ได้มีใจ แต่เขามีเมตตา	He's the kindness fix, zero romance drama.	น้ำเชื่อมกล้วย น้ำเชื่อมสตรอเบอร์รี่ นม และโกโก้	banana syrup, Strawberry syrup,\nMilk, cocoa	-	-	12-03-03-0044	bn_hot_peach_tea.png	-	-	-	posi1
+		ที่ทำดีด้วยเขาไม่ได้มีใจ\nแต่เขามีเมตตา	Kindness fix,\nzero romance drama.	น้ำเชื่อมกล้วย น้ำเชื่อมสตรอเบอร์รี่ นม และโกโก้	banana syrup, Strawberry syrup,\nMilk, cocoa	-	-	12-03-03-0044	bn_Choco_straw_banana_smoothie.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
+		ตกอยู่ในสถานะ\nสแตนด์บาย	Love on mute,\nstuck in suspense.	น้ำเชื่อมกล้วย น้ำเชื่อมสตรอเบอร์รี่ และนม 	banana syrup, Strawberry syrup,\nMilk	-	-	12-03-03-0045	bn_iced_strawberry_Tokyobanana_smoothie.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
+		บอกว่าคุยได้\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
-		เขาจะกลับมาก็ต่อเมื่อไม่เหลือใคร	Pops up when the rest bail on you.	น้ำเชื่อมกล้วย ขิง และน้ำแข็ง	Banana Syrup, Ginger and Ice	-	12-02-02-0053	-	bn_peach_Cocoa.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
-		รักหมดใจ เจ็บหมดตัวมีอยู่จริง	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
+		รักหมดใจ\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
-		คนลืมก่อนชนะ โอเคเราแพ้	Forget love before winning, fine, we'll take the L.	น้ำเชื่อมกล้วย  มัทฉะ  และน้ำแข็ง	Banana Syrup, Matcha and Ice	-	12-02-02-0055	-	bn_iced_peach	-	-	-	posi1
+		คนลืมก่อนชนะ\nโอเคเราแพ้	Forget love, take\nthe L	น้ำเชื่อมกล้วย  มัทฉะ  และน้ำแข็ง	Banana Syrup, Matcha and Ice	-	12-02-02-0055	-	bn_iced_matcha_TokyoBanana.png	-	-	-	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สาขาชวนคุย	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

ui/lang.tsv

@@ -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

xml/menutab/menu_catalog_new.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_appfast.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_coffee.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_forkid.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_health.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_milk.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_oreo.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_other.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_pepsi_pro.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_pro_15THB.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_pro_melon.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_pro_mymint.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_pro_pepween.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_pro_rerun.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_recommend.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_soft_serve.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_songkran.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_tea.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_group_whey.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/menutab/page_catalog_momday.xml

@@ -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
+    GetVisible inst_show
-        If RoutineSlientRefresh = 2 Then
+    ;DEBUGVAR inst_show
-            InstanceGetString SaveStringInst
-            
-            DEBUGVAR show_eng
-            DEBUGVAR SaveStringInst
 
-            If SaveStringInst = "RefreshNow" Then
+    InstanceGetString SaveStringInst
-                GetXMLFileNameCurrentRunning CurrentOpenFile
+    ;DEBUGVAR SaveStringInst
-                Open CurrentOpenFile
 
-                If show_eng = "true" Then 
+    If inst_show = 1 Then
-                    InstanceSetString "ShowEng"
+        If SaveStringInst = "RefreshNow" Then
-                Else
+            GetXMLFileNameCurrentRunning CurrentOpenFile
-                    InstanceSetString "ShowThai"
+            Open CurrentOpenFile
-                EndIf
+
-           
+            If show_eng = "true" Then 
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
             EndIf
+       
         EndIf
     EndIf
 
 
+    
 
 
     TimerReset

xml/page_board.xml

@@ -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>
 

xml/profile/run.ev

@@ -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"

xml_main/startup.xml

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