"Enable" 1080 1920 BackgroundColor SoundVolume "ROOT/sounds/Ding-dong.wav" DEBUGVAR StarwState DEBUGVAR LidState DEBUGVAR Seeker.PictureDrink DEBUGVAR Seeker.showname WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "0" 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 text_bottom = DirImage + "text_bottom.png" If InternationalEnable = 1 Then If LanguageShow = "UAE_DUBAI" Then Var text_bottom = CountryRootPath + "/image/complete_en/text_bottom.png" EndIf EndIf If UsePepsiTheme = 1 Then Var text_bottom = "ROOT/taobin_project/inter/whatthecup/" + CountryShortName Var text_bottom = text_bottom + "/image/complete_en/text_bottom.png" EndIf DEBUGVAR text_bottom 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" If show_eng = "true" Then Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_en.png" Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_en.png" If CART_COUNT > 0 Then If CART_INDEX < CART_COUNT Then Var next_pic_bg = DirImage + "/Preparing.png" Var BlinkImg = 1 Var txtDrinkOKState = "Enable" Var cart_next = CART_INDEX + 1 Var nextCount = "" + cart_next Var nextCount = nextCount + "/" Var nextCount = nextCount + CART_COUNT If cart_next = 2 Then Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE Var next_name = CART2_NAME_ENG EndIf If cart_next = 3 Then Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE Var next_name = CART3_NAME_ENG EndIf EndIf EndIf Else Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw.png" Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw.png" If CART_COUNT > 0 Then If CART_INDEX < CART_COUNT Then Var next_pic_bg = DirImage + "/Preparing.png" Var BlinkImg = 1 Var txtDrinkOKState = "Enable" Var cart_next = CART_INDEX + 1 Var nextCount = "" + cart_next Var nextCount = nextCount + "/" Var nextCount = nextCount + CART_COUNT If cart_next = 2 Then Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE Var next_name = CART2_NAME_THAI EndIf If cart_next = 3 Then Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE Var next_name = CART3_NAME_THAI EndIf EndIf EndIf EndIf Var MultiGo = 1 If CART_COUNT = 0 Then Var sendPayMultiFlag = 1 Else If CART_INDEX = CART_COUNT Then If ChangeAmountSum > 0 Then Change ChangeAmountSum Var MultiGo = 0 EndIf EndIf EndIf 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 SlientRefreshEnable = 1 Var TimeDelayDefault = 1200 DEBUGVAR Seeker DEBUGVAR Seeker.BuyMomCocoaProFlag If Seeker.BuyMomCocoaProFlag = 1 Then Var dummyPhone = "0899999999" Var param1 = "1" Var param2 = "" Var param3 = "" AddData 50 dummyPhone param1 param2 param3 EndIf 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 ; 420 sec If Timeout > 840 Then Var CountForRetryStuck = 1 Open "ROOT/taobin_project/xml/page_drink_stuck.xml" EndIf ; obsolete If Timeout > TimeDelayDefault Then SAVELOG "Longer Time out" DEBUGVAR TimeDelayDefault 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 = 2 Then RefreshAll 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 If CART_INDEX < CART_COUNT Then If HaveCup = "false" Then If CupChecking = "false" Then Var CART_INDEX = CART_INDEX + 1 Cart "PreparID" CART_INDEX Cart "MakeID" CART_INDEX Open "ROOT/taobin_project/xml/page_thankyouMore.xml" EndIf Else If DoorCupPosition = "bottom" Then If HaveCup = "true" Then If MaybeHaveCup = "true" Then Else If CupChecking = "true" Then Else Var buttonRemoveCup = "Enable" Var txtDrinkOKState = "Enable" EndIf EndIf EndIf If CupOnArm = "true" Then If MaybeHaveCup = "true" Then Else If CupChecking = "true" Then Else Var buttonRemoveCup = "Enable" Var txtDrinkOKState = "Enable" EndIf EndIf EndIf Else Var buttonRemoveCup = "Invisible" EndIf EndIf Else If sendPayMultiFlag = 1 Then If DoorCupPosition = "bottom" Then If HaveCup = "true" Then If MaybeHaveCup = "true" Then Else If CupChecking = "true" Then Else Var buttonRemoveCup = "Enable" Var txtDrinkOKState = "Enable" EndIf EndIf EndIf If CupOnArm = "true" Then If MaybeHaveCup = "true" Then Else If CupChecking = "true" Then Else Var buttonRemoveCup = "Enable" Var txtDrinkOKState = "Enable" EndIf EndIf EndIf Else Var buttonRemoveCup = "Invisible" EndIf Var Seeker.TNumberTaobinMember = "" If FailedCount > 0 Then Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Else 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" Open "ROOT/taobin_project/xml/page_thankyouConti.xml" ; END Else Machine DoorClose EndIf EndIf EndIf EndIf EndIf EndIf Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf EndIf EndIf EndIf ; If MachineStage = "remove-cup" Then If CART_COUNT = 0 Then If NextOrder = "false" Then Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml" Else Var buttonRemoveCup = "Enable" 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 Else Var buttonRemoveCup = "Enable" 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 = "Malaysia" Then Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a" EndIf If CountryName = "Australia" Then Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a" EndIf If CountryName = "UnitedArabEmirates Dubai" Then Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a" EndIf If CountryName = "Singapore" Then Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a" EndIf If CountryName = "HongKong" 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" If FromJemilaPro = 1 Then Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/drinkfinish.m4a" EndIf 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 txtDrinkOKState = "Enable" Then Var TextBottomShow = "Invisible" Else Var TextBottomShow = "Enable" EndIf TimerReset Refresh If ChangeStatus = "payout-end" Then Var MultiGo = 1 EndIf ; ; 0 ; 0 ; "ROOT/taobin_project/image/ad_medium_2.png" ; ;include="ROOT/taobin_project/inc/video.inc" 757 424 next_pic_bg 125 1700 300 320 Seeker.PictureDrink 300 1750 1080 Center KanitLightTTF 48 HeadlineColor 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 text_bottom 757 448 20 280 Center KanitLightTTF 0x513C2F nextCount 757 538 20 280 Center KanitLightTTF 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" ) ;Var buttonRemoveCup = "Invisible" Machine RemoveCup Machine DoorLidOpen Refresh ;500 ;1180 10 1680 bg_strawlid_ST bg_strawlid 699 1788 bg_strawProblem_ST bnStrawProblemReport bpStrawProblemReport Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด" __CMD "straw-alert-disable" 0 strawStr "-" __CMD "send-error-code" 1231 "-" "-" Var bg_strawProblem_ST = "Invisible" Refresh ; straw left 50 1752 StrawStateX "No" "ROOT/taobin_project/image/topping2/bn_straw.png" "ROOT/taobin_project/image/topping2/bp_straw.png" "ROOT/taobin_project/image/topping2/bd_straw.png" SAVELOG "Click straw cb" If StrawStateX = "Press" Then ;Var StrawStateX = "Enable" Else Var StrawStateX = "Press" If Seeker.strawAction = 0 Then Var Seeker.strawAction = 1 Machine Straw Var bg_strawProblem_ST = "Enable" ;Var bg_strawlid_ST = "Invisible" ;Var LidStateX = "Invisible" ;Var StrawStateX = "Invisible" EndIf EndIf Refresh 377 1759 StrawStateX "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) SAVELOG "Click straw cb" If StrawStateX = "Press" Then ;Var StrawStateX = "Enable" Else Var StrawStateX = "Press" If Seeker.strawAction = 0 Then Var Seeker.strawAction = 1 Machine Straw Var bg_strawProblem_ST = "Enable" ;Var bg_strawlid_ST = "Invisible" ;Var LidStateX = "Invisible" ;Var StrawStateX = "Invisible" EndIf EndIf DEBUGVAR "PICHET" Refresh ; LID left 50 1828 LidStateX "No" "ROOT/taobin_project/image/topping2/bn_lid.png" "ROOT/taobin_project/image/topping2/bp_lid.png" Var( DirImage + "/bd_lid.png" ) If Seeker.thankLidFlag = 0 Then SAVELOG "Click LID pic" If LidStateX = "Press" Then ;Var LidStateX = "Enable" Else Var LidStateX = "Press" If Seeker.lidAction = 0 Then Var Seeker.lidAction = 1 Machine Lid Var straw_problem_ST = "Enable" EndIf EndIf DEBUGVAR SugarState1 Refresh EndIf 377 1835 LidStateX "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) If Seeker.thankLidFlag = 0 Then SAVELOG "Click LID cb" If LidStateX = "Press" Then ;Var LidStateX = "Enable" Else Var LidStateX = "Press" If Seeker.lidAction = 0 Then Var Seeker.lidAction = 1 Machine Lid EndIf EndIf Refresh EndIf Var MachineStage = "show-menu"