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

<EventOpen>
	; On open

	Var Timeout = 0
	SAVELOG UnitTestType

	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

    Var Seeker.IsLineMember = 0
    Var JemilaDewyglowOutOfStock = 0
    Var ColorChangingBlushOutOfStock = 0
    Var CuraMDRandomOutOfStock = 0

	If PayOfflineMode = 1 Then
		Var Seeker.TaobinErrorNetwork = 1
		Var Seeker.PointTaobinStr = ParamCP
		Var TelephoneNumber = TelephoneNumberX
		Var Seeker.TNumberTaobinMember= TelephoneNumber
		Var CollectPointError = "collect"
		Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_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
			Var CollectPointError = "collect"
			Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_error.xml"

	EndIf

	TimerReset
	Refresh
</EventTimeout>


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

<EventActionOk>
		If Ext1a = "" Then

			Var Seeker.TaobinErrorNetwork = 1
			Var Seeker.PointTaobinStr = ParamCP
			Var TelephoneNumber = TelephoneNumberX
			Var Seeker.TNumberTaobinMember = TelephoneNumber
			Var CollectPointError = "collect"
			Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_error.xml"

		Else
            Var TaobinName = Ext1b
            Var TelephoneNumber = TelephoneNumberX
            Var TNumberTaobinMemberXXX = TelephoneNumber
            Var Seeker.IsAlreadyGetReward = Ext1c
            Var JemilaDewyglowOutOfStock = Ext1d
            Var ColorChangingBlushOutOfStock = Ext1e
            Var CuraMDRandomOutOfStock = Ext1f


            DEBUGVAR JemilaDewyglowOutOfStock
            DEBUGVAR ColorChangingBlushOutOfStock
            DEBUGVAR CuraMDRandomOutOfStock

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


            If Seeker.IsLineMember = 0 Then
                SAVELOG "Not Line Member open not member page."
                Open "ROOT/taobin_project/xml/event/jemila/page_not_member.xml"
            EndIf

            If JemilaDewyglowOutOfStock = 1 Then
                If ColorChangingBlushOutOfStock = 1 Then
                    If CuraMDRandomOutOfStock = 1 Then
                        SAVELOG "All reward is out of stock writing flag 1 -> jemila_reward_out_of_stock"
                        WRITE_FILE "/mnt/sdcard/coffeevending/jemila_reward_out_of_stock" "1"

                        SAVELOG "skip to normal collect point."
                        If Seeker.CodeChannel = 1 Then
                            If Seeker.CollectPointMain = 1 Then
                                GETACCEXT Param1 23
                                Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
                            Else
                                Open "ROOT/taobin_project/xml/page_lid_straw.xml"
                            EndIf
                        Else
                            GETACCEXT Param1 23
                            Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
                        EndIf
                    EndIf
                EndIf
            EndIf

            ;If Seeker.IsAlreadyGetReward = 1 Then
            ;    SAVELOG "Already get reward skip to normal collect point."
            ;    If Seeker.CodeChannel = 1 Then
            ;        If Seeker.CollectPointMain = 1 Then
            ;            GETACCEXT Param1 23
            ;            Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
            ;        Else
            ;            Open "ROOT/taobin_project/xml/page_lid_straw.xml"
            ;        EndIf
            ;    Else
            ;        GETACCEXT Param1 23
            ;        Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
            ;    EndIf
            ;EndIf

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

            Var PointState[0] = 0
            Var PointState[1] = 0
            Var PointState[2] = 0
            Var PointState[3] = 0
            Var PointState[4] = 0
            Var PointState[5] = 0
            Var PointState[6] = 0

            Var PointImage[0] = "/no_point.png"
            Var PointImage[1] = "/no_point.png"
            Var PointImage[2] = "/no_point.png"
            Var PointImage[3] = "/no_point.png"
            Var PointImage[4] = "/no_point.png"
            Var PointImage[5] = "/no_point.png"
            Var PointImage[6] = "/no_point.png"

            Var PointName[0] = ""
            Var PointName[1] = ""
            Var PointName[2] = ""
            Var PointName[3] = ""
            Var PointName[4] = ""
            Var PointName[5] = ""
            Var PointName[6] = ""

            If show_eng = "true" Then
                Var MenuName[0] = "HONG'S DRAGON MILK"
                Var MenuName[1] = "MUNIN'S FAVORITE DRINK"
                Var MenuName[2] = "MUTA  DRINK"
                Var MenuName[3] = "JAI RERNG QUITE FIZZY"
                Var MenuName[4] = "PRAGLAIDAO WANT IT STRONG"
                Var MenuName[5] = "GAOMART 'S MIRACLESK"
                Var MenuName[6] = "PATRADA'S  GINGER"
                Var MenuName[7] = "RAVEENA'S 7UP SODA"
                Var MenuName[8] = "KWANUMA'S LIME"
                Var MenuName[9] = "RAVINWORAGARN'S JASMINE"
            Else
                Var MenuName[0] = "หงส์ ดราก้อนมิลค์"
                Var MenuName[1] = "มุนินทร์ดริ๊งก์"
                Var MenuName[2] = "มุตตาดื่ม"
                Var MenuName[3] = "ใจเริงซ่าพอตัว"
                Var MenuName[4] = "ประกายดาวขอเข้ม ๆ"
                Var MenuName[5] = "เกล้ามาศมหัศจรรย์"
                Var MenuName[6] = "ภัทรลดาจิงเจอ"
                Var MenuName[7] = "ราวีน่าเซเว่นอัพ"
                Var MenuName[8] = "ขวัญอุมามะนาว"
                Var MenuName[9] = "รวินทร์วรกานต์มะลิ"
            EndIf


            DEBUGVAR Ext1a

            SPLIT Ext1a "/" 1 MenuPoint[0]
            SPLIT Ext1a "/" 2 MenuPoint[1]
            SPLIT Ext1a "/" 3 MenuPoint[2]
            SPLIT Ext1a "/" 4 MenuPoint[3]
            SPLIT Ext1a "/" 5 MenuPoint[4]
            SPLIT Ext1a "/" 6 MenuPoint[5]
            SPLIT Ext1a "/" 7 MenuPoint[6]
            SPLIT Ext1a "/" 8 MenuPoint[7]
            SPLIT Ext1a "/" 9 MenuPoint[8]
            SPLIT Ext1a "/" 10 MenuPoint[9]


            INT MenuPoint[0]
            INT MenuPoint[1]
            INT MenuPoint[2]
            INT MenuPoint[3]
            INT MenuPoint[4]
            INT MenuPoint[5]
            INT MenuPoint[6]
            INT MenuPoint[7]
            INT MenuPoint[8]
            INT MenuPoint[9]

            DEBUGVAR MenuPoint[0]
            DEBUGVAR MenuPoint[1]
            DEBUGVAR MenuPoint[2]
            DEBUGVAR MenuPoint[3]
            DEBUGVAR MenuPoint[4]
            DEBUGVAR MenuPoint[5]
            DEBUGVAR MenuPoint[6]
            DEBUGVAR MenuPoint[7]
            DEBUGVAR MenuPoint[8]
            DEBUGVAR MenuPoint[9]

            ; Menu 1
            If Seeker.selected_a_drink = "12-03-02-0075" Then
                If MenuPoint[0] = 1 then

                Else
                    Var MenuPoint[0] = 1
                    Var newPointIndex = 0
                EndIf
            EndIf
            If Seeker.selected_a_drink = "12-03-03-0075" Then
                If MenuPoint[0] = 1 then

                Else
                    Var MenuPoint[0] = 1
                    Var newPointIndex = 0
                EndIf
            EndIf


            ; Menu 2
            If Seeker.selected_a_drink = "12-05-02-0124" Then
               If MenuPoint[1] = 1 then

                Else
                    Var MenuPoint[1] = 1
                    Var newPointIndex = 1
                EndIf
            EndIf
            If Seeker.selected_a_drink = "12-05-03-0124" Then
               If MenuPoint[1] = 1 then

                Else
                    Var MenuPoint[1] = 1
                    Var newPointIndex = 1
                EndIf
            EndIf


            ; Menu 3
            If Seeker.selected_a_drink = "12-02-02-0068" Then
                If MenuPoint[2] = 1 then

                Else
                    Var MenuPoint[2] = 1
                    Var newPointIndex = 2
                EndIf
            EndIf
            If Seeker.selected_a_drink = "12-02-03-0068" Then
                If MenuPoint[2] = 1 then

                Else
                    Var MenuPoint[2] = 1
                    Var newPointIndex = 2
                EndIf
            EndIf


            ; Menu 4
            If Seeker.selected_a_drink = "12-05-02-0125" Then
               If MenuPoint[3] = 1 then

                Else
                    Var MenuPoint[3] = 1
                    Var newPointIndex = 3
                EndIf
            EndIf


            ; Menu 5
            If Seeker.selected_a_drink = "12-01-02-0075" Then
                If MenuPoint[4] = 1 then

                Else
                    Var MenuPoint[4] = 1
                    Var newPointIndex = 4
                EndIf
            EndIf
            If Seeker.selected_a_drink = "12-21-02-0075" Then
                If MenuPoint[4] = 1 then

                Else
                    Var MenuPoint[4] = 1
                    Var newPointIndex = 4
                EndIf
            EndIf


            ; Menu 6
            If Seeker.selected_a_drink = "12-03-02-0076" Then
                If MenuPoint[5] = 1 then

                Else
                    Var MenuPoint[5] = 1
                    Var newPointIndex = 5
                EndIf
            EndIf
            If Seeker.selected_a_drink = "12-03-03-0076" Then
                If MenuPoint[5] = 1 then

                Else
                    Var MenuPoint[5] = 1
                    Var newPointIndex = 5
                EndIf
            EndIf


            ; Menu 7
            If Seeker.selected_a_drink = "12-02-02-0069" Then
                If MenuPoint[6] = 1 then

                Else
                    Var MenuPoint[6] = 1
                    Var newPointIndex = 6
                EndIf
            EndIf
            If Seeker.selected_a_drink = "12-02-03-0069" Then
                If MenuPoint[6] = 1 then

                Else
                    Var MenuPoint[6] = 1
                    Var newPointIndex = 6
                EndIf
            EndIf


            ; Menu 8
            If Seeker.selected_a_drink = "12-05-02-0126" Then
                If MenuPoint[7] = 1 then

                Else
                    Var MenuPoint[7] = 1
                    Var newPointIndex = 7
                EndIf
            EndIf
            If Seeker.selected_a_drink = "12-05-03-0126" Then
                If MenuPoint[7] = 1 then

                Else
                    Var MenuPoint[7] = 1
                    Var newPointIndex = 7
                EndIf
            EndIf


            ; Menu 9
            If Seeker.selected_a_drink = "12-05-02-0127" Then
                If MenuPoint[8] = 1 then

                Else
                    Var MenuPoint[8] = 1
                    Var newPointIndex = 8
                EndIf
            EndIf
            If Seeker.selected_a_drink = "12-05-03-0127" Then
                If MenuPoint[8] = 1 then

                Else
                    Var MenuPoint[8] = 1
                    Var newPointIndex = 8
                EndIf
            EndIf


            ; Menu 10
            If Seeker.selected_a_drink = "12-02-02-0070" Then
                If MenuPoint[9] = 1 then

                Else
                    Var MenuPoint[9] = 1
                    Var newPointIndex = 9
                EndIf
            EndIf
            If Seeker.selected_a_drink = "12-02-03-0070" Then
                If MenuPoint[9] = 1 then

                Else
                    Var MenuPoint[9] = 1
                    Var newPointIndex = 9
                EndIf
            EndIf


            Var CurrentIndexPoint = -1

            If MenuPoint[0] = 1 Then
                Var CurrentIndexPoint = CurrentIndexPoint + 1
                Var PointState[CurrentIndexPoint] = 1
                Var PointName[CurrentIndexPoint] = MenuName[0]
                If newPointIndex = 0 Then
                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
                Else
                    Var PointImage[CurrentIndexPoint] = "/point.png"
                EndIf
            EndIf

            If MenuPoint[1] = 1 Then
                Var CurrentIndexPoint = CurrentIndexPoint + 1
                Var PointState[CurrentIndexPoint] = 1
                Var PointName[CurrentIndexPoint] = MenuName[1]
                If newPointIndex = 1 Then
                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
                Else
                    Var PointImage[CurrentIndexPoint] = "/point.png"
                EndIf
            EndIf

            If MenuPoint[2] = 1 Then
                Var CurrentIndexPoint = CurrentIndexPoint + 1
                Var PointState[CurrentIndexPoint] = 1
                Var PointName[CurrentIndexPoint] = MenuName[2]
                If newPointIndex = 2 Then
                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
                Else
                    Var PointImage[CurrentIndexPoint] = "/point.png"
                EndIf
            EndIf

            If MenuPoint[3] = 1 Then
                Var CurrentIndexPoint = CurrentIndexPoint + 1
                Var PointState[CurrentIndexPoint] = 1
                Var PointName[CurrentIndexPoint] = MenuName[3]
                If newPointIndex = 3 Then
                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
                Else
                    Var PointImage[CurrentIndexPoint] = "/point.png"
                EndIf
            EndIf

            If MenuPoint[4] = 1 Then
                Var CurrentIndexPoint = CurrentIndexPoint + 1
                Var PointState[CurrentIndexPoint] = 1
                Var PointName[CurrentIndexPoint] = MenuName[4]
                If newPointIndex = 4 Then
                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
                Else
                    Var PointImage[CurrentIndexPoint] = "/point.png"
                EndIf
            EndIf

            If MenuPoint[5] = 1 Then
                Var CurrentIndexPoint = CurrentIndexPoint + 1
                Var PointState[CurrentIndexPoint] = 1
                Var PointName[CurrentIndexPoint] = MenuName[5]
                If newPointIndex = 5 Then
                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
                Else
                    Var PointImage[CurrentIndexPoint] = "/point.png"
                EndIf
            EndIf

            If MenuPoint[6] = 1 Then
                Var CurrentIndexPoint = CurrentIndexPoint + 1
                Var PointState[CurrentIndexPoint] = 1
                Var PointName[CurrentIndexPoint] = MenuName[6]
                If newPointIndex = 6 Then
                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
                Else
                    Var PointImage[CurrentIndexPoint] = "/point.png"
                EndIf
            EndIf

            If MenuPoint[7] = 1 Then
                Var CurrentIndexPoint = CurrentIndexPoint + 1
                Var PointState[CurrentIndexPoint] = 1
                Var PointName[CurrentIndexPoint] = MenuName[7]
                If newPointIndex = 7 Then
                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
                Else
                    Var PointImage[CurrentIndexPoint] = "/point.png"
                EndIf
            EndIf

            If MenuPoint[8] = 1 Then
                Var CurrentIndexPoint = CurrentIndexPoint + 1
                Var PointState[CurrentIndexPoint] = 1
                Var PointName[CurrentIndexPoint] = MenuName[8]
                If newPointIndex = 8 Then
                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
                Else
                    Var PointImage[CurrentIndexPoint] = "/point.png"
                EndIf
            EndIf

            If MenuPoint[9] = 1 Then
                Var CurrentIndexPoint = CurrentIndexPoint + 1
                Var PointState[CurrentIndexPoint] = 1
                Var PointName[CurrentIndexPoint] = MenuName[9]
                If newPointIndex = 9 Then
                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
                Else
                    Var PointImage[CurrentIndexPoint] = "/point.png"
                EndIf
            EndIf


            DEBUGVAR Seeker.selected_a_drink
            DEBUGVAR newPointIndex

            DEBUGVAR Seeker.PointTaobinStr
            DEBUGVAR Seeker.TNumberTaobinMember

            Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_3.xml"
		EndIf

</EventActionOk>

<EventActionError>

		Var Seeker.TaobinErrorNetwork = 1

		Var Seeker.PointTaobinStr = ParamCP
		Var TelephoneNumber = TelephoneNumberX
		Var Seeker.TNumberTaobinMember= TelephoneNumber
		Var CollectPointError = "collect"
		Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_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>


</Popup>