THAI: Add Bad valentine promotion image and collecting point page

This commit is contained in:
Kenta420 2024-02-06 17:42:33 +07:00
parent 5ff368f812
commit 454610cf6c
58 changed files with 1528 additions and 0 deletions

View file

@ -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>

View file

@ -0,0 +1,391 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
SAVELOG UnitTestType
Var TaobinLevel = 0
Var Point2X = 0
Var Seeker.TaobinErrorNetwork = 0
DEBUGVAR show_eng
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If PayOfflineMode = 1 Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_bad_valentine_error.xml"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var TaobinLevel = 0
Var CoffeePoint = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_bad_valentine_error.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If Ext1a = "" Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_bad_valentine_error.xml"
Else
Var TaobinName = Ext1b
Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber
Var Seeker.IsAlreadyHadGlass = Ext1c
Var Seeker.PointTaobinStr = ParamCP
Var Seeker.TNumberTaobinMember = TelephoneNumberX
Var PointState[0] = 0
Var PointState[1] = 0
Var PointState[2] = 0
Var PointState[3] = 0
Var PointState[4] = 0
Var PointState[5] = 0
Var PointState[6] = 0
Var PointState[7] = 0
Var PointState[8] = 0
DEBUGVAR Ext1a
SPLIT Ext1a "/" 1 PointState[0]
SPLIT Ext1a "/" 2 PointState[1]
SPLIT Ext1a "/" 3 PointState[2]
SPLIT Ext1a "/" 4 PointState[3]
SPLIT Ext1a "/" 5 PointState[4]
SPLIT Ext1a "/" 6 PointState[5]
SPLIT Ext1a "/" 7 PointState[6]
SPLIT Ext1a "/" 8 PointState[7]
SPLIT Ext1a "/" 9 PointState[8]
INT PointState[0]
INT PointState[1]
INT PointState[2]
INT PointState[3]
INT PointState[4]
INT PointState[5]
INT PointState[6]
INT PointState[7]
INT PointState[8]
DEBUGVAR PointState[0]
DEBUGVAR PointState[1]
DEBUGVAR PointState[2]
DEBUGVAR PointState[3]
DEBUGVAR PointState[4]
DEBUGVAR PointState[5]
DEBUGVAR PointState[6]
DEBUGVAR PointState[7]
DEBUGVAR PointState[8]
Var newPointIndex = ""
; Point 1
If Seeker.selected_a_drink = "12-01-02-0061" Then
If PointState[0] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 0
EndIf
Var PointState[0] = 1
EndIf
If Seeker.selected_a_drink = "12-01-03-0061" Then
If PointState[0] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 0
EndIf
Var PointState[0] = 1
EndIf
If Seeker.selected_a_drink = "12-21-02-0061" Then
If PointState[0] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 0
EndIf
Var PointState[0] = 1
EndIf
If Seeker.selected_a_drink = "12-21-03-0061" Then
If PointState[0] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 0
EndIf
Var PointState[0] = 1
EndIf
If Seeker.selected_a_drink = "12-21-02-0057" Then
If PointState[0] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 0
EndIf
Var PointState[0] = 1
EndIf
; Point 2
If Seeker.selected_a_drink = "12-01-02-0062" Then
If PointState[1] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 1
EndIf
Var PointState[1] = 1
EndIf
If Seeker.selected_a_drink = "12-21-02-0062" Then
If PointState[1] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 1
EndIf
Var PointState[1] = 1
EndIf
; Point 3
If Seeker.selected_a_drink = "12-03-03-0044" Then
If PointState[2] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 2
EndIf
Var PointState[2] = 1
EndIf
; Point 4
If Seeker.selected_a_drink = "12-03-03-0045" Then
If PointState[3] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 3
EndIf
Var PointState[3] = 1
EndIf
; Point 5
If Seeker.selected_a_drink = "12-03-03-0029" Then
If PointState[4] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 4
EndIf
Var PointState[4] = 1
EndIf
; Point 6
If Seeker.selected_a_drink = "12-02-02-0053" Then
If PointState[5] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 5
EndIf
Var PointState[5] = 1
EndIf
; Point 7
If Seeker.selected_a_drink = "12-02-02-0054" Then
If PointState[6] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 6
EndIf
Var PointState[6] = 1
EndIf
; Point 8
If Seeker.selected_a_drink = "12-02-02-0055" Then
If PointState[7] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 7
EndIf
Var PointState[7] = 1
EndIf
; Point 9
If Seeker.selected_a_drink = "12-05-02-0078" Then
If PointState[8] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 8
EndIf
Var PointState[8] = 1
EndIf
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR newPointIndex
DEBUGVAR Seeker.PointTaobinStr
DEBUGVAR Seeker.TNumberTaobinMember
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_bad_valentine_3.xml"
EndIf
</EventActionOk>
<EventActionError>
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_bad_valentine_error.xml"
</EventActionError>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<Image>
<X> 178 </X>
<Y> 680 </Y>
<Filename> Var( DirImage + "/text20.png" ) </Filename>
</Image>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Text>
<X> 0 </X>
<Y> 873 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> TelephoneNumber </Value>
<Format> Telnum-mask-1 </Format>
</Text>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
</Popup>

View file

@ -0,0 +1,687 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
;CoffeePoint
;Var CoffeePoint = 30
Var BmiYear = "0/0/0/0/0/0/0/0/0/1"
Var PointCrm = "pdpa1"
Var GetScore = ""
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
;AddData 4 TelephoneNumber BmiYear PointCrm GetScore
;Add after pay
Var PointMaskState = "Invisible"
Var showRandomBtnState = "Invisible"
Var CoffeePointStr = CoffeePoint
DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX
Var ThaiTextState = "Invisible"
Var EngTextState = "Invisible"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/event/bad_valentine/display_point_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var EngTextState = "Enable"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else
Var DirImage = "ROOT/taobin_project/image/event/bad_valentine/display_point"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var ThaiTextState = "Enable"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var CheckCoupons = 0
Var MakeDrinkState = 0
Var taobinP1 = "Invisible"
Var taobinP2 = "Invisible"
Var taobinP3 = "Invisible"
Var taobinP4 = "Invisible"
Var taobinP5 = "Invisible"
Var taobinP6 = "Invisible"
Var taobinP7 = "Invisible"
Var taobinP8 = "Invisible"
Var taobinP9 = "Invisible"
Var taobinP10 = "Invisible"
Var taobinP11 = "Invisible"
Var taobinP12 = "Invisible"
Var taobinP13 = "Invisible"
Var taobinImgNewPoint = "/point_active_new.png"
Var taobinImgPoint[0] = "/point_active.png"
Var taobinImgPoint[1]= "/point_active.png"
Var taobinImgPoint[2]= "/point_active.png"
Var taobinImgPoint[3]= "/point_active.png"
Var taobinImgPoint[4]= "/point_active.png"
Var taobinImgPoint[5]= "/point_active.png"
Var taobinImgPoint[6]= "/point_active.png"
Var taobinImgPoint[7]= "/point_active.png"
Var taobinImgPoint[8]= "/point_active.png"
;Var taobinTextPointTH[0] = "รวยข้ามคืน ตื่นมารวย"
;Var taobinTextPointTH[1] = "รวยตาค้าง กระพริบตาบ้างก็ได้"
;Var taobinTextPointTH[2] = "รวยจนหน้าชา อาม่ายังงง"
;Var taobinTextPointTH[3] = "รวยจนช็อก! น็อคแล้วไหม"
;Var taobinTextPointTH[4] = "รวยไม่รู้ล้ม เอาผมลงไหมล่ะ"
;Var taobinTextPointTH[5] = "รวยนะคะรู้ยัง ถ้ายังก็รู้ซะ"
;Var taobinTextPointTH[6] = "รวยล้นฟ้า เทวดาซัปพอร์ต"
;Var taobinTextPointTH[7] = "รวยฟ้าผ่า เพราะลืมหลบฝน"
;Var taobinTextPointTH[8] = "แสร้งว่ารวย ค่าหวยไม่จ่าย"
;Var taobinTextPointEN[0] = "Mint Cafe Latte"
;Var taobinTextPointEN[1] = "Mintcano"
;Var taobinTextPointEN[2] = "Matcha Latte Mint"
;Var taobinTextPointEN[3] = "Cocoa Mint"
;Var taobinTextPointEN[4] = "Mint Milk"
;Var taobinTextPointEN[5] = "Strawberry Mint Milk"
;Var taobinTextPointEN[6] = "Mint Oreo Volcano"
;Var taobinTextPointEN[7] = "Mint Lime Soda"
;Var taobinTextPointEN[8] = "Strawberry Mint Soda"
;Var taobinTextColorPoint[0] = "0xFFFFFF"
;Var taobinTextColorPoint[1] = "0xFFFFFF"
;Var taobinTextColorPoint[2] = "0xFFFFFF"
;Var taobinTextColorPoint[3] = "0xFFFFFF"
;Var taobinTextColorPoint[4] = "0xFFFFFF"
;Var taobinTextColorPoint[5] = "0xFFFFFF"
;Var taobinTextColorPoint[6] = "0xFFFFFF"
;Var taobinTextColorPoint[7] = "0xFFFFFF"
;Var taobinTextColorPoint[8] = "0xFFFFFF"
Var PointCount = 0
DEBUGVAR PointState[0]
DEBUGVAR PointState[1]
DEBUGVAR PointState[2]
DEBUGVAR PointState[3]
DEBUGVAR PointState[4]
DEBUGVAR PointState[5]
DEBUGVAR PointState[6]
DEBUGVAR PointState[7]
DEBUGVAR PointState[8]
If PointState[0] = 1 Then
Var PointCount = PointCount + 1
EndIf
If PointState[1] = 1 Then
Var PointCount = PointCount + 1
EndIf
If PointState[2] = 1 Then
Var PointCount = PointCount + 1
EndIf
If PointState[3] = 1 Then
Var PointCount = PointCount + 1
EndIf
If PointState[4] = 1 Then
Var PointCount = PointCount + 1
EndIf
If PointState[5] = 1 Then
Var PointCount = PointCount + 1
EndIf
If PointState[6] = 1 Then
Var PointCount = PointCount + 1
EndIf
If PointState[7] = 1 Then
Var PointCount = PointCount + 1
EndIf
If PointState[8] = 1 Then
Var PointCount = PointCount + 1
EndIf
If newPointIndex = "" Then
; Nothing
Else
If newPointIndex >= 0 Then
Var taobinImgPoint[newPointIndex] = "/point_active_new.png"
;Var taobinTextColorPoint[newPointIndex] = "0x2CDD69"
EndIf
EndIf
Var PointDiff = 9 - PointCount
If show_eng = "true" Then
Var TaobinLevelDesc1 = "You're just " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " menu item away from Ba(d)nana Valentine Series."
Var TaobinLevelDesc2 = "Collect all 9-heartbreaking menu items."
;Var MemberStatus_Y = 772
;Var MemberName_Y = 795
;Var MemeberPhone_Y = 845
;Var MemberPoint_Y = 920
Var subTitle_Y = 839
;Var TaobinLevelDesc1_X = 236
;Var TaobinLevelDesc1_Y = 990
;Var TaobinLevelDesc2_X = 236
;Var TaobinLevelDesc2_Y = 1020
Var text8_X = 224
Else
Var TaobinLevelDesc1 = "เหลืออีก " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " เมนูจะครบซีรีส์กล้วยชีช้ำ"
Var TaobinLevelDesc2 = "รีบสะสมให้ครบ 9 เมนูสุดช้ำตอนนี้เลย!"
;Var MemberStatus_Y = 772
;Var MemberName_Y = 795
;Var MemeberPhone_Y = 845
;Var MemberPoint_Y = 920
Var subTitle_Y = 853
;Var TaobinLevelDesc1_X = 236
;Var TaobinLevelDesc1_Y = 990
;Var TaobinLevelDesc2_X = 236
;Var TaobinLevelDesc2_Y = 1020
Var text8_X = 346
EndIf
If PointCount = 9 Then
Var showRandomBtnState = "Enable"
EndIf
Var CurrentPointSlot = newPointIndex + 1
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 10 Then
Var CurrentPointCheck = "check"
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/display_point/alpha.png" </Filename>
</Image>
;
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Filename> Var( DirImage + "/img_popup1.png" )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Filename> Var( DirImage + "/img_popup3.png" )</Filename>
</Image>
<Image>
<X> 243 </X>
<Y> 731 </Y>
<Filename> Var( DirImage + "/text7.png" )</Filename>
</Image>
<Image>
<X> 243 </X>
<Y> subTitle_Y </Y>
<Filename> Var( DirImage + "/sub_title.png" )</Filename>
</Image>
<Image>
<X> 625 </X>
<Y> 732 </Y>
<Filename> Var( DirImage + "/ghost_broken_heart.png" )</Filename>
</Image>
;
<Image>
<X> 220 </X>
<Y> 1126 </Y>
<Filename> Var( DirImage + taobinImgPoint[0]) </Filename>
</Image>
<Image>
<X> 360 </X>
<Y> 1126 </Y>
<Filename> Var( DirImage + taobinImgPoint[1]) </Filename>
</Image>
<Image>
<X> 500 </X>
<Y> 1126 </Y>
<Filename> Var( DirImage + taobinImgPoint[2]) </Filename>
</Image>
<Image>
<X> 640 </X>
<Y> 1126 </Y>
<Filename> Var( DirImage + taobinImgPoint[3]) </Filename>
</Image>
<Image>
<X> 780 </X>
<Y> 1126 </Y>
<Filename> Var( DirImage + taobinImgPoint[4]) </Filename>
</Image>
<Image>
<X> 220 </X>
<Y> 1276 </Y>
<Filename> Var( DirImage + taobinImgPoint[5]) </Filename>
</Image>
<Image>
<X> 360 </X>
<Y> 1276 </Y>
<Filename> Var( DirImage + taobinImgPoint[6]) </Filename>
</Image>
<Image>
<X> 500 </X>
<Y> 1276 </Y>
<Filename> Var( DirImage + taobinImgPoint[7]) </Filename>
</Image>
<Image>
<X> 640 </X>
<Y> 1276 </Y>
<Filename> Var( DirImage + taobinImgPoint[8]) </Filename>
</Image>
<Button>
<X> 423 </X>
<Y> 1660 </Y>
<State> showRandomBtnState </State>
<Filename> Var( DirImage + "/bn_random.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_random.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
If SELLONLINE = 1 Then
Var CurrentPointCheck = ""
Else
Var CurrentPointCheck = "check"
EndIf
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Open "ROOT/taobin_project/xml/event/bad_valentine/page_bad_valentine_random.xml"
</EventClick>
</Button>
<Text>
<X> 243 </X>
<Y> 764 </Y>
<Size> 35 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x513C2F </Color>
<Value> TaobinName </Value>
</Text>
<Text>
<X> 243 </X>
<Y> 802 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TNumberTaobinMemberXXX </Value>
<Format> Telnum-mask-1 </Format>
</Text>
; Header
<Text>
<X> 247 </X>
<Y> 911 </Y>
<Size> 48 </Size>
<Width> 120 </Width>
<Font> RobotoBold </Font>
<Color> 0xDE794E </Color>
<Value> PointCount </Value>
</Text>
<Text>
<X> 247 </X>
<Y> 967 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinLevelDesc1 </Value>
</Text>
<Text>
<X> 247 </X>
<Y> 998 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc2 </Value>
</Text>
<Image>
<X> text8_X </X>
<Y> 1578 </Y>
<Filename> Var( DirImage + "/text8.png" )</Filename>
</Image>
;<Text>
;<X> 232 </X>
;<Y> 1240 </Y>
;<State> ThaiTextState </State>
;<Size> 12 </Size>
;<Width> 120 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[0] </Color>
;<Value> taobinTextPointTH[0] </Value>
;</Text>
;
;<Text>
;<X> 243 </X>
;<Y> 1240 </Y>
;<State> EngTextState </State>
;<Size> 12 </Size>
;<Width> 100 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[0] </Color>
;<Value> taobinTextPointEN[0] </Value>
;</Text>
;
;<Text>
;<X> 343 </X>
;<Y> 1240 </Y>
;<State> ThaiTextState </State>
;<Size> 12 </Size>
;<Width> 150 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[1] </Color>
;<Value> taobinTextPointTH[1] </Value>
;</Text>
;
;<Text>
;<X> 388 </X>
;<Y> 1240 </Y>
;<State> EngTextState </State>
;<Size> 12 </Size>
;<Width> 100 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[1] </Color>
;<Value> taobinTextPointEN[1] </Value>
;</Text>
;
;<Text>
;<X> 493 </X>
;<Y> 1240 </Y>
;<State> ThaiTextState </State>
;<Size> 12 </Size>
;<Width> 120 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[2] </Color>
;<Value> taobinTextPointTH[2] </Value>
;</Text>
;
;<Text>
;<X> 497 </X>
;<Y> 1240 </Y>
;<State> EngTextState </State>
;<Size> 12 </Size>
;<Width> 150 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[2] </Color>
;<Value> taobinTextPointEN[2] </Value>
;</Text>
;
;<Text>
;<X> 624 </X>
;<Y> 1240 </Y>
;<State> ThaiTextState </State>
;<Size> 12 </Size>
;<Width> 120 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[3] </Color>
;<Value> taobinTextPointTH[3] </Value>
;</Text>
;
;<Text>
;<X> 645 </X>
;<Y> 1240 </Y>
;<State> EngTextState </State>
;<Size> 12 </Size>
;<Width> 100 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[3] </Color>
;<Value> taobinTextPointEN[3] </Value>
;</Text>
;
;<Text>
;<X> 747 </X>
;<Y> 1240 </Y>
;<State> ThaiTextState </State>
;<Size> 12 </Size>
;<Width> 155 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[4] </Color>
;<Value> taobinTextPointTH[4] </Value>
;</Text>
;
;<Text>
;<X> 782 </X>
;<Y> 1240 </Y>
;<State> EngTextState </State>
;<Size> 12 </Size>
;<Width> 100 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[4] </Color>
;<Value> taobinTextPointEN[4] </Value>
;</Text>
;
;<Text>
;<X> 225 </X>
;<Y> 1388 </Y>
;<State> ThaiTextState </State>
;<Size> 12 </Size>
;<Width> 120 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[5] </Color>
;<Value> taobinTextPointTH[5] </Value>
;</Text>
;
;<Text>
;<X> 230 </X>
;<Y> 1388 </Y>
;<State> EngTextState </State>
;<Size> 12 </Size>
;<Width> 200 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[5] </Color>
;<Value> taobinTextPointEN[5] </Value>
;</Text>
;
;<Text>
;<X> 353 </X>
;<Y> 1388 </Y>
;<State> ThaiTextState </State>
;<Size> 12 </Size>
;<Width> 150 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[6] </Color>
;<Value> taobinTextPointTH[6] </Value>
;</Text>
;
;<Text>
;<X> 366 </X>
;<Y> 1388 </Y>
;<State> EngTextState </State>
;<Size> 12 </Size>
;<Width> 100 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[6] </Color>
;<Value> taobinTextPointEN[6] </Value>
;</Text>
;
;<Text>
;<X> 488 </X>
;<Y> 1388 </Y>
;<State> ThaiTextState </State>
;<Size> 12 </Size>
;<Width> 150 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[7] </Color>
;<Value> taobinTextPointTH[7] </Value>
;</Text>
;
;<Text>
;<X> 506 </X>
;<Y> 1388 </Y>
;<State> EngTextState </State>
;<Size> 12 </Size>
;<Width> 100 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[7] </Color>
;<Value> taobinTextPointEN[7] </Value>
;</Text>
;
;<Text>
;<X> 622 </X>
;<Y> 1388 </Y>
;<State> ThaiTextState </State>
;<Size> 12 </Size>
;<Width> 200 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[8] </Color>
;<Value> taobinTextPointTH[8] </Value>
;</Text>
;
;<Text>
;<X> 616 </X>
;<Y> 1388 </Y>
;<State> EngTextState </State>
;<Size> 12 </Size>
;<Width> 200 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> taobinTextColorPoint[8] </Color>
;<Value> taobinTextPointEN[8] </Value>
;</Text>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
<EventUnitTest3>
Var PointState[0] = 1
Var PointState[1] = 1
Var PointState[2] = 1
Var PointState[3] = 1
Var PointState[4] = 1
Var PointState[5] = 1
Var PointState[6] = 1
Var PointState[7] = 1
Var PointState[8] = 1
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_bad_valentine_3.xml"
</EventUnitTest3>
<EventUnitTest4>
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_bad_valentine_3.xml"
</EventUnitTest4>
</Popup>

View file

@ -0,0 +1,250 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
SAVELOG show_eng
DEBUGVAR CollectPointError
If CollectPointError = "collect" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/event/bad_valentine/error_en"
Var Title_X = 135
Var Title_Y = 623
Var Detail_X = 57
Var Detail_Y = 1336
Else
Var DirImage = "ROOT/taobin_project/image/event/bad_valentine/error"
Var Title_X = 250
Var Title_Y = 610
Var Detail_X = 252
Var Detail_Y = 1336
EndIf
Var Img = DirImage + "/img2.png"
Var Img_X = 230
Var Img_Y = 872
Var title_text_fail = DirImage + "/title_text_fail2.png"
Var text_fail = DirImage + "/text_fail2.png"
Var ConfirmBtn_X = 397
Var ConfirmBtn_Y = 1710
EndIf
If CollectPointError = "random" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/event/bad_valentine/error_en"
Var Title_X = 240
Var Title_Y = 646
Var Detail_X = 140
Var Detail_Y = 1546
Else
Var DirImage = "ROOT/taobin_project/image/event/bad_valentine/error"
Var Title_X = 324
Var Title_Y = 630
Var Detail_X = 297
Var Detail_Y = 1541
EndIf
Var Img = DirImage + "/img.png"
Var Img_X = 287
Var Img_Y = 755
Var title_text_fail = DirImage + "/title_text_fail.png"
Var text_fail = DirImage + "/text_fail.png"
Var ConfirmBtn_X = 397
Var ConfirmBtn_Y = 1710
EndIf
Var newPointIndex = 0
; Point 1
If Seeker.selected_a_drink = "12-01-02-0061" Then
Var newPointIndex = 0
EndIf
If Seeker.selected_a_drink = "12-01-03-0061" Then
Var newPointIndex = 0
EndIf
If Seeker.selected_a_drink = "12-21-02-0061" Then
Var newPointIndex = 0
EndIf
If Seeker.selected_a_drink = "12-21-03-0061" Then
Var newPointIndex = 0
EndIf
; Point 2
If Seeker.selected_a_drink = "12-01-02-0062" Then
Var newPointIndex = 1
EndIf
If Seeker.selected_a_drink = "12-21-02-0062" Then
Var newPointIndex = 1
EndIf
; Point 3
If Seeker.selected_a_drink = "12-03-03-0044" Then
Var newPointIndex = 2
EndIf
; Point 4
If Seeker.selected_a_drink = "12-03-03-0045" Then
Var newPointIndex = 3
EndIf
; Point 5
If Seeker.selected_a_drink = "12-03-03-0029" Then
Var newPointIndex = 4
EndIf
; Point 6
If Seeker.selected_a_drink = "12-02-02-0053" Then
Var newPointIndex = 5
EndIf
; Point 7
If Seeker.selected_a_drink = "12-02-02-0054" Then
Var newPointIndex = 6
EndIf
; Point 8
If Seeker.selected_a_drink = "12-02-02-0055" Then
Var newPointIndex = 7
EndIf
; Point 9
If Seeker.selected_a_drink = "12-05-02-0078" Then
Var newPointIndex = 8
EndIf
Var CurrentPointSlot = newPointIndex + 1
Var CurrentPointCheck = "check"
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "/bg.png" ) </Filename>
</Image>
<Image>
<X> Title_X </X>
<Y> Title_Y </Y>
<Filename> title_text_fail </Filename>
</Image>
<Image>
<X> Img_X </X>
<Y> Img_Y </Y>
<Filename> img </Filename>
</Image>
<Image>
<X> Detail_X </X>
<Y> Detail_Y </Y>
<Filename> text_fail </Filename>
</Image>
<Button>
<X> ConfirmBtn_X </X>
<Y> ConfirmBtn_Y </Y>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
If PromotionIDCurrentOrder > 1 Then
Open "ROOT/taobin_project/xml/page_display_Promo1Get1Free.xml"
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>