Do

xml/page_lid_straw.xml

@@ -11,26 +11,35 @@
 	Var StarwState = "Enable"
 	Var LidStrawCountDown = 15
 
+	Var VideoPath = "/mnt/sdcard/coffeevending/taobin_project/animation01/"
+	Var VideoFileBegin = "TaoBin2_draft02_art"
+	Var VideoFileEnd = ".mp4"
+
+	Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing/"
+	Var PictureBegin = "txt_"
+
 	
 
 	If show_eng = "true" Then 
 		Var DirImage = "ROOT/taobin_project/image/page_lid_straw_en"
-
+		Var PictureEnd = "_en.png"
+		Var BottomText = PicturePath + "text_bottom_eng.png"
 	Else
 		Var DirImage = "ROOT/taobin_project/image/page_lid_straw"
+		Var PictureEnd = ".png"
+		Var BottomText = PicturePath + "text_bottom_thai2.png"
 	EndIf
 
-
-	Var VideoPath = "/mnt/sdcard/coffeevending/taobin_project/animation01/"
-	Var VideoFileBegin = "TaoBin2_draft02_art"
-	Var VideoFileEnd = ".mp4"
 	
 	Var CountUpBrewing = BrewTime - CountDownBrewing
+	;Var CountUpBrewing = 0
 	Var CountDownVideoTimeReload = AnimationVideoPlayTime
 	Var CountDownVideoTime = 1
 	Var StepVideo = 1
 	Var PreviseStepVideo = 90
 
+	SAVELOG CountUpBrewing
+
 	SAVELOG AnimationOn
 	SAVELOG AnimationVideoPlayTime
 	SAVELOG VideoID1
@@ -39,17 +48,21 @@
 	SAVELOG VideoID4
 	SAVELOG VideoID5
 	SAVELOG VideoID6
+	SAVELOG VideoAnimationCount
 
 	Var VideoPlayFile = VideoPath
 	Var VideoPlayFile = VideoPlayFile + VideoFileBegin
 	Var VideoPlayFile = VideoPlayFile + "1"
 	Var VideoPlayFile = VideoPlayFile + VideoFileEnd
 
-	Var CountUpBrewing = CountUpBrewing + 4
+	Var PictureFile = PicturePath
+	Var PictureFile = PictureFile + PictureBegin
+	Var PictureFile = PictureFile + "1"
+	Var PictureFile = PictureFile + PictureEnd
 
 
 </EventOpen>
-<Timeout> 600 </Timeout>
+<Timeout> 1000 </Timeout>
 <EventTimeout> 
 
 	Var CountDownBrewing = CountDownBrewing - 1
@@ -74,55 +87,69 @@
 		Var CountUpBrewing = CountUpBrewing + 1
 
 		Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
-		
-		If PreviseStepVideo = SlotVideo Then
-			SAVELOG SlotVideo
+		If CountUpBrewing < 4 Then
+
 		Else
-			Var PreviseStepVideo = SlotVideo
-			SAVELOG PreviseStepVideo
-			SAVELOG SlotVideo
-			SAVELOG CountUpBrewing
-
-			;Var CountDownVideoTime = CountDownVideoTimeReload
-			
-			Var StepVideo = SlotVideo + 2
-			
-			SAVELOG StepVideo
-
-			If StepVideo = 1 Then
-				Var videoID = VideoID1
-			EndIf
-			If StepVideo = 2 Then
-				Var videoID = VideoID2
-			EndIf
-			If StepVideo = 3 Then
-				Var videoID = VideoID3
-			EndIf
-			If StepVideo = 4 Then
-				Var videoID = VideoID4
-			EndIf
-			If StepVideo = 5 Then
-				Var videoID = VideoID5
-			EndIf
-			If StepVideo = 6 Then
-				Var videoID = VideoID6
-			EndIf
-			If StepVideo = 7 Then
-				Var videoID = VideoID7
-			EndIf
-
-			SAVELOG videoID
-
-			If videoID = 0 Then
 
+			If PreviseStepVideo = SlotVideo Then
+				SAVELOG SlotVideo
 			Else
+				Var PreviseStepVideo = SlotVideo
+				SAVELOG PreviseStepVideo
+				SAVELOG SlotVideo
+				SAVELOG CountUpBrewing
 
-				Var VideoPlayFile = VideoPath
-				Var VideoPlayFile = VideoPlayFile + VideoFileBegin
-				Var VideoPlayFile = VideoPlayFile + videoID
-				Var VideoPlayFile = VideoPlayFile + VideoFileEnd
+				;Var CountDownVideoTime = CountDownVideoTimeReload
+				
+				Var StepVideo = SlotVideo + 2
+				
+				SAVELOG StepVideo
 
-				SAVELOG VideoPlayFile
+				If StepVideo = 1 Then
+					Var videoID = VideoID1
+				EndIf
+				If StepVideo = 2 Then
+					Var videoID = VideoID2
+				EndIf
+				If StepVideo = 3 Then
+					Var videoID = VideoID3
+				EndIf
+				If StepVideo = 4 Then
+					Var videoID = VideoID4
+				EndIf
+				If StepVideo = 5 Then
+					Var videoID = VideoID5
+				EndIf
+				If StepVideo = 6 Then
+					Var videoID = VideoID6
+				EndIf
+				If StepVideo = 7 Then
+					Var videoID = VideoID7
+				EndIf
+
+				SAVELOG videoID
+
+				If videoID = 0 Then
+
+				Else
+				    If videoID = "---" Then
+
+				    Else
+
+						Var VideoPlayFile = VideoPath
+						Var VideoPlayFile = VideoPlayFile + VideoFileBegin
+						Var VideoPlayFile = VideoPlayFile + videoID
+						Var VideoPlayFile = VideoPlayFile + VideoFileEnd
+
+						Var PictureFile = PicturePath
+						Var PictureFile = PictureFile + PictureBegin
+						Var PictureFile = PictureFile + videoID
+						Var PictureFile = PictureFile + PictureEnd
+						
+						SAVELOG VideoPlayFile
+						SAVELOG PictureFile
+				     EndIf
+				EndIf
 			EndIf
 		EndIf
 	EndIf