<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>
	; On open
	Var CountDownThankyou = 4
	Var CountDownBrewing = BrewTime
	Var CountUpBrewing = 0
	SAVELOG BrewTime
	Var ShowCountDownBrewing = CountDownBrewing
	Var Timeout = 0
	Var ChangeFlag = 0
	Var ErrTimeout = 0
	Var ActionOKCase = 0
	Var ChangeTimeout = 0
	Var ChangeOK = 0
	
	Var MachineState_Result = 0

	Var FailedCount = 0
	Var ChangeAmountSum = 0
	
	Var Tel_Confirm_Flag = 0
	Var LastMakeDrinkResult = "-"
	
	DEBUGVAR MachineStage
	DEBUGVAR NextOrderStatus

	If show_eng = "true" Then 
		Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png" 
		Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
		Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"

		Var BottomText = PicturePath + "text_bottom_eng.png"
        Var TextErrorShow = "Sorry, unable to produce the next order"
	Else
		Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png" 
		Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
		Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
		Var BottomText = PicturePath + "text_bottom_thai2.png"

        Var TextErrorShow = "เต่าบินขัดข้องไม่สามารถทำเครื่องดื่มได้"
	EndIf

	DEBUGVAR StarwState
	DEBUGVAR LidState
	DEBUGVAR BottomText

	DEBUGVAR Seeker.TNumberTaobinCredit
	DEBUGVAR TelephoneNumber
	DEBUGVAR Seeker.StoreCreditFlag


	DEBUGVAR Seeker
	DEBUGVAR Seeker.selected_a_drink
	DEBUGVAR Seeker.ServiceAmount2


    If Seeker = "curr" Then
    	SAVELOG " cannot on curr"
    	
		Var ExtendData = Seeker.ExtendData
		Var SessionID2 = SelectSlot + ":"
		Var SessionID2 = SessionID2 + Seeker.ExtendData
		
		DEBUGVAR SessionID2

		Topping "ClearNextOrder" "-"
	EndIf

    Var LastMakeDrinkResult = "fail"
    Var NextOrderStatus = "Disable"

	DEBUGVAR LastMakeDrinkResult
	DEBUGVAR MachineStage
	DEBUGVAR NextOrderStatus

	DEBUGVAR error_code_stop_now

    ; page_brewing3.xml
    DEBUGVAR MachineStage

    Var PayReference = ""
	Var PayType = ""
    

	Var SelectDrink = Seeker.selected_a_drink
	Var ServiceAmount2 = Seeker.ServiceAmount2


	; On open move from page_brewing3.xml
	Var countClick2 = 0

	Var Timeout = 0

	Var PrintCoinAmount = 0

	Var waitAckPay = 0
	Var VendingTSIDTmp = ""
	Var VendingTSIDProblem = ""
	Var CreditReference = ""
	Var PayCredit = 0

	
	If Seeker.PayWithQR = 1 Then
		Var VendingTSIDTmp = Seeker.VendingTSID

		If Seeker.TNumberTaobinCredit = "" Then
			Var TelephoneNumber = "0899999999"
			Var PayO2 = ""
		Else
			Var TelephoneNumber = Seeker.TNumberTaobinCredit
			Var PayO2 = Seeker.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 Seeker.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 Seeker.TNumberTaobinCredit = "" Then

		If Seeker.TNumberTaobinMember = "" Then
			Var TelephoneNumberProblem = ""
		Else
			Var TelephoneNumberProblem = Seeker.TNumberTaobinMember
		EndIf
				
	Else
		Var TelephoneNumberProblem = Seeker.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

	Var AddData = 0

	If Seeker.TNumberTaobinMember = "" Then

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


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

	Var CreditReference = Seeker.CreditReferenceTmp
	Var VendingDiscount = Seeker.VendingDiscount
	Var VendingCampaign = Seeker.VendingCampaign
	Var TxReference = Seeker.TxRef1
	DEBUGVAR TxReference


	If show_eng = "true" Then 
		Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
		Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
	Else
		Var DirImage = "ROOT/taobin_project/image/page_payment"
		Var DirImage2 = "ROOT/taobin_project/image/topping2"
	EndIf

	DEBUGVAR show_eng 


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

	If LastMakeDrinkResult = "fail" Then
			Var MachineState_Result = 2
	EndIf


	DEBUGVAR VendingCampaign

	Var CreditCardVoid = 0


</EventOpen>

<EventActionOk>

	If CreditCardVoid = 1 Then
		Var ChangeOK = 2
	EndIf

	
	If ActionOKCase = 1 Then
		If Seeker.CodeChannel = 1 Then 
			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + Seeker.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 + 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

	
</EventActionOk>

<EventActionError>
   If ActionOKCase = 1 Then
		If Seeker.CodeChannel = 1 Then 
			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + Seeker.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 + 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> 

	
	Var Timeout = Timeout + 1

	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 = 2 Then  
		If Timeout > 10 Then

			If Seeker.CodeChannel = 1 Then 
				Var SessionID2 = SelectSlot + ":"
				Var SessionID2 = SessionID2 + Seeker.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 + 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="1/F:1221/0/"
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
			Else
				DEBUGVAR error_code_stop_now

				If error_code_stop_now > 0 Then
					Var PayDetail="1/F:" + error_code_stop_now
					Var PayDetail = PayDetail + "/0/"
					Var PayDetail = PayDetail + "/XML|"
					Var PayDetail = PayDetail +  Seeker.OrderChanel
				Else


					Var PayDetail = "1/" + HURR_FOREVER
					Var PayDetail = PayDetail + "/"  
					Var PayDetail = PayDetail + ""
					Var PayDetail = PayDetail + "/"
					Var PayDetail = PayDetail + ""
					Var PayDetail = PayDetail + "/XML|"
					Var PayDetail = PayDetail +  Seeker.OrderChanel
				EndIf
			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

		EndIf
	EndIf

	If  ChangeTimeout > 30 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="1/F:1221/0/"	
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
			Else
				DEBUGVAR error_code_stop_now
				If error_code_stop_now > 0 Then
					Var PayDetail="1/F:" + error_code_stop_now
					Var PayDetail = PayDetail + "/0/"
					Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
				Else


					Var PayDetail = "1/" + HURR_FOREVER
					Var PayDetail = PayDetail + "/"  
					Var PayDetail = PayDetail + ""
					Var PayDetail = PayDetail + "/"
					Var PayDetail = PayDetail + ""
					Var PayDetail = PayDetail + "/XML|"
					Var PayDetail = PayDetail +  Seeker.OrderChanel
				EndIf
			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

		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="1/F:1221/0/"
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
				
			Else
				DEBUGVAR error_code_stop_now
				If error_code_stop_now > 0 Then
					Var PayDetail="1/F:" + error_code_stop_now
					Var PayDetail = PayDetail + "/0/"
					Var PayDetail = PayDetail + "/XML|"
					Var PayDetail = PayDetail +  Seeker.OrderChanel
				Else


					Var PayDetail = "1/" + HURR_FOREVER
					Var PayDetail = PayDetail + "/"  
					Var PayDetail = PayDetail + ""
					Var PayDetail = PayDetail + "/"
					Var PayDetail = PayDetail + ""
					Var PayDetail = PayDetail + "/XML|"
					Var PayDetail = PayDetail +  Seeker.OrderChanel

				EndIf
				
			EndIf


			Var DEE = PayDetail

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

		SAVELOG MachineStage

		If ErrTimeout = 0 Then
			Var ErrTimeout = 1

			If AddData = 1 Then
				AddData Cid Seeker.TNumberTaobinMember  BmiYear PointCrm GetScore
			EndIf


			If Seeker.PayWithQR = 0 Then 

				If Seeker.CreditCard = 1 Then
					CashlessReq FAIL
					Var ChangeFlag = 1 
					Var CreditCardVoid = 1
				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 = "MKFO" Then
							Var Cid = 29
    						Var PointCrm = "2"
    						Var GetScore = "1"
							Var TelephoneNumberx = "0899999999"
							AddData Cid TelephoneNumberx  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

			
		EndIf
	EndIf

	
	Refresh
	TimerReset

</EventTimeout> 


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

<Text>
<X> 0 </X>
<Y> 427 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 46 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TextErrorShow </Value>
</Text>


<Image>
<X> 375 </X>
<Y> 623 </Y>
<Width> 331 </Width>
<Height> 435 </Height>
<Filename> Seeker.PictureDrink </Filename>
</Image>

<Text>
<X> 0 </X>
<Y> 938 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> Seeker.showname </Value>
</Text>

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


</Popup>