move script profile to ./xml/profile/run.ev

This commit is contained in:
wanlop run 2023-11-21 17:20:20 +07:00
commit b5c0ad755b
137 changed files with 21579 additions and 10183 deletions

View file

@ -0,0 +1,557 @@
<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
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_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
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_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
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_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 MyMintPointState[0] = 0
Var MyMintPointState[1] = 0
Var MyMintPointState[2] = 0
Var MyMintPointState[3] = 0
Var MyMintPointState[4] = 0
Var MyMintPointState[5] = 0
Var MyMintPointState[6] = 0
Var MyMintPointState[7] = 0
Var MyMintPointState[8] = 0
Var MyMintPointState[9] = 0
Var MyMintPointState[10] = 0
Var MyMintPointState[11] = 0
Var MyMintPointState[12] = 0
DEBUGVAR Ext1a
SPLIT Ext1a "/" 1 MyMintPointState[0]
SPLIT Ext1a "/" 2 MyMintPointState[1]
SPLIT Ext1a "/" 3 MyMintPointState[2]
SPLIT Ext1a "/" 4 MyMintPointState[3]
SPLIT Ext1a "/" 5 MyMintPointState[4]
SPLIT Ext1a "/" 6 MyMintPointState[5]
SPLIT Ext1a "/" 7 MyMintPointState[6]
SPLIT Ext1a "/" 8 MyMintPointState[7]
SPLIT Ext1a "/" 9 MyMintPointState[8]
SPLIT Ext1a "/" 10 MyMintPointState[9]
SPLIT Ext1a "/" 11 MyMintPointState[10]
SPLIT Ext1a "/" 12 MyMintPointState[11]
SPLIT Ext1a "/" 13 MyMintPointState[12]
INT MyMintPointState[0]
INT MyMintPointState[1]
INT MyMintPointState[2]
INT MyMintPointState[3]
INT MyMintPointState[4]
INT MyMintPointState[5]
INT MyMintPointState[6]
INT MyMintPointState[7]
INT MyMintPointState[8]
INT MyMintPointState[9]
INT MyMintPointState[10]
INT MyMintPointState[11]
INT MyMintPointState[12]
DEBUGVAR MyMintPointState[0]
DEBUGVAR MyMintPointState[1]
DEBUGVAR MyMintPointState[2]
DEBUGVAR MyMintPointState[3]
DEBUGVAR MyMintPointState[4]
DEBUGVAR MyMintPointState[5]
DEBUGVAR MyMintPointState[6]
DEBUGVAR MyMintPointState[7]
DEBUGVAR MyMintPointState[8]
DEBUGVAR MyMintPointState[9]
DEBUGVAR MyMintPointState[10]
DEBUGVAR MyMintPointState[11]
DEBUGVAR MyMintPointState[12]
Var MyMintNewPointIndex = ""
; Point 1
If Seeker.selected_a_drink = "12-01-01-0057" Then
If MyMintPointState[0] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 0
EndIf
Var MyMintPointState[0] = 1
EndIf
If Seeker.selected_a_drink = "12-01-02-0057" Then
If MyMintPointState[0] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 0
EndIf
Var MyMintPointState[0] = 1
EndIf
If Seeker.selected_a_drink = "12-01-03-0057" Then
If MyMintPointState[0] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 0
EndIf
Var MyMintPointState[0] = 1
EndIf
If Seeker.selected_a_drink = "12-21-01-0057" Then
If MyMintPointState[0] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 0
EndIf
Var MyMintPointState[0] = 1
EndIf
If Seeker.selected_a_drink = "12-21-02-0057" Then
If MyMintPointState[0] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 0
EndIf
Var MyMintPointState[0] = 1
EndIf
If Seeker.selected_a_drink = "12-21-03-0057" Then
If MyMintPointState[0] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 0
EndIf
Var MyMintPointState[0] = 1
EndIf
; Point 2
If Seeker.selected_a_drink = "12-01-01-0058" Then
If MyMintPointState[1] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 1
EndIf
Var MyMintPointState[1] = 1
EndIf
If Seeker.selected_a_drink = "12-01-02-0058" Then
If MyMintPointState[1] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 1
EndIf
Var MyMintPointState[1] = 1
EndIf
If Seeker.selected_a_drink = "12-21-01-0058" Then
If MyMintPointState[1] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 1
EndIf
Var MyMintPointState[1] = 1
EndIf
If Seeker.selected_a_drink = "12-21-02-0058" Then
If MyMintPointState[1] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 1
EndIf
Var MyMintPointState[1] = 1
EndIf
; Point 3
If Seeker.selected_a_drink = "12-02-01-0050" Then
If MyMintPointState[2] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 2
EndIf
Var MyMintPointState[2] = 1
EndIf
If Seeker.selected_a_drink = "12-02-02-0050" Then
If MyMintPointState[2] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 2
EndIf
Var MyMintPointState[2] = 1
EndIf
If Seeker.selected_a_drink = "12-02-03-0050" Then
If MyMintPointState[2] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 2
EndIf
Var MyMintPointState[2] = 1
EndIf
; Point 4
If Seeker.selected_a_drink = "12-03-01-0035" Then
If MyMintPointState[3] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 3
EndIf
Var MyMintPointState[3] = 1
EndIf
If Seeker.selected_a_drink = "12-03-02-0035" Then
If MyMintPointState[3] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 3
EndIf
Var MyMintPointState[3] = 1
EndIf
If Seeker.selected_a_drink = "12-03-03-0035" Then
If MyMintPointState[3] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 3
EndIf
Var MyMintPointState[3] = 1
EndIf
; Point 5
If Seeker.selected_a_drink = "12-03-01-0036" Then
If MyMintPointState[4] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 4
EndIf
Var MyMintPointState[4] = 1
EndIf
If Seeker.selected_a_drink = "12-03-02-0036" Then
If MyMintPointState[4] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 4
EndIf
Var MyMintPointState[4] = 1
EndIf
If Seeker.selected_a_drink = "12-03-03-0036" Then
If MyMintPointState[4] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 4
EndIf
Var MyMintPointState[4] = 1
EndIf
; Point 6
If Seeker.selected_a_drink = "12-03-02-0037" Then
If MyMintPointState[5] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 5
EndIf
Var MyMintPointState[5] = 1
EndIf
If Seeker.selected_a_drink = "12-03-03-0037" Then
If MyMintPointState[5] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 5
EndIf
Var MyMintPointState[5] = 1
EndIf
; Point 7
If Seeker.selected_a_drink = "12-03-03-0034" Then
If MyMintPointState[6] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 6
EndIf
Var MyMintPointState[6] = 1
EndIf
; Point 8
If Seeker.selected_a_drink = "12-05-02-0060" Then
If MyMintPointState[7] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 7
EndIf
Var MyMintPointState[7] = 1
EndIf
; Point 9
If Seeker.selected_a_drink = "12-05-02-0063" Then
If MyMintPointState[8] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 8
EndIf
Var MyMintPointState[8] = 1
EndIf
; Point 10
If Seeker.selected_a_drink = "12-05-02-0064" Then
If MyMintPointState[9] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 9
EndIf
Var MyMintPointState[9] = 1
EndIf
; Point 11
If Seeker.selected_a_drink = "12-05-02-0065" Then
If MyMintPointState[10] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 10
EndIf
Var MyMintPointState[10] = 1
EndIf
; Point 12
If Seeker.selected_a_drink = "12-05-02-0066" Then
If MyMintPointState[11] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 11
EndIf
Var MyMintPointState[11] = 1
EndIf
; Point 13
If Seeker.selected_a_drink = "12-05-02-0067" Then
If MyMintPointState[12] = 1 Then
Var MyMintNewPointIndex = ""
Else
Var MyMintNewPointIndex = 12
EndIf
Var MyMintPointState[12] = 1
EndIf
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR MyMintNewPointIndex
DEBUGVAR Seeker.PointTaobinStr
DEBUGVAR Seeker.TNumberTaobinMember
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_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/my_mint_my_moment/page_collect_point_pro_mymint_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,874 @@
<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/my_mint_my_moment/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/my_mint_my_moment/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 taobinImgPoint = "/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 taobinImgPoint[9] = "/point_active.png"
Var taobinImgPoint[10] = "/point_active.png"
Var taobinImgPoint[11] = "/point_active.png"
Var taobinImgPoint[12] = "/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 taobinTextPointTH[9] = "ยูซุมินต์โซดา"
Var taobinTextPointTH[10] = "บ๊วยมะนาว มินต์โซดา"
Var taobinTextPointTH[11] = "มินต์ลิ้นจี่ มะนาวโซดา"
Var taobinTextPointTH[12] = "เป๊ปซี่มินต์"
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 taobinTextPointEN[9] = "Yuzu Mint Soda"
Var taobinTextPointEN[10] = "Plum Limenade Mint Soda"
Var taobinTextPointEN[11] = "Mint Lychee Lemon Soda"
Var taobinTextPointEN[12] = "Pepsi Mint"
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 taobinTextColorPoint[9] = "0xFFFFFF"
Var taobinTextColorPoint[10] = "0xFFFFFF"
Var taobinTextColorPoint[11] = "0xFFFFFF"
Var taobinTextColorPoint[12] = "0xFFFFFF"
Var MyMintPoint = 0
DEBUGVAR MyMintPointState[0]
DEBUGVAR MyMintPointState[1]
DEBUGVAR MyMintPointState[2]
DEBUGVAR MyMintPointState[3]
DEBUGVAR MyMintPointState[4]
DEBUGVAR MyMintPointState[5]
DEBUGVAR MyMintPointState[6]
DEBUGVAR MyMintPointState[7]
DEBUGVAR MyMintPointState[8]
DEBUGVAR MyMintPointState[9]
DEBUGVAR MyMintPointState[10]
DEBUGVAR MyMintPointState[11]
DEBUGVAR MyMintPointState[12]
If MyMintPointState[0] = 1 Then
Var taobinP1 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[1] = 1 Then
Var taobinP2 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[2] = 1 Then
Var taobinP3 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[3] = 1 Then
Var taobinP4 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[4] = 1 Then
Var taobinP5 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[5] = 1 Then
Var taobinP6 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[6] = 1 Then
Var taobinP7 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[7] = 1 Then
Var taobinP8 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[8] = 1 Then
Var taobinP9 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[9] = 1 Then
Var taobinP10 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[10] = 1 Then
Var taobinP11 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[11] = 1 Then
Var taobinP12 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintPointState[12] = 1 Then
Var taobinP13 = "Enable"
Var MyMintPoint = MyMintPoint + 1
EndIf
If MyMintNewPointIndex = "" Then
; Nothing
Else
If MyMintNewPointIndex >= 0 Then
Var taobinImgPoint[MyMintNewPointIndex] = "/point_active_new.png"
Var taobinTextColorPoint[MyMintNewPointIndex] = "0x2CDD69"
EndIf
EndIf
Var PointDiff = 13 - MyMintPoint
If show_eng = "true" Then
Var TaobinLevelDesc1 = "You're just " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " menu item away from unlocking a San Tao's gift."
Var TaobinLevelDesc2 = "Collect all 13 Mint menus now!"
Var MemberStatus_Y = 772
Var MemberName_Y = 795
Var MemeberPhone_Y = 845
Var MemberPoint_Y = 920
Var TaobinLevelDesc1_X = 236
Var TaobinLevelDesc1_Y = 990
Var TaobinLevelDesc2_X = 236
Var TaobinLevelDesc2_Y = 1020
Var text8_X = 374
Else
Var TaobinLevelDesc1 = "เหลืออีก " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " เมนูที่จะเปิดล็อคของขวัญซานเต่า"
Var TaobinLevelDesc2 = "สะสมให้ครบ 13 เมนูมินต์แสนอร่อยตอนนี้เลย!"
Var MemberStatus_Y = 772
Var MemberName_Y = 795
Var MemeberPhone_Y = 845
Var MemberPoint_Y = 920
Var TaobinLevelDesc1_X = 236
Var TaobinLevelDesc1_Y = 990
Var TaobinLevelDesc2_X = 236
Var TaobinLevelDesc2_Y = 1020
Var text8_X = 296
EndIf
If MyMintPoint = 13 Then
Var showRandomBtnState = "Enable"
EndIf
If Seeker = "curr" Then
Var CheckCouponState = "Enable"
Else
Var CheckCouponState = "Disable"
EndIf
Var CurrentPointSlot = MyMintNewPointIndex + 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>
;<Filename> "ROOT/taobin_project/image/event/my_mint_my_moment/display_point/img_popup1.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Filename> Var( DirImage + "/img_popup3.png" )</Filename>
;<Filename> "ROOT/taobin_project/image/event/my_mint_my_moment/display_point/img_popup3.png" </Filename>
</Image>
<Image>
<X> 243 </X>
<Y> MemberStatus_Y </Y>
<Filename> Var( DirImage + "/text7.png" )</Filename>
</Image>
<Image>
<X> 248 </X>
<Y> 890 </Y>
<Filename> Var( DirImage + "/text4.png" )</Filename>
</Image>
<Image>
<X> 625 </X>
<Y> 734 </Y>
<Filename> Var( DirImage + "/tao_santa.png" )</Filename>
</Image>
;
<Image>
<X> 234 </X>
<Y> 1120 </Y>
<Filename> Var( DirImage + "/list_point_deactive.png" ) </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/my_mint_my_moment/page_mymint_random.xml"
</EventClick>
</Button>
<Text>
<X> 250 </X>
<Y> MemberName_Y </Y>
<Size> 35 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x513C2F </Color>
<Value> TaobinName </Value>
</Text>
<Text>
<X> 250 </X>
<Y> MemeberPhone_Y </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> 250 </X>
<Y> MemberPoint_Y </Y>
<Size> 50 </Size>
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> MyMintPoint </Value>
</Text>
<Text>
<X> TaobinLevelDesc1_X </X>
<Y> TaobinLevelDesc1_Y </Y>
<Size> 25 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinLevelDesc1 </Value>
</Text>
<Text>
<X> TaobinLevelDesc2_X </X>
<Y> TaobinLevelDesc2_Y </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>
<Image>
<X> 234 </X>
<Y> 1122 </Y>
<State> taobinP1 </State>
<Filename> Var( DirImage + taobinImgPoint[0] )</Filename>
</Image>
<Image>
<X> 365 </X>
<Y> 1122 </Y>
<State> taobinP2 </State>
<Filename> Var( DirImage + taobinImgPoint[1] )</Filename>
</Image>
<Image>
<X> 496 </X>
<Y> 1122 </Y>
<State> taobinP3 </State>
<Filename> Var( DirImage + taobinImgPoint[2] )</Filename>
</Image>
<Image>
<X> 627 </X>
<Y> 1122 </Y>
<State> taobinP4 </State>
<Filename> Var( DirImage + taobinImgPoint[3] )</Filename>
</Image>
<Image>
<X> 758 </X>
<Y> 1122 </Y>
<State> taobinP5 </State>
<Filename> Var( DirImage + taobinImgPoint[4] )</Filename>
</Image>
<Image>
<X> 234 </X>
<Y> 1268 </Y>
<State> taobinP6 </State>
<Filename> Var( DirImage + taobinImgPoint[5] )</Filename>
</Image>
<Image>
<X> 365 </X>
<Y> 1268 </Y>
<State> taobinP7 </State>
<Filename> Var( DirImage + taobinImgPoint[6] )</Filename>
</Image>
<Image>
<X> 496 </X>
<Y> 1268 </Y>
<State> taobinP8 </State>
<Filename> Var( DirImage + taobinImgPoint[7] )</Filename>
</Image>
<Image>
<X> 627 </X>
<Y> 1268 </Y>
<State> taobinP9 </State>
<Filename> Var( DirImage + taobinImgPoint[8] )</Filename>
</Image>
<Image>
<X> 758 </X>
<Y> 1268 </Y>
<State> taobinP10 </State>
<Filename> Var( DirImage + taobinImgPoint[9] )</Filename>
</Image>
<Image>
<X> 234 </X>
<Y> 1414 </Y>
<State> taobinP11 </State>
<Filename> Var( DirImage + taobinImgPoint[10] )</Filename>
</Image>
<Image>
<X> 365 </X>
<Y> 1414 </Y>
<State> taobinP12 </State>
<Filename> Var( DirImage + taobinImgPoint[11] )</Filename>
</Image>
<Image>
<X> 496 </X>
<Y> 1414 </Y>
<State> taobinP13 </State>
<Filename> Var( DirImage + taobinImgPoint[12] )</Filename>
</Image>
<Text>
<X> 245 </X>
<Y> 1240 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </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> 390 </X>
<Y> 1240 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </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> 510 </X>
<Y> 1240 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </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> 652 </X>
<Y> 1240 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </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> 787 </X>
<Y> 1240 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </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> 231 </X>
<Y> 1388 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 105 </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> 373 </X>
<Y> 1388 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </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> 508 </X>
<Y> 1388 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </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>
<Text>
<X> 776 </X>
<Y> 1388 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[9] </Color>
<Value> taobinTextPointTH[9] </Value>
</Text>
<Text>
<X> 765 </X>
<Y> 1388 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[9] </Color>
<Value> taobinTextPointEN[9] </Value>
</Text>
<Text>
<X> 234 </X>
<Y> 1530 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 200 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[10] </Color>
<Value> taobinTextPointTH[10] </Value>
</Text>
<Text>
<X> 213 </X>
<Y> 1530 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 200 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[10] </Color>
<Value> taobinTextPointEN[10] </Value>
</Text>
<Text>
<X> 365 </X>
<Y> 1530 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 110 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[11] </Color>
<Value> taobinTextPointTH[11] </Value>
</Text>
<Text>
<X> 363 </X>
<Y> 1530 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 200 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[11] </Color>
<Value> taobinTextPointEN[11] </Value>
</Text>
<Text>
<X> 521 </X>
<Y> 1530 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[12] </Color>
<Value> taobinTextPointTH[12] </Value>
</Text>
<Text>
<X> 517 </X>
<Y> 1530 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[12] </Color>
<Value> taobinTextPointEN[12] </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 MyMintPointState[0] = 1
Var MyMintPointState[1] = 1
Var MyMintPointState[2] = 1
Var MyMintPointState[3] = 1
Var MyMintPointState[4] = 1
Var MyMintPointState[5] = 1
Var MyMintPointState[6] = 1
Var MyMintPointState[7] = 1
Var MyMintPointState[8] = 1
Var MyMintPointState[9] = 1
Var MyMintPointState[10] = 1
Var MyMintPointState[11] = 1
Var MyMintPointState[12] = 1
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_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/my_mint_my_moment/page_collect_point_pro_mymint_3.xml"
</EventUnitTest4>
</Popup>

View file

@ -0,0 +1,326 @@
<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
Var ShowCollectPointError = "Invisible"
Var ShowRandomError = "Invisible"
DEBUGVAR CollectPointError
If CollectPointError = "collect" Then
Var ShowCollectPointError = "Enable"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/event/my_mint_my_moment/error_en"
Var Detail_X = 252
Var Detail_Y = 1336
Else
Var DirImage = "ROOT/taobin_project/image/event/my_mint_my_moment/error"
Var Detail_X = 297
Var Detail_Y = 1336
EndIf
Var ConfirmBtn_X = 397
Var ConfirmBtn_Y = 1559
EndIf
If CollectPointError = "random" Then
Var ShowRandomError = "Enable"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/event/my_mint_my_moment/error_en"
Var Title_X = 170
Var Title_Y = 477
Var Detail_X = 179
Var Detail_Y = 1550
Else
Var DirImage = "ROOT/taobin_project/image/event/my_mint_my_moment/error"
Var Title_X = 131
Var Title_Y = 532
Var Detail_X = 165
Var Detail_Y = 1615
EndIf
Var ConfirmBtn_X = 397
Var ConfirmBtn_Y = 1790
EndIf
DEBUGVAR ShowCollectPointError
DEBUGVAR ShowRandomError
Var MyMintNewPointIndex = 0
; Point 1
If Seeker.selected_a_drink = "12-01-01-0057" Then
Var MyMintNewPointIndex = 0
EndIf
If Seeker.selected_a_drink = "12-01-02-0057" Then
Var MyMintNewPointIndex = 0
EndIf
If Seeker.selected_a_drink = "12-01-03-0057" Then
Var MyMintNewPointIndex = 0
EndIf
If Seeker.selected_a_drink = "12-21-01-0057" Then
Var MyMintNewPointIndex = 0
EndIf
If Seeker.selected_a_drink = "12-21-02-0057" Then
Var MyMintNewPointIndex = 0
EndIf
If Seeker.selected_a_drink = "12-21-03-0057" Then
Var MyMintNewPointIndex = 0
EndIf
; Point 2
If Seeker.selected_a_drink = "12-01-01-0058" Then
Var MyMintNewPointIndex = 1
EndIf
If Seeker.selected_a_drink = "12-01-02-0058" Then
Var MyMintNewPointIndex = 1
EndIf
If Seeker.selected_a_drink = "12-21-01-0058" Then
Var MyMintNewPointIndex = 1
EndIf
If Seeker.selected_a_drink = "12-21-02-0058" Then
Var MyMintNewPointIndex = 1
EndIf
; Point 3
If Seeker.selected_a_drink = "12-02-01-0050" Then
Var MyMintNewPointIndex = 2
EndIf
If Seeker.selected_a_drink = "12-02-02-0050" Then
Var MyMintNewPointIndex = 2
EndIf
If Seeker.selected_a_drink = "12-02-03-0050" Then
Var MyMintNewPointIndex = 2
EndIf
; Point 4
If Seeker.selected_a_drink = "12-03-01-0035" Then
Var MyMintNewPointIndex = 3
EndIf
If Seeker.selected_a_drink = "12-03-02-0035" Then
Var MyMintNewPointIndex = 3
EndIf
If Seeker.selected_a_drink = "12-03-03-0035" Then
Var MyMintNewPointIndex = 3
EndIf
; Point 5
If Seeker.selected_a_drink = "12-03-01-0036" Then
Var MyMintNewPointIndex = 4
EndIf
If Seeker.selected_a_drink = "12-03-02-0036" Then
Var MyMintNewPointIndex = 4
EndIf
If Seeker.selected_a_drink = "12-03-03-0036" Then
Var MyMintNewPointIndex = 4
EndIf
; Point 6
If Seeker.selected_a_drink = "12-03-02-0037" Then
Var MyMintNewPointIndex = 5
EndIf
If Seeker.selected_a_drink = "12-03-03-0037" Then
Var MyMintNewPointIndex = 5
EndIf
; Point 7
If Seeker.selected_a_drink = "12-03-03-0034" Then
Var MyMintNewPointIndex = 6
EndIf
; Point 8
If Seeker.selected_a_drink = "12-05-02-0060" Then
Var MyMintNewPointIndex = 7
EndIf
; Point 9
If Seeker.selected_a_drink = "12-05-02-0063" Then
Var MyMintNewPointIndex = 8
EndIf
; Point 10
If Seeker.selected_a_drink = "12-05-02-0064" Then
Var MyMintNewPointIndex = 9
EndIf
; Point 11
If Seeker.selected_a_drink = "12-05-02-0065" Then
Var MyMintNewPointIndex = 10
EndIf
; Point 12
If Seeker.selected_a_drink = "12-05-02-0066" Then
Var MyMintNewPointIndex = 11
EndIf
; Point 13
If Seeker.selected_a_drink = "12-05-02-0067" Then
Var MyMintNewPointIndex = 12
EndIf
Var CurrentPointSlot = MyMintNewPointIndex + 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>
<State> ShowRandomError </State>
<Filename> Var( DirImage + "/bg.png" ) </Filename>
</Image>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> ShowCollectPointError </State>
<Filename> Var( DirImage + "/alpha.png" ) </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 607 </Y>
<State> ShowCollectPointError </State>
<Filename> Var( DirImage + "/popup.png" ) </Filename>
</Image>
<Image>
<X> Title_X </X>
<Y> Title_Y </Y>
<State> ShowRandomError </State>
<Filename> Var( DirImage + "/text_failed_coupon.png" )</Filename>
</Image>
<Image>
<X> 246 </X>
<Y> 697 </Y>
<State> ShowCollectPointError </State>
<Filename> Var( DirImage + "/mint_cup_fall.png" )</Filename>
</Image>
<Image>
<X> Detail_X </X>
<Y> Detail_Y </Y>
<State> ShowRandomError </State>
<Filename> Var( DirImage + "/text_failed_network_disrupt.png" )</Filename>
</Image>
<Image>
<X> Detail_X </X>
<Y> Detail_Y </Y>
<State> ShowCollectPointError </State>
<Filename> Var( DirImage + "/text02.png" )</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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventUnitTest3>
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_error.xml"
</EventUnitTest3>
<EventUnitTest4>
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
Var CollectPointError = "random"
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_error.xml"
</EventUnitTest4>
</Page>

View file

@ -0,0 +1,280 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
;<Background> "0xeae6e1" </Background>
<EventOpen>
Var Timeout = 0
Var randResult = 0
; list of random items
Var glass = "glass"
Var dis50 = "dis50"
Var dis100 = "dis100"
; 5 / 45 / 50 == nomalize ==> 1 / 9 / 10
; rate 5%
Var couponList[0] = glass
; rate 45%
Var couponList[1] = dis100
Var couponList[2] = dis100
Var couponList[3] = dis100
Var couponList[4] = dis100
Var couponList[5] = dis100
Var couponList[6] = dis100
Var couponList[7] = dis100
Var couponList[8] = dis100
Var couponList[9] = dis100
; rate 50%
Var couponList[10] = dis50
Var couponList[11] = dis50
Var couponList[12] = dis50
Var couponList[13] = dis50
Var couponList[14] = dis50
Var couponList[15] = dis50
Var couponList[16] = dis50
Var couponList[17] = dis50
Var couponList[18] = dis50
Var couponList[19] = dis50
; list of random items without glass
; rate 45%
Var couponWithoutGlassList[0] = dis100
Var couponWithoutGlassList[1] = dis100
Var couponWithoutGlassList[2] = dis100
Var couponWithoutGlassList[3] = dis100
Var couponWithoutGlassList[4] = dis100
Var couponWithoutGlassList[5] = dis100
Var couponWithoutGlassList[6] = dis100
Var couponWithoutGlassList[7] = dis100
Var couponWithoutGlassList[8] = dis100
; rate 55%
Var couponWithoutGlassList[9] = dis50
Var couponWithoutGlassList[10] = dis50
Var couponWithoutGlassList[11] = dis50
Var couponWithoutGlassList[12] = dis50
Var couponWithoutGlassList[13] = dis50
Var couponWithoutGlassList[14] = dis50
Var couponWithoutGlassList[15] = dis50
Var couponWithoutGlassList[16] = dis50
Var couponWithoutGlassList[17] = dis50
Var couponWithoutGlassList[18] = dis50
Var couponWithoutGlassList[19] = dis50
; Gifts btn
Var GiftBtnDir = "ROOT/taobin_project/image/event/my_mint_my_moment"
Var GiftBtnImg1 = GiftBtnDir + "/gift1.png"
Var GiftBtnImg2 = GiftBtnDir + "/gift2.png"
Var GiftBtnImg3 = GiftBtnDir + "/gift3.png"
Var GiftBtnImg4 = GiftBtnDir + "/gift4.png"
Var GiftBtnImg5 = GiftBtnDir + "/gift5.png"
If show_eng = "true" Then
Var MakeOrderBtnDir = "ROOT/taobin_project/image/page_payment_en"
Else
Var MakeOrderBtnDir = "ROOT/taobin_project/image/page_payment"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR Timeout
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
If Timeout > 30 Then
; Timeout auto random coupon
; Random coupon
Random2 0 20 randResult
DEBUGVAR randResult
If Seeker.IsAlreadyHadGlass = 1 Then
Var UserCouponReward = couponWithoutGlassList[randResult]
Else
Var UserCouponReward = couponList[randResult]
EndIf
DEBUGVAR UserCouponReward
; Send to server
Var CodeType = ""
Var var2 = "X"
Var var3 = "X"
If UserCouponReward = "glass" Then
Var CodeType = "117"
EndIf
If UserCouponReward = "dis50" Then
Var CodeType = "119"
EndIf
If UserCouponReward = "dis100" Then
Var CodeType = "118"
EndIf
AddData 38 TelephoneNumber CodeType var2 var3
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Var Timeout = Timeout + 1
TimerReset
Refresh
</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>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Filename> "ROOT/taobin_project/image/event/my_mint_my_moment/bg_mymint_random.png" </Filename>
</Image>
<Button>
<X> 403 </X>
<Y> 538 </Y>
<Filename> GiftBtnImg1 </Filename>
<EventOnClick>
; Random coupon
Function 2
</EventOnClick>
</Button>
<Button>
<X> 80 </X>
<Y> 851 </Y>
<Filename> GiftBtnImg2 </Filename>
<EventOnClick>
; Random coupon
Function 2
</EventOnClick>
</Button>
<Button>
<X> 681 </X>
<Y> 823 </Y>
<Filename> GiftBtnImg3 </Filename>
<EventOnClick>
; Random coupon
Function 2
</EventOnClick>
</Button>
<Button>
<X> 143 </X>
<Y> 1275 </Y>
<Filename> GiftBtnImg4 </Filename>
<EventOnClick>
; Random coupon
Function 2
</EventOnClick>
</Button>
<Button>
<X> 614 </X>
<Y> 1261 </Y>
<Filename> GiftBtnImg5 </Filename>
<EventOnClick>
; Random coupon
Function 2
</EventOnClick>
</Button>
<Function2>
; Random coupon
Random2 0 20 randResult
DEBUGVAR randResult
If Seeker.IsAlreadyHadGlass = 1 Then
Var UserCouponReward = couponWithoutGlassList[randResult]
Else
Var UserCouponReward = couponList[randResult]
EndIf
DEBUGVAR UserCouponReward
; Send to server
Var CodeType = ""
Var var2 = "X"
Var var3 = "X"
If UserCouponReward = "glass" Then
Var CodeType = "117"
EndIf
If UserCouponReward = "dis50" Then
Var CodeType = "119"
EndIf
If UserCouponReward = "dis100" Then
Var CodeType = "118"
EndIf
AddData 38 TelephoneNumber CodeType var2 var3
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_mymint_result.xml"
</Function2>
;
<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>
<EventUnitTest4>
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_mymint_random.xml"
</EventUnitTest4>
</Popup>

View file

@ -0,0 +1,65 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
;<Background> "0xeae6e1" </Background>
<EventOpen>
Var Timeout = 0
Var ServerRespond = 0
Var RewardDisplayDir = "ROOT/taobin_project/image/event/my_mint_my_moment/"
If show_eng = "true" Then
Var RewardDisplay = UserCouponReward + "_en.png"
Else
Var RewardDisplay = UserCouponReward + "_th.png"
EndIf
DEBUGVAR UserCouponReward
DEBUGVAR RewardDisplay
Var RewardDisplay = RewardDisplayDir + RewardDisplay
DEBUGVAR RewardDisplay
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR Timeout
If Timeout > 5 Then
; Check and return Error
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>
;
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Filename> RewardDisplay </Filename>
</Image>
<EventUnitTest1>
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventUnitTest1>
</Popup>

View file

@ -1 +1 @@
/event/promotion_oreo_welcome_drink.xml
/event/promotion_mymint.xml

View file

@ -524,7 +524,23 @@
Var web_telnumOK = web_telnum
Var web_app_prepar = "true"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
; Handle penetrator
If EnableJsonProfileMode = "true" Then
If Only18 = "true" Then
; OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Open "ROOT/taobin_project/xml/page_identity18_verification.xml"
Else
; OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
EndIf
Else
; OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
EndIf
; Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
EndIf
Else

File diff suppressed because it is too large Load diff

View file

@ -1,5 +1 @@
Open "ROOT/taobin_project/xml/page_identityMember_number.xml"
Open "ROOT/taobin_project/xml/page_catalog_group_pro_mymint.xml"

File diff suppressed because it is too large Load diff

View file

@ -524,7 +524,23 @@
Var web_telnumOK = web_telnum
Var web_app_prepar = "true"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
; Handle penetrator
If EnableJsonProfileMode = "true" Then
If Only18 = "true" Then
; OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Open "ROOT/taobin_project/xml/page_identity18_verification.xml"
Else
; OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
EndIf
Else
; OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
EndIf
; Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
EndIf
Else

View file

@ -19,9 +19,9 @@ Else
Var OpenFromPageBoard = 0
Else
If PepweenEnable = 1 Then
If MyMintEnable = 1 Then
Var BigButtonEnable = "Enable"
OpenInst 2 "ROOT/taobin_project/xml/event/promotion_pepween.xml"
OpenInst 2 "ROOT/taobin_project/xml/event/promotion_mymint.xml"
Var OpenFromPageBoard = 0
Else
@ -37,9 +37,9 @@ Else
Open "ROOT/taobin_project/xml/event/promotion_15THB.xml"
Else
If PepweenEnable = 1 Then
If MyMintEnable = 1 Then
Var BigButtonEnable = "Enable"
Open "ROOT/taobin_project/xml/event/promotion_pepween.xml"
Open "ROOT/taobin_project/xml/event/promotion_mymint.xml"
Else
Open "ROOT/taobin_project/xml/page_catalog_group_recommend.xml"

View file

@ -49,6 +49,9 @@ Var MilkChoiceVeganEnable = 0
Var pro15THBEnable = 0
Var From15THBPro = 0
; Enable pro My Mint My Moment, December 1 - 31
Var MyMintEnable = 0
Var FromMyMintPro = 0
If SystemDateMonthInt = 10 Then
@ -77,10 +80,14 @@ If SystemDateMonthInt = 11 Then
EndIf
If SystemDateMonthInt = 12 Then
Var MyMintEnable = 1
EndIf
If BoxID = 173149 Then
Var pro15THBEnable = 1
Var MyMintEnable = 1
EndIf
If BoxID = 176757 Then
@ -104,7 +111,8 @@ If ConfigNumer = 1581 Then
EndIf
If BoxID = 105005 Then
Var PepweenEnable = 1
Var MyMintEnable = 1
Var pro15THBEnable = 0
EndIf
Var GameEnableFromTrickerEv = 1