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

View file

@ -367,7 +367,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

@ -12,6 +12,11 @@
else:
fixed_price = 0
if current_file_name == "page_catalog_group_pro_mymint.skt":
from_my_mint_promotion = True
else:
from_my_mint_promotion = False
print ("######################################################################################################")
idx_of_eng = 2
out_xml('<FrameScroll> \r\n')
@ -276,6 +281,9 @@
if fixed_price > 0:
out_xml( '\t\tVar From15THBPro = 1 \r\n')
if from_my_mint_promotion:
out_xml( '\t\tVar FromMyMintPro = 1 \r\n')
out_xml( '\t\t\r\n')
out_xml( '\t\t\r\n')

70
xml/page_adult_error.xml Normal file
View file

@ -0,0 +1,70 @@
; From y18IDCardLive, if the menu is not for sale
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
<EventOpen>
</EventOpen>
; Ad
<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>
<Color> "0xeae6e1" </Color>
</Image>
<Button>
<X> 19 </X>
<Y> 381 </Y>
<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow_2.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If SpiralOnline = "true" Then
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog_with_vending.xml"
Else
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
</EventClick>
</Button>
; Display not sale
<Text>
<X> 250 </X>
<Y> 1000 </Y>
<Size> 32 </Size>
<Width> 500 </Width>
<Height> 64 </Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Value> "This menu is unavailable" </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<EventUnitTest1>
Open "ROOT/taobin_project/xml/page_board.xml"
</EventUnitTest1>
</Popup>

View file

@ -921,53 +921,7 @@
EndIf
EndIf
; Init read
;ReadProfile "ROOT/xmlprofile/main.json" "XMLProfile"
DEBUGVAR XMLProfile
STRCONTAIN "y18IDCardLive" XMLProfile Y18IDCARDLIVE_ENABLE
STRCONTAIN "y18IDCard" XMLProfile Y18IDCARD_ENABLE
STRCONTAIN "SugarBreak" XMLProfile SugarBreakEnable
STRCONTAIN "Discount50" XMLProfile Discount50
DEBUGVAR CounterEnable
DEBUGVAR OnTaobinVending
DEBUGVAR EnableLiveness
DEBUGVAR Only18
DEBUGVAR NoSugarStepRight2
DEBUGVAR HalfPrice
If Y18IDCARDLIVE_ENABLE = "true" Then
Var EnableLiveness = "true"
Var Only18 = "true"
Else
Var EnableLiveness = "false"
Var Only18 = "false"
EndIf
If Y18IDCARD_ENABLE = "true" Then
Var Only18 = "true"
; MenuProfile
Else
Var Only18 = "false"
EndIf
; Only get 1,2,3
If SugarBreakEnable = "true" Then
Var NoSugarStepRight2 = "true"
Else
Var NoSugarStepRight2 = "false"
EndIf
If Discount50 = "true" Then
Var HalfPrice = "true"
Var InvokeDiscountCMD = "true"
DEBUGVAR InvokeDiscountCMD
__CMD "invoke-discount-50" "-" "-" "-"
Else
Var HalfPrice = "false"
DEBUGVAR Discount50
EndIf
TRY "ROOT/taobin_project/xml/profile/run.ev"
Var NETCORE_LOST_COUNT_UP = 0
@ -1011,6 +965,16 @@
Var NoWaitMachineEnable = 0
</EventUnitTest3>
<EventUnitTest4>
STRCONTAIN "SugarBreak-y18IDCard" XMLProfile UnitTestProfile
If UnitTestProfile = "true" Then
Var XMLProfile = "standard"
Else
Var XMLProfile = "EnableJsonProfileMode-SugarBreak-y18IDCard"
EndIf
</EventUnitTest4>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -1019,7 +983,7 @@
;DEBUGVAR 12-02-01-0021.Price
;DEBUGVAR $12-02-01-0021.Price
DEBUGVAR XMLProfile
; DEBUGVAR XMLProfile
; test
; Var XMLProfile = "y18IDCard"
; Var XMLProfile = "y18IDCardLive"
@ -1028,8 +992,9 @@
If XMLProfile = "" Then
; test action
;ReadProfile "ROOT/xmlprofile/main.json" "XMLProfile"
DEBUGVAR XMLProfile
ReadProfile "ROOT/xmlprofile/main.json" "XMLProfileFromJson"
DEBUGVAR XMLProfileFromJson
; Var XMLProfile = "Discount50"
@ -1042,18 +1007,18 @@
__CMD "invoke-discount-50" "-" "-" "-"
Var InvokeDiscountCMD = "true"
Else
DEBUGVAR InvokeDiscountCMD
; DEBUGVAR InvokeDiscountCMD
EndIf
Else
Var HalfPrice = "false"
DEBUGVAR Discount50
; DEBUGVAR Discount50
EndIf
DEBUGVAR EnableLiveness
DEBUGVAR Only18
DEBUGVAR NoSugarStepRight2
DEBUGVAR HalfPrice
; DEBUGVAR EnableLiveness
; DEBUGVAR Only18
; DEBUGVAR NoSugarStepRight2
; DEBUGVAR HalfPrice
DEBUGVAR WebAppShow
If IgnoreNetCore = "true" Then
@ -1374,8 +1339,21 @@
Var web_app_prepar = "true"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/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"
OpenInst 2 "ROOT/taobin_project/xml/page_identity18_verification.xml"
Else
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
EndIf
Else
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
EndIf
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"

View file

@ -515,7 +515,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

@ -507,7 +507,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

@ -507,7 +507,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

@ -516,7 +516,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

@ -507,7 +507,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

@ -505,7 +505,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

@ -503,7 +503,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

@ -506,7 +506,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

@ -503,7 +503,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

@ -525,7 +525,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

@ -501,7 +501,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

@ -0,0 +1,63 @@
<?hurr
#include=menu_head.py
?>
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
<?hurr
#include=menu_catalog_default_init.py
?>
Var FromMyMintPro = 0
Var Timeout = 0
<?hurr
#include=menu_catalog_new_menu.py
?>
</EventOpen>
<?hurr
#include=menu_catalog_new.py
?>
<?hurr
#include=menu_new_layout_gen_v2.py
?>
<?hurr
#include=menu_new_layout_gen.py
?>
<Button>
<X> 780 </X>
<Y> 500 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> "ROOT/taobin_project/image/main_page/bn_remove_cup.png" </Filename>
<Filename> "ROOT/taobin_project/image/main_page/bp_remove_cup.png" </Filename>
<EventClick>
Machine RemoveCup
Machine DoorLidOpen
Var buttonRemoveCup = "Invisible"
</EventClick>
</Button>
;BigLogoLayout
</Popup>

File diff suppressed because it is too large Load diff

View file

@ -532,7 +532,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

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

@ -503,7 +503,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

@ -507,7 +507,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

@ -512,7 +512,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

@ -503,7 +503,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

@ -65,50 +65,50 @@
Var CampaingRef1 = CampaingRef1 + CampaingRef2
Var ParamCP = ParamCP + CampaingRef1
Var GoToNormalCollectPoint = 1
Var PepweenCollectPoint = 1
If PepweenEnable = 1 Then
If Seeker.selected_a_drink = "12-99-05-0053" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0054" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0055" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0057" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0058" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0059" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0060" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0061" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0062" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0064" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0065" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0056" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
If Seeker.selected_a_drink = "12-99-03-0066" Then
Var GoToNormalCollectPoint = 0
Var PepweenCollectPoint = 0
EndIf
EndIf
DEBUGVAR GoToNormalCollectPoint
DEBUGVAR PepweenCollectPoint
If Seeker.TNumberTaobinCredit = "" Then
@ -146,15 +146,22 @@
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
If GoToNormalCollectPoint = 0 Then
GETACCEXT TelephoneNumber 31
Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"
Else
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml"
EndIf
EndIf
If PepweenEnable = 1 Then
If PepweenCollectPoint = 0 Then
GETACCEXT TelephoneNumber 31
Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"
EndIf
EndIf
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
Else
@ -173,7 +180,7 @@
SAVELOG "collect_point1-p71."
Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber
DEBUGVAR GoToNormalCollectPoint
DEBUGVAR PepweenCollectPoint
If PromotionIDCurrentOrder > 1 Then
Open "ROOT/taobin_project/xml/page_display_Promo1Get1Free.xml"
EndIf
@ -181,7 +188,17 @@
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
If GoToNormalCollectPoint = 0 Then
DEBUGVAR MyMintEnable
DEBUGVAR FromMyMintPro
If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml"
EndIf
EndIf
If PepweenCollectPoint = 0 Then
GETACCEXT TelephoneNumber 31
Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"
Else
@ -657,7 +674,14 @@
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
If GoToNormalCollectPoint = 0 Then
If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml"
EndIf
EndIf
If PepweenCollectPoint = 0 Then
GETACCEXT TelephoneNumber 31
Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"
Else

View file

@ -0,0 +1,481 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var CamFlag = 0
Var CamCount = 0
Var Timeout = 0
Var ShutterResult = "-"
Var AdultFlag = 1
If AdultFlag = 1 Then
Var AdultFlag = 0
DEBUGVAR SystemDate
Var sdate = ""
Var sdate = SystemDate
Var sdateday = ""
Var sdatemonth = ""
Var sdateyear = ""
SPLIT sdate "/" 1 sdateday
SPLIT sdate "/" 2 sdatemonth
SPLIT sdate "/" 3 sdateyear
INT sdateday
INT sdatemonth
INT sdateyear
Var AdultState = "Enable"
Var AdultState1 = "Enable"
Var countAdultS2 = 0
Var AdultFlag2 = 1
EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If CameraCount = 1 Then
EndIf
Var IDBirthdate = ""
Var LivenessResult = ""
Var CountDownDelayReadCardID = 5
DEBUGVAR CameraCount
;STOPCARDID
Var LivenessShowString = ""
Var CameraStage = "Invisible"
Var IDcardStage = "Enable"
Var IDcardStageText = "Enable"
Var load_gif_stage = "Invisible"
Var IDcardTextStatus = "โปรดเสียบบัตรประชาชน \nเพื่อดำเนินการต่อ"
Var LivenessRestartCount = 0
Var FailTrickCount = 0
Var FailState = "Invisible"
Var StepGetServer = 0
Var Cid = 29
Var PointCrm = "2"
Var GetScore = "1"
Var IDNumx = "2640100003053"
;AddData Cid TelephoneNumber IDNumx PointCrm GetScore
</EventOpen>
<EventActionOk>
DEBUGVAR Ext1a
; If StepGetServer = 1 Then
; If Ext1a = "ok" Then
; Var ChildrenFree = 1
; Open "ROOT/taobin_project/xml/page_payment.xml"
; Else
; If Ext1a = "limit" Then
; Var load_gif_stage = "Invisible"
; Var FailState = "Enable"
; Var img_popup16 = "/img_popup16-3.png"
; WRITE_FILE "/mnt/sdcard/oreo_for_free_limit" "true"
; Else
; Var load_gif_stage = "Invisible"
; Var FailState = "Enable"
; Var img_popup16 = "/img_popup16-2.png"
; EndIf
; Refresh
; EndIf
; EndIf
</EventActionOk>
<EventActionError>
</EventActionError>
<EventIDCard>
DEBUGVAR IDCardStatus
DEBUGVAR IDCardReady
DEBUGVAR IDCardData
DEBUGVAR IDBirthdate
DEBUGVAR IDFullNameEng
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "START" Then
Var load_gif_stage = "Enable"
Var IDcardStageText = "Invisible"
Var FailState = "Invisible"
;Var img_popup16 = "/img_popup16-1.png"
RefreshAll
Var Timeout = 90
EndIf
EndIf
EndIf
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "ERROR" Then
Var load_gif_stage = "Invisible"
Var IDcardStageText = "Enable"
Var IDcardTextStatus = "อ่านบัตรไม่ได้"
Var FailState = "Enable"
Var img_popup16 = "/img_popup16-1.png"
Refresh
EndIf
EndIf
EndIf
If IDCardStatus = "ERROR" Then
Var load_gif_stage = "Invisible"
Var IDcardStageText = "Enable"
Var IDcardTextStatus = "อ่านบัตรไม่ได้"
Var FailState = "Enable"
Var img_popup16 = "/img_popup16-1.png"
Refresh
EndIf
If IDCardStatus = "ERROR" Then
If IDCardReady = "ERROR" Then
If IDCardData = "ERROR" Then
Var FailState = "Invisible"
EndIf
EndIf
EndIf
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "DONE" Then
;Var birthDate = IDBirthdate
Var StrYear = ""
Var StrMon = ""
Var StrDay = ""
SUBSTRING IDBirthdate 0 4 StrYear
SUBSTRING IDBirthdate 4 6 StrMon
SUBSTRING IDBirthdate 6 8 StrDay
INT StrYear
INT StrMon
INT StrDay
Var Adult7 = 0
Var Adult15 = 0
DEBUGVAR StrYear
DEBUGVAR StrMon
DEBUGVAR StrDay
DEBUGVAR sdatemonth
DEBUGVAR sdateday
Var sdateyear = sdateyear + 543
Var AgeNumber = sdateyear - StrYear
DEBUGVAR AgeNumber
If AgeNumber >= 18 Then
Open "ROOT/taobin_project/xml/page_payment.xml"
; If AgeNumber = 18 Then
; If sdatemonth > StrMon Then
; Var Adult15 = 1
; Else
; If sdatemonth = StrMon Then
; If sdateday >= StrDay Then
; Var Adult15 = 1
; EndIf
; EndIf
; EndIf
; Else
; Var Adult15 = 1
; EndIf
Else
EndIf
; If Adult15 = 0 Then
; If AgeNumber >= 15 Then
; If AgeNumber = 15 Then
; If sdatemonth > StrMon Then
; Var Adult7 = 1
; Else
; If sdatemonth = StrMon Then
; If sdateday >= StrDay Then
; Var Adult7 = 1
; EndIf
; EndIf
; EndIf
; Else
; Var Adult7 = 1
; EndIf
; Else
; EndIf
; EndIf
;Var Adult7 = 1
; If Adult7 = 1 Then
; GETACCEXT IDNum 27
; Var StepGetServer = 1
; Else
; Var load_gif_stage = "Invisible"
; Var FailState = "Enable"
; Var img_popup16 = "/img_popup16-1.png"
; Refresh
; EndIf
EndIf
EndIf
EndIf
</EventIDCard>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR IDCardStatus
DEBUGVAR IDCardReady
DEBUGVAR IDCardData
DEBUGVAR IDBirthdate
DEBUGVAR CountDownDelayReadCardID
DEBUGVAR ShutterResult
DEBUGVAR IDCardState
DEBUGVAR load_gif_stage
If IDBirthdate = "" Then
Var CountDownDelayReadCardID = CountDownDelayReadCardID - 1
If CountDownDelayReadCardID = 0 Then
READCARDID
Var CountDownDelayReadCardID = 600
EndIf
EndIf
DEBUGVAR Timeout
Var Timeout = Timeout + 1
If Timeout > 120 Then
Open "ROOT/taobin_project/xml/page_catalog2.xml"
EndIf
If IDCardState = "PRESENT" Then
If IDCardStatus = "ERROR" Then
Var load_gif_stage = "Invisible"
Var IDcardStageText = "Enable"
Var IDcardTextStatus = "อ่านบัตรไม่ได้อะ"
Refresh
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
; back
<Button>
<X> 19 </X>
<Y> 420 </Y>
<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_catalog2.xml"
</EventClick>
</Button>
<Image>
<X> 75 </X>
<Y> 493 </Y>
<State> "Enable" </State>
<Filename> Var( DirImage + "/img_popup18.png" )</Filename>
</Image>
<Button>
<X> 358 </X>
<Y> 1769 </Y>
<State>"Enable"</State>
<Filename> Var( DirImage + "/bn_cancel_all.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel_all.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel_all.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_catalog2.xml"
</EventClick>
</Button>
<Button>
<X> 360 </X>
<Y> 1373 </Y>
<State>FailState</State>
<Filename> Var( DirImage + "/bn_cancel_all.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel_all.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel_all.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_catalog2.xml"
</EventClick>
</Button>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> load_gif_stage </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> FailState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> load_gif_stage </State>
<Filename> Var( DirImage + "/img_popup15.png" )</Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> FailState </State>
<Filename> Var( DirImage + img_popup16 )</Filename>
</Image>
<Button>
<X> 350 </X>
<Y> 1370 </Y>
<State>FailState</State>
<Filename> Var( DirImage + "/bn_cancel_all.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel_all.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel_all.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_catalog2.xml"
</EventClick>
</Button>
<GIF>
<X> 440 </X>
<Y> 988 </Y>
<State> load_gif_stage </State>
<Filename> "ROOT/taobin_project/image/page_payment/loading.gif"</Filename>
</GIF>
<EventUnitTest1>
Var IDCardStatus = "OK"
Var IDCardReady = "OK"
Var IDCardData = "START"
EventEvaluate "EventIDCard"
</EventUnitTest1>
<EventUnitTest2>
Var IDBirthdate = 25271014
Var IDCardStatus = "OK"
Var IDCardReady = "OK"
Var IDCardData = "DONE"
EventEvaluate "EventIDCard"
</EventUnitTest2>
<EventUnitTest3>
Var LivenessResult = "pass"
EventEvaluate "EventLivenessState"
</EventUnitTest3>
<EventUnitTest4>
Var IDCardState = "PRESENT"
Var IDCardStatus = "ERROR"
Var IDCardReady = "ERROR"
Var IDCardData = "ERROR"
</EventUnitTest4>
</Popup>

View file

@ -272,6 +272,14 @@
EndIf
If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then
Var PayState2 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
EndIf

View file

@ -51,7 +51,7 @@
Open "ROOT/taobin_project/xml/page_topping_select8.xml"
EndIf
If Only18 = "true" Then
If Only20 = "true" Then
Open "ROOT/taobin_project/xml/page_topping_select7_copy.xml"
Else
If NoSugarStepRight2 = "true" Then

View file

@ -398,13 +398,19 @@
DEBUGVAR IsMenuInProfile
If IsMenuInProfile = "true" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_identity_verification.xml"
; Check profile
;If EnableLiveness = "true" Then
;EndIf
If EnableLiveness = "true" Then
DEBUGVAR EnableLiveness
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
; full
Open "ROOT/taobin_project/xml/page_identity_verification.xml"
Else
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
; Only IDCard
Open "ROOT/taobin_project/xml/page_identity18_verification.xml"
EndIf
Else
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
@ -1704,6 +1710,13 @@
<Filename> PictureDrink </Filename>
</Image>
<Image>
<X> 374 </X>
<Y> 382 </Y>
<Width> 331 </Width>
<Height> 436 </Height>
<Filename> OverlayMenuFilter </Filename>
</Image>
<Image>
<X> 374 </X>

77
xml/profile/run.ev Normal file
View file

@ -0,0 +1,77 @@
; Debug
DEBUGVAR EnableJsonProfileMode
DEBUGVAR IsServerProfileApplyMode
ReadProfile "ROOT/xmlprofile/main.json" "XMLProfileFromJson"
DEBUGVAR XMLProfile
DEBUGVAR XMLProfileFromJson
CompareJsonProfileToServerProfile "-"
DEBUGVAR IsServerProfileApplyMode
ApplyServerProfile "XMLProfileFromJson" IsServerProfileApplyMode
DEBUGVAR XMLProfileFromJson
DEBUGVAR IsServerProfileApplyMode
STRCONTAIN "y18IDCardLive" XMLProfileFromJson Y18IDCARDLIVE_ENABLE
STRCONTAIN "y18IDCard" XMLProfileFromJson Y18IDCARD_ENABLE
STRCONTAIN "y20IDCard-Liveness" XMLProfileFromJson Y20IDCARDLIVE_ENABLE
STRCONTAIN "y20IDCard" XMLProfileFromJson Y20IDCARD_ENABLE
STRCONTAIN "SugarBreak" XMLProfileFromJson SugarBreakEnable
STRCONTAIN "Discount50" XMLProfileFromJson Discount50
STRCONTAIN "ClossMenu" XMLProfileFromJson ClossMenu
DEBUGVAR EnableLiveness
DEBUGVAR Only18
DEBUGVAR NoSugarStepRight2
DEBUGVAR HalfPrice
If Y18IDCARD_ENABLE = "true" Then
Var Only18 = "true"
Else
Var Only18 = "false"
EndIf
If Y20IDCARDLIVE_ENABLE = "true" Then
If EnableLiveness = "true" Then
Var Only20 = "true"
Else
Var Only20 = "false"
EndIf
Else
Var Only20 = "false"
EndIf
If Y20IDCARD_ENABLE = "true" Then
Var Only20 = "true"
Else
Var Only20 = "false"
EndIf
; Only get 1,2,3
If SugarBreakEnable = "true" Then
Var NoSugarStepRight2 = "true"
Else
Var NoSugarStepRight2 = "false"
EndIf
If Discount50 = "true" Then
Var HalfPrice = "true"
Var InvokeDiscountCMD = "true"
DEBUGVAR InvokeDiscountCMD
__CMD "invoke-discount-50" "-" "-" "-"
Else
Var HalfPrice = "false"
DEBUGVAR Discount50
EndIf