THAI: Update Robinson promotion

This commit is contained in:
Kenta420 2024-08-26 15:26:53 +07:00
parent 5beeb12cc5
commit e24d7d97a2
31 changed files with 96 additions and 203 deletions

Binary file not shown.

After

Width:  |  Height:  |  Size: 98 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 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: 12 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: 12 KiB

View file

Before

Width:  |  Height:  |  Size: 471 KiB

After

Width:  |  Height:  |  Size: 471 KiB

Before After
Before After

View file

Before

Width:  |  Height:  |  Size: 23 KiB

After

Width:  |  Height:  |  Size: 23 KiB

Before After
Before After

View file

Before

Width:  |  Height:  |  Size: 395 KiB

After

Width:  |  Height:  |  Size: 395 KiB

Before After
Before After

View file

Before

Width:  |  Height:  |  Size: 25 KiB

After

Width:  |  Height:  |  Size: 25 KiB

Before After
Before After

View file

@ -92,25 +92,24 @@
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 LustrousOutOfStock = Ext1x4
Var LipTintOilOutOfStock = Ext1x5
Var BlushAndLipOutOfStock = Ext1x6
Var RandomOutOfStock = Ext1x7
Var CalvinKleinOutOfStock = Ext1x8
Var DoubleSerumOutOfStock = Ext1x9
Var SetAOutOfStock = Ext1x10
Var SetAPlusOutOfStock = Ext1x11
Var E_GiftCard100BathOutOfStock = 1
Var TumbleBottleOutOfStock = 1
DEBUGVAR SuperSetOutOfStock
DEBUGVAR BalanceEssenceTonerOutOfStock
DEBUGVAR CleansingGelOutOfStock
DEBUGVAR TumbleBottleOutOfStock
DEBUGVAR ClearGelOutOfStock
DEBUGVAR LustrousOutOfStock
DEBUGVAR LipTintOilOutOfStock
DEBUGVAR BlushAndLipOutOfStock
DEBUGVAR RandomOutOfStock
DEBUGVAR CalvinKleinOutOfStock
DEBUGVAR DoubleSerumOutOfStock
DEBUGVAR SetAOutOfStock
DEBUGVAR SetAPlusOutOfStock
If TaobinName = "" Then
Var Seeker.IsLineMember = 0
@ -143,38 +142,6 @@
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

View file

@ -70,73 +70,73 @@
If PointState[0] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[0] = "/point1.png"
Var taobinImgPoint[0] = "/point_1_en.png"
Else
Var taobinImgPoint[0] = "/point1_en.png"
Var taobinImgPoint[0] = "/point_1.png"
EndIf
EndIf
If PointState[1] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[1] = "/point2.png"
Var taobinImgPoint[1] = "/point_2_en.png"
Else
Var taobinImgPoint[1] = "/point2_en.png"
Var taobinImgPoint[1] = "/point_2.png"
EndIf
EndIf
If PointState[2] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[2] = "/point3.png"
Var taobinImgPoint[2] = "/point_3_en.png"
Else
Var taobinImgPoint[2] = "/point3_en.png"
Var taobinImgPoint[2] = "/point_3.png"
EndIf
EndIf
If PointState[3] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[3] = "/point4.png"
Var taobinImgPoint[3] = "/point_4_en.png"
Else
Var taobinImgPoint[3] = "/point4_en.png"
Var taobinImgPoint[3] = "/point_4.png"
EndIf
EndIf
If PointState[4] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[4] = "/point5.png"
Var taobinImgPoint[4] = "/point_5_en.png"
Else
Var taobinImgPoint[4] = "/point5_en.png"
Var taobinImgPoint[4] = "/point_5.png"
EndIf
EndIf
If PointState[5] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[5] = "/point6.png"
Var taobinImgPoint[5] = "/point_6_en.png"
Else
Var taobinImgPoint[5] = "/point6_en.png"
Var taobinImgPoint[5] = "/point_6.png"
EndIf
EndIf
If PointState[6] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[6] = "/point7.png"
Var taobinImgPoint[6] = "/point_7_en.png"
Else
Var taobinImgPoint[6] = "/point7_en.png"
Var taobinImgPoint[6] = "/point_7.png"
EndIf
EndIf
If PointState[7] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[7] = "/point8.png"
Var taobinImgPoint[7] = "/point_8_en.png"
Else
Var taobinImgPoint[7] = "/point8_en.png"
Var taobinImgPoint[7] = "/point_8.png"
EndIf
EndIf
If PointState[8] = 1 Then
Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[8] = "/point9.png"
Var taobinImgPoint[8] = "/point_9_en.png"
Else
Var taobinImgPoint[8] = "/point9_en.png"
Var taobinImgPoint[8] = "/point_9.png"
EndIf
EndIf
@ -146,7 +146,8 @@
Var MemberText = "YOUR GORGEOUS STATUS"
Var MissionText = "SIP, SAVOR, GLOW!"
Var TaobinLevelDesc1 = PointDiff + " menus to win! Beauty gift from Robinson Beauty."
Var TaobinLevelDesc1 = "" + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " 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
@ -185,7 +186,7 @@
;Var Timeout = Timeout + 1
Var Timeout = Timeout + 1
If Timeout > 10 Then
Var CurrentPointCheck = "check"
Var val3 = "X"
@ -351,68 +352,68 @@
<Image>
<X> 237 </X>
<Y> 1058 </Y>
<Y> 1089 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[0]) </Filename>
</Image>
<Image>
<X> 440 </X>
<Y> 1058 </Y>
<Y> 1089 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[1]) </Filename>
</Image>
<Image>
<X> 642 </X>
<Y> 1058 </Y>
<Y> 1089 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[2]) </Filename>
</Image>
<Image>
<X> 237 </X>
<Y> 1267 </Y>
<Y> 1271 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[3]) </Filename>
</Image>
<Image>
<X> 440 </X>
<Y> 1267 </Y>
<Y> 1271 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[4]) </Filename>
</Image>
<Image>
<X> 642 </X>
<Y> 1267 </Y>
<Y> 1271 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[5]) </Filename>
</Image>
<Image>
<X> 237 </X>
<Y> 1449 </Y>
<Y> 1453 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[6]) </Filename>
</Image>
<Image>
<X> 440 </X>
<Y> 1449 </Y>
<Y> 1453 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[7]) </Filename>
</Image>
<Image>
<X> 642 </X>
<Y> 1449 </Y>
<Y> 1453 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[8]) </Filename>
</Image>
<Button>
<X> 352 </X>
<X> 403 </X>
<Y> 1660 </Y>
<Filename> CloseBtnImg </Filename>
<FilenamePress> CloseBtnImg </FilenamePress>
@ -429,7 +430,7 @@
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random.xml"
Else
Var CurrentPointCheck = "check"
Var val3 = "X"

View file

@ -103,7 +103,7 @@
Var ShowCountDownBrewing = CountDownBrewing
;Var Timeout = Timeout + 1
Var Timeout = Timeout + 1
If Timeout > 5 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf

View file

@ -144,7 +144,7 @@
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If randomOutOfStock = 0 Then
If RandomOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "random"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "random"
@ -267,7 +267,7 @@
EndIf
;Var Timeout = Timeout + 1
Var Timeout = Timeout + 1
TimerReset
Refresh
@ -290,15 +290,15 @@
<X> 412 </X>
<Y> 798 </Y>
<State> SelectingState </State>
<Filename> Var( DirImage + "/random_fotune_cookie.png") </Filename>
<Filename> Var( DirImage + "/random_fortune_cookie.png") </Filename>
<EventClick>
If ShakeCount <= 5 Then
Var ShakeCount = ShakeCount + 1
Else
If ShakeCount >= 3 Then
Random2 1 9 SelectNumber
Function 2
EndIf
Refresh
</EventClick>
<Animation>
<Style> "shake-image" </Style>
@ -319,105 +319,6 @@
<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
@ -426,6 +327,7 @@
DEBUGVAR MaxRandomIndex
If MaxRandomIndex > 0 Then
Random2 0 MaxRandomIndex randResultInt
DEBUGVAR randResultInt
Var randResultStr = rewardList[randResultInt]
Else
Var randResultStr = "discount_50"
@ -473,7 +375,7 @@
Random2 1 9 SelectNumber
EndIf
Var SelectedNumberImage = DirImage + "random_"
Var SelectedNumberImage = DirImage + "/random_"
Var SelectedNumberImage = SelectedNumberImage + SelectNumber
Var SelectedNumberImage = SelectedNumberImage + ".png"
@ -521,4 +423,8 @@
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random.xml"
</EventUnitTest3>
<EventUnitTest4>
Function 2
</EventUnitTest4>
</Popup>

View file

@ -10,7 +10,7 @@
Var DirImage = "ROOT/taobin_project/image/event/robinson_beauty"
Var RewardBg = DirImage + "/bg_reward.png"
Var RewardBg = DirImage + "/reward_bg.png"
If CodeType = "137" Then
Var RewardText = DirImage + "/reward_lustrous_lipstick_name.png"
@ -91,7 +91,7 @@
Var RewardText_Y = 725
Var RewardImage_X = 137
Var RewardImage_Y = 748
Var RewardBg = DirImage + "/bg_reward_no_line.png"
Var RewardBg = DirImage + "/reward_bg_no_line.png"
EndIf
Var CodeReward = CodeType

View file

@ -395,13 +395,23 @@
EndIf
EndIf
If PepweenCollectPoint = 0 Then
GETACCEXT TelephoneNumber 31
Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"
If RobinsonBeautyPro = 1 Then
If FromRobinsonBeautyPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
EndIf
EndIf
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
EndIf
@ -941,14 +951,23 @@
EndIf
EndIf
If PepweenCollectPoint = 0 Then
GETACCEXT TelephoneNumber 31
Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"
If RobinsonBeautyPro = 1 Then
If FromRobinsonBeautyPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
EndIf
EndIf
GETACCEXT Param1 23
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
Else