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

<EventOpen>
	; On open

	Var Timeout = 0

    If show_eng = "true" Then 
		Var DirImage = "ROOT/taobin_project/image/display_point_en"
		Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"

	Else
		Var DirImage = "ROOT/taobin_project/image/display_point"
		Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
	EndIf

    If show_eng = "true" Then 
		Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
		Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
		
	
	Else
		Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
		Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
	
	EndIf
	
    Var CoffeePointRank = CoffeePointRankTmp
	;Var PointDiff = 150 - CoffeePointRank


	Var TaobinExpireDay = ""
	Var TaobinExpireMonth = ""
    Var TaobinExpireMonthX = ""
	Var TaobinExpireYear = ""


    Var buttonState = "Enable"

    If MakeDrinkState = 1 Then
        Var buttonState = "Invisible"
    EndIf

	
	SPLIT  TaobinExpire "/"  1  TaobinExpireDay
	SPLIT  TaobinExpire "/"  2  TaobinExpireMonth
	SPLIT  TaobinExpire "/"  3  TaobinExpireYear


    If show_eng = "true" Then 
        If TaobinExpireMonth = "01" Then
            Var TaobinExpireMonth = "Jan"
            Var TaobinExpireMonthX = "January"
        EndIf

        If TaobinExpireMonth = "02" Then
            Var TaobinExpireMonth = "Feb"
            Var TaobinExpireMonthX = "February"
        EndIf

        If TaobinExpireMonth = "03" Then
            Var TaobinExpireMonth = "Mar"
            Var TaobinExpireMonthX = "March"
        EndIf

        If TaobinExpireMonth = "04" Then
            Var TaobinExpireMonth = "Apr"
            Var TaobinExpireMonthX = "April"
        EndIf

        If TaobinExpireMonth = "05" Then
            Var TaobinExpireMonth = "May"
            Var TaobinExpireMonthX = "May"
        EndIf

        If TaobinExpireMonth = "06" Then
            Var TaobinExpireMonth = "Jun"
            Var TaobinExpireMonthX = "June"
        EndIf

        If TaobinExpireMonth = "07" Then
            Var TaobinExpireMonth = "Jul"
            Var TaobinExpireMonthX = "July"
        EndIf

        If TaobinExpireMonth = "08" Then
            Var TaobinExpireMonth = "Aug"
            Var TaobinExpireMonthX = "August"
        EndIf

        If TaobinExpireMonth = "09" Then
            Var TaobinExpireMonth = "Sep"
            Var TaobinExpireMonthX = "September"
        EndIf

        If TaobinExpireMonth = "10" Then
            Var TaobinExpireMonth = "Oct"
            Var TaobinExpireMonthX = "October"
        EndIf

        If TaobinExpireMonth = "11" Then
            Var TaobinExpireMonth = "Nov"
            Var TaobinExpireMonthX = "November"
        EndIf

        If TaobinExpireMonth = "12" Then
            Var TaobinExpireMonth = "Dec"
            Var TaobinExpireMonthX = "December"
        EndIf

        INT TaobinExpireYear
        INT TaobinExpireDay

        Var TaobinExpireYear = TaobinExpireYear + 0

    Else

        If TaobinExpireMonth = "01" Then
            Var TaobinExpireMonth = "ม.ค."
            Var TaobinExpireMonthX = "มกราคม"
        EndIf

        If TaobinExpireMonth = "02" Then
            Var TaobinExpireMonth = "ก.พ."
            Var TaobinExpireMonthX = "กุมภาพันธ์"
        EndIf

        If TaobinExpireMonth = "03" Then
            Var TaobinExpireMonth = "มี.ค."
            Var TaobinExpireMonthX = "มีนาคม"
        EndIf

        If TaobinExpireMonth = "04" Then
            Var TaobinExpireMonth = "เม.ย."
            Var TaobinExpireMonthX = "เมษายน"
        EndIf

        If TaobinExpireMonth = "05" Then
            Var TaobinExpireMonth = "พ.ค."
            Var TaobinExpireMonthX = "พฤษภาคม"
        EndIf

        If TaobinExpireMonth = "06" Then
            Var TaobinExpireMonth = "มิ.ย."
            Var TaobinExpireMonthX = "มิถุนายน"
        EndIf

        If TaobinExpireMonth = "07" Then
            Var TaobinExpireMonth = "ก.ค."
            Var TaobinExpireMonthX = "กรกฎาคม"
        EndIf

        If TaobinExpireMonth = "08" Then
            Var TaobinExpireMonth = "ส.ค."
            Var TaobinExpireMonthX = "สิงหาคม"
        EndIf

        If TaobinExpireMonth = "09" Then
            Var TaobinExpireMonth = "ก.ย."
            Var TaobinExpireMonthX = "กันยายน"
        EndIf

        If TaobinExpireMonth = "10" Then
            Var TaobinExpireMonth = "ต.ค."
            Var TaobinExpireMonthX = "ตุลาคม"
        EndIf

        If TaobinExpireMonth = "11" Then
            Var TaobinExpireMonth = "พ.ย."
            Var TaobinExpireMonthX = "พฤศจิกายน"
        EndIf

        If TaobinExpireMonth = "12" Then
            Var TaobinExpireMonth = "ธ.ค."
            Var TaobinExpireMonthX = "ธันวาคม"
        EndIf

        INT TaobinExpireYear
        INT TaobinExpireDay

        Var TaobinExpireYear = TaobinExpireYear + 543

    EndIf


	Var ExpireStrTmp = ""
	Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
	Var ExpireStrTmp = ExpireStrTmp + " "
	Var ExpireStrTmp = ExpireStrTmp + TaobinExpireMonth
	Var ExpireStrTmp = ExpireStrTmp + " "
	Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear


    If show_eng = "true" Then 

        If TaobinLevel = "1" Then
            Var TaobinLevelDesc1 = "Shy turtle level"
            Var TaobinLevelDesc2 = ""

            Var TaobinLeveImg = "/taoLevel1.png"
        EndIf

        If TaobinLevel = "2" Then
            Var TaobinLevelDesc1 = "Walking turtle level"
            Var PointDiff = 150 - CoffeePointRank
            Var TaobinLevelDesc2 = "Earn " + PointDiff
            Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
            Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Flying turtle level"

            Var TaobinLeveImg = "/taoLevel2.png"

            If CoffeePointRank > 149 Then
				;Var TaobinLeveImg = "/taoLevel3.png"

				;Var TaobinLevelDesc1 =  "Flying turtle level "
            	Var TaobinLevelDesc2 = ""
				;Var CoffeePointRank = CoffeePointRank - 150

			EndIf

        EndIf

        If TaobinLevel = "3" Then
            Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
        
            Var PointDiff = 200 - CoffeePointRank
            Var TaobinLevelDesc2 = "Earn " + PointDiff
            Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
            Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"

            Var TaobinLeveImg = "/taoLevel3.png"

            If CoffeePointRank > 199 Then
				;Var TaobinLeveImg = "/taoLevel4.png"

				;Var TaobinLevelDesc1 =  "Master turtle level "
            	Var TaobinLevelDesc2 = ""
				;Var CoffeePointRank = CoffeePointRank - 350

			EndIf

        EndIf

        If TaobinLevel = "4" Then
            Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp
        
            Var TaobinLevelDesc2 = ""

            Var TaobinLeveImg = "/taoLevel4.png"
        EndIf

        
    Else

        If TaobinLevel = "1" Then
            Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าขี้อาย"
            Var TaobinLevelDesc2 = ""

            Var TaobinLeveImg = "/taoLevel1.png"
        EndIf

        If TaobinLevel = "2" Then
            Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าเตาะแตะ"
            Var PointDiff = 150 - CoffeePointRank
            Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff
            Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง "
            Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นเต่าติดปีก"

            Var TaobinLeveImg = "/taoLevel2.png"

            If CoffeePointRank > 149 Then
				;Var TaobinLeveImg = "/taoLevel3.png"

				;Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก "
            	Var TaobinLevelDesc2 = ""
				;Var CoffeePointRank = CoffeePointRank - 150

			EndIf
        EndIf

        If TaobinLevel = "3" Then
            Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก จนถึง " + ExpireStrTmp
        
            Var PointDiff = 200 - CoffeePointRank
            Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff
            Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง "
            Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า"


            Var TaobinLeveImg = "/taoLevel3.png"

            If CoffeePointRank > 199 Then
				;Var TaobinLeveImg = "/taoLevel4.png"

				;Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า "
            	Var TaobinLevelDesc2 = ""
				;Var CoffeePointRank = CoffeePointRank - 350

			EndIf
        EndIf

        If TaobinLevel = "4" Then
            Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า จนถึง " + ExpireStrTmp
        
            Var TaobinLevelDesc2 = ""

            Var TaobinLeveImg = "/taoLevel4.png"
        EndIf

     
    EndIf


    Var PolygonST1 = "Invisible"
    Var PolygonST2 = "Invisible"


    ;Var CouponInfo1 =  Ext1a
    ;Var CouponInfo2 =  Ext1b
    ;Var CouponInfo3 =  Ext1c
    ;Var CouponInfo4 =  Ext1d
    ;Var CouponInfo5 =  Ext1e
    ;Var CouponInfo6 =  Ext1f
    ;Var CouponInfo7 =  Ext1g
    ;Var CouponInfo8 =  Ext1h
    ;Var CouponInfo9 =  Ext1i
    ;Var CouponInfo10 =  Ext1j

    Var CouponInfoA = ""
    Var CouponInfoB = ""

    Var CouponSTA =  "Invisible"
    Var CouponSTB =  "Invisible"
    Var CouponExpireA =  ""
    Var CouponExpireB =  ""
    Var CouponIDA = ""
    Var CouponIDB = ""
   

    Var CouponNum = TaobinCoupons

    If CouponPage = 1 Then

        If CouponInfo3 = "" Then
        Else
            Var PolygonST2 = "Enable"
        EndIf
        Var PolygonST1 = "Invisible"

        Var CouponInfoA = CouponInfo1
        Var CouponInfoB = CouponInfo2
        SPLIT  CouponInfoA "/"  1  CouponIDA
        SPLIT  CouponInfoB "/"  1  CouponIDB

    EndIf

    If CouponPage = 2 Then

        If CouponInfo5 = "" Then
        Else
            Var PolygonST2 = "Enable"
        EndIf
        Var PolygonST1 = "Enable"

        Var CouponInfoA = CouponInfo3
        Var CouponInfoB = CouponInfo4
        SPLIT  CouponInfoA "/"  1  CouponIDA
        SPLIT  CouponInfoB "/"  1  CouponIDB

    EndIf

    If CouponPage = 3 Then

        If CouponInfo7 = "" Then
        Else
            Var PolygonST2 = "Enable"
        EndIf
        Var PolygonST1 = "Enable"

        Var CouponInfoA = CouponInfo5
        Var CouponInfoB = CouponInfo6
        SPLIT  CouponInfoA "/"  1  CouponIDA
        SPLIT  CouponInfoB "/"  1  CouponIDB

    EndIf

    If CouponPage = 4 Then

        If CouponInfo9 = "" Then
        Else
            Var PolygonST2 = "Enable"
        EndIf
        Var PolygonST1 = "Enable"

        Var CouponInfoA = CouponInfo7
        Var CouponInfoB = CouponInfo8
        SPLIT  CouponInfoA "/"  1  CouponIDA
        SPLIT  CouponInfoB "/"  1  CouponIDB

    EndIf

    If CouponPage = 5 Then

        Var PolygonST1 = "Enable"
        Var PolygonST2 = "Invisible"

        Var CouponInfoA = CouponInfo9
        Var CouponInfoB = CouponInfo10
        SPLIT  CouponInfoA "/"  1  CouponIDA
        SPLIT  CouponInfoB "/"  1  CouponIDB
        

    EndIf

   
    If show_eng = "true" Then 

        If CouponIDA = "" Then
        Else
        

            Var CouponSTA =  "Enable"
            Var CouponExireA_D = ""
            Var CouponExireA_M = ""
            Var CouponExireA_Y = ""
            Var CouponTypeA = ""
            Var CouponNameA = ""


            SPLIT  CouponInfoA "/"  2  CouponTypeA
            SPLIT  CouponInfoA "/"  4  CouponExireA_D
            SPLIT  CouponInfoA "/"  5  CouponExireA_M
            SPLIT  CouponInfoA "/"  6  CouponExireA_Y

    
            If CouponTypeA = "100" Then
                Var CouponNameA = "/imgCouponC33.png"
            EndIf
            If CouponTypeA = "101" Then
                Var CouponNameA = "/imgCouponC44.png"
            EndIf 
            If CouponTypeA = "102" Then
                Var CouponNameA = "/imgCouponC39.png"
            EndIf
            If CouponTypeA = "103" Then
                Var CouponNameA = "/imgCouponC40.png"
            EndIf 
            If CouponTypeA = "105" Then
                Var CouponNameA = "/imgCouponC38.png"
            EndIf 
            If CouponTypeA = "106" Then
                Var CouponNameA = "/imgCouponC41.png"
            EndIf 
            If CouponTypeA = "107" Then
                Var CouponNameA = "/imgCouponC42.png"
            EndIf 
            If CouponTypeA = "109" Then
                Var CouponNameA = "/imgCouponC33.png"
            EndIf
            If CouponTypeA = "112" Then
                Var CouponNameA = "/imgCoupon112.png"
            EndIf 
            If CouponTypeA = "113" Then
                Var CouponNameA = "/imgCoupon113.png"
            EndIf 

            INT CouponExireA_D
            INT CouponExireA_Y
            Var CouponExireA_Y = CouponExireA_Y + 0

            If CouponExireA_M = "01" Then
                Var CouponExireA_M = "January"
            EndIf

            If CouponExireA_M = "02" Then
                Var CouponExireA_M = "February"
            EndIf

            If CouponExireA_M = "03" Then
                Var CouponExireA_M = "March"
            EndIf

            If CouponExireA_M = "04" Then
                Var CouponExireA_M = "April"
            EndIf

            If CouponExireA_M = "05" Then
                Var CouponExireA_M = "May"
            EndIf

            If CouponExireA_M = "06" Then
                Var CouponExireA_M = "June"
            EndIf

            If CouponExireA_M = "07" Then
                Var CouponExireA_M = "July"
            EndIf

            If CouponExireA_M = "08" Then
                Var CouponExireA_M = "August"
            EndIf

            If CouponExireA_M = "09" Then
                Var CouponExireA_M = "September"
            EndIf

            If CouponExireA_M = "10" Then
                Var CouponExireA_M = "October"
            EndIf

            If CouponExireA_M = "11" Then
                Var CouponExireA_M = "November"
            EndIf

            If CouponExireA_M = "12" Then
                Var CouponExireA_M = "December"
            EndIf

            Var CouponExpireA = CouponExpireA + CouponExireA_D
            Var CouponExpireA = CouponExpireA + "  "
            Var CouponExpireA = CouponExpireA + CouponExireA_M
            Var CouponExpireA = CouponExpireA + "  "
            Var CouponExpireA = CouponExpireA + CouponExireA_Y

            Var CouponExpireA = "Expires " +  CouponExpireA


        EndIf

        If CouponIDB = "" Then
        Else
        

            Var CouponSTB =  "Enable"
            Var CouponExireB_D = ""
            Var CouponExireB_M = ""
            Var CouponExireB_Y = ""
            Var CouponTypeB = ""
            Var CouponNameB = ""

            SPLIT  CouponInfoB "/"  2  CouponTypeB
            SPLIT  CouponInfoB "/"  4  CouponExireB_D
            SPLIT  CouponInfoB "/"  5  CouponExireB_M
            SPLIT  CouponInfoB "/"  6  CouponExireB_Y
           

            If CouponTypeB = "100" Then
                Var CouponNameB = "/imgCouponC33.png"
            EndIf
            If CouponTypeB = "101" Then
                Var CouponNameB = "/imgCouponC44.png"
            EndIf 
            If CouponTypeB = "102" Then
                Var CouponNameB = "/imgCouponC39.png"
            EndIf
            If CouponTypeB = "103" Then
                Var CouponNameB = "/imgCouponC40.png"
            EndIf 
            If CouponTypeB = "105" Then
                Var CouponNameB = "/imgCouponC38.png"
            EndIf 
            If CouponTypeB = "106" Then
                Var CouponNameB = "/imgCouponC41.png"
            EndIf
            If CouponTypeB = "107" Then
                Var CouponNameB = "/imgCouponC42.png"
            EndIf 
            If CouponTypeB = "109" Then
                Var CouponNameB = "/imgCouponC33.png"
            EndIf
            If CouponTypeB = "112" Then
                Var CouponNameB = "/imgCoupon112.png"
            EndIf
            If CouponTypeB = "113" Then
                Var CouponNameB = "/imgCoupon113.png"
            EndIf

            INT CouponExireB_D
            INT CouponExireB_Y
            Var CouponExireB_Y = CouponExireB_Y + 0

            If CouponExireB_M = "01" Then
                Var CouponExireB_M = "January"
            EndIf

            If CouponExireB_M = "02" Then
                Var CouponExireB_M = "February"
            EndIf

            If CouponExireB_M = "03" Then
                Var CouponExireB_M = "March"
            EndIf

            If CouponExireB_M = "04" Then
                Var CouponExireB_M = "April"
            EndIf

            If CouponExireB_M = "05" Then
                Var CouponExireB_M = "May"
            EndIf

            If CouponExireB_M = "06" Then
                Var CouponExireB_M = "June"
            EndIf

            If CouponExireB_M = "07" Then
                Var CouponExireB_M = "July"
            EndIf

            If CouponExireB_M = "08" Then
                Var CouponExireB_M = "August"
            EndIf

            If CouponExireB_M = "09" Then
                Var CouponExireB_M = "September"
            EndIf

            If CouponExireB_M = "10" Then
                Var CouponExireB_M = "October"
            EndIf

            If CouponExireB_M = "11" Then
                Var CouponExireB_M = "November"
            EndIf

            If CouponExireB_M = "12" Then
                Var CouponExireB_M = "December"
            EndIf

            Var CouponExpireB = CouponExpireB + CouponExireB_D
            Var CouponExpireB = CouponExpireB + "  "
            Var CouponExpireB = CouponExpireB + CouponExireB_M
            Var CouponExpireB = CouponExpireB + "  " 
            Var CouponExpireB = CouponExpireB + CouponExireB_Y

            Var CouponExpireB = "Expires " +  CouponExpireB

        EndIf

        Var CouponText = "Coupons (" + CouponNum
        Var CouponText = CouponText + ")"

    Else

   
        If CouponIDA = "" Then
        Else
        

            Var CouponSTA =  "Enable"
            Var CouponExireA_D = ""
            Var CouponExireA_M = ""
            Var CouponExireA_Y = ""
            Var CouponTypeA = ""
            Var CouponNameA = ""

            SPLIT  CouponInfoA "/"  2  CouponTypeA
            SPLIT  CouponInfoA "/"  4  CouponExireA_D
            SPLIT  CouponInfoA "/"  5  CouponExireA_M
            SPLIT  CouponInfoA "/"  6  CouponExireA_Y

            If CouponTypeA = "100" Then
                Var CouponNameA = "/imgCouponC33.png"
            EndIf
            If CouponTypeA = "101" Then
                Var CouponNameA = "/imgCouponC44.png"
            EndIf 
            If CouponTypeA = "102" Then
                Var CouponNameA = "/imgCouponC39.png"
            EndIf
            If CouponTypeA = "103" Then
                Var CouponNameA = "/imgCouponC40.png"
            EndIf 
            If CouponTypeA = "105" Then
                Var CouponNameA = "/imgCouponC38.png"
            EndIf 
            If CouponTypeA = "106" Then
                Var CouponNameA = "/imgCouponC41.png"
            EndIf
            If CouponTypeA = "107" Then
                Var CouponNameA = "/imgCouponC42.png"
            EndIf 
            If CouponTypeA = "109" Then
                Var CouponNameA = "/imgCouponC33.png"
            EndIf
            If CouponTypeA = "112" Then
                Var CouponNameA = "/imgCoupon112.png"
            EndIf
            If CouponTypeA = "113" Then
                Var CouponNameA = "/imgCoupon113.png"
            EndIf

            INT CouponExireA_D
            INT CouponExireA_Y
            Var CouponExireA_Y = CouponExireA_Y + 543

            If CouponExireA_M = "01" Then
                Var CouponExireA_M = "มกราคม"
            EndIf

            If CouponExireA_M = "02" Then
                Var CouponExireA_M = "กุมภาพันธ์"
            EndIf

            If CouponExireA_M = "03" Then
                Var CouponExireA_M = "มีนาคม"
            EndIf

            If CouponExireA_M = "04" Then
                Var CouponExireA_M = "เมษายน"
            EndIf

            If CouponExireA_M = "05" Then
                Var CouponExireA_M = "พฤษภาคม"
            EndIf

            If CouponExireA_M = "06" Then
                Var CouponExireA_M = "มิถุนายน"
            EndIf

            If CouponExireA_M = "07" Then
                Var CouponExireA_M = "กรกฎาคม"
            EndIf

            If CouponExireA_M = "08" Then
                Var CouponExireA_M = "สิงหาคม"
            EndIf

            If CouponExireA_M = "09" Then
                Var CouponExireA_M = "กันยายน"
            EndIf

            If CouponExireA_M = "10" Then
                Var CouponExireA_M = "ตุลาคม"
            EndIf

            If CouponExireA_M = "11" Then
                Var CouponExireA_M = "พฤศจิกายน"
            EndIf

            If CouponExireA_M = "12" Then
                Var CouponExireA_M = "ธันวาคม"
            EndIf

            Var CouponExpireA = CouponExpireA + CouponExireA_D
            Var CouponExpireA = CouponExpireA + "  "
            Var CouponExpireA = CouponExpireA + CouponExireA_M
            Var CouponExpireA = CouponExpireA + "  "
            Var CouponExpireA = CouponExpireA + CouponExireA_Y

            Var CouponExpireA = "หมดอายุ " +  CouponExpireA


        EndIf

        If CouponIDB = "" Then
        Else
        

            Var CouponSTB =  "Enable"
            Var CouponExireB_D = ""
            Var CouponExireB_M = ""
            Var CouponExireB_Y = ""
            Var CouponTypeB = ""
            Var CouponNameB = ""

            SPLIT  CouponInfoB "/"  2  CouponTypeB
            SPLIT  CouponInfoB "/"  4  CouponExireB_D
            SPLIT  CouponInfoB "/"  5  CouponExireB_M
            SPLIT  CouponInfoB "/"  6  CouponExireB_Y

            If CouponTypeB = "100" Then
                Var CouponNameB = "/imgCouponC33.png"
            EndIf
            If CouponTypeB = "101" Then
                Var CouponNameB = "/imgCouponC44.png"
            EndIf 
            If CouponTypeB = "102" Then
                Var CouponNameB = "/imgCouponC39.png"
            EndIf
            If CouponTypeB = "103" Then
                Var CouponNameB = "/imgCouponC40.png"
            EndIf 
            If CouponTypeB = "105" Then
                Var CouponNameB = "/imgCouponC38.png"
            EndIf 
            If CouponTypeB = "106" Then
                Var CouponNameB = "/imgCouponC41.png"
            EndIf
            If CouponTypeB = "107" Then
                Var CouponNameB = "/imgCouponC42.png"
            EndIf
            If CouponTypeB = "109" Then
                Var CouponNameB = "/imgCouponC33.png"
            EndIf 
            If CouponTypeB = "112" Then
                Var CouponNameB = "/imgCoupon112.png"
            EndIf 
            If CouponTypeB = "113" Then
                Var CouponNameB = "/imgCoupon113.png"
            EndIf 

            INT CouponExireB_D
            INT CouponExireB_Y
            Var CouponExireB_Y = CouponExireB_Y + 543

            If CouponExireB_M = "01" Then
                Var CouponExireB_M = "มกราคม"
            EndIf

            If CouponExireB_M = "02" Then
                Var CouponExireB_M = "กุมภาพันธ์"
            EndIf

            If CouponExireB_M = "03" Then
                Var CouponExireB_M = "มีนาคม"
            EndIf

            If CouponExireB_M = "04" Then
                Var CouponExireB_M = "เมษายน"
            EndIf

            If CouponExireB_M = "05" Then
                Var CouponExireB_M = "พฤษภาคม"
            EndIf

            If CouponExireB_M = "06" Then
                Var CouponExireB_M = "มิถุนายน"
            EndIf

            If CouponExireB_M = "07" Then
                Var CouponExireB_M = "กรกฎาคม"
            EndIf

            If CouponExireB_M = "08" Then
                Var CouponExireB_M = "สิงหาคม"
            EndIf

            If CouponExireB_M = "09" Then
                Var CouponExireB_M = "กันยายน"
            EndIf

            If CouponExireB_M = "10" Then
                Var CouponExireB_M = "ตุลาคม"
            EndIf

            If CouponExireB_M = "11" Then
                Var CouponExireB_M = "พฤศจิกายน"
            EndIf

            If CouponExireB_M = "12" Then
                Var CouponExireB_M = "ธันวาคม"
            EndIf

            Var CouponExpireB = CouponExpireB + CouponExireB_D
            Var CouponExpireB = CouponExpireB + "  "
            Var CouponExpireB = CouponExpireB + CouponExireB_M
            Var CouponExpireB = CouponExpireB + "  " 
            Var CouponExpireB = CouponExpireB + CouponExireB_Y

            Var CouponExpireB = "หมดอายุ " +  CouponExpireB

        EndIf

        Var CouponText = "คูปองสะสม (" + CouponNum
        Var CouponText = CouponText + ")"

    EndIf

   
    If MakeDrinkState = 1 Then
        Var bn_exit = "/bn_cancel2.png"
        Var bp_exit = "/bp_cancel2.png"
    Else
        Var bn_exit = "/bn_main.png"
        Var bp_exit = "/bp_main.png"
    EndIf


    Var text5Img = "/text5.png"

    If CountryName = "Malaysia" Then
		Var text5Img = "/text5-MYR.png"
	EndIf

	If CountryName = "Indonesia" Then
		Var text5Img = "/text5-IDR.png"
	EndIf 

    
    INT TaobinCredit
	Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow )
	

</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout> 

	
	Var Timeout = Timeout + 1
	If Timeout > 30 Then

        If MakeDrinkState = 1 Then

            If PromotionIDCurrentOrder > 1 Then
					Open "ROOT/taobin_project/xml/page_display_Promo1Get1Free.xml"
			EndIf

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

		Open "ROOT/taobin_project/xml/page_back_to_main.xml"

	EndIf

	TimerReset
	Refresh
</EventTimeout> 


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

<EventActionOk>
	Open "ROOT/taobin_project/xml/page_check_member2.xml"
</EventActionOk>


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

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

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

<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp  </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	; eng
	If show_eng = "true" Then 
		Var show_eng = "false"
	Else
		Var show_eng = "true"
	EndIf
	Open CurrentXMLFileName2
</EventClick>
</Button>


<Button>
<X> 433 </X>
<Y> 411 </Y>
<State> buttonState </State>
<Filename> Var( DirImage + "/bn_topupCredit.png" )</Filename>
<FilenamePress> Var( DirImage + "/bn_topupCredit.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

     ;Open "ROOT/taobin_project/xml/page_member_topup2.xml"
     Open "ROOT/taobin_project/xml/page_member_topup3.xml" 

</EventClick>
</Button>

<Button>
<X> 719 </X>
<Y> 411 </Y>
<State> buttonState </State>
<Filename> Var( DirImage + "/bn_changePin.png" )</Filename>
<FilenamePress> Var( DirImage + "/bn_changePin.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

    Open "ROOT/taobin_project/xml/page_payment_changePin1.xml"

</EventClick>
</Button>


<Image>
<X> 162 </X>
<Y> 560 </Y>
<Filename> Var( DirImage + text5Img )</Filename>
</Image>


<Image>
<X> 617 </X>
<Y> 587 </Y>
<Filename> Var( DirImage + TaobinLeveImg )</Filename>
</Image>
;


<Text>
<X> 253 </X>
<Y> 669 </Y>
<Size> 35 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xFFFFFF </Color>
<Value> TaobinName </Value>
</Text>

<Text>
<X> 253 </X>
<Y> 720 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xFFFFFF </Color>
<Value> TNumberTaobinMemberXXX </Value>
<Format> Telnum-mask-1 </Format>
</Text>

<Text>
<X> 546 </X>
<Y> 865 </Y>
<Size> 70 </Size>
<Width> 384 </Width>
<Align> Center </Align>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> CoffeePointRank </Value>
</Text>

<Text>
<X> 162 </X>
<Y> 865 </Y>
<Size> 70 </Size>
<Width> 384 </Width>
<Align> Center </Align>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinCreditStr </Value>
</Text>

<Text>
<X> 159 </X>
<Y> 1000 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinLevelDesc1 </Value>
</Text>

<Text>
<X> 159 </X>
<Y> 1032 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc2 </Value>
</Text>


;<Button>
;<X> 156 </X>
;<Y> 1746 </Y>
;<Filename> Var( DirImage + "/bn_checkKradong.png" )</Filename>
;<FilenamePress> Var( DirImage + "/bp_checkKradong.png" )</FilenamePress>
;<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
;<Volume> SoundVolume </Volume>
;<EventClick> 
;	Open "ROOT/taobin_project/xml/page_check_member_point.xml"
;</EventClick>
;</Button>


<Button>
<X> 397 </X>
;<X> 630 </X>
<Y> 1746 </Y>
<Filename> Var( DirImage + bn_exit )</Filename>
<FilenamePress> Var( DirImage + bp_exit )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	; goto lid straw

    If MakeDrinkState = 1 Then
         If PromotionIDCurrentOrder > 1 Then
					Open "ROOT/taobin_project/xml/page_display_Promo1Get1Free.xml"
			EndIf
       Open "ROOT/taobin_project/xml/page_lid_straw.xml"
    EndIf

	Open "ROOT/taobin_project/xml/page_back_to_main.xml"
</EventClick>
</Button>


<Text>
<X> 159 </X>
<Y> 1121 </Y>
<Size> 36 </Size>
<Width> 240 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x513C2F </Color>
<Value> CouponText </Value>
</Text>


<Button>
<X> 166 </X>
<Y> 1228 </Y>
<State> CouponSTA </State>
<Filename> Var( DirImage + CouponNameA )</Filename>
<FilenamePress> Var( DirImage + CouponNameA )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	; goto lid straw
	
    Var CouponSendSms = CouponIDA
    Var CouponExpireDate = CouponExpireA
    Var CouponName = CouponNameA
    Var BmiYear = CouponSendSms
	Var PointCrm = ""
	Var GetScore = ""
    AddData 12 TelephoneNumber  BmiYear PointCrm GetScore
    Open "ROOT/taobin_project/xml/page_check_member3.xml"
</EventClick>
</Button>

<Text>
<X> 372 </X>
<Y> 1370 </Y>
<Size> 15 </Size>
<Width> 600 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> CouponExpireA </Value>
</Text>


<Button>
<X> 166 </X>
<Y> 1470 </Y>
<State> CouponSTB </State>
<Filename> Var( DirImage + CouponNameB )</Filename>
<FilenamePress> Var( DirImage + CouponNameB )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	; goto lid straw
	
    Var CouponSendSms = CouponIDB
    Var CouponExpireDate = CouponExpireB
    Var CouponName = CouponNameB
    Var BmiYear = CouponSendSms
	Var PointCrm = ""
	Var GetScore = ""
    AddData 12 TelephoneNumber  BmiYear PointCrm GetScore
     Open "ROOT/taobin_project/xml/page_check_member3.xml"
</EventClick>
</Button>

<Text>
<X> 372 </X>
<Y> 1613 </Y>
<Size> 15 </Size>
<Width> 600 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> CouponExpireB </Value>
</Text>


<Button>
<X> 65 </X>
<Y> 1405 </Y>
<State> PolygonST1 </State>
<Filename> "ROOT/taobin_project/image/display_point/Polygon1.png"</Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
    Var CouponPage =  CouponPage - 1
    Open "ROOT/taobin_project/xml/page_check_member2.xml"
</EventClick>
</Button>

<Button>
<X> 990 </X>
<Y> 1405 </Y>
<State> PolygonST2 </State>
<Filename> "ROOT/taobin_project/image/display_point/Polygon2.png"</Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var CouponPage =  CouponPage + 1
    Open "ROOT/taobin_project/xml/page_check_member2.xml"
</EventClick>
</Button>


</Popup>