"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open 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 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" Var lid_straw_bg_iamge = DirImage + "/img4.png" If LidState = "Enable" Then Var lid_straw_bg_iamge = DirImage + "/img3.png" EndIf Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Wait_a_moment.mp3" Else Var DirImage = "ROOT/taobin_project/image/page_lid_straw" Var PictureEnd = ".png" Var BottomText = PicturePath + "text_bottom_thai2.png" Var lid_straw_bg_iamge = DirImage + "/img4.png" If LidState = "Enable" Then Var lid_straw_bg_iamge = DirImage + "/img3.png" EndIf Play "ROOT/sounds/pleaseWait.wav" EndIf 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_" 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 If lidAndStrawOldPageIgnore = "true" Then Var lidAndStrawOldPageIgnore = "false" Open "ROOT/taobin_project/xml/page_brewing3.xml" EndIf Var LidState = Lid1Status ;Lid1Status Var StarwState = "Enable" Var LidStrawCountDown = 15 If Lid1Status = "Disable" Then Var LidState = "Invisible" EndIf STRCONTAIN "9701" BrewParam IgnoreLidStraw DEBUGVAR BrewParam DEBUGVAR IgnoreLidStraw DEBUGVAR Service_LidStraw If IgnoreLidStraw = "true" Then Var IgnoreLidStraw = "false" SAVELOG "Ignore lid straw because recipe disable" Open "ROOT/taobin_project/xml/page_brewing3.xml" EndIf If Service_LidStraw = "Disable" Then SAVELOG "Service_LidStraw" Open "ROOT/taobin_project/xml/page_brewing3.xml" EndIf DEBUGVAR StrawAutoRelease1 Var UserPressButton = "false" 1000 If CountDownBrewing > 0 Then Var CountDownBrewing = CountDownBrewing - 1 EndIf ; 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 If StarwState = "Press" Then Machine Straw EndIf If LidState = "Press" Then Machine Lid EndIf 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 If StrawAutoRelease1 = "true" Then Var StrawAutoRelease1 = "false" Var StarwState = "Press" EndIf Refresh TimerReset ; ; 0 ; 0 ; "ROOT/taobin_project/image/ad_medium_2.png" ; 0 1289 Var( DirImage + "/text2.png" ) 78 1425 lid_straw_bg_iamge 750 1783 Var( DirImage + "/bn_ok.png" ) Var( DirImage + "/bn_ok.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If StarwState = "Press" Then Machine Straw LED LedDoorLid Blink 255 255 255 255 EndIf If LidState = "Press" Then Machine Lid LED LedDoorLid Blink 255 255 255 255 EndIf Open "ROOT/taobin_project/xml/page_brewing3.xml" ; starw left 126 1474 StarwState "ROOT/taobin_project/image/page_lid_straw/bn_straw.png" "ROOT/taobin_project/image/page_lid_straw/bp_straw.png" ; lid left 126 1584 LidState "ROOT/taobin_project/image/page_lid_straw/bn_lid.png" "ROOT/taobin_project/image/page_lid_straw/bp_lid.png" 901 1494 50 50 StarwState "No" "ROOT/taobin_project/image/page_lid_straw/cb_straw_nch.png" "ROOT/taobin_project/image/page_lid_straw/cb_straw_ch.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG StarwState If StarwState = "Press" Then Var StarwState = "Enable" Else Var StarwState = "Press" EndIf Refresh 901 1604 50 50 LidState "No" "ROOT/taobin_project/image/page_lid_straw/cb_lid_nch.png" "ROOT/taobin_project/image/page_lid_straw/cb_lid_ch.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG LidState If LidState = "Press" Then Var LidState = "Enable" Else Var LidState = "Press" EndIf Refresh ; 751 413 page_doing_show_time_image ; XPosiShowCountDownBrew 470 End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing ; ; 182 ; 700 ; GIFShowProcess ; 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 EndIf