taobin_project/xml/page_drinkok.xml

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

	WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "0"

	Var buttonRemoveCup = "Invisible"
	Var TextBottomShow = "Enable"

	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 text_bottom = DirImage + "text_bottom.png"

	If InternationalEnable = 1 Then
		If LanguageShow = "UAE_DUBAI" Then
		
			Var text_bottom = CountryRootPath + "/image/complete_en/text_bottom.png"

		EndIf
	EndIf

	If UsePepsiTheme = 1 Then
		Var text_bottom = "ROOT/taobin_project/inter/whatthecup/" + CountryShortName
		Var text_bottom = text_bottom + "/image/complete_en/text_bottom.png"
	EndIf


	DEBUGVAR text_bottom

	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
		Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_en.png"
		Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_en.png"
		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

		Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw.png"
		Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw.png"
		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


	DEBUGVAR GetMoreStrawCount
	If GetMoreStrawCount <= 0 Then
		If StrawProblemStatus = 1 Then
			Var bg_strawProblem_ST = "Enable"
		EndIf
	EndIf

	

	Var TimeDelayDefault = 1200

	DEBUGVAR Seeker
	DEBUGVAR Seeker.BuyMomCocoaProFlag
	If Seeker.BuyMomCocoaProFlag = 1 Then
		Var dummyPhone = "0899999999"
		Var param1 = "1"
		Var param2 = ""
		Var param3 = ""
		AddData 50 dummyPhone param1 param2 param3
	EndIf

	SAVELOG "drinkok.xml version 3"

	Var DrinkNameOnArm[DrinkArmCupID] = Seeker.showname 
	Var DrinkImageOnArm[DrinkArmCupID] = Seeker.PictureDrink 
	
	DEBUGVAR DrinkArmCupID

	DEBUGVAR DrinkImageOnArm[DrinkArmCupID]
	DEBUGVAR DrinkNameOnArm[DrinkArmCupID]

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

	If Timeout = 2 Then
		Var SlientRefreshEnable = 1
	EndIf

	If BrewTimeoutExtend = 1 Then

		DEBUGVAR BrewTimeoutExtend

	EndIf

	; 420 sec 
	; to be obsolete
	If Timeout > 840 Then
		Var CountForRetryStuck = 1
		Open "ROOT/taobin_project/xml/page_drink_stuck.xml"
	EndIf

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


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

		Var Seeker.TNumberTaobinMember = ""
		If  NextOrder = "true" Then

			; next order set. Havecup and checkup value must false. Certain cup not on any arm.
			
			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
		Else
			Open "ROOT/taobin_project/xml/page_back_to_main.xml"
		EndIf
	EndIf

	;
	; this stage for remove cup
	If MachineStage = "remove-cup" Then
		If  NextOrder = "false" Then
			Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
		Else

			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

	If Timeout = 5 Then
		If show_eng = "true" Then
			Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw.mp3"

			If CountryName = "Malaysia" Then
				Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a"
			EndIf

			If CountryName = "Australia" Then
				Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a"
			EndIf

			If CountryName = "UnitedArabEmirates Dubai" Then
				Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a"
			EndIf

			If CountryName = "Singapore" Then
				Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a"
			EndIf

			If CountryName = "HongKong" Then
				Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a"
			EndIf

			Play PlaySoundStraw
		Else
			Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3"

			If FromJemilaPro = 1 Then
			     Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/drinkfinish.m4a"
			EndIf

			Play PlaySoundLag
		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


	If txtDrinkOKState = "Enable" Then
		Var TextBottomShow = "Invisible"
	Else
		Var TextBottomShow = "Enable"
	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>

;include="ROOT/taobin_project/inc/video.inc"



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



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

<Image>
<X> 125 </X>
<Y> 1700 </Y>
<Height> 300 </Height>
<Width> 320 </Width>
<Filename> Seeker.PictureDrink </Filename>
</Image>

<Text>
<X> 300 </X>
<Y> 1750 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Font> KanitLightTTF </Font>
<Size> 48 </Size>
<Color> HeadlineColor </Color>
<Value>
	eval(
		STRCONTAIN "size" Seeker.showname SizeFromSheet
		If SizeFromSheet = "true" Then
			SPLIT Seeker.showname "###" 1 PureName
			Var return = PureName
		Else
			Var return = Seeker.showname
		EndIf
	)
</Value>
</Text>


<Image>
<X> 0 </X>
<Y> 1418 </Y>
<State> TextBottomShow </State>
<Filename> text_bottom </Filename>
</Image>


<Text>
<X> 757 </X>
<Y> 448 </Y>
<Size> 20 </Size>
<Width> 280</Width>
<Align> Center </Align>
<Font> KanitLightTTF </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> KanitLightTTF </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> 699 </X>
<Y> 1788 </Y>
<State>bg_strawProblem_ST</State>
<Filename>  bnStrawProblemReport </Filename>
<FilenamePress> bpStrawProblemReport </FilenamePress>
<EventClick>

	Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด"

	__CMD "straw-alert-disable" 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>


<EventUnitTest1>
	Var Timeout2 = 0
		__CMD "UpdateCupOnArm" UserSelectProductCode "-" "-"
</EventUnitTest1>

<EventUnitTest2>
	Open "ROOT/xml/page_drinkok.xml"
</EventUnitTest2>

</Popup>