"Enable" 1080 1920 "0xeae6e1" SoundVolume "ROOT/sounds/pleaseWait.wav"
; On open
Var LidState = Lid1Status
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 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
SAVELOG VideoID2
SAVELOG VideoID3
SAVELOG VideoID4
SAVELOG VideoID5
SAVELOG VideoID6
SAVELOG VideoAnimationCount
Var VideoPlayFile = VideoPath
Var VideoPlayFile = VideoPlayFile + VideoFileBegin
Var VideoPlayFile = VideoPlayFile + "1"
Var VideoPlayFile = VideoPlayFile + VideoFileEnd
Var PictureFile = PicturePath
Var PictureFile = PictureFile + PictureBegin
Var PictureFile = PictureFile + "1"
Var PictureFile = PictureFile + PictureEnd
1000
Var CountDownBrewing = CountDownBrewing - 1
; run test;
;If CountDownBrewing = 58 Then
; Open "ROOT/taobin_project/xml/page_brewing.xml"
;EndIf
Var LidStrawCountDown = LidStrawCountDown - 1
; count down
If LidStrawCountDown = 1 Then
Var LidStrawCountDown = 10
;Open "ROOT/taobin_project/xml/page_brewing2.xml"
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Var ShowCountDownBrewing = CountDownBrewing
; animation video loop
If AnimationOn = "true" Then
Var CountUpBrewing = CountUpBrewing + 1
Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
If CountUpBrewing < 4 Then
Else
If PreviseStepVideo = SlotVideo Then
SAVELOG SlotVideo
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
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
Refresh
TimerReset
;
; 0
; 0
; "ROOT/taobin_project/image/ad_medium_2.png"
; 0 1289 Var( DirImage + "/text2.png" ) 78 1425 Var( DirImage + "/img3.png" )
; starw left
; lid left
;
751 413 page_doing_show_time_image
;
XPosiShowCountDownBrew 470 End 153 88
RobotoBold
0x513C2F ShowCountDownBrewing
;
; 182
; 700
; GIFShowProcess
;
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
Open "ROOT/taobin_project/xml/page_brewing2.xml"
EndIf
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
If ChangeStatus = "payout-end" Then
Var ChangeOK = 2
EndIf