THAI: Update Robinson beauty promotion

This commit is contained in:
Kenta420 2024-08-23 16:21:44 +07:00
parent 8f5b2b1937
commit aa3f277c03
14 changed files with 3030 additions and 2963 deletions

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 37 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 552 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 524 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 377 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 56 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.4 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 251 KiB

After

Width:  |  Height:  |  Size: 249 KiB

Before After
Before After

View file

@ -140,7 +140,7 @@
EndIf EndIf
EndIf EndIf
Var PointDiff = 10 - PointCount Var PointDiff = 9 - PointCount
If show_eng = "true" Then If show_eng = "true" Then
Var MemberText = "YOUR GORGEOUS STATUS" Var MemberText = "YOUR GORGEOUS STATUS"
@ -167,6 +167,10 @@
EndIf EndIf
If PointCount = 9 Then
Var CloseBtnImg = PointRootDir + "/bn_random.png"
EndIf
Var CurrentPointSlot = newPointIndex + 1 Var CurrentPointSlot = newPointIndex + 1
Var UpdatePoint = 0 Var UpdatePoint = 0
@ -181,7 +185,7 @@
Var Timeout = Timeout + 1 ;Var Timeout = Timeout + 1
If Timeout > 10 Then If Timeout > 10 Then
Var CurrentPointCheck = "check" Var CurrentPointCheck = "check"
Var val3 = "X" Var val3 = "X"
@ -416,11 +420,22 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
; goto lid straw ; goto lid straw
If PointCount = 9 Then
If SELLONLINE = 1 Then
Var CurrentPointCheck = ""
Else
Var CurrentPointCheck = "check"
EndIf
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Var CurrentPointCheck = "check" Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
Var val3 = "X" Else
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3 Var CurrentPointCheck = "check"
Var UpdatePoint = 1 Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Var UpdatePoint = 1
EndIf
</EventClick> </EventClick>
</Button> </Button>

View file

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

View file

@ -12,6 +12,8 @@
Var MaxRandomIndex = 0 Var MaxRandomIndex = 0
Var SelectNumber = 0 Var SelectNumber = 0
Var ShakeCount = 0
Var SelectingState = "Enable" Var SelectingState = "Enable"
Var SelectedState = "Invisible" Var SelectedState = "Invisible"
@ -259,13 +261,13 @@
EndIf EndIf
If SelectedState = "Enable" Then If SelectedState = "Enable" Then
If Timeout > 5 Then If Timeout > 4 Then
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random_result.xml" Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random_result.xml"
EndIf EndIf
EndIf EndIf
Var Timeout = Timeout + 1 ;Var Timeout = Timeout + 1
TimerReset TimerReset
Refresh Refresh
@ -280,7 +282,28 @@
<X> 0 </X> <X> 0 </X>
<Y> 380 </Y> <Y> 380 </Y>
<State> SelectingState </State> <State> SelectingState </State>
<Filename> Var( DirImage + "/random_select.png") </Filename> <Filename> Var( DirImage + "/random_select_bg.png") </Filename>
</Image>
; Fotune cookie
<Image>
<X> 412 </X>
<Y> 798 </Y>
<State> SelectingState </State>
<Filename> Var( DirImage + "/random_fotune_cookie.png") </Filename>
<EventClick>
If ShakeCount <= 5 Then
Var ShakeCount = ShakeCount + 1
Else
Random2 1 9 SelectNumber
Function 2
EndIf
Refresh
</EventClick>
<Animation>
<Style> "shake-image" </Style>
<OnChangeValue> ShakeCount </OnChangeValue>
</Animation>
</Image> </Image>
<Image> <Image>
@ -296,104 +319,104 @@
<Filename> Var( DirImage + "/random_text.png") </Filename> <Filename> Var( DirImage + "/random_text.png") </Filename>
</Image> </Image>
<Image> ; <Image>
<X> 573 </X> ; <X> 573 </X>
<Y> 932 </Y> ; <Y> 932 </Y>
<Width> 40 </Width> ; <Width> 40 </Width>
<Height> 72 </Height> ; <Height> 72 </Height>
<EventClick> ; <EventClick>
Var SelectNumber = 1 ; Var SelectNumber = 1
Function 2 ; Function 2
</EventClick> ; </EventClick>
</Image> ; </Image>
;
<Image> ; <Image>
<X> 460 </X> ; <X> 460 </X>
<Y> 944 </Y> ; <Y> 944 </Y>
<Width> 37 </Width> ; <Width> 37 </Width>
<Height> 41 </Height> ; <Height> 41 </Height>
<EventClick> ; <EventClick>
Var SelectNumber = 2 ; Var SelectNumber = 2
Function 2 ; Function 2
</EventClick> ; </EventClick>
</Image> ; </Image>
;
<Image> ; <Image>
<X> 593 </X> ; <X> 593 </X>
<Y> 1056 </Y> ; <Y> 1056 </Y>
<Width> 37 </Width> ; <Width> 37 </Width>
<Height> 68 </Height> ; <Height> 68 </Height>
<EventClick> ; <EventClick>
Var SelectNumber = 3 ; Var SelectNumber = 3
Function 2 ; Function 2
</EventClick> ; </EventClick>
</Image> ; </Image>
;
<Image> ; <Image>
<X> 525 </X> ; <X> 525 </X>
<Y> 979 </Y> ; <Y> 979 </Y>
<Width> 39 </Width> ; <Width> 39 </Width>
<Height> 68 </Height> ; <Height> 68 </Height>
<EventClick> ; <EventClick>
Var SelectNumber = 4 ; Var SelectNumber = 4
Function 2 ; Function 2
</EventClick> ; </EventClick>
</Image> ; </Image>
;
<Image> ; <Image>
<X> 445 </X> ; <X> 445 </X>
<Y> 1101 </Y> ; <Y> 1101 </Y>
<Width> 40 </Width> ; <Width> 40 </Width>
<Height> 68 </Height> ; <Height> 68 </Height>
<EventClick> ; <EventClick>
Var SelectNumber = 5 ; Var SelectNumber = 5
Function 2 ; Function 2
</EventClick> ; </EventClick>
</Image> ; </Image>
;
<Image> ; <Image>
<X> 634 </X> ; <X> 634 </X>
<Y> 989 </Y> ; <Y> 989 </Y>
<Width> 38 </Width> ; <Width> 38 </Width>
<Height> 72 </Height> ; <Height> 72 </Height>
<EventClick> ; <EventClick>
Var SelectNumber = 6 ; Var SelectNumber = 6
Function 2 ; Function 2
</EventClick> ; </EventClick>
</Image> ; </Image>
;
<Image> ; <Image>
<X> 495 </X> ; <X> 495 </X>
<Y> 1051 </Y> ; <Y> 1051 </Y>
<Width> 40 </Width> ; <Width> 40 </Width>
<Height> 67 </Height> ; <Height> 67 </Height>
<EventClick> ; <EventClick>
Var SelectNumber = 7 ; Var SelectNumber = 7
Function 2 ; Function 2
</EventClick> ; </EventClick>
</Image> ; </Image>
;
<Image> ; <Image>
<X> 506 </X> ; <X> 506 </X>
<Y> 907 </Y> ; <Y> 907 </Y>
<Width> 38 </Width> ; <Width> 38 </Width>
<Height> 65 </Height> ; <Height> 65 </Height>
<EventClick> ; <EventClick>
Var SelectNumber = 8 ; Var SelectNumber = 8
Function 2 ; Function 2
</EventClick> ; </EventClick>
</Image> ; </Image>
;
<Image> ; <Image>
<X> 412 </X> ; <X> 412 </X>
<Y> 993 </Y> ; <Y> 993 </Y>
<Width> 41 </Width> ; <Width> 41 </Width>
<Height> 70 </Height> ; <Height> 70 </Height>
<EventClick> ; <EventClick>
Var SelectNumber = 9 ; Var SelectNumber = 9
Function 2 ; Function 2
</EventClick> ; </EventClick>
</Image> ; </Image>
<Function2> <Function2>
; Random coupon ; Random coupon
@ -410,39 +433,39 @@
If randResultStr = "set_a_plus" Then If randResultStr = "set_a_plus" Then
Var CodeType = "" Var CodeType = "144"
EndIf EndIf
if randResultStr = "set_a" Then if randResultStr = "set_a" Then
Var CodeType = "" Var CodeType = "143"
EndIf EndIf
If randResultStr = "lustrous" Then If randResultStr = "lustrous" Then
Var CodeType = "" Var CodeType = "137"
EndIf EndIf
If randResultStr = "lip_tint_oil" Then If randResultStr = "lip_tint_oil" Then
Var CodeType = "" Var CodeType = "138"
EndIf EndIf
If randResultStr = "blush_and_lip" Then If randResultStr = "blush_and_lip" Then
Var CodeType = "" Var CodeType = "139"
EndIf EndIf
If randResultStr = "random" Then If randResultStr = "random" Then
Var CodeType = "" Var CodeType = "140"
EndIf EndIf
If randResultStr = "double_serum" Then If randResultStr = "double_serum" Then
Var CodeType = "" Var CodeType = "141"
EndIf EndIf
If randResultStr = "calvin_klein" Then If randResultStr = "calvin_klein" Then
Var CodeType = "" Var CodeType = "142"
EndIf EndIf
If randResultStr = "discount_50" Then If randResultStr = "discount_50" Then
Var CodeType = "" Var CodeType = "145"
EndIf EndIf

View file

@ -10,67 +10,88 @@
Var DirImage = "ROOT/taobin_project/image/event/robinson_beauty" Var DirImage = "ROOT/taobin_project/image/event/robinson_beauty"
If CodeType = "" Then Var RewardBg = DirImage + "/bg_reward.png"
Var RewardText = DirImage + "/super_set_reward_text.png"
Var RewardImage = DirImage + "/super_set_reward.png" If CodeType = "137" Then
Var RewardImage_X = 27 Var RewardText = DirImage + "/reward_lustrous_lipstick_name.png"
Var RewardImage_Y = 876 Var RewardImage = DirImage + "/reward_lustrous_lipstick.png"
Var RewardText_X = 88
Var RewardText_Y = 546
Var RewardImage_X = 424
Var RewardImage_Y = 883
EndIf EndIf
If CodeType = "" Then If CodeType = "138" Then
Var RewardText = DirImage + "/balance_essence_toner_reward_text.png" Var RewardText = DirImage + "/reward_lip_tint_oil_name.png"
Var RewardImage = DirImage + "/balance_essence_toner_reward.png" Var RewardImage = DirImage + "/reward_lip_tint_oil.png"
Var RewardImage_X = 328 Var RewardText_X = 18
Var RewardImage_Y = 843 Var RewardText_Y = 923
Var RewardImage_X = 169
Var RewardImage_Y = 578
EndIf EndIf
If CodeType = "" Then If CodeType = "139" Then
Var RewardText = DirImage + "/cleansing_gel_reward_text.png" Var RewardText = DirImage + "/reward_blush_and_linp_name.png"
Var RewardImage = DirImage + "/cleansing_gel_reward.png" Var RewardImage = DirImage + "/reward_blush_and_linp.png"
Var RewardImage_X = 270 Var RewardText_X = 170
Var RewardImage_Y = 833 Var RewardText_Y = 541
Var RewardImage_X = 114
Var RewardImage_Y = 892
EndIf EndIf
If CodeType = "" Then If CodeType = "140" Then
Var RewardText = DirImage + "/tumble_bottle_reward_text.png" Var RewardText = DirImage + "/reward_random_name.png"
Var RewardImage = DirImage + "/tumble_bottle_reward.png" Var RewardImage = DirImage + "/reward_random.png"
Var RewardImage_X = 148 Var RewardText_X = 307
Var RewardImage_Y = 608 Var RewardText_Y = 573
Var RewardImage_X = 156
Var RewardImage_Y = 839
EndIf EndIf
If CodeType = "" Then If CodeType = "141" Then
Var RewardText = DirImage + "/clear_gel_reward_text.png" Var RewardText = DirImage + "/reward_double_serum_name.png"
Var RewardImage = DirImage + "/clear_gel_reward.png" Var RewardImage = DirImage + "/reward_double_serum.png"
Var RewardImage_X = 445 Var RewardText_X = 160
Var RewardImage_Y = 864 Var RewardText_Y = 623
Var RewardImage_X = 127
Var RewardImage_Y = 848
EndIf EndIf
If CodeType = "" Then If CodeType = "142" Then
Var RewardText = DirImage + "/e_gift_card_100_bath_reward_text.png" Var RewardText = DirImage + "/reward_calvin_klein_name.png"
Var RewardImage = DirImage + "/e_gift_card_100_bath_reward.png" Var RewardImage = DirImage + "/reward_calvin_klein.png"
Var RewardImage_X = 254 Var RewardText_X = 117
Var RewardImage_Y = 805 Var RewardText_Y = 541
Var RewardImage_X = 178
Var RewardImage_Y = 787
EndIf EndIf
If CodeType = "" Then If CodeType = "143" Then
Var RewardText = DirImage + "/clear_gel_4_ml_reward_text.png" Var RewardText = DirImage + "/reward_set_a_name.png"
Var RewardImage = DirImage + "/clear_gel_4_ml_reward.png" Var RewardImage = DirImage + "/reward_set_a.png"
Var RewardImage_X = 267 Var RewardText_X = 283
Var RewardImage_Y = 808 Var RewardText_Y = 545
Var RewardImage_X = 114
Var RewardImage_Y = 819
EndIf EndIf
If CodeType = "" Then If CodeType = "144" Then
Var RewardText = DirImage + "/clear_gel_4_ml_reward_text.png" Var RewardText = DirImage + "/reward_set_a_plus_name.png"
Var RewardImage = DirImage + "/clear_gel_4_ml_reward.png" Var RewardImage = DirImage + "/reward_set_a_plus.png"
Var RewardImage_X = 267 Var RewardText_X = 255
Var RewardImage_Y = 808 Var RewardText_Y = 545
Var RewardImage_X = 134
Var RewardImage_Y = 863
EndIf EndIf
If CodeType = "" Then If CodeType = "145" Then
Var RewardText = DirImage + "/clear_gel_4_ml_reward_text.png" Var RewardText = DirImage + "/reward_discount_name.png"
Var RewardImage = DirImage + "/clear_gel_4_ml_reward.png" Var RewardImage = DirImage + "/reward_discount.png"
Var RewardImage_X = 267 Var RewardText_X = 361
Var RewardImage_Y = 808 Var RewardText_Y = 725
Var RewardImage_X = 137
Var RewardImage_Y = 748
Var RewardBg = DirImage + "/bg_reward_no_line.png"
EndIf EndIf
Var CodeReward = CodeType Var CodeReward = CodeType
@ -117,7 +138,7 @@
<Image> <Image>
<X> 0 </X> <X> 0 </X>
<Y> 380 </Y> <Y> 380 </Y>
<Filename> Var( DirImage + "/bg_reward.png") </Filename> <Filename> RewardBg </Filename>
</Image> </Image>
<Image> <Image>
@ -127,17 +148,11 @@
</Image> </Image>
<Image> <Image>
<X> 126 </X> <X> RewardText_X </X>
<Y> 595 </Y> <Y> RewardText_Y </Y>
<Filename> RewardText </Filename> <Filename> RewardText </Filename>
</Image> </Image>
<Image>
<X> 229 </X>
<Y> 1662 </Y>
<Filename> Var( DirImage + "/reward_result_line_register_text.png") </Filename>
</Image>
; ;
<Image> <Image>
<X> 751 </X> <X> 751 </X>

File diff suppressed because it is too large Load diff

View file

@ -264,6 +264,20 @@
EndIf EndIf
EndIf EndIf
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 GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml" Open "ROOT/taobin_project/xml/page_collect_point_2.xml"