<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
;	Var LastMakeDrinkResult = "-"
;	Var MachineState_Result = 2
	Var SpiralPickDrink = "Invisible"
	Var Timeout = 0
	Var waitAckPay = 0
	Var MultiGo = 0

	If show_eng = "true" Then 	
		Var DirImage = "ROOT/taobin_project/image/complete_en/text_bottom.png"
	Else
		Var DirImage = "ROOT/taobin_project/image/complete/text_bottom.png"
	EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout> 
	

	DEBUGVAR LastMakeSpiralResult
	DEBUGVAR LastMakeDrinkResult
	DEBUGVAR MachineState_Result
	DEBUGVAR MachineStage	
	DEBUGVAR waitAckPay
	DEBUGVAR Timeout	
	DEBUGVAR sendPayMultiFlag
	DEBUGVAR SaveCoinAmount
	DEBUGVAR MultiGo
	DEBUGVAR PriceDrinkTopping
	DEBUGVAR VendingCampaign	
	DEBUGVAR Seeker.VendingCampaign
	DEBUGVAR SessionID2

	If MachineStage = "pickup-cup" Then
		Var SpiralPickDrink = "Enable"
	Else
		Var SpiralPickDrink = "Invisible"	
	EndIf

If Seeker.thankToppingFlag = 1 Then
	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 EnableSelectMenuBetweenBrew = "Invisible"
	EndIf

	If MultiGo = 0 Then
		If 	MachineState_Result = 2  Then 
			If SaveCoinAmount > 0 Then
				If LastMakeSpiralResult = 1 Then
					Var MultiGo = 2
				Else
					Change PriceDrinkTopping
					Var MultiGo = 1
				EndIf
			Else
				Var MultiGo = 2
			EndIf
		EndIf
	EndIf


	If LastMakeDrinkResult = "success" Then
		Var MachineState_Result = 1
	EndIf

	If MultiGo = 2 Then
		If  waitAckPay = 0 Then 
			If MachineState_Result = 2 Then
				Var  waitAckPay = 1 
				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 Seeker.thankToppingFlag = 1 Then
					If SpiralCodeOk = 1 Then
						If Seeker.VendingCampaign >= PayAmount Then
							If MachineState_Result = 2 Then
								Var VendingCampaign = 0
							Else
								Var VendingCampaign = 0
								;Var VendingCampaign = Seeker.VendingCampaign - PriceDrinkTopping
							EndIf
						EndIf
					EndIf
				EndIf


				Var PayDetail="1/F:1221/0/"
				Var ServiceType = "coffee"

				Var SuggestID  = ""
				Var SessionID2 = ""
				Var ServiceCredit = SelectDrink

				DEBUGVAR CART3_PRICE
				DEBUGVAR ServiceAmountSum


				Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate

				If Seeker.PayWithQR = 0 Then 
					If Seeker.CodeChannel = 0 Then
							If Seeker.StoreCreditFlag = 1 Then

							Else	
								Var ChangeAmountSum = ChangeAmountSum + ServiceAmount2
								;Var MultiGo = 0		
							EndIf
					EndIf
				EndIf
			EndIf	
		EndIf
	EndIf


	If MachineState_Result = 1 Then
		DEBUGVAR PaySuccessWithDaemonTask

		If  waitAckPay = 0 Then 

			Var waitAckPay = 1 
			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


			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

			If Seeker.thankToppingFlag = 1 Then
				If SpiralCodeOk = 1 Then
					If Seeker.VendingCampaign >= PayAmount Then
						Var VendingCampaign = 0
						;Var VendingCampaign = Seeker.VendingCampaign - PriceDrink
					EndIf
				EndIf
			EndIf

			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 + Seeker.CodeNumber
					;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
					
							CashlessReq SUCCESS
							;CashlessReq FAIL

					EndIf

					If SessionID2 = "2:00000" Then
						Var SessionID2 = "1:00000"
					EndIf

					Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate
				Else
					
						If Seeker.CreditCard = 1 Then
					
							CashlessReq SUCCESS
							;CashlessReq FAIL

						EndIf

					If SessionID2 = "2:00000" Then
						Var SessionID2 = "1:00000"
					EndIf

						Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate
						

				EndIf

			
			Else

				;no wait ack pay
				Var waitAckPay = 1

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

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

				;PAYEXT SVT ACC VendingTSIDTmp DEE

				If SessionID2 = "2:00000" Then
					Var SessionID2 = "1:00000"
				EndIf

				Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate

			EndIf
			
		EndIf

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


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

	EndIf


	If sendPayMultiFlag = 0 Then
		If waitAckPay = 1 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 ServiceType = "coffee-multi"

				Var ServiceCredit = "00-00-00-0000"
				Var SuggestID  = ""

				If LastMakeSpiralResult = 1 Then
					Var PayDetail="1/S:0/0/"
				Else
					Var PayDetail="1/F:0/0/"
				EndIf


				Var CART_COUNT = "2"
				Var SessionID3 = "" + CART_COUNT
				Var SessionID3 = SessionID3 + ":00000"
				If SpiralCodeOk = 1 Then
					Var SessionID3 = SessionID3 + "/"
					Var SessionID3 = SessionID3 + Seeker.CodeNumber
					Var SessionID3 = SessionID3 + "/"
					Var SessionID3 = SessionID3 + Seeker.VendingCode
					Var SessionID3 = SessionID3 + "/"
					Var SessionID3 = SessionID3 + ServiceCredit
					Var SessionID3 = SessionID3 + "/"
					Var SessionID3 = SessionID3 + BoxID
					Var SessionID3 = SessionID3 + "/"
					Var SessionID3 = SessionID3 + "S"
					Var SessionID3 = SessionID3 + "/"
					Var SessionID3 = SessionID3 + Seeker.CodeNumber
					Var SessionID3 = SessionID3 + "/"
				EndIf

				
				SAVELOG PayO2

				Var VendingCampaign = IntVendingCampaign
				Var CreditReference = Seeker.CreditReferenceTmp

				If LastMakeSpiralResult = 2 Then
					Var ServiceAmountSum = ServiceAmountSum - PriceDrink
					If Seeker.thankToppingFlag = 1 Then
						If SpiralCodeOk = 1 Then
							If Seeker.VendingCampaign >= PayAmount Then
								Var VendingCampaign = Seeker.VendingCampaign - PriceDrink
							EndIf
						EndIf
					EndIf	
				Else
					Var VendingCampaign = Seeker.VendingCampaign
				EndIf
				If MachineState_Result = 2 Then
					Var ServiceAmountSum = ServiceAmountSum
				;	Var ServiceAmountSum = ServiceAmountSum - PriceDrinkTopping
					If Seeker.thankToppingFlag = 1 Then
						If SpiralCodeOk = 1 Then
							If Seeker.VendingCampaign >= PayAmount Then
								Var VendingCampaign = VendingCampaign - PriceDrinkTopping
							EndIf
						EndIf
					EndIf
				EndIf


				Var PayType = ""
				Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 ServiceAmountSum ServiceCharge Donate

				If Seeker.PayWithQR = 1 Then
					Var SVT = "coffee-multi"
					
					If Seeker.TNumberTaobinCredit = "" Then
						Var TelephoneNumber = "0899999999"
						If Seeker.TNumberTaobinMember = "" Then
						Else
							Var TelephoneNumber = Seeker.TNumberTaobinMember
						EndIf
					Else
						Var TelephoneNumber = Seeker.TNumberTaobinCredit
					EndIf


					Var DEE = PayDetail

					PAYEXT SVT TelephoneNumber Seeker.VendingTSID DEE
				EndIf

				Var sendPayMultiFlag = 1
		EndIf
	EndIf
EndIf
		DEBUGVAR ServiceType
		DEBUGVAR SessionID3
		DEBUGVAR sendPayMultiFlag

	Var Timeout = Timeout + 1

	If Timeout > 180 Then
		SAVELOG " Timeout > 180"
		Var MachineState_Result = 2
		Var MultiGo = 2
	EndIf
	

	If Timeout >= 200 Then
		Open "ROOT/taobin_project/xml/page_back_to_main.xml" 
	EndIf

	If  sendPayMultiFlag = 1 Then
		If MachineState_Result = 1 Then
			If Timeout >= 5 Then
				If MachineStage = "remove-cup" Then
					Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
				EndIf
				If MachineStage = "close-maintenance" Then
					Open "ROOT/taobin_project/xml/page_back_to_main.xml" 
				EndIf
				If MachineStage = "show-menu" Then
					Open "ROOT/taobin_project/xml/page_back_to_main.xml" 
				EndIf
			EndIf
		EndIf
	EndIf

	If  sendPayMultiFlag = 1 Then
		If MachineState_Result = 2 Then
			If Timeout >= 5 Then
				If MachineStage = "remove-cup" Then
					Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
				EndIf
				If MachineStage = "close-maintenance" Then
					Open "ROOT/taobin_project/xml/page_back_to_main.xml" 
				EndIf
				If MachineStage = "show-menu" Then
					Open "ROOT/taobin_project/xml/page_back_to_main.xml" 
				EndIf
			EndIf
		EndIf
	EndIf

	Refresh
	TimerReset

</EventTimeout>

<EventChangeStatus>
	If MultiGo = 1 Then
		If ChangeStatus = "payout-end" Then 
			Var MultiGo = 2
		EndIf
	EndIf
</EventChangeStatus>

<Video>
<X> 0 </X>
<Y> 600 </Y>
<Width> 1080</Width>
<Height> 840 </Height>
<Refresh> "Reload" </Refresh>
<Loop> "true" </Loop>
<Filename> "ROOT/taobin_project/spiral/video/sp02.mp4" </Filename>
</Video>

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

<Image>
<X> 0 </X>
<Y> 1518 </Y>
<State> SpiralPickDrink </State>
<Filename> DirImage </Filename>
</Image>


</Popup>