"Enable" 1080 1920 "0xeae6e1" SoundVolume "ROOT/sounds/Ding-dong.wav" DEBUGVAR StarwState DEBUGVAR LidState 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" If show_eng = "true" Then 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 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 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 ; Timeout 10*60*2 If Timeout > 1200 Then SAVELOG "Timeout 1200" 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 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 If MultiGo = 1 Then If CART_INDEX = CART_COUNT Then ;Pay Multi If sendPayMultiFlag = 0 Then If Seeker.PayWithQR = 0 Then Var ServiceType = "coffee-multi" Else Var ServiceType = "coffee-multiQR" EndIf If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" If Seeker.TNumberTaobinMember = "" Then Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf Var ServiceCredit = "00-00-00-0000" Var SuggestID = "" Var PayDetail="1/S:0/0/" Var SessionID3 = "" + CART_COUNT Var SessionID3 = SessionID3 + ":00000" SAVELOG PayO2 Var VendingCampaign = IntVendingCampaign Var CreditReference = Seeker.CreditReferenceTmp Var PayType = "" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 ServiceAmountSum ServiceCharge Donate Var sendPayMultiFlag = 1 EndIf 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 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 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 Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw.mp3" Else Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3" 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 buttonRemoveCup = "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" ; 757 424 next_pic_bg 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" ) Var buttonRemoveCup = "Invisible" Machine RemoveCup Machine DoorLidOpen Refresh ;500 ;1180 10 1680 bg_strawlid_ST bg_strawlid 10 bg_strawProblem_Y bg_strawProblem_ST bg_strawProblem Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด" __CMD "straw-alert" 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