THAI: Add Bad valentine promotion image and collecting point page

xml/event/bad_valentine/page_bad_valentine_random.xml

@@ -0,0 +1,165 @@
+<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>