THAI: Add Lipit promotion

This commit is contained in:
Kenta420 2024-03-05 17:35:54 +07:00
parent 96d8d558ac
commit 6596d83310
140 changed files with 94033 additions and 203 deletions

View file

@ -0,0 +1,375 @@
<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
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
Var Seeker.IsLineMember = 0
If PayOfflineMode = 1 Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_error.xml"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var TaobinLevel = 0
Var CoffeePoint = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_lipit_error.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If Ext1a = "" Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_lipit_error.xml"
Else
Var TaobinName = Ext1b
Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber
If TaobinName = "" Then
Var Seeker.IsLineMember = 0
Else
If TaobinName = "-" Then
Var Seeker.IsLineMember = 0
Else
Var Seeker.IsLineMember = 1
EndIf
EndIf
If Seeker.IsLineMember = 0 Then
SAVELOG "Not Line Member skip to normal collect point."
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 1 Then
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
EndIf
Var Seeker.PointTaobinStr = ParamCP
Var Seeker.TNumberTaobinMember = TelephoneNumberX
Var PointState[0] = 0
Var PointState[1] = 0
Var PointState[2] = 0
Var PointState[3] = 0
Var PointState[4] = 0
Var PointState[5] = 0
Var PointState[6] = 0
Var PointState[7] = 0
Var PointState[8] = 0
Var PointState[9] = 0
DEBUGVAR Ext1a
SPLIT Ext1a "/" 1 PointState[0]
SPLIT Ext1a "/" 2 PointState[1]
SPLIT Ext1a "/" 3 PointState[2]
SPLIT Ext1a "/" 4 PointState[3]
SPLIT Ext1a "/" 5 PointState[4]
SPLIT Ext1a "/" 6 PointState[5]
SPLIT Ext1a "/" 7 PointState[6]
SPLIT Ext1a "/" 8 PointState[7]
SPLIT Ext1a "/" 9 PointState[8]
SPLIT Ext1a "/" 10 PointState[9]
INT PointState[0]
INT PointState[1]
INT PointState[2]
INT PointState[3]
INT PointState[4]
INT PointState[5]
INT PointState[6]
INT PointState[7]
INT PointState[8]
INT PointState[9]
DEBUGVAR PointState[0]
DEBUGVAR PointState[1]
DEBUGVAR PointState[2]
DEBUGVAR PointState[3]
DEBUGVAR PointState[4]
DEBUGVAR PointState[5]
DEBUGVAR PointState[6]
DEBUGVAR PointState[7]
DEBUGVAR PointState[8]
DEBUGVAR PointState[9]
Var newPointIndex = ""
; Point 1
If Seeker.selected_a_drink = "12-03-03-0046" Then
If PointState[0] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 0
EndIf
Var PointState[0] = 1
EndIf
; Point 2
If Seeker.selected_a_drink = "12-03-03-0047" Then
If PointState[1] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 1
EndIf
Var PointState[1] = 1
EndIf
; Point 3
If Seeker.selected_a_drink = "12-99-05-0063" Then
If PointState[2] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 2
EndIf
Var PointState[2] = 1
EndIf
; Point 4
If Seeker.selected_a_drink = "12-03-02-0040" Then
If PointState[3] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 3
EndIf
Var PointState[3] = 1
EndIf
; Point 5
If Seeker.selected_a_drink = "12-05-03-0063" Then
If PointState[4] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 4
EndIf
Var PointState[4] = 1
EndIf
; Point 6
If Seeker.selected_a_drink = "12-05-02-0080" Then
If PointState[5] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 5
EndIf
Var PointState[5] = 1
EndIf
; Point 7
If Seeker.selected_a_drink = "12-02-03-0053" Then
If PointState[6] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 6
EndIf
Var PointState[6] = 1
EndIf
; Point 8
If Seeker.selected_a_drink = "12-03-02-0041" Then
If PointState[7] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 7
EndIf
Var PointState[7] = 1
EndIf
; Point 9
If Seeker.selected_a_drink = "12-02-02-0056" Then
If PointState[8] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 8
EndIf
Var PointState[8] = 1
EndIf
; Point 10
If Seeker.selected_a_drink = "12-05-03-0064" Then
If PointState[9] = 1 Then
Var newPointIndex = ""
Else
Var newPointIndex = 9
EndIf
Var PointState[9] = 1
EndIf
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR newPointIndex
DEBUGVAR Seeker.PointTaobinStr
DEBUGVAR Seeker.TNumberTaobinMember
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_3.xml"
EndIf
</EventActionOk>
<EventActionError>
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_lipit_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,626 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var BmiYear = "0/0/0/0/0/0/0/0/0/1"
Var PointCrm = "pdpa1"
Var GetScore = ""
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Var PointMaskState = "Invisible"
Var showRandomBtnState = "Invisible"
Var CoffeePointStr = CoffeePoint
DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/event/lipit/display_point_en"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else
Var DirImage = "ROOT/taobin_project/image/event/lipit/display_point"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var CheckCoupons = 0
Var MakeDrinkState = 0
Var taobinImgPoint[0] = "/lipit_point.png"
Var taobinImgPoint[1]= "/lipit_point.png"
Var taobinImgPoint[2]= "/lipit_point.png"
Var taobinImgPoint[3]= "/lipit_point.png"
Var taobinImgPoint[4]= "/lipit_point.png"
Var taobinImgPoint[5]= "/lipit_point.png"
Var taobinImgPoint[6]= "/lipit_point.png"
Var taobinImgPoint[7]= "/lipit_point.png"
Var taobinImgPoint[8]= "/lipit_point.png"
Var taobinImgPoint[9]= "/lipit_point.png"
Var PointCount = 0
If show_eng = "true" Then
Var taobinTextPoint[0] = "SALTY CARAMEL"
Var taobinTextPoint[1] = "ROSE HONEY PUDDING"
Var taobinTextPoint[2] = "BOTANIC CITRUS"
Var taobinTextPoint[3] = "CHOCO FONDANT"
Var taobinTextPoint[4] = "BERRY JAM"
Var taobinTextPoint[5] = "RASPBERRY"
Var taobinTextPoint[6] = "LYCHEE ROSE"
Var taobinTextPoint[7] = "SUM BALM\nSPF 15 PA++"
Var taobinTextPoint[8] = "PEACH TEA"
Var taobinTextPoint[9] = "PEACH SYRUP"
Else
Var taobinTextPoint[0] = "พี่นัททุบ เต่าก็ทุบ"
Var taobinTextPoint[1] = "แก้วนี้ของพี่นัท"
Var taobinTextPoint[2] = "นิสาอินเต่าบิน"
Var taobinTextPoint[3] = "สะบัดหลอด"
Var taobinTextPoint[4] = "โชว์แก้วอร่อย"
Var taobinTextPoint[5] = "ไหนดื่มสิ"
Var taobinTextPoint[6] = "เรื่องราวแก้วนี้"
Var taobinTextPoint[7] = "เคาะค่ะ"
Var taobinTextPoint[8] = "ถ้าพี่นัทเป๊ะ เต่าก็เป๊ะ"
Var taobinTextPoint[9] = "เต่าบินเมคโอเวอร์ มั๊วะ!"
EndIf
Var taobinTextColorPoint[0] = "0x584231"
Var taobinTextColorPoint[1] = "0x584231"
Var taobinTextColorPoint[2] = "0x584231"
Var taobinTextColorPoint[3] = "0x584231"
Var taobinTextColorPoint[4] = "0x584231"
Var taobinTextColorPoint[5] = "0x584231"
Var taobinTextColorPoint[6] = "0x584231"
Var taobinTextColorPoint[7] = "0x584231"
Var taobinTextColorPoint[8] = "0x584231"
Var taobinTextColorPoint[9] = "0x584231"
DEBUGVAR PointState[0]
DEBUGVAR PointState[1]
DEBUGVAR PointState[2]
DEBUGVAR PointState[3]
DEBUGVAR PointState[4]
DEBUGVAR PointState[5]
DEBUGVAR PointState[6]
DEBUGVAR PointState[7]
DEBUGVAR PointState[8]
DEBUGVAR PointState[9]
Var PointRootDir = "ROOT/taobin_project/image/event/lipit/display_point"
If PointState[0] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[0] = "/lipit_point_active.png"
EndIf
If PointState[1] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[1] = "/lipit_point_active.png"
EndIf
If PointState[2] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[2] = "/lipit_point_active.png"
EndIf
If PointState[3] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[3] = "/lipit_point_active.png"
EndIf
If PointState[4] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[4] = "/lipit_point_active.png"
EndIf
If PointState[5] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[5] = "/lipit_point_active.png"
EndIf
If PointState[6] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[6] = "/lipit_point_active.png"
EndIf
If PointState[7] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[7] = "/lipit_point_active.png"
EndIf
If PointState[8] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[8] = "/lipit_point_active.png"
EndIf
If PointState[9] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[9] = "/lipit_point_active.png"
EndIf
If newPointIndex = "" Then
; Nothing
Else
If newPointIndex >= 0 Then
Var taobinImgPoint[newPointIndex] = "/lipit_point_new.png"
;Var taobinTextColorPoint[newPointIndex] = "0xFFE400"
EndIf
EndIf
Var PointDiff = 10 - PointCount
If show_eng = "true" Then
Var TaobinLevelDesc1 = "Unlock Lip-It with just " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " more menus!"
Var TaobinLevelDesc2 = "Collect all 10 delicious delights to unleash the ultimate flavor sensation!"
;Var MemberStatus_Y = 772
;Var MemberName_Y = 795
;Var MemeberPhone_Y = 845
;Var MemberPoint_Y = 920
Var subTitle_Y = 839
;Var TaobinLevelDesc1_X = 236
;Var TaobinLevelDesc1_Y = 990
;Var TaobinLevelDesc2_X = 236
;Var TaobinLevelDesc2_Y = 1020
Var text8_X = 224
Else
Var TaobinLevelDesc1 = "เหลืออีก " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " เมนูที่จะเปิดล็อค Lip it"
Var TaobinLevelDesc2 = "สะสมให้ครบ 10 เมนูแสนอร่อยแล้วมาปลดล็อกความปังกัน!"
;Var MemberStatus_Y = 772
;Var MemberName_Y = 795
;Var MemeberPhone_Y = 845
;Var MemberPoint_Y = 920
Var subTitle_Y = 853
;Var TaobinLevelDesc1_X = 236
;Var TaobinLevelDesc1_Y = 990
;Var TaobinLevelDesc2_X = 236
;Var TaobinLevelDesc2_Y = 1020
Var text8_X = 346
EndIf
If PointCount = 10 Then
Var showRandomBtnState = "Enable"
EndIf
Var CurrentPointSlot = newPointIndex + 1
Var UpdatePoint = 0
</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
Var UpdatePoint = 1
EndIf
TimerReset
Refresh
</EventTimeout>
<EventActionError>
</EventActionError>
<EventActionOk>
If UpdatePoint = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 1 Then
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
EndIf
</EventActionOk>
<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( PointRootDir + "/top_bg.png" )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 1085 </Y>
<Filename> Var( PointRootDir + "/bottom_bg.png" )</Filename>
</Image>
<Image>
<X> 243 </X>
<Y> 731 </Y>
<Filename> Var( DirImage + "/member_text.png" )</Filename>
</Image>
<Image>
<X> 243 </X>
<Y> subTitle_Y </Y>
<Filename> Var( DirImage + "/mission_text.png" )</Filename>
</Image>
<Image>
<X> 625 </X>
<Y> 732 </Y>
<Filename> Var( PointRootDir + "/tao_makeup.png" )</Filename>
</Image>
;
<Image>
<X> 243 </X>
<Y> 1147 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[0]) </Filename>
</Image>
<Image>
<X> 378 </X>
<Y> 1147 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[1]) </Filename>
</Image>
<Image>
<X> 513 </X>
<Y> 1147 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[2]) </Filename>
</Image>
<Image>
<X> 647 </X>
<Y> 1147 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[3]) </Filename>
</Image>
<Image>
<X> 782 </X>
<Y> 1147 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[4]) </Filename>
</Image>
<Image>
<X> 243 </X>
<Y> 1338 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[5]) </Filename>
</Image>
<Image>
<X> 378 </X>
<Y> 1338 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[6]) </Filename>
</Image>
<Image>
<X> 513 </X>
<Y> 1338 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[7]) </Filename>
</Image>
<Image>
<X> 647 </X>
<Y> 1338 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[8]) </Filename>
</Image>
<Image>
<X> 782 </X>
<Y> 1338 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[9]) </Filename>
</Image>
<Text>
<X> 243 </X>
<Y> 764 </Y>
<Size> 35 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x513C2F </Color>
<Value> TaobinName </Value>
</Text>
<Text>
<X> 243 </X>
<Y> 802 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TNumberTaobinMemberXXX </Value>
<Format> Telnum-mask-1 </Format>
</Text>
; Header
<Text>
<X> 247 </X>
<Y> 911 </Y>
<Size> 48 </Size>
<Width> 120 </Width>
<Font> RobotoBold </Font>
<Color> 0xDE794E </Color>
<Value> PointCount </Value>
</Text>
<Text>
<X> 247 </X>
<Y> 967 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinLevelDesc1 </Value>
</Text>
<Text>
<X> 247 </X>
<Y> 998 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc2 </Value>
</Text>
<Image>
<X> text8_X </X>
<Y> 1610 </Y>
<Filename> Var( DirImage + "/text8.png" )</Filename>
</Image>
<Text>
<X> 216 </X>
<Y> 1256 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[0] </Color>
<Value> taobinTextPoint[0] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 352 </X>
<Y> 1256 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[1] </Color>
<Value> taobinTextPoint[1] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 488 </X>
<Y> 1256 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[2] </Color>
<Value> taobinTextPoint[2] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 624 </X>
<Y> 1256 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[3] </Color>
<Value> taobinTextPoint[3] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 760 </X>
<Y> 1256 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[4] </Color>
<Value> taobinTextPoint[4] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 216 </X>
<Y> 1451 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[5] </Color>
<Value> taobinTextPoint[5] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 352 </X>
<Y> 1451 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[6] </Color>
<Value> taobinTextPoint[6] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 488 </X>
<Y> 1451 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[7] </Color>
<Value> taobinTextPoint[7] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 624 </X>
<Y> 1451 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[8] </Color>
<Value> taobinTextPoint[8] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 760 </X>
<Y> 1451 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[9] </Color>
<Value> taobinTextPoint[9] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Button>
<X> 423 </X>
<Y> 1660 </Y>
<State> showRandomBtnState </State>
<Filename> Var( PointRootDir + "/bn_random.png" )</Filename>
<FilenamePress> Var( PointRootDir + "/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/lipit/page_lipit_random.xml"
</EventClick>
</Button>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
<EventUnitTest3>
Var PointState[0] = 1
Var PointState[1] = 1
Var PointState[2] = 1
Var PointState[3] = 1
Var PointState[4] = 1
Var PointState[5] = 1
Var PointState[6] = 1
Var PointState[7] = 1
Var PointState[8] = 1
Var PointState[9] = 1
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_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/lipit/page_collect_point_pro_lipit_3.xml"
</EventUnitTest4>
</Popup>

View file

@ -0,0 +1,270 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
SAVELOG show_eng
DEBUGVAR CollectPointError
Var Show_Title = "Invisible"
If CollectPointError = "collect" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/event/lipit/error_en"
Var Detail_X = 127
Var Detail_Y = 1553
Var Detail2_X = 145
Var Detail2_Y = 1637
Else
Var DirImage = "ROOT/taobin_project/image/event/lipit/error"
Var Detail_X = 179
Var Detail_Y = 1553
Var Detail2_X = 131
Var Detail2_Y = 1626
EndIf
Var ImgError = DirImage + "/gift_box_locked.png"
Var ImgError_X = 139
Var ImgError_Y = 773
Var Show_Title = "Enable"
Var title_text_fail = DirImage + "/FAIL.png"
Var text_fail = DirImage + "/collect_fail_text.png"
Var text_fail2 = DirImage + "/collect_fail_description.png"
Var ConfirmBtn_X = 399
Var ConfirmBtn_Y = 1771
EndIf
If CollectPointError = "random" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/event/lipit/error_en"
Var Detail_X = 263
Var Detail_Y = 1554
Var Detail2_X = 117
Var Detail2_Y = 1632
Else
Var DirImage = "ROOT/taobin_project/image/event/lipit/error"
Var Detail_X = 86
Var Detail_Y = 1513
Var Detail2_X = 100
Var Detail2_Y = 1667
EndIf
Var ImgError = DirImage + "/gift_box_broken.png"
Var ImgError_X = 0
Var ImgError_Y = 637
Var text_fail = DirImage + "/send_reward_fail_text.png"
Var text_fail2 = DirImage + "/send_reward_fail_description.png"
Var ConfirmBtn_X = 399
Var ConfirmBtn_Y = 1771
EndIf
Var newPointIndex = 0
; Point 1
If Seeker.selected_a_drink = "12-03-03-0046" Then
Var newPointIndex = 0
EndIf
; Point 2
If Seeker.selected_a_drink = "12-03-03-0047" Then
Var newPointIndex = 1
EndIf
; Point 3
If Seeker.selected_a_drink = "12-99-05-0063" Then
Var newPointIndex = 2
EndIf
; Point 4
If Seeker.selected_a_drink = "12-03-02-0040" Then
Var newPointIndex = 3
EndIf
; Point 5
If Seeker.selected_a_drink = "12-05-03-0063" Then
Var newPointIndex = 4
EndIf
; Point 6
If Seeker.selected_a_drink = "12-05-02-0080" Then
Var newPointIndex = 5
EndIf
; Point 7
If Seeker.selected_a_drink = "12-02-03-0053" Then
Var newPointIndex = 6
EndIf
; Point 8
If Seeker.selected_a_drink = "12-03-02-0041" Then
Var newPointIndex = 7
EndIf
; Point 9
If Seeker.selected_a_drink = "12-02-02-0056" Then
Var newPointIndex = 8
EndIf
; Point 10
If Seeker.selected_a_drink = "12-05-03-0064" Then
Var newPointIndex = 9
EndIf
DEBUGVAR ImgError
DEBUGVAR ImgError_X
DEBUGVAR ImgError_Y
Var CurrentPointSlot = newPointIndex + 1
Var CurrentPointCheck = "check"
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "/bg.png" ) </Filename>
</Image>
<Image>
<State> Show_Title </State>
<X> 334 </X>
<Y> 602 </Y>
<Filename> title_text_fail </Filename>
</Image>
<Image>
<X> ImgError_X </X>
<Y> ImgError_Y </Y>
<Filename> ImgError </Filename>
</Image>
<Image>
<X> Detail_X </X>
<Y> Detail_Y </Y>
<Filename> text_fail </Filename>
</Image>
<Image>
<X> Detail2_X </X>
<Y> Detail2_Y </Y>
<Filename> text_fail2 </Filename>
</Image>
<Button>
<X> ConfirmBtn_X </X>
<Y> ConfirmBtn_Y </Y>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
If PromotionIDCurrentOrder > 1 Then
Open "ROOT/taobin_project/xml/page_display_Promo1Get1Free.xml"
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventUnitTest1>
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_error.xml"
</EventUnitTest1>
<EventUnitTest4>
If CollectPointError = "collect" then
Var CollectPointError = "random"
Else
Var CollectPointError = "collect"
EndIf
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_error.xml"
</EventUnitTest4>
</Page>

View file

@ -0,0 +1,229 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
;<Background> "0xeae6e1" </Background>
<EventOpen>
Var Timeout = 0
Var DirImage = "ROOT/taobin_project/image/event/lipit/random"
Var rewardList[0] = "lip_mask_stick"
Var rewardList[1] = "lip_mask_stick"
Var rewardList[2] = "lip_mask_stick"
Var rewardList[3] = "lip_mask_stick"
Var rewardList[4] = "lip_mask_stick"
Var rewardList[5] = "lip_mask_stick"
Var rewardList[6] = "lip_mask_stick"
Var rewardList[7] = "lip_mask_stick"
Var rewardList[8] = "tint_me_healthy_balm"
Var rewardList[9] = "tint_me_healthy_balm"
Var rewardList[10] = "tint_me_healthy_balm"
Var rewardList[11] = "tint_me_healthy_balm"
Var rewardList[12] = "tint_me_healthy_balm"
Var rewardList[13] = "tint_me_healthy_balm"
Var rewardList[14] = "tint_me_healthy_balm"
Var rewardList[15] = "tint_me_healthy_balm"
Var rewardList[16] = "happy_lip_set"
Var rewardList[17] = "happy_lip_set"
Var rewardList[18] = "happy_lip_set"
Var rewardList[19] = "happy_lip_set"
Var random_state = "Enable"
Var show_result_state = "Invisible"
If show_eng = "true" Then
Var line_text_x = 341
Var line_text_img = DirImage + "/line_text_en.png"
Else
Var line_text_x = 310
Var line_text_img = DirImage + "/line_text_th.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR Timeout
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
If random_state = "Enable" Then
If Timeout > 15 Then
SAVELOG "Timeout 15 second auto random for you"
Function 2
EndIf
Else
If Timeout > 5 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 1 Then
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
EndIf
EndIf
Var Timeout = Timeout + 1
TimerReset
Refresh
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
; Background
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "/random_bg.png") </Filename>
</Image>
; random state
<Image>
<State> random_state </State>
<X> 272 </X>
<Y> 1078 </Y>
<Filename> Var( DirImage + "/random_text.png") </Filename>
</Image>
<Button>
<X> 337 </X>
<Y> 709 </Y>
<State> random_state </State>
<Filename> Var( DirImage + "/gift_box.png") </Filename>
<FilenamePress> Var( DirImage + "/gift_box.png") </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Button>
<X> 115 </X>
<Y> 1311 </Y>
<State> random_state </State>
<Filename> Var( DirImage + "/gift_box.png") </Filename>
<FilenamePress> Var( DirImage + "/gift_box.png") </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Button>
<X> 588 </X>
<Y> 1311 </Y>
<State> random_state </State>
<Filename> Var( DirImage + "/gift_box.png") </Filename>
<FilenamePress> Var( DirImage + "/gift_box.png") </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
; show result
<Image>
<X> 64 </X>
<Y> 450 </Y>
<State> show_result_state </State>
<Filename> rewardImage </Filename>
</Image>
<Image>
<X> line_text_x </X>
<Y> 1798 </Y>
<State> show_result_state </State>
<Filename> line_text_img </Filename>
</Image>
<Function2>
; Random coupon
Var randResultInt = 0
Random2 0 19 randResultInt
Var CodeType = ""
Var var2 = "X"
Var var3 = "X"
Var randResultStr = rewardList[randResultInt]
If randResultStr = "lip_mask_stick" Then
Var rewardImage = DirImage + "/reward_lip_mask_stick.png"
Var CodeType = "126"
EndIf
if randResultStr = "tint_me_healthy_balm" Then
Var rewardImage = DirImage + "/reward_tint_me_healthy_blam.png"
Var CodeType = "127"
EndIf
If randResultStr = "happy_lip_set" Then
Var rewardImage = DirImage + "/reward_happy_lip_set.png"
Var CodeType = "128"
EndIf
DEBUGVAR randResultInt
DEBUGVAR randResultStr
DEBUGVAR CodeType
DEBUGVAR rewardImage
Var show_result_state = "Enable"
Var random_state = "Invisible"
Var Timeout = 0
Refresh
AddData 38 TelephoneNumber CodeType var2 var3
</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>
<EventUnitTest1>
OpenInst 2 "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventUnitTest1>
<EventUnitTest2>
Var show_eng = "false"
Open "ROOT/taobin_project/xml/event/lipit/page_lipiy_random.xml"
</EventUnitTest2>
<EventUnitTest3>
Var show_eng = "true"
Open "ROOT/taobin_project/xml/event/lipit/page_lipiy_random.xml"
</EventUnitTest3>
</Popup>