taobin_project/xml/event/bad_valentine/page_bad_valentine_random.xml

<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] = "/random_pattern_1.png"
        Var patternList[1] = "/random_pattern_2.png"
        Var patternList[2] = "/random_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 = "Act like a lover,\nbut it's just casual chatter."
            Var patternList[0].Text2 = "Get all the lover-fell functions. When I asked to be\nmy girlfriend, she said NO"

            Var patternList[1].Text1 = "She went for a shower, BRB.\nThree 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.\nNo worries, keep your cash, invest in a new unknown."

        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 = "ทำทุกอย่างเหมือนแฟน\nแต่เป็นได้แค่คนคุย"
            Var patternList[0].Text2 = "รับทุกฟังก์ชั่นแบบฟีลแฟน พอขอเป็นแฟนเธอบอกแคนนอท"

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

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

        EndIf

        ; Random pattern
        Var pattern = 0
        Random2 0 2 pattern
        Var PatternImg = patternList[pattern]
        Var PatternImg.X = patternList[pattern].X
        Var PatternImg.Y = patternList[pattern].Y
        Var PatternImg.Text1 = patternList[pattern].Text1
        Var PatternImg.Text2 = patternList[pattern].Text2

        DEBUGVAR UserCouponReward
        DEBUGVAR PatternImg
        DEBUGVAR PatternImg.X
        DEBUGVAR PatternImg.Y
        DEBUGVAR PatternImg.Text1
        DEBUGVAR PatternImg.Text2
    </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> 66 </X>
        <Y> 464 </Y>
        <Filename> CouponResultImage </Filename>
    </Image>

    <Image>
        <X> PatternImg.X </X>
        <Y> PatternImg.Y </Y>
        <Filename> Var( DirImage + PatternImg) </Filename>
    </Image>

    <Text>
        <X> 0 </X>
        <Y> 1600 </Y>
        <Width> 1080 </Width>
        <Height> 200 </Height>
        <Font> KanitSemiBoldTTF </Font>
        <Size> 48 </Size>
        <Color> 0x523D30 </Color>
        <Align> center-vertical-horizontal </Align>
        <Value> PatternImg.Text1 </Value>
    </Text> 

    <Text>
        <X> 0 </X>
        <Y> 1760 </Y>
        <Width> 1080 </Width>
        <Height> 150 </Height>
        <Font> KanitSemiBoldTTF </Font>
        <Size> 32 </Size>
        <Color> 0xFFFFFF </Color>
        <Align> center-vertical-horizontal </Align>
        <Value> PatternImg.Text2 </Value>
    </Text>

<EventUnitTest1>
    OpenInst 2 "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventUnitTest1>

<EventUnitTest2>
    Var show_eng = "false"
    Open "ROOT/taobin_project/xml/event/bad_valentine/page_bad_valentine_random.xml"
</EventUnitTest2>

<EventUnitTest3>
    Var show_eng = "true"
    Open "ROOT/taobin_project/xml/event/bad_valentine/page_bad_valentine_random.xml"
</EventUnitTest3>

<EventUnitTest4>
    Open "ROOT/taobin_project/xml/event/bad_valentine/page_bad_valentine_random.xml"
</EventUnitTest4>

</Popup>