THAI: Add more assets Coconut promotion

This commit is contained in:
Kenta420 2024-05-13 15:23:44 +07:00
parent 69d72cb0aa
commit b91262a8d3
12 changed files with 1528 additions and 0 deletions

View file

@ -0,0 +1,672 @@
<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
Var SuperSetOutOfStock = 0
Var BalanceEssenceTonerOutOfStock = 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/nam_hom_coconut/page_collect_point_nam_hom_coconut_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/nam_hom_coconut/page_collect_point_nam_hom_coconut_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/nam_hom_coconut/page_collect_point_nam_hom_coconut_error.xml"
Else
Var TaobinName = Ext1b
Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber
Var Seeker.IsAlreadyGetReward = Ext1c
Var SuperSetOutOfStock = Ext1d
Var BalanceEssenceTonerOutOfStock = Ext1e
Var CleansingGalOutOfStock = Ext1f
Var ClearGalOutOfStock = Ext1g
;DEBUG
;Var SuperSetOutOfStock = 1
;Var BalanceEssenceTonerOutOfStock = 1
;Var CleansingGalOutOfStock = 1
;Var ClearGalOutOfStock = Ext1g
DEBUGVAR SuperSetOutOfStock
DEBUGVAR BalanceEssenceTonerOutOfStock
DEBUGVAR CleansingGalOutOfStock
DEBUGVAR ClearGalOutOfStock
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
If Seeker.IsAlreadyGetReward = 1 Then
SAVELOG "Already get reward 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
If SuperSetOutOfStock = 1 Then
If BalanceEssenceTonerOutOfStock = 1 Then
If CleansingGalOutOfStock = 1 Then
If ClearGalOutOfStock = 1 Then
SAVELOG "All reward out of stock skip to normal collect point."
WRITE_FILE "/mnt/sdcard/nam_hom_coconut_reward_out_of_stock" "1"
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
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
If show_eng = "true" Then
Var MenuPointName[0] = "Hat Yai\nBeach coconut"
Var MenuPointName[1] = "Bangsaen\nBeach Coconut"
Var MenuPointName[2] = "Jomtien\nBeach Coconut"
Var MenuPointName[3] = "Nang Ram\nBeach Coconut"
Var MenuPointName[4] = "Glass Sand\nBeach Coconut"
Var MenuPointName[5] = "Mae Pim\nBeach Coconut"
Var MenuPointName[6] = "Moonlight\nBeach Coconut"
Var MenuPointName[7] = "Pattaya\nBeach Coconut"
Var MenuPointName[8] = "Suan Son\nBeach Coconut"
Var MenuPointName[9] = "Laem Sing\nBeach Coconut"
Var MenuPointName[10] = "Toem Rak\nBeach Coconut"
Var MenuPointName[11] = "Long\nBeach Coconut"
Var MenuPointName[12] = "Hat\nBeach Coconut"
Else
Var MenuPointName[0] = "มะพร้าวหาดใหญ่(มาก)"
Var MenuPointName[1] = "มะพร้าวหาดบางแสน\n(ห้า)"
Var MenuPointName[2] = "มะพร้าวหาดจอมเทียน\n(พรรษา)"
Var MenuPointName[3] = "มะพร้าวหาดนางรำ\n(สวย)"
Var MenuPointName[4] = "มะพร้าวหาดทรายแก้ว\n(มังกร)"
Var MenuPointName[5] = "มะพร้าวหาดแม่พิมพ์\n(ดีด)"
Var MenuPointName[6] = "มะพร้าวหาดแสงจันทร์\n(ไรอะ)"
Var MenuPointName[7] = "มะพร้าวหาดพัทยา\n(พารา)"
Var MenuPointName[8] = "มะพร้าวหาดสวนสน\n(ใจไหม)"
Var MenuPointName[9] = "มะพร้าวหาดแหลมสิง\n(หไกรภพ)"
Var MenuPointName[10] = "มะพร้าวหาดเติมรัก(ฉันทำไม)"
Var MenuPointName[11] = "มะพร้าวหาดยาว\n(ไปยาวไป)"
Var MenuPointName[12] = "มะพร้าวหาด(ใกล้ฉัน)"
EndIf
DEBUGVAR Ext1a
SPLIT Ext1a "/" 1 MenuPoint[0]
SPLIT Ext1a "/" 2 MenuPoint[1]
SPLIT Ext1a "/" 3 MenuPoint[2]
SPLIT Ext1a "/" 4 MenuPoint[3]
SPLIT Ext1a "/" 5 MenuPoint[4]
SPLIT Ext1a "/" 6 MenuPoint[5]
SPLIT Ext1a "/" 7 MenuPoint[6]
SPLIT Ext1a "/" 8 MenuPoint[7]
SPLIT Ext1a "/" 9 MenuPoint[8]
SPLIT Ext1a "/" 10 MenuPoint[9]
SPLIT Ext1a "/" 11 MenuPoint[10]
SPLIT Ext1a "/" 12 MenuPoint[11]
SPLIT Ext1a "/" 13 MenuPoint[12]
INT MenuPoint[0]
INT MenuPoint[1]
INT MenuPoint[2]
INT MenuPoint[3]
INT MenuPoint[4]
INT MenuPoint[5]
INT MenuPoint[6]
INT MenuPoint[7]
INT MenuPoint[8]
INT MenuPoint[9]
INT MenuPoint[10]
INT MenuPoint[11]
INT MenuPoint[12]
DEBUGVAR MenuPoint[0]
DEBUGVAR MenuPoint[1]
DEBUGVAR MenuPoint[2]
DEBUGVAR MenuPoint[3]
DEBUGVAR MenuPoint[4]
DEBUGVAR MenuPoint[5]
DEBUGVAR MenuPoint[6]
DEBUGVAR MenuPoint[7]
DEBUGVAR MenuPoint[8]
DEBUGVAR MenuPoint[9]
DEBUGVAR MenuPoint[10]
DEBUGVAR MenuPoint[11]
DEBUGVAR MenuPoint[12]
Var CurrentIndexPoint = -1
If MenuPoint[0] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[0]
EndIf
If MenuPoint[1] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[1]
EndIf
If MenuPoint[2] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[2]
EndIf
If MenuPoint[3] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[3]
EndIf
If MenuPoint[4] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[4]
EndIf
If MenuPoint[5] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[5]
EndIf
If MenuPoint[6] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[6]
EndIf
If MenuPoint[7] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[7]
EndIf
If MenuPoint[8] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[8]
EndIf
If MenuPoint[9] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[9]
EndIf
If MenuPoint[10] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[10]
EndIf
If MenuPoint[11] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[11]
EndIf
If MenuPoint[12] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[12]
EndIf
; Menu 1
If Seeker.selected_a_drink = "12-01-02-0068" Then
If MenuPoint[0] = 1 then
Else
Var MenuPoint[0] = 1
Var newPointIndex = 0
EndIf
EndIf
If Seeker.selected_a_drink = "12-21-02-0068" Then
If MenuPoint[0] = 1 then
Else
Var MenuPoint[0] = 1
Var newPointIndex = 0
EndIf
EndIf
; Menu 2
If Seeker.selected_a_drink = "12-05-03-0092" Then
If MenuPoint[1] = 1 then
Else
Var MenuPoint[1] = 1
Var newPointIndex = 1
EndIf
EndIf
; Menu 3
If Seeker.selected_a_drink = "12-03-02-0058" Then
If MenuPoint[2] = 1 then
Else
Var MenuPoint[2] = 1
Var newPointIndex = 2
EndIf
EndIf
If Seeker.selected_a_drink = "12-03-03-0058" Then
If MenuPoint[2] = 1 then
Else
Var MenuPoint[2] = 1
Var newPointIndex = 2
EndIf
EndIf
; Menu 4
If Seeker.selected_a_drink = "12-03-02-0059" Then
If MenuPoint[3] = 1 then
Else
Var MenuPoint[3] = 1
Var newPointIndex = 3
EndIf
EndIf
If Seeker.selected_a_drink = "12-03-03-0059" Then
If MenuPoint[3] = 1 then
Else
Var MenuPoint[3] = 1
Var newPointIndex = 3
EndIf
EndIf
; Menu 5
If Seeker.selected_a_drink = "12-02-02-0060" Then
If MenuPoint[4] = 1 then
Else
Var MenuPoint[4] = 1
Var newPointIndex = 4
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0060" Then
If MenuPoint[4] = 1 then
Else
Var MenuPoint[4] = 1
Var newPointIndex = 4
EndIf
EndIf
; Menu 6
If Seeker.selected_a_drink = "12-02-02-0061" Then
If MenuPoint[5] = 1 then
Else
Var MenuPoint[5] = 1
Var newPointIndex = 5
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0061" Then
If MenuPoint[5] = 1 then
Else
Var MenuPoint[5] = 1
Var newPointIndex = 5
EndIf
EndIf
; Menu 7
If Seeker.selected_a_drink = "12-02-02-0062" Then
If MenuPoint[6] = 1 then
Else
Var MenuPoint[6] = 1
Var newPointIndex = 6
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0062" Then
If MenuPoint[6] = 1 then
Else
Var MenuPoint[6] = 1
Var newPointIndex = 6
EndIf
EndIf
; Menu 8
If Seeker.selected_a_drink = "12-02-02-0063" Then
If MenuPoint[7] = 1 then
Else
Var MenuPoint[7] = 1
Var newPointIndex = 7
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0063" Then
If MenuPoint[7] = 1 then
Else
Var MenuPoint[7] = 1
Var newPointIndex = 7
EndIf
EndIf
; Menu 9
If Seeker.selected_a_drink = "12-02-02-0064" Then
If MenuPoint[8] = 1 then
Else
Var MenuPoint[8] = 1
Var newPointIndex = 8
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0064" Then
If MenuPoint[8] = 1 then
Else
Var MenuPoint[8] = 1
Var newPointIndex = 8
EndIf
EndIf
; Menu 10
If Seeker.selected_a_drink = "12-02-02-0065" Then
If MenuPoint[9] = 1 then
Else
Var MenuPoint[9] = 1
Var newPointIndex = 9
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0065" Then
If MenuPoint[9] = 1 then
Else
Var MenuPoint[9] = 1
Var newPointIndex = 9
EndIf
EndIf
; Menu 11
If Seeker.selected_a_drink = "12-05-02-0090" Then
If MenuPoint[10] = 1 then
Else
Var MenuPoint[10] = 1
Var newPointIndex = 10
EndIf
EndIf
; Menu 12
If Seeker.selected_a_drink = "12-05-02-0091" Then
If MenuPoint[11] = 1 then
Else
Var MenuPoint[11] = 1
Var newPointIndex = 11
EndIf
EndIf
If Seeker.selected_a_drink = "12-05-03-0091" Then
If MenuPoint[11] = 1 then
Else
Var MenuPoint[11] = 1
Var newPointIndex = 11
EndIf
EndIf
; Menu 13
If Seeker.selected_a_drink = "12-05-02-0093" Then
If MenuPoint[12] = 1 then
Else
Var MenuPoint[12] = 1
Var newPointIndex = 12
EndIf
EndIf
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR newPointIndex
DEBUGVAR Seeker.PointTaobinStr
DEBUGVAR Seeker.TNumberTaobinMember
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_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/nam_hom_coconut/page_collect_point_nam_hom_coconut_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,633 @@
<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 showCloseBtnState = "Enable"
Var CoffeePointStr = CoffeePoint
DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX
Var DirImage = "ROOT/taobin_project/image/event/nam_hom_coconut/display_point"
If show_eng = "true" Then
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var CheckCoupons = 0
Var MakeDrinkState = 0
Var taobinImgPoint[0] = "/coconut_point.png"
Var taobinImgPoint[1]= "/coconut_point.png"
Var taobinImgPoint[2]= "/coconut_point.png"
Var taobinImgPoint[3]= "/coconut_point.png"
Var taobinImgPoint[4]= "/coconut_point.png"
Var taobinImgPoint[5]= "/coconut_point.png"
Var taobinImgPoint[6]= "/coconut_point.png"
Var taobinImgPoint[7]= "/coconut_point.png"
Var taobinImgPoint[8]= "/coconut_point.png"
Var taobinImgPoint[9]= "/coconut_point.png"
Var PointCount = 0
If show_eng = "true" Then
Var taobinTextPoint[0] = "Hat Yai\nBeach coconut"
Var taobinTextPoint[1] = "Bangsaen\nBeach Coconut"
Var taobinTextPoint[2] = "Jomtien\nBeach Coconut"
Var taobinTextPoint[3] = "Nang Ram\nBeach Coconut"
Var taobinTextPoint[4] = "Glass Sand\nBeach Coconut"
Var taobinTextPoint[5] = "Mae Pim\nBeach Coconut"
Var taobinTextPoint[6] = "Moonlight\nBeach Coconut"
Var taobinTextPoint[7] = "Pattaya\nBeach Coconut"
Var taobinTextPoint[8] = "Suan Son\nBeach Coconut"
Var taobinTextPoint[9] = "Laem Sing\nBeach Coconut"
Var taobinTextPoint[10] = "Toem Rak\nBeach Coconut"
Var taobinTextPoint[11] = "Long\nBeach Coconut"
Var taobinTextPoint[12] = "Hat\nBeach Coconut"
Else
Var taobinTextPoint[0] = "มะพร้าวหาดใหญ่(มาก)"
Var taobinTextPoint[1] = "มะพร้าวหาดบางแสน\n(ห้า)"
Var taobinTextPoint[2] = "มะพร้าวหาดจอมเทียน\n(พรรษา)"
Var taobinTextPoint[3] = "มะพร้าวหาดนางรำ\n(สวย)"
Var taobinTextPoint[4] = "มะพร้าวหาดทรายแก้ว\n(มังกร)"
Var taobinTextPoint[5] = "มะพร้าวหาดแม่พิมพ์\n(ดีด)"
Var taobinTextPoint[6] = "มะพร้าวหาดแสงจันทร์\n(ไรอะ)"
Var taobinTextPoint[7] = "มะพร้าวหาดพัทยา\n(พารา)"
Var taobinTextPoint[8] = "มะพร้าวหาดสวนสน\n(ใจไหม)"
Var taobinTextPoint[9] = "มะพร้าวหาดแหลมสิง\n(หไกรภพ)"
Var taobinTextPoint[10] = "มะพร้าวหาดเติมรัก(ฉันทำไม)"
Var taobinTextPoint[11] = "มะพร้าวหาดยาว\n(ไปยาวไป)"
Var taobinTextPoint[12] = "มะพร้าวหาด(ใกล้ฉัน)"
EndIf
Var taobinTextColorPoint[0] = "0x000000"
Var taobinTextColorPoint[1] = "0x000000"
Var taobinTextColorPoint[2] = "0x000000"
Var taobinTextColorPoint[3] = "0x000000"
Var taobinTextColorPoint[4] = "0x000000"
Var taobinTextColorPoint[5] = "0x000000"
Var taobinTextColorPoint[6] = "0x000000"
Var taobinTextColorPoint[7] = "0x000000"
Var taobinTextColorPoint[8] = "0x000000"
Var taobinTextColorPoint[9] = "0x000000"
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] = "/coconut_point_active.png"
EndIf
If PointState[1] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[1] = "/coconut_point_active.png"
EndIf
If PointState[2] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[2] = "/coconut_point_active.png"
EndIf
If PointState[3] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[3] = "/coconut_point_active.png"
EndIf
If PointState[4] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[4] = "/coconut_point_active.png"
EndIf
If PointState[5] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[5] = "/coconut_point_active.png"
EndIf
If PointState[6] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[6] = "/coconut_point_active.png"
EndIf
If PointState[7] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[7] = "/coconut_point_active.png"
EndIf
If PointState[8] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[8] = "/coconut_point_active.png"
EndIf
If PointState[9] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[9] = "/coconut_point_active.png"
EndIf
Var PointDiff = 10 - PointCount
If show_eng = "true" Then
Var MemberText = "สถานะสมาชิก"
Var MissionText = "ฝ่าไอร้อนพิชิตไอเท่มหน้าใส"
Var TaobinLevelDesc1 = "You have " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " more fresh menus left to unlock CURA-MD"
Var TaobinLevelDesc2 = "Collect 10 menu items to receive an acne-free complexion prize."
Var subTitle_Y = 839
Var text8_X = 224
Else
Var MemberText = "HELLO PAL, WANNA FELL FRESH?"
Var MissionText = "BEAT THE HEAT, GO!"
Var TaobinLevelDesc1 = "เหลืออีก " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " เมนูที่จะได้กดสุ่มรางวัลจาก CURA-MD"
Var TaobinLevelDesc2 = "สะสมให้ครบ 10 เมนูมะพร้าวแสนแล้วมาลุ้นกัน!"
Var subTitle_Y = 853
Var text8_X = 346
EndIf
If PointCount = 10 Then
Var showRandomBtnState = "Enable"
Var showCloseBtnState = "Invisible"
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 + "/bg_top.png" )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 1085 </Y>
<Filename> Var( PointRootDir + "/bg_bottom.png" )</Filename>
</Image>
<Text>
<X> 243 </X>
<Y> 722 </Y>
<Width> 360 </Width>
<Height> 36 </Height>
<Size> 24 </Size>
<Font> KanitMediumTTF </Font>
<Value> MemberText </Value>
</Text>
<Text>
<X> 243 </X>
<Y> 850 </Y>
<Width> 360 </Width>
<Height> 48 </Height>
<Size> 32 </Size>
<Font> KanitMediumTTF </Font>
<Value> MissionText </Value>
</Text>
<Image>
<X> 619 </X>
<Y> 732 </Y>
<Filename> Var( PointRootDir + "/tao_drink_coconut.png" )</Filename>
</Image>
;
<Text>
<X> 243 </X>
<Y> 758 </Y>
<Size> 36 </Size>
<Width> 480 </Width>
<Height> 42 </Height>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> TaobinName </Value>
</Text>
<Text>
<X> 243 </X>
<Y> 800 </Y>
<Size> 14 </Size>
<Width> 90 </Width>
<Font> RobotoRegular </Font>
<Color> 0x746253 </Color>
<Value> TNumberTaobinMemberXXX </Value>
<Format> Telnum-mask-1 </Format>
</Text>
; Header
<Text>
<X> 247 </X>
<Y> 902 </Y>
<Size> 48 </Size>
<Width> 56 </Width>
<Height> 56 </Height>
<Font> RobotoBold </Font>
<Color> 0xDE794E </Color>
<Value> PointCount </Value>
</Text>
<Text>
<X> 247 </X>
<Y> 970 </Y>
<Size> 25 </Size>
<Width> 500 </Width>
<Height> 30 </Height>
<Font> RobotoBold </Font>
<Color> 0xDE794E </Color>
<Value> TaobinLevelDesc1 </Value>
</Text>
<Text>
<X> 247 </X>
<Y> 1001 </Y>
<Size> 20 </Size>
<Width> 500 </Width>
<Height> 30 <Height>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc2 </Value>
</Text>
<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> 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>
<Button>
<X> 610 </X>
<Y> 1660 </Y>
<State> showCloseBtnState </State>
<Filename> Var( DirImage + "/bn_close.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_close.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
Var CurrentPointCheck = "check"
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Var UpdatePoint = 1
</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,223 @@
<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 DirImage = "ROOT/taobin_project/image/event/nam_hom_coconut/error"
If CollectPointError = "collect" Then
Var ImgError = DirImage + "/coconut.png"
Var ImgError_X = 253
Var ImgError_Y = 888
If show_eng = "true" Then
Var text_fail = DirImage + "/text_en.png"
Else
Var text_fail = DirImage + "/text_th.png"
EndIf
EndIf
If CollectPointError = "random" Then
Var ImgError = DirImage + "/cura-md-bag.png"
Var ImgError_X = 294
Var ImgError_Y = 768
If show_eng = "true" Then
Var text_fail = DirImage + "/text2_en.png"
Else
Var text_fail = DirImage + "/text2_th.png"
EndIf
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
;
;
;Var CurrentPointSlot = newPointIndex + 1
;Var CurrentPointCheck = "check"
;Var val3 = "X"
;AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "/bg.png" ) </Filename>
</Image>
<Image>
<X> ImgError_X </X>
<Y> ImgError_Y </Y>
<Filename> ImgError </Filename>
</Image>
<Image>
<X> 49 </X>
<Y> 1490 </Y>
<Filename> text_fail </Filename>
</Image>
<Button>
<X> 401 </X>
<Y> 1771 </Y>
<Filename> Var( DirImage + "/confirm_btn.png" ) </Filename>
<FilenamePress> Var( DirImage + "/confirm_btn_press.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_nam_hom_coconut_error.xml.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_nam_hom_coconut_error.xml.xml"
</EventUnitTest4>
</Page>