<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
	
	; On open move from page_brewing3.xml
	Var countClick2 = 0

	Var Timeout = 0

	Var PrintCoinAmount = 0


    If show_eng = "true" Then 
		;Var DirImage = "ROOT/taobin_project/image/collect_point1_en"
		Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"
	Else
		;Var DirImage = "ROOT/taobin_project/image/collect_point1"
		Play "ROOT/taobin_project/sound_thai/thankyou.mp3"
	EndIf

	Var waitAckPay = 0
	Var VendingTSIDTmp = ""
	Var VendingTSIDProblem = ""

	
	If PayWithQR = 1 Then
		Var VendingTSIDTmp = VendingTSID

		If TNumberTaobinCredit = "" Then
			Var TelephoneNumber = "0899999999"
			Var PayO2 = ""
		Else
			Var TelephoneNumber = TNumberTaobinCredit
			Var PayO2 = CoffeePinNumber
		EndIf


		If ChangeFlag2 = 1 Then
					Var TelephoneNumber = "0899999999"
					Var PayO2 = ""
					Var VendingDiscount = 0
					Var VendingCampaign = 0
					Var ServiceType = "credit"
					Var SessionID2 = SelectDrink
					Var ServiceCredit = "coffee"
					Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
		Else

					If StoreCreditFlag = 1 Then
						Var VendingDiscount = 0
						Var VendingCampaign = 0
						Var ServiceType = "credit"
						Var SessionID2 = SelectDrink
						Var ServiceCredit = "coffee"
						Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate

					EndIf
		EndIf
	EndIf

	If TNumberTaobinCredit = "" Then

		If TNumberTaobinMember = "" Then
			Var TelephoneNumberProblem = ""
		Else
			Var TelephoneNumberProblem = TNumberTaobinMember
		EndIf
				
	Else
		Var TelephoneNumberProblem = TNumberTaobinCredit
	EndIf

	If TelephoneNumberProblem = "" Then
		;Var TelephoneNumberProblem = ""
    	Var ShowTextNumber = "Enable"
    	Var Tel_Confirm_State = "Disable"
	Else
		Var ShowTextNumber = "Invisible"
    	Var Tel_Confirm_State = "Enable"
	EndIf


	If TNumberTaobinMember = "" Then

	Else
		If PayWithQR = 1 Then
			Var VendingTSID = VendingTSIDTmp
		Else
			Var VendingTSID = ""
		EndIf 	


		Var BmiYear = PointTaobinStr
		Var PointCrm = ""
		If FromConsent = 1 Then 
			Var PointCrm = "pdpa1"
		EndIf
		Var GetScore = VendingTSID
		If TaobinErrorNetwork = 0 Then
			AddData 11 TNumberTaobinMember  BmiYear PointCrm GetScore
		Else
			Var PointCrm = ""
			AddData 14 TNumberTaobinMember  BmiYear PointCrm GetScore
		EndIf
		;Var TNumberTaobinMember = ""
		Var VendingTSID = ""
	EndIf


	If GetFreeFromError = 1 Then
		;Var GetFreeFromError = 0
		Var TelephoneNumberProblem = TelephoneNumberGOTFree
		
	EndIf


</EventOpen>


<EventActionOk>

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

			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 + "C00"
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + CodeNumber
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C"
			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	
		Open "ROOT/taobin_project/xml/page_drinkok.xml" 
		
	EndIf

</EventActionOk>

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

			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 + "C00"
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + CodeNumber
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C"
			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> 

	Var Timeout = Timeout + 1

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

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

	If Timeout = 4 Then
		PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
	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 Timeout > 480 Then
		Var MachineState_Result = 2
	EndIf

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

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

		EndIf
	EndIf

	If  waitAckPay = 2 Then  
		If Timeout > 10 Then

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

				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 + "C00"
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + CodeNumber
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + "C"
				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 TNumberTaobinCredit = "" Then
				Var TelephoneNumber = "0899999999"
				Var PayO2 = ""

				If TNumberTaobinMember = "" Then
				Else
					Var TelephoneNumber = TNumberTaobinMember
				EndIf

			Else
				Var TelephoneNumber = TNumberTaobinCredit
				Var PayO2 = CoffeePinNumber
			EndIf


			Var PayDetail = "1/" + HURR_FOREVER
			Var PayDetail = PayDetail + "/"  
			Var PayDetail = PayDetail + SAMESALARY
			Var PayDetail = PayDetail + "/"
			Var PayDetail = PayDetail + NOBONUS


			;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 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

		EndIf
	EndIf

	If  ChangeTimeout > 30 Then
		If ActionOKCase = 0 Then
			If TNumberTaobinCredit = "" Then
				Var TelephoneNumber = "0899999999"
				Var PayO2 = ""

				If TNumberTaobinMember = "" Then
				Else
					Var TelephoneNumber = TNumberTaobinMember
				EndIf

			Else
				Var TelephoneNumber = TNumberTaobinCredit
				Var PayO2 = CoffeePinNumber
			EndIf

			Var PayDetail = "1/" + HURR_FOREVER
			Var PayDetail = PayDetail + "/"  
			Var PayDetail = PayDetail + SAMESALARY
			Var PayDetail = PayDetail + "/"
			Var PayDetail = PayDetail + NOBONUS

			;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 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

		EndIf
	EndIf

	If ChangeOK = 3 Then
		If ActionOKCase = 0 Then

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

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

			Var PayDetail = "1/" + HURR_FOREVER
			Var PayDetail = PayDetail + "/"  
			Var PayDetail = PayDetail + SAMESALARY
			Var PayDetail = PayDetail + "/"
			Var PayDetail = PayDetail + NOBONUS


			Var DEE = PayDetail

			PAYEXT SVT ACC VendingTSIDTmp DEE
		
			Var ActionOKCase = 1
			If 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
		If  waitAckPay = 0 Then 

			Var waitAckPay = 0 
			Var Timeout = 0

			Var ProcessText = "" 

			If TNumberTaobinCredit = "" Then
				Var TelephoneNumber = "0899999999"
				Var PayO2 = ""

				If TNumberTaobinMember = "" Then
				Else
					Var TelephoneNumber = TNumberTaobinMember
				EndIf
				
			Else
				Var TelephoneNumber = TNumberTaobinCredit
				Var PayO2 = CoffeePinNumber
			EndIf


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

			Var PayDetail = "1/" + HURR_FOREVER
			Var PayDetail = PayDetail + "/"  
			Var PayDetail = PayDetail + SAMESALARY
			Var PayDetail = PayDetail + "/"
			Var PayDetail = PayDetail + NOBONUS

			
 			;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 CodeChannel = 1 
				Var VendingCode = "C48"
				Var CodeNumber = "0000000000"
			EndIf

			If PayWithQR = 0 Then
				If CodeChannel = 1 Then
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + CodeNumber
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + 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 + CodeNumber
					Var SessionID2 = SessionID2 + "/"

					Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
				Else
					If CodeChannel = 2 Then
						Var SessionID2 = SessionID2 + "/"
						Var SessionID2 = SessionID2 + ""
						Var SessionID2 = SessionID2 + "/"
						Var SessionID2 = SessionID2 + 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 + CodeNumber
						Var SessionID2 = SessionID2 + "/"

						Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
					Else
						
						Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
					EndIf

				EndIf

			
			Else

				;no wait ack pay
				Var waitAckPay = 0 

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

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

				PAYEXT SVT ACC VendingTSIDTmp DEE

			EndIf
			
		EndIf

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

	EndIf

	If MachineState_Result = 2 Then
		If ErrTimeout = 0 Then
			Var ErrTimeout = 1


			If PayWithQR = 0 Then 
				If CodeChannel = 0 Then
					If ChangeFlag = 0 Then
						Var ChangeFlag = 1 

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

				Else

					If CoinAmount > 0 Then
					
						If ChangeFlag = 0 Then
							Var ChangeFlag = 1 
							Var ServiceAmount3 = ServiceAmount2 - IntVendingCampaign

							If StoreCreditFlag = 1 Then
								Var ChangeOK = 2
							Else
								Change ServiceAmount3
							EndIf
							
						EndIf
					Else
						Var ChangeOK = 2
					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/test_video_loop.xml"

			;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
			
		EndIf
	EndIf


	If MachineStage = "show-menu" Then
		Open "ROOT/taobin_project/xml/page_drinkok.xml" 
	EndIf
	
	If MachineStage = "close-maintenance" Then
		SAVELOG "back_to_main from line  > 488."
		Open "ROOT/taobin_project/xml/page_drinkfail2.xml" 
	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
			Var MachineState_Result = 2
		EndIf
	EndIf

	DEBUGVAR CountUpBrewing
	; animation video loop
	If AnimationOn = "true" Then
		Var CountUpBrewing = CountUpBrewing + 1

		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


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

	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

	If MachineStage = "drink-failed" Then
		If RoadShow = "true" Then
			Open "ROOT/taobin_project/xml/page_back_to_error.xml"
		Else
			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>

<Video>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080</Width>
<Height> 840 </Height>
<Refresh> "Reload" </Refresh>
<Loop> "true" </Loop>
<Filename> VideoPlayFile </Filename>
</Video>

;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>

<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>


<Image>
<X> 60 </X>
<Y> 1290 </Y>
<Filename> PictureFile</Filename>
</Image>

<Image>
<X> 60 </X>
<Y> 1649 </Y>
<Filename> BottomText </Filename>
</Image>


;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> "ROOT/taobin_project/image/page_doing/img2.png" </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>

;<Text>
;<X> 100 </X>
;<Y> 470 </Y>
;<Align> End </Align>
;<Width> 153 </Width>
;<Size> 30 </Size>
;<Font> RobotoBold </Font>
;<Color> 0x513C2F </Color>
;<Value> MachineStage </Value>
;</Text>
;


;<Text>
;<X> 0 </X>
;<Y> 1880 </Y>
;<Size> 30 </Size>
;<Align> Center </Align>
;<Width> 1080 </Width>
;<Font> KanitThinTTF </Font>
;<Color> 0x513C2F </Color>
;<Value> MachineStage </Value>
;</Text>


;<Button>
;<X> 0 </X>
;<Y> 1860 </Y>
;<Width> 200 </Width>
;<Height> 50 </Height>
;<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
;<Volume> SoundVolume </Volume>
;<EventClick> 
;	Var countClick = countClick + 1
;	If countClick = 3 Then
;		
;	EndIf
;
;	If countClick = 5 Then
;		Var countClick = 0
;		MainMenu
;	EndIf
;	Refresh
;</EventClick>
;</Button>

<Button>
<X> 870 </X>
<Y> 1860 </Y>
<Width> 200 </Width>
<Height> 50 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var countClick2 = countClick2 + 1
	If countClick2 = 3 Then
		
	EndIf

	If countClick2 = 5 Then
		Var countClick2 = 0
		Var HaveCup = "true"
    	Var MachineStage = "drink-success"
	    Open "ROOT/taobin_project/xml/page_drinkok.xml" 
	EndIf
	Refresh
</EventClick>
</Button>
;
;<Text>
;<X> 0 </X>
;<Y> 1886 </Y>
;<Size> 20 </Size>
;<Width> 1080</Width>
;<Align> Start </Align>
;<Font> KanitThinTTF </Font>
;<Color> 0x513C2F </Color>
;<Value> countClick </Value>
;</Text>
;<Text>
;<X> 0 </X>
;<Y> 1886 </Y>
;<Size> 20 </Size>
;<Width> 1080</Width>
;<Align> end </Align>
;<Font> KanitThinTTF </Font>
;<Color> 0x513C2F </Color>
;<Value> countClick2 </Value>
;</Text>

</Popup>