<EventActionOk>

	If CreditCardVoid = 1 Then
		Var ChangeOK = 2
		; check-if-void-switch-finish
		READ_FILE "/mnt/sdcard/app_run_flag"" AppRunFlagState

		STRCONTAIN "1" AppRunFlagState HasResumePreventFlag

	EndIf


	If ActionOKCase = 1 Then
		If Seeker.CodeChannel = 1 Then
			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + ExtendData
			DEBUGVAR SessionID2

			DEBUGVAR SessionID2

			Var CreditAmount1 = ""
			Var ServiceAmountFlow = ""
			Var TelephoneNumber = "0899999999"
			Var ServiceType = "coffee"
			Var ECommerce = ""
			Var ECommerce = ECommerce + PriceDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + DiscountDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SessionID2
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SelectDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + Seeker.VendingCode
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + Seeker.CodeNumber
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C:"
			Var ECommerce =	ECommerce + Seeker.IntVendingCampaign
			Var ServiceParameter = "max"
			Var ServiceCharge = 0
			Var AccountType = "new"
			Var testservice = "kbank"
			Var tc = ""
			Var GetScore = ""
			Var OperatorName = ""
			Var SessionID = ""

			GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
			;Var Timeout = 0
			Var ActionOKCase = 2

			SAVELOG "back_to_main from line  > 142."
			Open "ROOT/taobin_project/xml/page_drinkfail2.xml"

		Else

			SAVELOG "back_to_main from line  > 147."
			Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
		EndIf

    Else


	EndIf

	If waitAckPay = 1 Then
		SAVELOG "waitAckPay = 1"
		Open "ROOT/taobin_project/xml/page_drinkok.xml"

	EndIf

</EventActionOk>

<EventActionError>
   If ActionOKCase = 1 Then
		If Seeker.CodeChannel = 1 Then
			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + ExtendData
			DEBUGVAR SessionID2

			DEBUGVAR SessionID2

			Var CreditAmount1 = ""
			Var ServiceAmountFlow = ""
			Var TelephoneNumber = "0899999999"
			Var ServiceType = "coffee"
			Var ECommerce = ""
			Var ECommerce = ECommerce + PriceDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + DiscountDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SessionID2
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SelectDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + Seeker.VendingCode
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + Seeker.CodeNumber
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C:"
			Var ECommerce =	ECommerce + Seeker.IntVendingCampaign
			Var ServiceParameter = "max"
			Var ServiceCharge = 0
			Var AccountType = "new"
			Var testservice = "kbank"
			Var tc = ""
			Var GetScore = ""
			Var OperatorName = ""
			Var SessionID = ""

			GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
			;Var Timeout = 0
			Var ActionOKCase = 2

			SAVELOG "back_to_main from line  > 204."
			Open "ROOT/taobin_project/xml/page_drinkfail2.xml"

		Else
			SAVELOG "back_to_main from line  > 173."
			Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
		EndIf

    Else


	EndIf
</EventActionError>


<Timeout> 1000 </Timeout>
<EventTimeout>

    DEBUGVAR DirImage

	Var Timeout = Timeout + 1

	If Timeout < 2 Then
		If Game01Enable = 0 Then
			If game_mode_enable = "true" Then
				If BREW_CNT > 75 Then
					SAVELOG "Button game enable from EventTimeout"
					Var Game01Enable = 1
					Var ButtonGameCountDownState = "Invisible"
					Var ButtonGamePressToPlayState = "Enable"

				EndIf
			EndIf
		EndIf

	EndIf


	; not-care-if-timeout-count
	If onResume = "true" Then
	   DEBUGVAR onResume
	   Var onResume = "false"
	   RefreshAll
	EndIf


	DEBUGVAR MachineState_Result
	DEBUGVAR BREW_COUNT_DOWN_FROM_APP


	If MOVE_CUP_TO_DOOR = "true" Then
		Var MOVE_CUP_TO_DOOR = "false"
	EndIf

	If BREW_COUNT_DOWN_FROM_APP = "on" Then
		Var CountDownBrewing = BREW_CNT
	Else

		If CountDownBrewing > 0 Then
			Var CountDownBrewing = CountDownBrewing - 1
		EndIf
	Endif

	;If Simulation = "true" Then
	;	If CountDownBrewing = 0 Then
	;		;Open "ROOT/taobin_project/xml/page_drinkok.xml"
	;	EndIf
	;EndIf


	If SelectMenuBetweenBrewEnable1 = "Enable" Then
		If Timeout = 5 Then
			If show_eng = "true" Then
				PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3"
			Else

				Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3"

				; Play Sound #zone
				If SoundBackToSchoolEnable = 1 Then

					If SoundBackToSchoolType = 1 Then
						Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
					EndIf
					If SoundBackToSchoolType = 2 Then
						Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
					EndIf
					Var PlaySoundLag = RootPathSoundBackToSchool + "next_drink.wav"
				EndIf

				PlayLong PlaySoundLag
			EndIf
		EndIf
		If Timeout = 9 Then
			If OpenFromCollectPoint3 = 0 Then
				PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
			EndIf
		EndIf
	Else
		If Timeout = 4 Then
			If OpenFromCollectPoint3 = 0 Then
				PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
			EndIf
		EndIf
	EndIf

	; run test;
	;If CountDownBrewing = 40 Then
	;	Open "ROOT/taobin_project/xml/page_drinkok.xml"
	;EndIf
	;If CountDownBrewing = 0 Then
	;	;Open "ROOT/taobin_project/xml/page_drinkok.xml"
	;EndIf

	Var ShowCountDownBrewing = CountDownBrewing


	If Timeout > 540 Then
		SAVELOG "back_to_main from line  > 217."
		Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
	EndIf


	If BREW_CNT = 0 Then
		If CountUpWhenBREW_CNT > 56 Then
			Var CountUpWhenBREW_CNT = 0
			Var drink_success_set = "-"
			READ_FILE "/mnt/sdcard/coffeevending/log/drink-success" drink_success_set
			DEBUGVAR drink_success_set
			If drink_success_set = "1" Then
				Var MachineState_Result = 1
			EndIf

		EndIf

		Var CountUpWhenBREW_CNT = CountUpWhenBREW_CNT + 1

	EndIf

	If Timeout > 480 Then
		SAVELOG " Timeout > 480"
		Var MachineState_Result = 2
	EndIf

	If ChangeFlag = 1 Then
		Var ChangeTimeout = ChangeTimeout + 1
	EndIf

	If  waitAckPay = 1 Then
		If Timeout > 60 Then
			Var VendingTSID = ""
			SAVELOG "TIMEOUT=60"
			Open "ROOT/taobin_project/xml/page_drinkok.xml"

		EndIf
	EndIf

	If  waitAckPay = 2 Then
		If Timeout > 10 Then

			If Seeker.CodeChannel = 1 Then
				Var SessionID2 = SelectSlot + ":"
				Var SessionID2 = SessionID2 + ExtendData
				DEBUGVAR SessionID2

				Var CreditAmount1 = ""
				Var ServiceAmountFlow = ""
				Var TelephoneNumber = "0899999999"
				Var ServiceType = "coffee"
				Var ECommerce = ""
				Var ECommerce = ECommerce + PriceDrink
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + DiscountDrink
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + SessionID2
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + SelectDrink
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + Seeker.VendingCode
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + Seeker.CodeNumber
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + "C:"
				Var ECommerce =	ECommerce + Seeker.IntVendingCampaign
				Var ServiceParameter = "max"
				Var ServiceCharge = 0
				Var AccountType = "new"
				Var testservice = "kbank"
				Var tc = ""
				Var GetScore = ""
				Var OperatorName = ""
				Var SessionID = ""

				GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
				;Var Timeout = 0
			EndIf

			SAVELOG "back_to_main from line  > 309."
			Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
		EndIf
	EndIf


	If  ChangeOK = 2 Then
		If ActionOKCase = 0 Then

			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


			If NextOrderStatus = "Disable" Then
				Var PayDetail="2/F:1221/0/"
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
			Else


				If HURR_FOREVER = "S:0" Then
					Var HURR_FOREVER = "F:1303"
				EndIf


				Var PayDetail = "2/" + HURR_FOREVER
				Var PayDetail = PayDetail + "/"
				Var PayDetail = PayDetail + SAMESALARY
				Var PayDetail = PayDetail + "/"
				Var PayDetail = PayDetail + NOBONUS
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel

			EndIf


			;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"

			Var ServiceType = "coffee"
			Var ServiceCredit = SelectDrink
			Var SuggestID  = ""
			Var SessionID2 = ""


			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate


			;If Seeker.CodeChannel = 0 Then
			;	SAVELOG "back_to_main from line  > 315."
			;	Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
			;EndIf

			Var waitAckPay = 2
			Var Timeout = 5
			Var ActionOKCase = 1
			SAVELOG "ActionOKCase = change OK 2"

		EndIf
	EndIf

	; void-credit
	DEBUGVAR HasResumePreventFlag
	DEBUGVAR ChangeOK
	DEBUGVAR CreditCardVoid

	If CreditCardVoid = 1 Then

	    If HasResumePreventFlag = "true" Then

    	Else
            DEBUGVAR "HasResumePreventFlag>false"
            If ChangeOK = 2 Then
        	   ; speed-up-timeout
                Var ChangeTimeout = 21
                Var HasResumePreventFlag = "true"
                DEBUGVAR "Recv void ok, time left 10, ChangeTimeout=21"
            EndIf
    	EndIf

	EndIf


    DEBUGVAR ChangeTimeout
	If  ChangeTimeout > 20 Then
		If ActionOKCase = 0 Then
			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


			If NextOrderStatus = "Disable" Then
				Var PayDetail="2/F:1221/0/"
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
			Else


				If HURR_FOREVER = "S:0" Then
					Var HURR_FOREVER = "F:1303"
				EndIf

				Var PayDetail = "2/" + HURR_FOREVER
				Var PayDetail = PayDetail + "/"
				Var PayDetail = PayDetail + SAMESALARY
				Var PayDetail = PayDetail + "/"
				Var PayDetail = PayDetail + NOBONUS
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel

			EndIf

			;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"


			Var ServiceType = "coffee"
			Var ServiceCredit = SelectDrink
			Var SuggestID  = ""
			Var SessionID2 = ""


			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate

			;If Seeker.CodeChannel = 0 Then
			;	SAVELOG "back_to_main from line  > 357."
			;	Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
			;EndIf

			Var waitAckPay = 2
			Var Timeout = 5
			Var ActionOKCase = 1
			SAVELOG "ActionOKCase = change time out"

		EndIf
	EndIf

	If ChangeOK = 3 Then
		If ActionOKCase = 0 Then

			Var SVT = "coffee"
			Var ACC = "0899999999"

			If Seeker.TNumberTaobinMember = "" Then
			Else
				Var ACC = Seeker.TNumberTaobinMember
			EndIf


			If NextOrderStatus = "Disable" Then
				Var PayDetail="2/F:1221/0/"
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
			Else

				If HURR_FOREVER = "S:0" Then
					Var HURR_FOREVER = "F:1303"
				EndIf

				Var PayDetail = "2/" + HURR_FOREVER
				Var PayDetail = PayDetail + "/"
				Var PayDetail = PayDetail + SAMESALARY
				Var PayDetail = PayDetail + "/"
				Var PayDetail = PayDetail + NOBONUS
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel

			EndIf


			Var DEE = PayDetail

			PAYEXT SVT ACC VendingTSIDTmp DEE

			Var ActionOKCase = 1
			SAVELOG "ActionOKCase = change OK 3"
			If Seeker.CodeChannel = 0 Then
				SAVELOG "back_to_main from line  > 391."
				Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
			EndIf

			Var waitAckPay = 2
			Var Timeout = 5


		EndIf
	EndIf

	If MachineState_Result = 1 Then
		;Var MachineState_Result = 2
	EndIf

	If MachineState_Result = 1 Then
		DEBUGVAR PaySuccessWithDaemonTask

		If  waitAckPay = 0 Then

			Var waitAckPay = 0
			Var Timeout = 0

			Var ProcessText = ""

			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


			If AddData = 1 Then
				Var Cid = 26
				AddData Cid Seeker.TNumberTaobinMember  Seeker.PointTaobinStr PointCrm GetScore
			EndIf

			Var ServiceType = "coffee"
			Var ServiceCredit = SelectDrink
			Var SuggestID  = ""

			Var PayDetail = "2/" + HURR_FOREVER
			Var PayDetail = PayDetail + "/"
			Var PayDetail = PayDetail + SAMESALARY
			Var PayDetail = PayDetail + "/"
			Var PayDetail = PayDetail + NOBONUS
			Var PayDetail = PayDetail + "/XML|"
			Var PayDetail = PayDetail +  Seeker.OrderChanel


 			;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"

			If GetFreeFromError = 1 Then
				Var Seeker.CodeChannel = 1
				Var Seeker.VendingCode = "FAU"
				Var Seeker.CodeNumber = "0000000000"
				Var VendingCampaign = ServiceAmount2
			EndIf

			If Seeker.PayWithQR = 0 Then
				If Seeker.CodeChannel = 1 Then
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + ""
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + Seeker.VendingCode
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + SelectDrink
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + BoxID
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + "S"
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + Seeker.CodeNumber
					Var SessionID2 = SessionID2 + "/"

					If Seeker.CreditCard = 1 Then

							WRITE_FILE "/mnt/sdcard/app_run_flag" "1"
							CashlessReq SUCCESS ""
							;CashlessReq FAIL ""

					EndIf

					Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
				Else

						If Seeker.CreditCard = 1 Then

							WRITE_FILE "/mnt/sdcard/app_run_flag" "1"
							CashlessReq SUCCESS ""
							;CashlessReq FAIL ""

						EndIf

						Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate


				EndIf


			Else

				;no wait ack pay
				Var waitAckPay = 0

				Var SVT = "coffee"
				Var ACC = "0899999999"
				Var DEE = PayDetail

				If Seeker.TNumberTaobinMember = "" Then
				Else
					Var ACC = Seeker.TNumberTaobinMember
				EndIf

				PAYEXT SVT ACC VendingTSIDTmp DEE

			EndIf

		EndIf

		__CMD "clear-stock-data" 0 "-" "-"


		Var ServiceSuccess = "yes"
		If  waitAckPay = 0 Then
			SAVELOG "waitAckPay=0"
			Open "ROOT/taobin_project/xml/page_drinkok.xml"
		EndIf

	EndIf

	If MachineState_Result = 2 Then

		SAVELOG MachineStage

		If ErrTimeout = 0 Then
			Var ErrTimeout = 1

			If AddData = 1 Then
				Var Cid = 26
				AddData Cid Seeker.TNumberTaobinMember  Seeker.PointTaobinStr PointCrm GetScore
			EndIf


			If Seeker.PayWithQR = 0 Then

				If Seeker.CreditCard = 1 Then
				    ;DEBUGVAR "Credit::void.switch(app: finexus)"
				    ;WRITE_FILE "/mnt/sdcard/app_run_flag" "1"
					;CashlessReq FAIL ""
					;Var ChangeFlag = 1
					;Var CreditCardVoid = 1

					; TODO: Move-to-new-page

                    Open "ROOT/taobin_project/inter/mys/xml/page_void_credit_card.lxml"

				Else

					If Seeker.CodeChannel = 0 Then
						If ChangeFlag = 0 Then
							Var ChangeFlag = 1

							If Seeker.StoreCreditFlag = 1 Then
								Var ChangeOK = 2
							Else
								If GetFreeFromError = 1 Then
									Var ChangeOK = 2
								Else
									Change ServiceAmount2
								EndIf

							EndIf

						EndIf

					Else


						If Seeker.VendingCode = "MKFOO" Then
							Var Cid = 33
    						Var PointCrm = "0"
    						Var GetScore = "1"
							Var TelephoneNumberx = "0899999999"
							AddData Cid Seeker.TNumberTaobinMember Seeker.CodeNumber PointCrm GetScore
							Var Seeker.CodeChannel = 0
						EndIf

						If CoinAmount > 0 Then

							If ChangeFlag = 0 Then
								Var ChangeFlag = 1
								Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign

								If Seeker.StoreCreditFlag = 1 Then
									Var ChangeOK = 2
								Else
									Change ServiceAmount3
								EndIf

							EndIf
						Else
							Var ChangeOK = 2
						EndIf


					EndIf

				EndIf

			Else
				Var ChangeOK = 3
			EndIf


			;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml"

			;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"

			;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml"
			;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"

		EndIf
	EndIf


	If MachineStage = "close-maintenance" Then
		If MachineState_Result = 0 Then
			SAVELOG "back_to_main from line  > 663."
			Var MachineState_Result = 2
		EndIf
	EndIf

	If MachineStage = "drink-success" Then
		Var MachineState_Result = 1
	EndIf

	If MachineStage = "drink-failed" Then
		If RoadShow = "true" Then
			Open "ROOT/taobin_project/xml/page_back_to_error.xml"
		Else
			SAVELOG " drink-failed...."
			Var MachineState_Result = 2
		EndIf
	EndIf

	If MachineState_Result > 0 Then
		Var SelectMenuBetweenBrewEnable1 = "Invisible"
		Var SelectMenuBetweenBrewEnable1Text = "Invisible"
	EndIf

	If SelectMenuBetweenBrewEnable1 = "Enable" Then
		If SelectMenuBetweenBrewEnable1Blink = "Enable" Then
			Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
		Else
			Var SelectMenuBetweenBrewEnable1Blink = "Enable"
		EndIf

	Else
		If SelectMenuBetweenBrewEnable2 = "Enable" Then
			If SelectMenuBetweenBrewEnable1Blink = "Enable" Then
				Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
			Else
				Var SelectMenuBetweenBrewEnable1Blink = "Enable"
			EndIf

		Else
			Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
		EndIf
	EndIf

	DEBUGVAR CountUpBrewing

	; animation video loop
	If AnimationOn = "true" Then


		If adver_brewing_playing = 1 Then

			DEBUGVAR adver_brewing_play_index
			If adver_brewing_play_index = 2 Then
				DEBUGVAR adver_brewing_count_down

				If adver_brewing_count_down > 0 Then
					Var adver_brewing_count_down = adver_brewing_count_down - 1


					Var PictureFile = brew_txt1

				EndIf

				If adver_brewing_count_down = 0 Then


					Var adver_brewing_play_index = 1
					Var adver_brewing_count_down = 0

					; Next video follow script.
					TRY "ROOT/taobin_project/video/script3_brew.ev"


				EndIf
			EndIf

			If adver_brewing_play_index = 1 Then
				DEBUGVAR adver_brewing_count_down
				DEBUGVAR brew_vdo2

				If adver_brewing_count_down > 0 Then
					Var adver_brewing_count_down = adver_brewing_count_down - 1

					If brew_vdo2 = "" Then
						Var VideoPlayFile = "ROOT/taobin_project/video/brewing_adv3.mp4"
					Else
						Var VideoPlayFile = brew_vdo2
					EndIf
					Var PictureFile = brew_txt2

				EndIf

				If adver_brewing_count_down = 0 Then
					Var adver_brewing_play_index = 0
					If adver_brewing_video_full_file_name = "" Then
						Var adver_brewing_playing = 0
					Else
						Var adver_brewing_playing = 2
					EndIf
				EndIf
			EndIf


		Else
			If adver_brewing_playing = 2 Then
				DEBUGVAR adver_brewing_video_full_file_name
				If adver_brewing_video_full_file_name = "" Then
					Var adver_brewing_playing = 0
				Else
					Var VideoPlayFile = adver_brewing_video_full_file_name
					Var PictureFile = brew_txt2
					Var PictureFileTextDesctionState = "Invisible"

					Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
					Var SelectMenuBetweenBrewEnable1Text = "Invisible"
				EndIf


			Else

				Var CountUpBrewing = CountUpBrewing + 1

				;CampaignEnable
				Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime

				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
					If StepVideo = 8 Then
						Var videoID = VideoID8
					EndIf
					If StepVideo = 9 Then
						Var videoID = VideoID9
					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

							DEBUGVAR VideoPlayFile
							DEBUGVAR PictureFile
						EndIf
					EndIf
				EndIf
			EndIf
		EndIf
		; CampaignEnable
	EndIf
	; AnimationOn = true


	If IgnoreNetCore = "true" Then
		If CountDownBrewing = 0 Then
			SAVELOG "CountDownBrewing=0"
			Open "ROOT/taobin_project/xml/page_drinkok.xml"
		EndIf
	EndIf


	If RoadShow = "true" Then
		Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
	EndIf


	DEBUGVAR EnableGetMoreStrawFileName

	If EnableGetMoreStrawFileName = "PressForever" Then
		DEBUGVAR GetMoreStrawCount
		If GetMoreStrawCount > 0 Then
			If EnableGetMoreStrawFileNameCountDown > 0 Then
				Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1

				If EnableGetMoreStrawFileNameCountDown = 0 Then
					Var EnableGetMoreStrawFileName = "Enable"
				EndIf
			EndIf

		EndIf
	EndIf

	If EnableGetMoreStrawFileName2 = "PressForever" Then
		DEBUGVAR GetMoreStrawCount
		If GetMoreStrawCount > 0 Then
			If EnableGetMoreStrawFileNameCountDown > 0 Then
				Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1

				If EnableGetMoreStrawFileNameCountDown = 0 Then
					Var EnableGetMoreStrawFileName2 = "Enable"
				EndIf
			EndIf

		EndIf
	EndIf

	If GetMoreStrawCount <= 0 Then
		If StrawProblemStatus = 1 Then
			Var StrawProblemStatus = 2

			If NoLangObjectShow = "Enable" Then
				Var bg_strawProblem_ST = "Enable"
			Else
				Var bg_strawProblem_ST2 = "Enable"
			EndIf
		EndIf

	EndIf
	DEBUGVAR bg_lidProblem_ST2


	If GetLidButtonCountDown > 0 Then
		Var GetLidButtonCountDown = GetLidButtonCountDown - 1
		DEBUGVAR GetLidButtonCountDown
	EndIf

	If DoorLidSensorDetect = "true" Then
		Var DoorLidSensorDetect = "-"
		Var GetLidButtonState = "Invisible"
		Var bg_lidProblem_ST = "Invisible"
		Var GetLidButtonCountDown = 0
	EndIf

	If NoLangObjectShow = "Enable" Then

		If GetLidButtonCountDown = 1 Then
			Var GetLidButtonState = "Invisible"
			Var bg_lidProblem_ST = "Enable"
			;Var XStraw = 356

		EndIf
	EndIf

	Var bg_lidProblem_ST = "Invisible"

	If LanguageObjectShow = "Enable" Then

		If GetLidButtonCountDown = 1 Then
			Var GetLidButtonState2 = "Invisible"
			Var bg_lidProblem_ST2 = "Enable"
			Var XStraw = 365

		EndIf
	EndIf

	If ButtonGameCountDown > 0 Then
		If ButtonGameCountDown = 1 Then
			Var ButtonGameCountDownState = "Invisible"
			Var ButtonGamePressToPlayState = "Enable"
		EndIf
		Var ButtonGameCountDown = ButtonGameCountDown - 1

	EndIf


	If ButtonGameCountDownState = "Enable" Then
		If BREW_CNT < 85 Then
			If Game01Enable = 1 Then
				SAVELOG "Game01Enable set zero event timeout 2"
			EndIf
			Var Game01Enable = 0
			Var ButtonGameCountDownState = "Invisible"
			Var ButtonGamePressToPlayState = "Invisible"
		EndIf
	EndIf


	DEBUGVAR ButtonGamePressToPlayState
	DEBUGVAR BREW_CNT
	If BREW_CNT > 60 Then

	Else
		Var ButtonGamePressToPlayState = "Invisible"
		If Game01Enable = 1 Then
			SAVELOG "Game01Enable set zero event timeout"
		EndIf
		Var Game01Enable = 0
	EndIf

    DEBUGVAR SelectMenuBetweenBrewEnable1Blink
    DEBUGVAR SelectMenuBetweenBrewEnable1
    DEBUGVAR SelectMenuBetweenBrewEnable2


	Refresh
	TimerReset

</EventTimeout>

<EventMachine>

	;If MachineStage = "drink-success" Then
	;	Open "ROOT/taobin_project/xml/page_drinkok.xml"
	;EndIf
	;If MachineStage = "drink-failed" Then
	;	Open "ROOT/taobin_project/xml/page_drinkfail.xml"
	;EndIf

	If MachineStage = "drink-success" Then
		Var MachineState_Result = 1
	EndIf


	DEBUGVAR MachineStage

	If MachineStage = "drink-failed" Then
		If RoadShow = "true" Then
			Open "ROOT/taobin_project/xml/page_back_to_error.xml"
		Else
			SAVELOG "Event Machine drink fail"
			Var MachineState_Result = 2
		EndIf
	EndIf

	Refresh

</EventMachine>

; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus>
	If ChangeStatus = "payout-end" Then
		If ChangeFlag = 1 Then
			Var ChangeOK = 2
		EndIf
	EndIf
</EventChangeStatus>