"Enable"
1080
1920
SoundVolume
; "0xeae6e1"
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
1000
DEBUGVAR Timeout
If Timeout > 5 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Var Timeout = Timeout + 1
TimerReset
; Background
0
380
"ROOT/taobin_project/image/event/bad_valentine/display_point/bg.png"
66
464
CouponResultImage
PatternImg.X
PatternImg.Y
Var( DirImage + PatternImg)
0
1600
1080
200
KanitSemiBoldTTF
48
0x523D30
center-vertical-horizontal
PatternImg.Text1
0
1760
1080
150
KanitSemiBoldTTF
32
0xFFFFFF
center-vertical-horizontal
PatternImg.Text2
OpenInst 2 "ROOT/taobin_project/xml/page_lid_straw.xml"
Var show_eng = "false"
Open "ROOT/taobin_project/xml/event/bad_valentine/page_bad_valentine_random.xml"
Var show_eng = "true"
Open "ROOT/taobin_project/xml/event/bad_valentine/page_bad_valentine_random.xml"
Open "ROOT/taobin_project/xml/event/bad_valentine/page_bad_valentine_random.xml"