"Enable" 1080 1920 "0xeae6e1" SoundVolume "ROOT/sounds/Ding-dong.wav" DEBUGVAR StarwState DEBUGVAR LidState DEBUGVAR Seeker.PictureDrink DEBUGVAR Seeker.showname Var buttonRemoveCup = "Invisible" Var TextBottomShow = "Enable" If show_eng = "true" Then Var DirImage2 = "ROOT/taobin_project/image/topping2_en" Else Var DirImage2 = "ROOT/taobin_project/image/topping2" EndIf Var bg_strawlid_ST = "Enable" Var bg_strawProblem_ST = "Invisible" ;Var bg_strawProblem_Y = 1470 Var bg_strawProblem = DirImage2 + "/bg_strawProblem.png" Var straw_problem_flag = 0 If Seeker.strawAction = 1 Then Machine Straw ;Var bg_strawlid = DirImage2 + "/bg_strawProblem.png" Var bg_strawProblem_ST = "Enable" If Seeker.lidAction = 0 Then Else ;Var bg_strawProblem_Y = 1680 Var bg_strawlid_ST = "Invisible" Var LidStateX = "Invisible" Var StrawStateX = "Invisible" EndIf EndIf If Seeker.lidAction = 1 Then Machine Lid EndIf Var ExtendData = Seeker.ExtendData ; On open Var LidState = "Enable" Var StarwState = "Enable" Var videoEnd = 0 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/complete_en/" Else Var DirImage = "ROOT/taobin_project/image/complete/" EndIf Var VideoPlayFile = VideoPath Var VideoPlayFile = VideoPlayFile + VideoFileBegin Var VideoPlayFile = VideoPlayFile + "24" Var VideoPlayFile = VideoPlayFile + VideoFileEnd Var Timeout = 0 Var Timeout2 = 0 StopLongPlay ;Var show_eng = "false" Var sendPayMultiFlag = 0 Var next_pic = "" Var next_name = "" Var nextCount = "" Var next_pic_bg = "" Var BlinkImg = 0 Var txtDrinkOKState = "Invisible" Var MultiGo = 1 Var sendPayMultiFlag = 1 Var bg_strawlid_ST = "Invisible" Var bg_strawProblem_ST = "Invisible" Var StrawStateX = "Invisible" Var LidStateX = "Invisible" LED LedDoorCup 1 255 255 255 255 Var DelayButton = 0 DEBUGVAR GetMoreStrawCount If GetMoreStrawCount <= 0 Then If StrawProblemStatus = 1 Then Var bg_strawProblem_ST = "Enable" EndIf EndIf Var CoundUpDelayCertainStage = 0 500 DEBUGVAR LastMakeDrinkResult DEBUGVAR MachineStage DEBUGVAR CupOnArm DEBUGVAR buttonRemoveCup DEBUGVAR CART_COUNT DEBUGVAR HaveCup DEBUGVAR CHECKCUP DEBUGVAR CupChecking DEBUGVAR MaybeHaveCup DEBUGVAR NextOrder DEBUGVAR DoorCupPosition Var Timeout = Timeout + 1 If BrewTimeoutExtend = 1 Then DEBUGVAR BrewTimeoutExtend EndIf If Timeout > 840 Then SAVELOG "Longer Time out" If NextOrder = "true" Then Var NextOrder = "false" TransferVar "next" "curr" Var Seeker = "curr" SAVELOG "Make next order by take-cup with close-maintenance" Var error_code_stop_now = 1221 If DoorCupPosition = "bottom" Then Else Var error_code_stop_now = 1296 __CMD "error-code-1296" 0 "-" "-" EndIf Open "ROOT/taobin_project/xml/page_cannotConti.xml" Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf If Timeout > 30 Then Var MultiGo = 1 EndIf If BlinkImg = 1 Then Var next_pic_bg = DirImage + "/Preparing.png" Var BlinkImg = 2 Else If BlinkImg = 2 Then Var next_pic_bg = DirImage + "/Preparing.png" Var BlinkImg = 1 EndIf EndIf ; Do not change ; If MachineStage = "show-menu" Then EndIf ; away If NextOrder = "true" Then ; Fast-forward to page_cannotConti If RejectOrder = "true" Then ; BEGIN Var NextOrder = "false" TransferVar "next" "curr" Var Seeker = "curr" SAVELOG "Make next order by RejectOrder" Open "ROOT/taobin_project/xml/page_cannotConti.xml" ; END EndIf ; next order set. Havecup and checkup value must false. Certain cup not on any arm. If PaySuccessWithDaemonTask = 1 Then Var NextOrder = "false" SAVELOG "Make next order by pass" Open "ROOT/taobin_project/xml/page_thankyouConti.xml" Else If HaveCup = "false" Then If MaybeHaveCup = "true" Then Else If CupChecking = "true" Then Else If CupOnArm = "false" Then If DoorCupPosition = "bottom" Then ; BEGIN Var NextOrder = "false" TransferVar "next" "curr" Var Seeker = "curr" SAVELOG "Make next order by take-cup pagedrinkstuct" Open "ROOT/taobin_project/xml/page_thankyouConti.xml" ; END Else Machine DoorClose EndIf EndIf EndIf EndIf EndIf EndIf EndIf ; If MachineStage = "remove-cup" Then If NextOrder = "false" Then Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml" Else Var txtDrinkOKState = "Enable" Var Timeout2 = Timeout2 + 1 If Timeout2 > 15 Then Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/remove_cup.mp3" Var Timeout2 = 0 EndIf EndIf EndIf If Timeout = 5 Then If show_eng = "true" Then Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw.mp3" If CountryName = "Australia" Then Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a" EndIf Play PlaySoundStraw Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3" Play PlaySoundLag EndIf EndIf If MachineStage = "close-maintenance" Then If stop_now = "true" Then If NextOrder = "true" Then Var NextOrder = "false" TransferVar "next" "curr" Var Seeker = "curr" SAVELOG "Make next order by take-cup with close-maintenance" Open "ROOT/taobin_project/xml/page_cannotConti.xml" Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf EndIf If DoorCupPosition = "bottom" Then Else Var buttonRemoveCup = "Invisible" Var CoundUpDelayCertainStage = 0 EndIf If HaveCup = "true" Then If DoorCupPosition = "bottom" Then If buttonRemoveCup = "Invisible" Then Var CoundUpDelayCertainStage = CoundUpDelayCertainStage + 1 If CoundUpDelayCertainStage > 8 Then Var buttonRemoveCup = "Enable" EndIf EndIf EndIf EndIf If txtDrinkOKState = "Enable" Then Var TextBottomShow = "Invisible" Else Var TextBottomShow = "Enable" EndIf TimerReset Refresh If ChangeStatus = "payout-end" Then Var MultiGo = 1 EndIf ;include=ROOT/taobin_project/inc/remove_cup_tag_event.inc ;include="ROOT/taobin_project/inc/video.inc" 757 424 next_pic_bg 125 1700 300 320 Seeker.PictureDrink 300 1750 1080 Center 48 0x513C2F eval( STRCONTAIN "size" Seeker.showname SizeFromSheet If SizeFromSheet = "true" Then SPLIT Seeker.showname "###" 1 PureName Var return = PureName Else Var return = Seeker.showname EndIf ) 0 1418 TextBottomShow Var( DirImage + "text_bottom.png") 757 448 20 280 Center RobotoBlack 0x513C2F nextCount 757 538 20 280 Center RobotoBlack 0x513C2F next_name 823 600 148 200 next_pic 77 1378 txtDrinkOKState Var( DirImage + "/txtDrinkOK.png" ) 160 1673 buttonRemoveCup ; "0x00BDFF" 500 Var( DirImage + "/bn_open_door.png" ) Var( DirImage + "/bp_open_door.png" ) ;include=ROOT/taobin_project/inc/remove_cup_button.inc Refresh Var MachineStage = "show-menu"