taobin_project/xml/event/bad_valentine/page_bad_valentine_random.xml

165 lines
No EOL
5 KiB
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] = "/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>