THAI: Added Robinson Beauty promotion

This commit is contained in:
Kenta420 2024-08-22 14:34:54 +07:00
parent c56d396a2d
commit a252a46c6d
97 changed files with 17176 additions and 33 deletions

View file

@ -1,6 +1,6 @@
normal_eng=ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_EN.png
normal_thai=ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_TH.png
press_eng=ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_EN.png
press_thai=ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_TH.png
disable_eng=ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_EN.png
disable_thai=ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_TH.png
normal_eng=ROOT/taobin_project/image/event/robinson_beauty/robinson_beauty_en.png
normal_thai=ROOT/taobin_project/image/event/robinson_beauty/robinson_beauty_th.png
press_eng=ROOT/taobin_project/image/event/robinson_beauty/robinson_beauty_en.png
press_thai=ROOT/taobin_project/image/event/robinson_beauty/robinson_beauty_th.png
disable_eng=ROOT/taobin_project/image/event/robinson_beauty/robinson_beauty_en.png
disable_thai=ROOT/taobin_project/image/event/robinson_beauty/robinson_beauty_th.png

Binary file not shown.

After

Width:  |  Height:  |  Size: 495 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 26 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 19 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 90 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 160 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 157 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 13 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 591 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 592 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 593 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 592 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 593 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 592 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 591 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 593 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 592 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 552 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 14 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 471 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 23 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 395 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 25 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 403 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 394 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 33 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 116 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 29 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 517 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 27 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 495 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 34 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 54 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 36 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 633 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 18 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 244 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 251 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 30 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 24 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 22 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 39 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 43 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 41 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 42 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 40 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 39 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 41 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 44 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 46 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 43 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 45 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 43 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 45 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 43 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 41 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 43 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 46 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 48 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 19 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 23 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 20 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 23 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 21 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 18 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 21 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 29 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 29 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 10 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 13 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 11 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 13 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 11 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 15 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 16 KiB

View file

@ -1 +1 @@
/event/promotion_wednesday_melon.xml
/event/promotion_robinson_beauty.xml

View file

@ -1 +1 @@
Open "ROOT/taobin_project/xml/page_catalog_group_pro_wednesday_melon.xml"
Open "ROOT/taobin_project/xml/page_catalog_group_pro_robinson_beauty.xml"

File diff suppressed because it is too large Load diff

View file

@ -0,0 +1,471 @@
<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/robinson_beauty/page_collect_point_robinson_beauty_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/robinson_beauty/page_collect_point_robinson_beauty_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/robinson_beauty/page_collect_point_robinson_beauty_error.xml"
Else
Var TaobinName = Ext1b
Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber
Var Seeker.IsAlreadyGetReward = Ext1c
Var SetAPlusOutOfStock = Ext1d
Var SetAOutOfStock = Ext1e
Var CleansingGelOutOfStock = Ext1f
Var TumbleBottleOutOfStock = Ext1g
Var ClearGelOutOfStock = Ext1h
Var E_GiftCard100BathOutOfStock = Ext1i
Var ClearGel4mlOutOfStock = Ext1j
Var E_GiftCard100BathOutOfStock = 1
Var TumbleBottleOutOfStock = 1
DEBUGVAR SuperSetOutOfStock
DEBUGVAR BalanceEssenceTonerOutOfStock
DEBUGVAR CleansingGelOutOfStock
DEBUGVAR TumbleBottleOutOfStock
DEBUGVAR ClearGelOutOfStock
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 open not member page."
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_not_member.xml"
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 TumbleBottleOutOfStock = 1 Then
If ClearGalOutOfStock = 1 Then
If E_GiftCard100BathOutOfStock = 1 Then
If ClearGel4mlOutOfStock = 1 Then
SAVELOG "All reward out of stock skip to normal collect point."
WRITE_FILE "/mnt/sdcard/robinson_beauty_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
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
Var PointNameIndex[0] = -1
Var PointNameIndex[1] = -1
Var PointNameIndex[2] = -1
Var PointNameIndex[3] = -1
Var PointNameIndex[4] = -1
Var PointNameIndex[5] = -1
Var PointNameIndex[6] = -1
Var PointNameIndex[7] = -1
Var PointNameIndex[8] = -1
Var PointNameIndex[9] = -1
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]
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]
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]
; Menu 1
If Seeker.selected_a_drink = "12-05-03-0064" Then
If MenuPoint[0] = 1 then
Else
Var MenuPoint[0] = 1
Var newPointIndex = 0
EndIf
EndIf
; Menu 2
If Seeker.selected_a_drink = "12-99-05-0059" Then
If MenuPoint[1] = 1 then
Else
Var MenuPoint[1] = 1
Var newPointIndex = 1
EndIf
EndIf
; Menu 3
If Seeker.selected_a_drink = "12-02-02-0056" Then
If MenuPoint[2] = 1 then
Else
Var MenuPoint[2] = 1
Var newPointIndex = 2
EndIf
EndIf
; Menu 4
If Seeker.selected_a_drink = "12-21-02-0073" Then
If MenuPoint[3] = 1 then
Else
Var MenuPoint[3] = 1
Var newPointIndex = 3
EndIf
EndIf
; Menu 5
If Seeker.selected_a_drink = "12-03-03-0046" Then
If MenuPoint[4] = 1 then
Else
Var MenuPoint[4] = 1
Var newPointIndex = 4
EndIf
EndIf
; Menu 6
If Seeker.selected_a_drink = "12-03-02-0073" 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-0067" Then
If MenuPoint[6] = 1 then
Else
Var MenuPoint[6] = 1
Var newPointIndex = 6
EndIf
EndIf
; Menu 8
If Seeker.selected_a_drink = "12-21-02-0074" 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-03-0053" Then
If MenuPoint[8] = 1 then
Else
Var MenuPoint[8] = 1
Var newPointIndex = 8
EndIf
EndIf
Var CurrentIndexPoint = -1
If MenuPoint[0] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 0
EndIf
If MenuPoint[1] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 1
EndIf
If MenuPoint[2] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 2
EndIf
If MenuPoint[3] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 3
EndIf
If MenuPoint[4] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 4
EndIf
If MenuPoint[5] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 5
EndIf
If MenuPoint[6] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 6
EndIf
If MenuPoint[7] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 7
EndIf
If MenuPoint[8] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 8
EndIf
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR newPointIndex
DEBUGVAR Seeker.PointTaobinStr
DEBUGVAR Seeker.TNumberTaobinMember
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_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/robinson_beauty/page_collect_point_robinson_beauty_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>
;include="ROOT/taobin_project/inc/video.inc"
<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,472 @@
<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 CoffeePointStr = CoffeePoint
DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX
Var PointRootDir = "ROOT/taobin_project/image/event/robinson_beauty"
If show_eng = "true" Then
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Var CloseBtnImg = PointRootDir + "/continue_en_btn.png"
Else
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
Var CloseBtnImg = PointRootDir + "/continue_btn.png"
EndIf
Var CheckCoupons = 0
Var MakeDrinkState = 0
Var taobinImgPoint[0] = "/no_point.png"
Var taobinImgPoint[1]= "/no_point.png"
Var taobinImgPoint[2]= "/no_point.png"
Var taobinImgPoint[3]= "/no_point.png"
Var taobinImgPoint[4]= "/no_point.png"
Var taobinImgPoint[5]= "/no_point.png"
Var taobinImgPoint[6]= "/no_point.png"
Var taobinImgPoint[7]= "/no_point.png"
Var taobinImgPoint[8]= "/no_point.png"
Var PointCount = 0
DEBUGVAR PointState[0]
DEBUGVAR PointState[1]
DEBUGVAR PointState[2]
DEBUGVAR PointState[3]
DEBUGVAR PointState[4]
DEBUGVAR PointState[5]
DEBUGVAR PointState[6]
DEBUGVAR PointState[7]
DEBUGVAR PointState[8]
Var PointNameIndex0 = PointNameIndex[0]
Var PointNameIndex1 = PointNameIndex[1]
Var PointNameIndex2 = PointNameIndex[2]
Var PointNameIndex3 = PointNameIndex[3]
Var PointNameIndex4 = PointNameIndex[4]
Var PointNameIndex5 = PointNameIndex[5]
Var PointNameIndex6 = PointNameIndex[6]
Var PointNameIndex7 = PointNameIndex[7]
Var PointNameIndex8 = PointNameIndex[8]
If PointState[0] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[0] = "/point1.png"
Else
Var taobinImgPoint[0] = "/point1_en.png"
EndIf
EndIf
If PointState[1] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[1] = "/point2.png"
Else
Var taobinImgPoint[1] = "/point2_en.png"
EndIf
EndIf
If PointState[2] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[2] = "/point3.png"
Else
Var taobinImgPoint[2] = "/point3_en.png"
EndIf
EndIf
If PointState[3] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[3] = "/point4.png"
Else
Var taobinImgPoint[3] = "/point4_en.png"
EndIf
EndIf
If PointState[4] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[4] = "/point5.png"
Else
Var taobinImgPoint[4] = "/point5_en.png"
EndIf
EndIf
If PointState[5] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[5] = "/point6.png"
Else
Var taobinImgPoint[5] = "/point6_en.png"
EndIf
EndIf
If PointState[6] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[6] = "/point7.png"
Else
Var taobinImgPoint[6] = "/point7_en.png"
EndIf
EndIf
If PointState[7] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[7] = "/point8.png"
Else
Var taobinImgPoint[7] = "/point8_en.png"
EndIf
EndIf
If PointState[8] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[8] = "/point9.png"
Else
Var taobinImgPoint[8] = "/point9_en.png"
EndIf
EndIf
Var PointDiff = 10 - PointCount
If show_eng = "true" Then
Var MemberText = "YOUR GORGEOUS STATUS"
Var MissionText = "SIP, SAVOR, GLOW!"
Var TaobinLevelDesc1 = PointDiff + " menus to win! Beauty gift from Robinson Beauty."
Var TaobinLevelDesc2 = "Gather all 9 Tao Bin x Robinson Beauty menus to win!"
Var subTitle_Y = 839
Var text8_X = 224
Else
Var MemberText = "สถานะสมาชิก"
Var MissionText = "ดริ๊งก์ครบพบความสวย!"
Var TaobinLevelDesc1 = "เหลืออีก " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " เมนูที่จะได้กดสุ่มรางวัลจาก Robinson Beauty"
Var TaobinLevelDesc2 = "สะสมให้ครบ 9 เมนู Tao Bin x Robinson Beauty"
Var subTitle_Y = 853
Var text8_X = 346
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>
;include="ROOT/taobin_project/inc/video.inc"
<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> 380 </Width>
<Height> 36 </Height>
<Size> 24 </Size>
<Color> 0x746253 </Color>
<Font> KanitMediumTTF </Font>
<Value> MemberText </Value>
</Text>
<Text>
<X> 243 </X>
<Y> 850 </Y>
<Width> 360 </Width>
<Height> 48 </Height>
<Size> 32 </Size>
<Color> 0x746253 </Color>
<Font> KanitMediumTTF </Font>
<Value> MissionText </Value>
</Text>
<Image>
<X> 619 </X>
<Y> 732 </Y>
<Filename> Var( PointRootDir + "/tao_beauty.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> 815 </Y>
<Size> 14 </Size>
<Width> 100 </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> 20 </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> 600 </Width>
<Font> RobotoBold </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc2 </Value>
</Text>
<Image>
<X> 237 </X>
<Y> 1058 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[0]) </Filename>
</Image>
<Image>
<X> 440 </X>
<Y> 1058 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[1]) </Filename>
</Image>
<Image>
<X> 642 </X>
<Y> 1058 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[2]) </Filename>
</Image>
<Image>
<X> 237 </X>
<Y> 1267 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[3]) </Filename>
</Image>
<Image>
<X> 440 </X>
<Y> 1267 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[4]) </Filename>
</Image>
<Image>
<X> 642 </X>
<Y> 1267 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[5]) </Filename>
</Image>
<Image>
<X> 237 </X>
<Y> 1449 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[6]) </Filename>
</Image>
<Image>
<X> 440 </X>
<Y> 1449 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[7]) </Filename>
</Image>
<Image>
<X> 642 </X>
<Y> 1449 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[8]) </Filename>
</Image>
<Button>
<X> 352 </X>
<Y> 1660 </Y>
<Filename> CloseBtnImg </Filename>
<FilenamePress> CloseBtnImg </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
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_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/robinson_beauty/page_collect_point_robinson_beauty_3.xml"
</EventUnitTest4>
</Popup>

View file

@ -0,0 +1,209 @@
<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/robinson_beauty"
Var ButtonImagePath = "ROOT/taobin_project/image/collectiing"
If CollectPointError = "collect" Then
If show_eng = "true" Then
Var text_fail = DirImage + "/collect_fail_text_en.png"
Else
Var text_fail = DirImage + "/collect_fail_text_th.png"
EndIf
EndIf
If CollectPointError = "random" Then
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
; Menu 1
If Seeker.selected_a_drink = "12-05-03-0064" Then
Var newPointIndex = 0
EndIf
; Menu 2
If Seeker.selected_a_drink = "12-99-05-0059" Then
Var newPointIndex = 1
EndIf
; Menu 3
If Seeker.selected_a_drink = "12-02-02-0056" Then
Var newPointIndex = 2
EndIf
; Menu 4
If Seeker.selected_a_drink = "12-21-02-0073" Then
Var newPointIndex = 3
EndIf
; Menu 5
If Seeker.selected_a_drink = "12-03-03-0046" Then
Var newPointIndex = 4
EndIf
; Menu 6
If Seeker.selected_a_drink = "12-03-02-0073" Then
Var newPointIndex = 5
EndIf
; Menu 7
If Seeker.selected_a_drink = "12-02-02-0067" Then
Var newPointIndex = 6
EndIf
; Menu 8
If Seeker.selected_a_drink = "12-21-02-0074" Then
Var newPointIndex = 7
EndIf
; Menu 9
If Seeker.selected_a_drink = "12-02-03-0053" Then
Var newPointIndex = 8
EndIf
Var CurrentPointSlot = newPointIndex + 1
Var CurrentPointCheck = "check"
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "/bg_fail.png" ) </Filename>
</Image>
<Image>
<X> 130 </X>
<Y> 650 </Y>
<Filename> Var( DirImage + "/img_fail.png") </Filename>
</Image>
<Image>
<X> 28 </X>
<Y> 1475 </Y>
<Filename> text_fail </Filename>
</Image>
<Button>
<X> 401 </X>
<Y> 1771 </Y>
<Filename> Var( ButtonImagePath + "/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
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
;
<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/robinson_beauty/page_collect_point_robinson_beauty_error.xml"
</EventUnitTest1>
<EventUnitTest4>
If CollectPointError = "collect" then
Var CollectPointError = "random"
Else
Var CollectPointError = "collect"
EndIf
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_error.xml"
</EventUnitTest4>
</Page>

View file

@ -0,0 +1,75 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
;<Background> "0xeae6e1" </Background>
<EventOpen>
Var Timeout = 0
If show_eng = "true" Then
Var RegisterLineImg = "ROOT/taobin_project/image/event/robinson_beauty/not_member_en.png"
Var CloseBtn = "ROOT/taobin_project/image/event/robinson_beauty/bn_close_en.png"
Else
Var RegisterLineImg = "ROOT/taobin_project/image/event/robinson_beauty/not_member_th.png"
Var CloseBtn = "ROOT/taobin_project/image/event/robinson_beauty/bn_close_th.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR Timeout
If Timeout > 8 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
Var Timeout = Timeout + 1
TimerReset
Refresh
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 478 </Y>
<Filename> RegisterLineImg </Filename>
</Image>
<Button>
<X> 393 </X>
<Y> 1796 </Y>
<Filename> CloseBtn </Filename>
<FilenamePress> CloseBtn </FilenamePress>
<EventClick>
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
</EventClick>
</Button>
</Popup>

View file

@ -0,0 +1,501 @@
<Popup>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
;<Background> "0xeae6e1" </Background>
<EventOpen>
Var Timeout = 0
Var DirImage = "ROOT/taobin_project/image/event/robinson_beauty"
Var MaxRandomIndex = 0
Var SelectNumber = 0
Var SelectingState = "Enable"
Var SelectedState = "Invisible"
Var SelectedNumberImage = ""
If SetAPlusOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "set_a_plus"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "set_a_plus"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "set_a_plus"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "set_a_plus"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "set_a_plus"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If SetAOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "set_a"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "set_a"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "set_a"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "set_a"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "set_a"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If LustrousOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lustrous"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If LipTintOilOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "lip_tint_oil"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If BlushAndLipOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "blush_and_lip"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If randomOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "random"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "random"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "random"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "random"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "random"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "random"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "random"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "random"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "random"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "random"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If DoubleSerumOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "double_serum"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If CalvinKleinOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "calvin_klein"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR Timeout
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
If Timeout > 15 Then
SAVELOG "Timeout 15 second auto random for you"
Function 2
EndIf
If SelectedState = "Enable" Then
If Timeout > 5 Then
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random_result.xml"
EndIf
EndIf
Var Timeout = Timeout + 1
TimerReset
Refresh
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
; Background
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> SelectingState </State>
<Filename> Var( DirImage + "/random_select.png") </Filename>
</Image>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> SelectedState </State>
<Filename> SelectedNumberImage </Filename>
</Image>
<Image>
<X> 166 </X>
<Y> 620 </Y>
<Filename> Var( DirImage + "/random_text.png") </Filename>
</Image>
<Image>
<X> 573 </X>
<Y> 932 </Y>
<Width> 40 </Width>
<Height> 72 </Height>
<EventClick>
Var SelectNumber = 1
Function 2
</EventClick>
</Image>
<Image>
<X> 460 </X>
<Y> 944 </Y>
<Width> 37 </Width>
<Height> 41 </Height>
<EventClick>
Var SelectNumber = 2
Function 2
</EventClick>
</Image>
<Image>
<X> 593 </X>
<Y> 1056 </Y>
<Width> 37 </Width>
<Height> 68 </Height>
<EventClick>
Var SelectNumber = 3
Function 2
</EventClick>
</Image>
<Image>
<X> 525 </X>
<Y> 979 </Y>
<Width> 39 </Width>
<Height> 68 </Height>
<EventClick>
Var SelectNumber = 4
Function 2
</EventClick>
</Image>
<Image>
<X> 445 </X>
<Y> 1101 </Y>
<Width> 40 </Width>
<Height> 68 </Height>
<EventClick>
Var SelectNumber = 5
Function 2
</EventClick>
</Image>
<Image>
<X> 634 </X>
<Y> 989 </Y>
<Width> 38 </Width>
<Height> 72 </Height>
<EventClick>
Var SelectNumber = 6
Function 2
</EventClick>
</Image>
<Image>
<X> 495 </X>
<Y> 1051 </Y>
<Width> 40 </Width>
<Height> 67 </Height>
<EventClick>
Var SelectNumber = 7
Function 2
</EventClick>
</Image>
<Image>
<X> 506 </X>
<Y> 907 </Y>
<Width> 38 </Width>
<Height> 65 </Height>
<EventClick>
Var SelectNumber = 8
Function 2
</EventClick>
</Image>
<Image>
<X> 412 </X>
<Y> 993 </Y>
<Width> 41 </Width>
<Height> 70 </Height>
<EventClick>
Var SelectNumber = 9
Function 2
</EventClick>
</Image>
<Function2>
; Random coupon
Var randResultInt = 0
Var CodeType = ""
DEBUGVAR MaxRandomIndex
If MaxRandomIndex > 0 Then
Random2 0 MaxRandomIndex randResultInt
Var randResultStr = rewardList[randResultInt]
Else
Var randResultStr = "discount_50"
EndIf
If randResultStr = "set_a_plus" Then
Var CodeType = ""
EndIf
if randResultStr = "set_a" Then
Var CodeType = ""
EndIf
If randResultStr = "lustrous" Then
Var CodeType = ""
EndIf
If randResultStr = "lip_tint_oil" Then
Var CodeType = ""
EndIf
If randResultStr = "blush_and_lip" Then
Var CodeType = ""
EndIf
If randResultStr = "random" Then
Var CodeType = ""
EndIf
If randResultStr = "double_serum" Then
Var CodeType = ""
EndIf
If randResultStr = "calvin_klein" Then
Var CodeType = ""
EndIf
If randResultStr = "discount_50" Then
Var CodeType = ""
EndIf
If SelectNumber = 0 Then
Random2 1 9 SelectNumber
EndIf
Var SelectedNumberImage = DirImage + "random_"
Var SelectedNumberImage = SelectedNumberImage + SelectNumber
Var SelectedNumberImage = SelectedNumberImage + ".png"
Var SelectingState = "Invisible"
Var SelectedState = "Enable"
DEBUGVAR randResultInt
DEBUGVAR randResultStr
DEBUGVAR CodeType
Var Timeout = 0
Refresh
</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/robinson_beauty/page_robinson_beauty_random.xml"
</EventUnitTest2>
<EventUnitTest3>
Var show_eng = "true"
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random.xml"
</EventUnitTest3>
</Popup>

View file

@ -0,0 +1,173 @@
<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/robinson_beauty"
If CodeType = "" Then
Var RewardText = DirImage + "/super_set_reward_text.png"
Var RewardImage = DirImage + "/super_set_reward.png"
Var RewardImage_X = 27
Var RewardImage_Y = 876
EndIf
If CodeType = "" Then
Var RewardText = DirImage + "/balance_essence_toner_reward_text.png"
Var RewardImage = DirImage + "/balance_essence_toner_reward.png"
Var RewardImage_X = 328
Var RewardImage_Y = 843
EndIf
If CodeType = "" Then
Var RewardText = DirImage + "/cleansing_gel_reward_text.png"
Var RewardImage = DirImage + "/cleansing_gel_reward.png"
Var RewardImage_X = 270
Var RewardImage_Y = 833
EndIf
If CodeType = "" Then
Var RewardText = DirImage + "/tumble_bottle_reward_text.png"
Var RewardImage = DirImage + "/tumble_bottle_reward.png"
Var RewardImage_X = 148
Var RewardImage_Y = 608
EndIf
If CodeType = "" Then
Var RewardText = DirImage + "/clear_gel_reward_text.png"
Var RewardImage = DirImage + "/clear_gel_reward.png"
Var RewardImage_X = 445
Var RewardImage_Y = 864
EndIf
If CodeType = "" Then
Var RewardText = DirImage + "/e_gift_card_100_bath_reward_text.png"
Var RewardImage = DirImage + "/e_gift_card_100_bath_reward.png"
Var RewardImage_X = 254
Var RewardImage_Y = 805
EndIf
If CodeType = "" Then
Var RewardText = DirImage + "/clear_gel_4_ml_reward_text.png"
Var RewardImage = DirImage + "/clear_gel_4_ml_reward.png"
Var RewardImage_X = 267
Var RewardImage_Y = 808
EndIf
If CodeType = "" Then
Var RewardText = DirImage + "/clear_gel_4_ml_reward_text.png"
Var RewardImage = DirImage + "/clear_gel_4_ml_reward.png"
Var RewardImage_X = 267
Var RewardImage_Y = 808
EndIf
If CodeType = "" Then
Var RewardText = DirImage + "/clear_gel_4_ml_reward_text.png"
Var RewardImage = DirImage + "/clear_gel_4_ml_reward.png"
Var RewardImage_X = 267
Var RewardImage_Y = 808
EndIf
Var CodeReward = CodeType
Var var2 = "X"
Var var3 = "X"
Var PhoneNum = TelephoneNumber
AddData 38 TelephoneNumber CodeReward var2 var3
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR Timeout
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
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
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 + "/bg_reward.png") </Filename>
</Image>
<Image>
<X> RewardImage_X </X>
<Y> RewardImage_Y </Y>
<Filename> RewardImage </Filename>
</Image>
<Image>
<X> 126 </X>
<Y> 595 </Y>
<Filename> RewardText </Filename>
</Image>
<Image>
<X> 229 </X>
<Y> 1662 </Y>
<Filename> Var( DirImage + "/reward_result_line_register_text.png") </Filename>
</Image>
;
<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/robinson_beauty/page_robinson_beauty_random.xml"
</EventUnitTest2>
<EventUnitTest3>
Var show_eng = "true"
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random.xml"
</EventUnitTest3>
</Popup>

View file

@ -4,8 +4,8 @@ DEBUGVAR PayOfflineMode
DEBUGVAR CocktailShow
DEBUGVAR OpenFromPageBoard
DEBUGVAR 7UpLuckyDrawX2Pro
DEBUGVAR MomCocoaPro
DEBUGVAR RobinsonBeautyPro
Var PromotionState1 = "Invisible"
Var PromotionState2 = "Invisible"
@ -26,28 +26,11 @@ Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/page_catalog_group_recommend.xml"
; zone promote
If MomCocoaPro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_mom_cocoa_ignore.xml"
If RobinsonBeautyPro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_robinson_beauty.xml"
Else
If 7UpLuckyDrawX2Pro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_7up_lucky_draw_x2.xml"
EndIf
If Cocoa77Pro = 1 Then
Var PromotionState1 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
If NamHomCoconutPro = 1 Then
Var PromotionState2 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
EndIf
If CountEnablePromotion > 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/double_promotion_cocoa_77_and_nam_hom_coconut.xml"
Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_cocoa77.xml"
EndIf
If MomCocoaPro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_mom_cocoa_ignore.xml"
EndIf
EndIf

View file

@ -125,6 +125,10 @@ Var MomCocoaProDiscountEnable = 0
Var FromMomCocoaPro = 0
Var Seeker.BuyMomCocoaProFlag = 0
; Enable Robinson Beauty promotion, 9 - 30 Sep
Var RobinsonBeautyPro = 0
Var FromRobinsonBeautyPro = 0
Var NewCollectPoint = 1
Var ShouldCollectPromotionPoint = 0
@ -247,6 +251,12 @@ If SystemDateMonthInt = 8 Then
EndIf
EndIf
If SystemDateMonthInt = 9 Then
If SystemDateDayInt >= 9 Then
Var RobinsonBeautyPro = 1
EndIf
EndIf
If BoxID = 105005 Then
@ -256,8 +266,9 @@ If BoxID = 105005 Then
Var Cocoa77Pro = 0
Var 7UpLuckyDrawX2Pro = 0
Var PassionMintPro = 0
Var MomCocoaPro = 1
Var MomCocoaProDiscountEnable = 1
Var MomCocoaPro = 0
Var MomCocoaProDiscountEnable = 0
Var RobinsonBeautyPro = 1
EndIf
@ -335,6 +346,8 @@ If taobin_nopro = "true" Then
Var Cocoa77Pro = 0
Var 7UpLuckyDrawX2Pro = 0
Var PassionMintPro = 0
Var MomCocoaPro = 0
Var RobinsonBeautyPro = 0
Var AdvertiseProfile = "00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00"

View file

@ -267,6 +267,11 @@
if current_file_name == "page_catalog_group_pro_7up_lucky_draw_x2.skt":
menu_white_color_catalog = True
if current_file_name == "page_catalog_group_pro_robinson_beauty.skt":
from_robinson_beauty = True
else:
from_robinson_beauty = False
#print ("######################################################################################################")
idx_of_eng = 2
out_xml('<FrameScroll> \r\n')
@ -607,7 +612,9 @@
if passion_mint:
out_xml( '\t\tVar FromPassionMintPro = 1 \r\n')
if from_robinson_beauty:
out_xml( '\t\tVar FromRobinsonBeautyPro = 1 \r\n')
out_xml( '\t\t\r\n')
@ -1248,6 +1255,9 @@
if passion_mint:
out_xml( '\t\tVar FromPassionMintPro = 1 \r\n')
if from_robinson_beauty:
out_xml( '\t\tVar FromRobinsonBeautyPro = 1 \r\n')
out_xml( '\t\t\r\n')
out_xml( '\t\t\r\n')

View file

@ -0,0 +1,37 @@
<?hurr
#include=menu_head.py
?>
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
Var Timeout = 0
Var FromRobinsonBeautyPro = 0
;include="ROOT/taobin_project/xml/menu_catalog_new_menu.xml"
</EventOpen>
;include="ROOT/taobin_project/xml/menu_catalog_new.xml"
<?hurr
#include=menu_new_layout_gen_v2.py
?>
<?hurr
#include=menu_new_layout_gen.py
?>
</Popup>

File diff suppressed because it is too large Load diff