taobin_project/xml/page_drinkok.xml

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Sound> "ROOT/sounds/Ding-dong.wav" </Sound>
<EventOpen>
	DEBUGVAR StarwState
	DEBUGVAR LidState

	Var buttonRemoveCup = "Invisible"
			
	If show_eng = "true" Then 
		Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
	Else
		Var DirImage2 = "ROOT/taobin_project/image/topping2"
	EndIf

	Var bg_strawlid_ST = "Enable"
	Var bg_strawProblem_ST = "Invisible"
	Var bg_strawProblem_Y = 1470
	Var bg_strawProblem = DirImage2 + "/bg_strawProblem.png"
	Var straw_problem_flag = 0

	If Seeker.strawAction = 1 Then
		Machine Straw
		;Var bg_strawlid = DirImage2 + "/bg_strawProblem.png"
		Var bg_strawProblem_ST = "Enable"


		If  Seeker.lidAction = 0 Then 
		Else
			Var bg_strawProblem_Y = 1680
			Var bg_strawlid_ST = "Invisible"
			Var LidStateX = "Invisible"
			Var StrawStateX = "Invisible"
		EndIf
	EndIf

	If  Seeker.lidAction = 1 Then
		Machine Lid
		
	EndIf

	Var ExtendData = Seeker.ExtendData

	; On open
	Var LidState = "Enable"
	Var StarwState = "Enable"
	Var videoEnd = 0

	If show_eng = "true" Then 
		Var DirImage = "ROOT/taobin_project/image/complete_en/"

	Else
		Var DirImage = "ROOT/taobin_project/image/complete/"
	EndIf

	Var VideoPlayFile = VideoPath
	Var VideoPlayFile = VideoPlayFile + VideoFileBegin
	Var VideoPlayFile = VideoPlayFile + "24"
	Var VideoPlayFile = VideoPlayFile + VideoFileEnd
	Var Timeout = 0
	Var Timeout2 = 0

	StopLongPlay

	;Var show_eng = "false"	


	Var sendPayMultiFlag = 0
	Var next_pic = ""
	Var next_name = ""
	Var nextCount = ""
	Var next_pic_bg = ""


	Var BlinkImg = 0
	Var txtDrinkOKState = "Invisible"


	If show_eng = "true" Then 
		If CART_COUNT > 0 Then
			If 	CART_INDEX < CART_COUNT  Then   

				Var next_pic_bg = DirImage + "/Preparing.png"
				Var BlinkImg = 1
				Var txtDrinkOKState = "Enable"

				Var cart_next = CART_INDEX + 1 
				Var nextCount = "" + cart_next
				Var nextCount = nextCount + "/"
				Var nextCount = nextCount + CART_COUNT

				If cart_next = 2 Then
					Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE
					Var next_name = CART2_NAME_ENG
					
				EndIf

				If cart_next = 3 Then
					Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE
					Var next_name = CART3_NAME_ENG
				
				EndIf
			EndIf

		EndIf


	Else

		If CART_COUNT > 0 Then
			If 	CART_INDEX < CART_COUNT  Then   

				Var next_pic_bg = DirImage + "/Preparing.png"
				Var BlinkImg = 1
				Var txtDrinkOKState = "Enable"

				Var cart_next = CART_INDEX + 1 
				Var nextCount = "" + cart_next
				Var nextCount = nextCount + "/"
				Var nextCount = nextCount + CART_COUNT

				If cart_next = 2 Then
					Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE
					Var next_name = CART2_NAME_THAI
					
				EndIf

				If cart_next = 3 Then
					Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE
					Var next_name = CART3_NAME_THAI
				
				EndIf
			EndIf

		EndIf

	EndIf


	Var MultiGo = 1 


		If CART_COUNT = 0 Then
			Var sendPayMultiFlag = 1
		Else

			If 	CART_INDEX = CART_COUNT  Then  
				If ChangeAmountSum > 0 Then
					Change ChangeAmountSum
					Var MultiGo = 0 
				EndIf
			EndIf
			
		EndIf 
	
	Var bg_strawlid_ST = "Invisible"
	Var bg_strawProblem_ST = "Invisible"
	Var StrawStateX = "Invisible"
	Var LidStateX = "Invisible"

	LED LedDoorCup 1 255 255 255 255

	Var DelayButton = 0



</EventOpen>
<Timeout> 500 </Timeout>
<EventTimeout> 

	DEBUGVAR LastMakeDrinkResult

	DEBUGVAR MachineStage
	DEBUGVAR CupOnArm
	DEBUGVAR buttonRemoveCup
	DEBUGVAR CART_COUNT


	DEBUGVAR HaveCup
	DEBUGVAR CHECKCUP
	DEBUGVAR CupChecking
	DEBUGVAR MaybeHaveCup
	DEBUGVAR NextOrder
	DEBUGVAR DoorCupPosition

	Var Timeout = Timeout + 1

	; Timeout 10*60*2
	If Timeout > 1200 Then
		SAVELOG "Timeout 1200"
		If  NextOrder = "true" Then
						
			Var NextOrder = "false"
			TransferVar "next" "curr"
			Var Seeker = "curr"
			SAVELOG "Make next order by take-cup with close-maintenance"
							
			Open "ROOT/taobin_project/xml/page_cannotConti.xml" 
					
		Else
			Open "ROOT/taobin_project/xml/page_back_to_main.xml"  
		EndIf 
	EndIf

	If Timeout > 30 Then
		Var MultiGo = 1 
	EndIf

	If BlinkImg = 1 Then
		Var next_pic_bg = DirImage + "/Preparing.png"
		Var BlinkImg = 2
	Else
		If BlinkImg = 2 Then
			Var next_pic_bg = DirImage + "/Preparing.png"
			Var BlinkImg = 1
		EndIf

	EndIf

	

	If MultiGo = 1 Then
		If 	CART_INDEX = CART_COUNT  Then  

				;Pay Multi
				If sendPayMultiFlag = 0 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 ServiceCredit = "00-00-00-0000"
					Var SuggestID  = ""
					Var PayDetail="1/S:0/0/"
					Var SessionID3 = "" + CART_COUNT
					Var SessionID3 = SessionID3 + ":00000"

					SAVELOG PayO2

					Var VendingCampaign = IntVendingCampaign
					Var CreditReference = Seeker.CreditReferenceTmp

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

	
	; Do not change 
	;
	If MachineStage = "show-menu" Then

		If 	CART_INDEX < CART_COUNT  Then   	
			
			If HaveCup = "false" Then
				If CupChecking = "false" Then

					Var CART_INDEX = CART_INDEX + 1
					Cart "PreparID" CART_INDEX
					Cart "MakeID" CART_INDEX
					Open "ROOT/taobin_project/xml/page_thankyouMore.xml"  

				EndIf
			Else

				If DoorCupPosition = "bottom" Then
					If HaveCup = "true" Then
						If MaybeHaveCup = "true" Then
							
						Else 
							If CupChecking = "true" Then
							
							Else 
								Var buttonRemoveCup = "Enable"
								Var txtDrinkOKState = "Enable"
							EndIf
						EndIf
					EndIf
					
					If CupOnArm = "true" Then
						If MaybeHaveCup = "true" Then
							
						Else 
							If CupChecking = "true" Then
							
							Else 
								Var buttonRemoveCup = "Enable"
								Var txtDrinkOKState = "Enable"
							EndIf
						EndIf
					EndIf
				Else
					Var buttonRemoveCup = "Invisible"
				EndIf

			EndIf

		Else
			If sendPayMultiFlag = 1 Then

				
				If DoorCupPosition = "bottom" Then
					If HaveCup = "true" Then
						If MaybeHaveCup = "true" Then
							
						Else 
							If CupChecking = "true" Then
							
							Else 
								Var buttonRemoveCup = "Enable"
								Var txtDrinkOKState = "Enable"
							EndIf
						EndIf
					EndIf
					
					If CupOnArm = "true" Then
						If MaybeHaveCup = "true" Then
							
						Else 
							If CupChecking = "true" Then
							
							Else 
								Var buttonRemoveCup = "Enable"
								Var txtDrinkOKState = "Enable"
							EndIf
						EndIf
					EndIf
				Else
					Var buttonRemoveCup = "Invisible"
				EndIf

				Var Seeker.TNumberTaobinMember = ""
				
				If FailedCount > 0 Then
					Open "ROOT/taobin_project/xml/page_drinkfail2.xml"  
				Else
					If  NextOrder = "true" Then

						; Fast-forward to page_cannotConti
						If RejectOrder = "true" Then
							; BEGIN
							Var NextOrder = "false"

							TransferVar "next" "curr"
							Var Seeker = "curr"
							
							SAVELOG "Make next order by RejectOrder"
							Open "ROOT/taobin_project/xml/page_cannotConti.xml"
							; END
						EndIf

						; next order set. Havecup and checkup value must false. Certain cup not on any arm.

					
						If HaveCup = "false" Then 
							If MaybeHaveCup = "true" Then

							Else
								If CupChecking = "true" Then
									
								Else
									If CupOnArm = "false" Then 
										
										If DoorCupPosition = "bottom" Then
											; BEGIN
											Var NextOrder = "false"

											TransferVar "next" "curr"
											Var Seeker = "curr"
											SAVELOG "Make next order by take-cup"
											Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
											; END

										Else 
											Machine DoorClose
										EndIf 
									EndIf
								EndIf
							EndIf
						EndIf
					Else
						Open "ROOT/taobin_project/xml/page_back_to_main.xml"  
					EndIf
				EndIf
			EndIf
		EndIf

	EndIf

	
	;
	
	If MachineStage = "remove-cup" Then
		If CART_COUNT = 0 Then
			If  NextOrder = "false" Then
				Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
			Else
				Var buttonRemoveCup = "Enable"
				Var txtDrinkOKState = "Enable"

				Var Timeout2 = Timeout2 + 1

				If Timeout2 > 15 Then
					Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/remove_cup.mp3" 
					Var Timeout2 = 0
				EndIf

			EndIf
		Else
	
			Var buttonRemoveCup = "Enable"
			Var txtDrinkOKState = "Enable"
		

			Var Timeout2 = Timeout2 + 1

			If Timeout2 > 15 Then
				Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/remove_cup.mp3" 
				Var Timeout2 = 0
			EndIf

		EndIf

	EndIf

	If Timeout = 5 Then
		If show_eng = "true" Then 
			Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw.mp3"
		Else
			Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3"
		EndIf
	EndIf



	If MachineStage = "close-maintenance" Then
		If stop_now = "true" Then
			If  NextOrder = "true" Then
						
				Var NextOrder = "false"
				TransferVar "next" "curr"
				Var Seeker = "curr"
				SAVELOG "Make next order by take-cup with close-maintenance"
								
				Open "ROOT/taobin_project/xml/page_cannotConti.xml" 
						
			Else
				Open "ROOT/taobin_project/xml/page_back_to_main.xml"  
			EndIf
		EndIf
	EndIf



	TimerReset
	Refresh

</EventTimeout> 

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

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



<Video>
<X> 0 </X>
<Y> 380 </Y>
<Refresh> "Reload" </Refresh>
<Loop> "true" </Loop>
<Filename> VideoPlayFile </Filename>
</Video>



<Image>
<X> 757 </X>
<Y> 424 </Y>
<Filename> next_pic_bg </Filename>
</Image>



<Image>
<X> 0 </X>
<Y> 1418 </Y>
<Filename> Var( DirImage + "text_bottom.png") </Filename>
</Image>


<Text>
<X> 757 </X>
<Y> 448 </Y>
<Size> 20 </Size>
<Width> 280</Width>
<Align> Center </Align>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> nextCount </Value>
</Text>

<Text>
<X> 757 </X>
<Y> 538 </Y>
<Size> 20 </Size>
<Width> 280</Width>
<Align> Center </Align>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> next_name </Value>
</Text>

<Image>
<X> 823 </X>
<Y> 600 </Y>
<Width> 148 </Width>
<Height> 200 </Height>
<Filename> next_pic </Filename>
</Image>

<Image>
<X> 77 </X>
<Y> 1378 </Y>
<State> txtDrinkOKState </State>
<Filename> Var( DirImage + "/txtDrinkOK.png" ) </Filename>
</Image>


<Button>
<X> 160 </X>
<Y> 1673 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> Var( DirImage + "/bn_open_door.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_open_door.png" ) </FilenamePress>
<EventClick> 
	Var buttonRemoveCup = "Invisible"
	Machine RemoveCup
	Machine DoorLidOpen
	Refresh
</EventClick>
</Button>

;500
;1180
<Button>
<X> 10 </X>
<Y> 1680 </Y>
<State>bg_strawlid_ST</State>
<Filename> bg_strawlid </Filename>
<EventClick> 

 

</EventClick> 
</Button>

<Button>
<X> 10 </X>
<Y> bg_strawProblem_Y </Y>
<State>bg_strawProblem_ST</State>
<Filename> bg_strawProblem </Filename>
<EventClick> 

	Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด"
	
	__CMD "straw-alert" 0 strawStr "-"
 	__CMD "send-error-code" 1231 "-" "-"
	Var bg_strawProblem_ST = "Invisible"

	Refresh
</EventClick> 
</Button>

; straw left
<Button>
<X> 50 </X>
<Y> 1752 </Y>
<State> StrawStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_straw.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_straw.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_straw.png" </FilenameDisable>
<EventClick> 
	SAVELOG "Click straw cb"
	If StrawStateX = "Press" Then
		;Var StrawStateX = "Enable"	
	Else
		Var StrawStateX = "Press"
		
		If Seeker.strawAction = 0 Then
			Var Seeker.strawAction = 1
			Machine Straw
			
			Var bg_strawProblem_ST = "Enable"
			;Var bg_strawlid_ST = "Invisible"
			;Var LidStateX = "Invisible"
			;Var StrawStateX = "Invisible"
		EndIf
		
	EndIf
	Refresh
</EventClick>
</Button>

<Button>
<X> 377 </X>
<Y> 1759 </Y>
<State> StrawStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick> 

	
	SAVELOG "Click straw cb"
	If StrawStateX = "Press" Then
		;Var StrawStateX = "Enable"	
	Else
		Var StrawStateX = "Press"

		If Seeker.strawAction = 0 Then
			Var Seeker.strawAction = 1
			Machine Straw
			
			Var bg_strawProblem_ST = "Enable"
			;Var bg_strawlid_ST = "Invisible"
			;Var LidStateX = "Invisible"
			;Var StrawStateX = "Invisible"

		EndIf
	EndIf

	DEBUGVAR "PICHET"
	
	Refresh
</EventClick>
</Button>



; LID left
<Button>
<X> 50 </X>
<Y> 1828 </Y>
<State> LidStateX </State>
<Mode> "No" </Mode>
<Filename>  "ROOT/taobin_project/image/topping2/bn_lid.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_lid.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_lid.png" ) </FilenameDisable>
<EventClick> 

	If Seeker.thankLidFlag = 0 Then
		
		SAVELOG "Click LID pic"
		If LidStateX = "Press" Then
			;Var LidStateX = "Enable"	
		Else
			Var LidStateX = "Press"
			If Seeker.lidAction = 0 Then
				Var Seeker.lidAction = 1
				Machine Lid
				Var straw_problem_ST = "Enable"
			EndIf
		EndIf
		

		DEBUGVAR SugarState1
		Refresh

	EndIf

</EventClick>
</Button>

<Button>
<X> 377 </X>
<Y> 1835 </Y>
<State> LidStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick> 

	If Seeker.thankLidFlag = 0 Then

		SAVELOG "Click LID cb"
		If LidStateX = "Press" Then
			;Var LidStateX = "Enable"	
		Else
			Var LidStateX = "Press"
			If Seeker.lidAction = 0 Then
				Var Seeker.lidAction = 1
				Machine Lid
				
			EndIf
		EndIf
		Refresh
	
	EndIf

</EventClick>
</Button>


</Popup>