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

	If InternationalEnable = 1 Then
		If CountryName = "Thailand" Then
			;do not thing
		Else
			Var OpenXMLFile = CountryRootPath + "xml/page_collect_point_2.lxml"
			Open OpenXMLFile
		EndIf
	EndIf

	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

	;inter-image
	If LanguageShow = "MYANMAR" Then
		Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
	EndIf

	If LanguageShow = "MSC" Then
		Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
	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

	Var GetLuckyDraw = 0

	If LanguageObjectShow = "Enable" Then
		Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
		Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
	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 GetLuckyDraw = 1 Then
				If Ext1a = "ok" Then
					DEBUGVAR Ext1h
					DEBUGVAR Ext1i
					Var luckyDrawTicket = Ext1h
					INT luckyDrawTicket
					Var luckyDrawAlredyGotReward = Ext1i

					If CleanFeedbackFlag = 1 Then
                        Var CleanFeedBackToCollectPoint = 1
                        Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
					Else
                        If FromHalloweenPro = 1 Then
                            Open "ROOT/taobin_project/xml/event/halloween/check_quota.xml"
                        Else
                            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
                        EndIf
					EndIf

				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


			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/xml/page_collect_point_3.xml"
						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.xml"
							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
						    If CleanFeedbackFlag = 1 Then
                                Var CleanFeedBackToCollectPoint = 1
                                Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
							Else
							    Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
							EndIf
						EndIf
					Else
                        If CleanFeedbackFlag = 1 Then
                            Var CleanFeedBackToCollectPoint = 1
                            Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
                        Else
                            Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
                        EndIf
					EndIf


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


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

<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
	<ID> 000405 </ID>
</Language>
</Text>

<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
	<ID> 000406 </ID>
</Language>
</Text>


</Popup>