taobin_project/xml/page_collect_point_2.xml

<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.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/xml/page_collect_point_error.xml"

	EndIf
		
</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/xml/page_collect_point_error.xml"
		
		
	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/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/xml/page_collect_point_error.xml"
			
		Else

			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
				

				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

					If CountryName = "Malaysia" Then
						Open "ROOT/taobin_project/xml/page_collect_point_3.xml" 
					EndIf

					If CountryName = "Indonesia" Then
						Open "ROOT/taobin_project/xml/page_collect_point_3.xml" 
					EndIf 

					If CountryName = "Australia" 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

				Open "ROOT/taobin_project/xml/page_collect_point_3.xml" 

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

		EndIf
	EndIf

</EventActionOk>

<EventActionError> 


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

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


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