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

    <EventOpen>
        Var Timeout = 0

        If show_eng = "true" Then
            Var DirImage = "ROOT/taobin_project/image/event/bad_valentine/display_point_en"
        Else
            Var DirImage = "ROOT/taobin_project/image/event/bad_valentine/display_point"
        EndIf

        Var couponList[0] = "glass"
        Var couponList[1] = "dis50"

        ; Random coupon
        Var randResult = 0
        Random2 0 1 randResult

        DEBUGVAR randResult

        Var CodeType = ""
        Var var2 = "X"
        Var var3 = "X"

        If Seeker.IsAlreadyHadGlass = 1 Then
            Var CodeType = "123"
        Else
            Var UserCouponReward = couponList[randResult]
            If UserCouponReward = "glass" then
                Var CodeType = "124"
            else
                Var CodeType = "123"
            EndIf
        EndIf
 
        AddData 38 TelephoneNumber CodeType var2 var3

        If CodeType = "123" Then
            Var CouponResultImage = DirImage + "/discount_50.png"
        Else
            If CodeType = "124" Then
                Var CouponResultImage = DirImage + "/get_glass.png"
            EndIf
        EndIf


        ; pattern
        Var patternList[0] = "/randome_pattern_1.png"
        Var patternList[1] = "/randome_pattern_2.png"
        Var patternList[2] = "/randome_pattern_3.png"


        If show_eng = "true" Then

            Var patternList[0].X = 482
            Var patternList[0].Y = 1130

            Var patternList[1].X = 207
            Var patternList[1].Y = 1239

            Var patternList[2].X = 489
            Var patternList[2].Y = 1213


            Var patternList[0].Text1 = "ทำทุกอย่างเหมือนแฟน
แต่เป็นได้แค่คนคุย"
            Var patternList[0].Text2 = "รับทุกฟังก์ชั่นแบบฟีลแฟน พอขอเป็นแฟนเธอบอกแคนนอท"

            Var patternList[1].Text1 = "เธอขอไปอาบน้ำ เดี๋ยวมา
3 เดือนผ่านมายังไม่ตอบเลย"
            Var patternList[1].Text2 = "เราว่าเธอคงจะรักสะอาดจนไม่มีเวลาตอบ อาบน้ำตั้ง 3 เดือน ตัวคงเปื่อยน่าดูเลย"

            Var patternList[2].Text1 = "เปย์เป็นแสน แขนไม่ได้จับ"
            Var patternList[2].Text2 = "เปย์แทบตาย แต่สุดท้ายก็โดนทิ้ง ไม่เป็นไรนะ เก็บตังค์ไว้เปย์คนใหม่"
        
        Else

            Var patternList[0].X = 125
            Var patternList[0].Y = 1154

            Var patternList[1].X = 126
            Var patternList[1].Y = 1170

            Var patternList[2].X = 277
            Var patternList[2].Y = 1238


            Var patternList[0].Text1 = "Act like a lover,
but it's just casual chatter."
            Var patternList[0].Text2 = "Get all the lover-fell functions. When I asked to be
my girlfriend, she said NO"

            Var patternList[1].Text1 = "She went for a shower, BRB.
Three months later, still no word."
            Var patternList[1].Text2 = "She loves cleanliness, maybe too much for a reply."

            Var patternList[2].Text1 = "Paid for it all, yet stuck in the friend zone."
            Var patternList[2].Text2 = "Almost paid the price of life, but in the end, left alone.
No worries, keep your cash, invest in a new unknown."


        EndIf

        ; Random pattern
        Var pattern = 0
        Random2 0 2 pattern
        Var RewardDisplay = patternList[pattern]
        Var RewardDisplay.X = patternList[pattern].X
        Var RewardDisplay.Y = patternList[pattern].Y

        DEBUGVAR UserCouponReward
        DEBUGVAR RewardDisplay

        DEBUGVAR RewardDisplay
    </EventOpen>

    <Timeout> 1000 </Timeout>
    <EventTimeout>
        DEBUGVAR Timeout


        If Timeout > 5 Then
            Open "ROOT/taobin_project/xml/page_lid_straw.xml"
        EndIf

        Var Timeout = Timeout + 1
        TimerReset
    </EventTimeout>

    <Video>
        <X> 0 </X>
        <Y> 0 </Y>
        <Width> 1080</Width>
        <Height> 380 </Height>
        <Loop> "true" </Loop>
        <Filename> video_menu_0 </Filename>
    </Video>

    ; Background
    <Image>
        <X> 0 </X>
        <Y> 380 </Y>
        <Filename> "ROOT/taobin_project/image/event/bad_valentine/display_point/bg.png" </Filename>
    </Image>

    <Image>
        <X> 193 </X>
        <Y> 464 </Y>
        <Filename> CouponResultImage </Filename>
    </Image>

    <Image>
        <X> RewardDisplay.X </X>
        <Y> RewardDisplay.Y </Y>
        <Filename> RewardDisplay </Filename>
    </Image>

</Popup>