"Enable" 1080 1920 BackgroundColor SoundVolume "ROOT/sounds/Ding-dong.wav" DEBUGVAR StarwState DEBUGVAR LidState DEBUGVAR Seeker.PictureDrink DEBUGVAR Seeker.showname ; Block Have Var DrinkOKStringVersion = "DKT3" DEBUGVAR DrinkOKStringVersion 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 If LanguageShow = "MYANMAR" Then Var DirImage2 = "ROOT/taobin_project/image/topping_mmr" 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 ;inter-image If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/complete_en/" Else Var DirImage = "ROOT/taobin_project/image/complete/" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/complete_mmr/" EndIf If LanguageShow = "MSC" Then Var DirImage = "ROOT/taobin_project/inter/hkg/image/complete_msc/" EndIf If LanguageShow = "MTC" Then Var DirImage = "ROOT/taobin_project/inter/hkg/image/complete_mtc/" 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 If CountryName = "UnitedArabEmirates Dubai" Then If LanguageShow = "UAE_DUBAI" Then Var text_bottom = "ROOT/taobin_project/inter/whatthecup/" + CountryShortName Var text_bottom = text_bottom + "/image/complete_en/text_bottom.png" Else Var text_bottom = "ROOT/taobin_project/inter/whatthecup/" + CountryShortName Var text_bottom = text_bottom + "/image/complete_en/text_bottom_en.png" EndIf Else Var text_bottom = "ROOT/taobin_project/inter/whatthecup/" + CountryShortName Var text_bottom = text_bottom + "/image/complete_en/text_bottom.png" EndIf 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 If LanguageShow = "MYANMAR" Then Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_mmr.png" Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_mmr.png" Else 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" EndIf 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" Var DelayButton = 0 DEBUGVAR GetMoreStrawCount If GetMoreStrawCount <= 0 Then If StrawProblemStatus = 1 Then Var bg_strawProblem_ST = "Enable" EndIf EndIf 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 DEBUGVAR Seeker.BuyOreo11ProFlag If Seeker.BuyOreo11ProFlag = 1 Then Var dummyPhone = "0899999999" Var param1 = "2" Var param2 = "" Var param3 = "" AddData 50 dummyPhone param1 param2 param3 EndIf SAVELOG "drinkok.xml version 4" Var DrinkNameOnArm[DrinkArmCupID] = Seeker.showname Var DrinkImageOnArm[DrinkArmCupID] = Seeker.PictureDrink DEBUGVAR DrinkArmCupID DEBUGVAR DrinkImageOnArm[DrinkArmCupID] DEBUGVAR DrinkNameOnArm[DrinkArmCupID] Var TextDoorJamStage = "Invisible" Var CountUpDoorJamAlert = 0 Var BlinkUpDoorJamAlert = 0 Var EnableDoorJamAlert = 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 DEBUGVAR DOOR_CUP_OPEN_ERROR Var Timeout = Timeout + 1 If Timeout = 2 Then ;Var SlientRefreshEnable = 1 ;Var SlientRefreshIndex = 2 EndIf If BrewTimeoutExtend = 1 Then DEBUGVAR BrewTimeoutExtend EndIf ; 420 sec ; to be obsolete If Timeout > 840 Then Var CountForRetryStuck = 1 Open "ROOT/taobin_project/xml/page_drink_stuck.xml" 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 If DOOR_CUP_OPEN_ERROR = "true" Then Else ; Do not change ; If MachineStage = "show-menu" Then Var Seeker.TNumberTaobinMember = "" If NextOrder = "true" Then ; next order set. Havecup and checkup value must false. Certain cup not on any arm. 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 Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf ; ; this stage for remove cup If MachineStage = "remove-cup" Then If NextOrder = "false" Then Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml" Else If DoorCupPosition = "bottom" Then ; BEGIN Var NextOrder = "false" TransferVar "next" "curr" Var Seeker = "curr" SAVELOG "Make next order by remove to take-cup" Open "ROOT/taobin_project/xml/page_thankyouConti.xml" ; END Else Machine DoorClose EndIf 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 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 If CountryName = "Thailand" Then 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 Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw.mp3" If CountryName = "Malaysia" Then Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a" EndIf If CountryName = "Australia" Then Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a" EndIf If CountryName = "UnitedArabEmirates Dubai" Then Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a" EndIf If CountryName = "Singapore" Then Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a" EndIf If CountryName = "HongKong" Then Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a" EndIf EndIf Play PlaySoundLag EndIf EndIf If txtDrinkOKState = "Enable" Then Var TextBottomShow = "Invisible" Else ;Var TextBottomShow = "Enable" EndIf If EnableDoorJamAlert = 1 Then Var BlinkUpDoorJamAlert = BlinkUpDoorJamAlert + 1 If DOOR_CUP_OPEN_ERROR = "true" Then Var CountUpDoorJamAlert = CountUpDoorJamAlert + 1 EndIf If DOOR_CUP_CLOSE_ERROR = "true" Then Var CountUpDoorJamAlert = CountUpDoorJamAlert + 1 EndIf If CountUpDoorJamAlert > 0 Then DEBUGVAR CountUpDoorJamAlert EndIf If CountUpDoorJamAlert > 8 Then DEBUGVAR DOOR_CUP_OPEN_ERROR DEBUGVAR DOOR_CUP_CLOSE_ERROR Var TextBottomShow = "Invisible" ;Var TextDoorJamStage = "Enable" If BlinkUpDoorJamAlert > 1 Then Var TextDoorJamStage = "Enable" Var BlinkUpDoorJamAlert = 0 Else Var TextDoorJamStage = "Invisible" EndIf EndIf If CountUpDoorJamAlert > 50 Then Var CountUpDoorJamAlert = 1 Var TextBottomShow = "Enable" Var TextDoorJamStage = "Invisible" EndIf If show_eng = "true" Then Var TextDoorJamString = " Door Error. " Else Var TextDoorJamString = " ประตูมีปัญหา " EndIf 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 0 1418 87 Center 0xEF4D2C KanitLightTTF TextDoorJamStage TextDoorJamString 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 1 1 KanitTTF 22 1080 end 0xFF0000 DrinkOKStringVersion Var Timeout2 = 0 __CMD "UpdateCupOnArm" UserSelectProductCode "-" "-" Open "ROOT/xml/page_drinkok.xml"