taobin_project/xml/page_thankyou.xml

<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 = 3
	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 ChangeFlag2 = 0

	Var GotoStoreCredit0 = 0
	Var StoreCreditAmount = 0

	Var buttonRemoveCup = "Invisible"

	Var MachineState_Result = 0

	Var FailedCount = 0
	Var ChangeAmountSum = 0
	
	Var Tel_Confirm_Flag = 0

	Var TimeoutToNext = 3

	DEBUGVAR Seeker

	If Seeker = "curr" Then
		Var LastMakeDrinkResult = "-"
	EndIf
	
		

	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 DirImage = "ROOT/taobin_project/image/page_thankyou_en"
	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 DirImage = "ROOT/taobin_project/image/page_thankyou"
	EndIf

	DEBUGVAR StarwState
	DEBUGVAR LidState
	DEBUGVAR BottomText

	If StarwState = "Press" Then
		Machine StrawWithDelay
		LED LedDoorLid Blink 255 255 255 255
	EndIf
	If LidState = "Press" Then
		Machine LidWithDelay
		LED LedDoorLid Blink 255 255 255 255
	EndIf


	DEBUGVAR Seeker.TNumberTaobinCredit
	DEBUGVAR TelephoneNumber
	DEBUGVAR Seeker.StoreCreditFlag

	If Seeker = "next" Then
		Var NextOrder = "true"
	EndIf
 

	If VendingCreditRemain = "" Then
		Var RemainCreditST = "Invisible"
	Else
		Var RemainCreditST = "Enable"

		Var VendingCreditRemainx = VendingCreditRemain

		INT VendingCreditRemainx
		Var VendingCreditRemain !assigned StringFmt( VendingCreditRemainx, DisplayFormat, PreScaleConvertShow )
	EndIf

	Var SaveTheWorldST = "Invisible"
	Var SaveTheWorldCount = 0

	If Seeker.thankLidFlag = 0 Then
		Var SaveTheWorldCount = SaveTheWorldCount + 1
	EndIf

	If Seeker.thankStrawFlag = 0 Then
		Var SaveTheWorldCount = SaveTheWorldCount + 1
	EndIf

	DEBUGVAR LedLidBlink
	DEBUGVAR SaveTheWorldCount

	If SaveTheWorldCount = 2 Then
	
		If LedLidBlink = "no" Then
			Var SaveTheWorldST = "Enable"
		EndIf

		Var video_id_to_ran = 3
		Var video_name_to_play = "taobin_save_world"
		
		If new_layout = "true" Then
			Random2 1 3 video_id_to_ran
		Else
			Random video_id_to_ran
		EndIf

		Var ThankyouST = "Invisible"
	Else

		Var video_id_to_ran = 2
		Var video_name_to_play = "taobin_thank"
		
		If new_layout = "true" Then
			Random2 1 2 video_id_to_ran
		Else
			Random video_id_to_ran
		EndIf


		
		Var ThankyouST = "Enable"
	EndIf


	DEBUGVAR video_id_to_ran

	Var show_video = 1
	Var SaveTheWorldST = "Invisible" 
	Var video_file_name = "ROOT/taobin_project/video/" + video_name_to_play 
	Var video_file_name = video_file_name + video_id_to_ran 
	Var video_file_name = video_file_name + ".mp4" 

	If SaveTheWorldCount < 2  Then

		TRY "/mnt/sdcard/coffeevending/taobin_project/video/script2.ev"

	EndIf
	


	DEBUGVAR video_file_name
	
	Var VideoFileNameStage = "Enable"
	Var TimeoutToNext = 5
	Var ThankyouST = "Invisible"

	Var remainCredit = "/remainCredit.png"

    If CountryName = "Malaysia" Then
		Var remainCredit = "/remainCredit-MYR.png"
	EndIf

	If CountryName = "Indonesia" Then
		Var remainCredit = "/remainCredit-IDR.png"
	EndIf 

	

</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout> 
	Var CountDownBrewing = CountDownBrewing - 1
	;Var CountDownThankyou = CountDownThankyou - 1

	Var Timeout = Timeout + 1 
	If Timeout = TimeoutToNext Then

		If 	CART_INDEX = 0  Then   
		Else
			;Cart "MakeID" CART_INDEX
		EndIf
		
		 If Seeker.PayWithQR = 0 Then
            If Seeker.FreeVendingCampaign = 0 Then


					If Seeker.CreditCard = 1 Then

						DEBUGVAR CoinAmount
					
						If CoinAmount > 0 Then
							DEBUGVAR "Change Canout"
							Change CoinAmount	
                            Var ChangeFlag2 = 1
						EndIf

					Else

						If Seeker.IntVendingCampaign < PayAmount Then 
							Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign
							Var SumCoinAmount = SumCoinAmount + Seeker.IntVendingCredit

							If SumCoinAmount >= PayAmount Then 
								Var Canout = SumCoinAmount - PayAmount
								If Canout > 0 Then
									
										;Change Canout	
										;Var ChangeFlag2 = 1
										Var GotoStoreCredit0 = 1
										Var StoreCreditAmount = Canout
									
								EndIf
							EndIf
						EndIf

					EndIf



                   
            Else

                    Var Canout = CoinAmount
                    If Canout > 0 Then
                        ;Change Canout	
                        ;Var ChangeFlag2 = 1
						Var GotoStoreCredit0 = 1
						Var StoreCreditAmount = Canout
                    EndIf

            EndIf
        Else

            Var Canout = CoinAmount
            If Canout > 0 Then
                ;Change Canout	
                ;Var ChangeFlag2 = 1
				Var GotoStoreCredit0 = 1
				Var StoreCreditAmount = Canout
            EndIf

        EndIf

		Var CountDownThankyou = 0
		
	EndIf


	; run test;
	If CountDownThankyou = 0 Then 
		
		If IgnoreNetCore = "true" Then 
			Open "ROOT/taobin_project/xml/page_lid_straw.xml"  
		EndIf

		If TestLoopMakeDrink = 1 Then 
			Open "ROOT/taobin_project/xml/page_brewing_test_loop.xml"  
		EndIf

		Var CountDownBrewing = BrewTime
		Var CountUpBrewing = 0
		SAVELOG BrewTime
		Var ShowCountDownBrewing = CountDownBrewing

		If RoadShow = "true" Then
			Open "ROOT/taobin_project/xml/page_lid_straw.xml"  
		Else

			Var Seeker.OrderChanel = Seeker.OrderChanel + ":"
			Var Seeker.OrderChanel = Seeker.OrderChanel + Seeker.CampaignPayChanel
			Var Seeker.OrderChanel = Seeker.OrderChanel + ":"
			Var Seeker.OrderChanel = Seeker.OrderChanel + Seeker

			If Seeker.PayWithQR = 0 Then
				Var ServiceAmount2 = Seeker.ServiceAmount2
				Var SessionID2 = SelectSlot + ":"
				Var SessionID2 = SessionID2 + ExtendData
				If Seeker.TNumberTaobinCredit = "" Then
					Var TelephoneNumber = "0899999999"
					Var PayO2 = ""
				Else
					Var TelephoneNumber = Seeker.TNumberTaobinCredit
					Var PayO2 = Seeker.CoffeePinNumber
				EndIf
				Var ServiceType = "coffee"
				Var ServiceCredit = SelectDrink
				Var SuggestID  = ""

				Var PdpaAccept = 0
				Var CreditReference = Seeker.CreditReferenceTmp
				Var VendingDiscount = Seeker.VendingDiscount
				Var VendingCampaign = Seeker.VendingCampaign


				Var PayDetail = "2/F:1311/0//XML|" +  Seeker.OrderChanel
				Var PayType = ""
				Var Seeker.TxRef1 = TxRef1

				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 + "/"

					UpdateTxRef1 TxRef1  ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail
				Else
					DEBUGVAR TxRef1
					UpdateTxRef1 TxRef1  ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail
				EndIf
			EndIf

			If PayOfflineMode = 1 Then

				If StoreCreditAmount > 0 Then

					Change StoreCreditAmount	
        			Var ChangeFlag2 = 1
					

				EndIf

				If 	CART_INDEX >= 2  Then   
					Open "ROOT/taobin_project/xml/page_lid_straw.xml"  
				EndIf

				Open "ROOT/taobin_project/xml/page_collect_point_1.xml" 

			Else
				If Seeker.StoreCreditFlag = 1 Then

					Var Seeker.CurrCreditAmount = StoreCreditAmount
					Var Seeker.CurrCreditTelNum = Seeker.TNumberTaobinCredit
					Var Seeker.CurrCreditPinNum = Seeker.CoffeePinNumber

					DEBUGVAR Seeker.CurrCreditAmount

					If Seeker.FreeVendingCampaign = 1 Then
						Open "ROOT/taobin_project/xml/page_lid_straw.xml"  
					Else
						If 	CART_INDEX >= 2  Then   
							Open "ROOT/taobin_project/xml/page_lid_straw.xml"  
						EndIf

						Open "ROOT/taobin_project/xml/page_collect_point_1.xml" 
					EndIf
				Else
					If GotoStoreCredit0 = 1 Then
						Open "ROOT/taobin_project/xml/page_payment_storeCredit0.xml" 
					Else
						If Seeker.FreeVendingCampaign = 1 Then

							If ChildrenFree = 1 Then
								Open "ROOT/taobin_project/xml/page_collect_point_1.xml" 
							EndIf

							Open "ROOT/taobin_project/xml/page_lid_straw.xml"  
						Else
							If 	CART_INDEX >= 2  Then   
								Open "ROOT/taobin_project/xml/page_lid_straw.xml"  
							EndIf
							Open "ROOT/taobin_project/xml/page_collect_point_1.xml" 
						EndIf
					EndIf
					
				EndIf
			EndIf
		EndIf
		 
	EndIf

	Var ShowCountDownBrewing = CountDownBrewing
	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> 392 </Y>
<Width> 1080</Width>
<Height> 1528 </Height>
<State>VideoFileNameStage</State>
<Filename> video_file_name </Filename>
</Video>



<Image>
<X> 89 </X>
<Y> 700 </Y>
<State>ThankyouST</State>
<Filename> "ROOT/taobin_project/image/page_thankyou/img1.png" </Filename>
</Image>

<Image>
<X> 0 </X>
<Y> 0 </Y>
<State>SaveTheWorldST</State>
<Filename> "ROOT/taobin_project/image/page_thankyou/img3.png" </Filename>
</Image>

<Image>
<X> 760 </X>
<Y> 413 </Y>
<State>RemainCreditST</State>
<Filename> Var( DirImage + remainCredit ) </Filename>
</Image>

<Text>
<X> 760 </X>
<Y> 480 </Y>
<Size> 60 </Size>
<Width> 413</Width>
<Align> Center </Align>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> VendingCreditRemain </Value>
</Text>

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


;<Image>
;<X> 751 </X>
;<Y> 413 </Y>
;<Filename> page_doing_show_time_image </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>

<EventChangeStatus>
	If ChangeStatus = "payout-end" Then 
	
	EndIf
</EventChangeStatus>


</Popup>