<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>

<EventOpen>
	; On open

	Var Timeout = 0
	SAVELOG UnitTestType
	
	If UnitTestType = "1" Then
		Var CoffeePoint = 10
		Open "ROOT/taobin_project/xml/page_show_consent.xml"
	EndIf

	Var TaobinLevel = 0
	Var Point2X = 0

	Var Seeker.IsLineMember = 0
	Var Seeker.TaobinErrorNetwork = 0


	 If show_eng = "true" Then 
		Var DirImage = "ROOT/taobin_project/image/collectiing_en"
		
		Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"

		
	Else
		Var DirImage = "ROOT/taobin_project/image/collectiing"

		Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
	EndIf

	If PayOfflineMode = 1 Then
		Var Seeker.TaobinErrorNetwork = 1
		Var Seeker.PointTaobinStr = ParamCP
		Var TelephoneNumber = TelephoneNumberX
		Var Seeker.TNumberTaobinMember= TelephoneNumber
		Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_error.lxml"

	EndIf

	Var GetLuckyDraw = 0
		
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout> 
	Var CountDownBrewing = BREW_CNT

	Var ShowCountDownBrewing = CountDownBrewing


	Var Timeout = Timeout + 1
	If Timeout > 30 Then
      
		
			Var TaobinLevel = 0
			Var CoffeePoint = 1 

			Var Seeker.TaobinErrorNetwork = 1
			Var Seeker.PointTaobinStr = ParamCP
			
				Var TelephoneNumber = TelephoneNumberX
			
			Var Seeker.TNumberTaobinMember= TelephoneNumber
			Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_error.lxml"
		
		
	EndIf

	TimerReset
	Refresh
</EventTimeout> 


<EventSecurity> 
	Open "/media/bt/xml/security_alarm.xml" 
</EventSecurity>

<EventActionOk>

	If StepGetPoint = 0 Then
		If PdpaAsk = 0 Then
			Open "ROOT/taobin_project/xml/page_show_consent.xml" 
		Else
			Var StepGetPoint = 1
		
				Var TelephoneNumber = TelephoneNumberX
			
    		GETACCEXT TelephoneNumber 14
			Var Ext1a = ""
			Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_2.xml"  
		EndIf
	Else

		
		If Ext1a = "" Then
			
			Var Seeker.TaobinErrorNetwork = 1
			Var Seeker.PointTaobinStr = ParamCP
			Var TelephoneNumber = TelephoneNumberX
			Var Seeker.TNumberTaobinMember = TelephoneNumber
			Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_error.lxml"
			
		Else

			If GetLuckyDraw = 1 Then
				If Ext1a = "ok" Then
					DEBUGVAR Ext1h
					DEBUGVAR Ext1i
					Var luckyDrawTicket = Ext1h
					INT luckyDrawTicket
					Var luckyDrawAlredyGotReward = Ext1i
					If luckyDrawAlredyGotReward = 1 Then
						Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
					Else
						Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
					EndIf
				Else
					
					Var Seeker.TaobinErrorNetwork = 1
					
					Var Seeker.PointTaobinStr = ParamCP
					Var TelephoneNumber = TelephoneNumberX
					Var Seeker.TNumberTaobinMember = TelephoneNumber
					Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_error.lxml"
				EndIf
			EndIf
			

			If GetLuckyDraw = 0 Then
				If Ext1a = "ok" Then

					Var TaobinName = Ext1d
					Var TaobinCoupons = Ext1g
					Var TaobinExpire = Ext1f
					Var TaobinLevel = Ext1e
					Var TaobinPDPA = Ext1h

					Var TaobinPromoX = Ext1j

					DEBUGVAR TaobinPDPA

					Var PointTaobinTmp = Ext1i

					DEBUGVAR PointTaobinTmp
					INT PointTaobinTmp

					INT TaobinPDPA

					If TaobinName = "-" Then
						Var Seeker.IsLineMember = 0
					Else
						Var Seeker.IsLineMember = 1
					EndIf
					

					Var TelephoneNumber = TelephoneNumberX
					Var TNumberTaobinMemberXXX = TelephoneNumber

					;Var PointTaobinTmp = 4
					
					Var PointTaobin = PointTaobinTmp
					Var pTaobin = PointTaobin

					DEBUGVAR  TaobinLevel

					If TaobinLevel = "1" Then
						Var pTaobin = PayAmount / 20
					Else
						Var pTaobin = PayAmount / 15
					EndIf

					If pTaobin > 0 Then
						Var pTaobinX = PointTaobin / pTaobin
						If pTaobinX >= 2 Then
							Var Point2X = 1
						EndIf
					EndIf


					Var Seeker.PointTaobinStr = ParamCP
					Var Seeker.TNumberTaobinMember = TelephoneNumberX
					

					Var CoffeePointRank = Ext1b
					INT CoffeePointRank

					Var CoffeePoint1 = Ext1c
					INT CoffeePoint1
				
					Var CoffeePoint = PointTaobin + CoffeePoint1
					Var CoffeePointOld = CoffeePoint1

					If TaobinLevel = 1 Then
						Var CoffeePointRank = CoffeePointRank + 0
					Else
						Var CoffeePointRank = CoffeePointRank + PointTaobin
					EndIf 

					Var CoffeePointRankTmp = CoffeePointRank


					DEBUGVAR Seeker.PointTaobinStr
					DEBUGVAR Seeker.TNumberTaobinMember
					If TaobinPDPA = 0 Then

						;inter-xml-open
						If CountryName = "Malaysia" Then
							Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_3.lxml" 
						EndIf

						;inter-xml-open
						If CountryName = "Indonesia" Then
							Open "ROOT/taobin_project/xml/page_collect_point_3.xml" 
						EndIf 

						;inter-xml-open
						If CountryName = "Australia" Then

							If NewCollectPointFlag = 1 Then
								Var pageCollectPoint = CountryRootPath + "/xml/page_collect_point_3.lxml"
								Open pageCollectPoint
							Else
								Open "ROOT/taobin_project/xml/page_collect_point_3.lxml" 
							EndIf
							
						EndIf

						;inter-xml-open
						If CountryName = "Singapore" Then
							Open "ROOT/taobin_project/xml/page_collect_point_3.xml" 
						EndIf 

						Open "ROOT/taobin_project/xml/page_show_consent.xml" 
					EndIf

					If PayAmount >= 20 Then

						If TaobinPromoX = "p2.no_otp" Then
							Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml" 
						EndIf

						If TaobinPromoX = "p2.unused" Then
							Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml" 
						EndIf
						
					EndIf

					If NewCollectPoint = 1 Then
						If LuckyDrawCampaign = 1 Then
							Var GetLuckyDraw = 1
							GETACCEXT TelephoneNumber 14
						Else
							Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
						EndIf
					Else
						Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_3.lxml" 
					EndIf


				Else
					
					Var Seeker.TaobinErrorNetwork = 1
					
					Var Seeker.PointTaobinStr = ParamCP
					Var TelephoneNumber = TelephoneNumberX
					Var Seeker.TNumberTaobinMember = TelephoneNumber
					Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_error.lxml"
				EndIf
			EndIf

		EndIf
	EndIf

</EventActionOk>

<EventActionError> 


		Var Seeker.TaobinErrorNetwork = 1
	
		Var Seeker.PointTaobinStr = ParamCP
		Var TelephoneNumber = TelephoneNumberX
		Var Seeker.TNumberTaobinMember= TelephoneNumber
		Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_error.lxml"
	

</EventActionError> 

<EventMachine>
	If MachineStage = "drink-success" Then
		Var MachineState_Result = 1
	EndIf

	If MachineStage = "drink-failed" Then
		Var MachineState_Result = 2
	EndIf
</EventMachine>


<Image>
<X> 178 </X>
<Y> 680 </Y>
<Filename> Var( DirImage + "/text20.png" ) </Filename>
</Image>


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


<Text>
<X> 0 </X>
<Y> 873 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> TelephoneNumber </Value>
<Format> Telnum-mask-1 </Format>
</Text>


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


</Popup>