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

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

@ -12,6 +12,8 @@
Var MaxRandomIndex = 0
Var SelectNumber = 0
Var ShakeCount = 0
Var SelectingState = "Enable"
Var SelectedState = "Invisible"
@ -259,13 +261,13 @@
EndIf
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"
EndIf
EndIf
Var Timeout = Timeout + 1
;Var Timeout = Timeout + 1
TimerReset
Refresh
@ -280,7 +282,28 @@
<X> 0 </X>
<Y> 380 </Y>
<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>
@ -296,104 +319,104 @@
<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>
; <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
@ -410,39 +433,39 @@
If randResultStr = "set_a_plus" Then
Var CodeType = ""
Var CodeType = "144"
EndIf
if randResultStr = "set_a" Then
Var CodeType = ""
Var CodeType = "143"
EndIf
If randResultStr = "lustrous" Then
Var CodeType = ""
Var CodeType = "137"
EndIf
If randResultStr = "lip_tint_oil" Then
Var CodeType = ""
Var CodeType = "138"
EndIf
If randResultStr = "blush_and_lip" Then
Var CodeType = ""
Var CodeType = "139"
EndIf
If randResultStr = "random" Then
Var CodeType = ""
Var CodeType = "140"
EndIf
If randResultStr = "double_serum" Then
Var CodeType = ""
Var CodeType = "141"
EndIf
If randResultStr = "calvin_klein" Then
Var CodeType = ""
Var CodeType = "142"
EndIf
If randResultStr = "discount_50" Then
Var CodeType = ""
Var CodeType = "145"
EndIf

View file

@ -10,67 +10,88 @@
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
Var RewardBg = DirImage + "/bg_reward.png"
If CodeType = "137" Then
Var RewardText = DirImage + "/reward_lustrous_lipstick_name.png"
Var RewardImage = DirImage + "/reward_lustrous_lipstick.png"
Var RewardText_X = 88
Var RewardText_Y = 546
Var RewardImage_X = 424
Var RewardImage_Y = 883
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
If CodeType = "138" Then
Var RewardText = DirImage + "/reward_lip_tint_oil_name.png"
Var RewardImage = DirImage + "/reward_lip_tint_oil.png"
Var RewardText_X = 18
Var RewardText_Y = 923
Var RewardImage_X = 169
Var RewardImage_Y = 578
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
If CodeType = "139" Then
Var RewardText = DirImage + "/reward_blush_and_linp_name.png"
Var RewardImage = DirImage + "/reward_blush_and_linp.png"
Var RewardText_X = 170
Var RewardText_Y = 541
Var RewardImage_X = 114
Var RewardImage_Y = 892
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
If CodeType = "140" Then
Var RewardText = DirImage + "/reward_random_name.png"
Var RewardImage = DirImage + "/reward_random.png"
Var RewardText_X = 307
Var RewardText_Y = 573
Var RewardImage_X = 156
Var RewardImage_Y = 839
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
If CodeType = "141" Then
Var RewardText = DirImage + "/reward_double_serum_name.png"
Var RewardImage = DirImage + "/reward_double_serum.png"
Var RewardText_X = 160
Var RewardText_Y = 623
Var RewardImage_X = 127
Var RewardImage_Y = 848
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
If CodeType = "142" Then
Var RewardText = DirImage + "/reward_calvin_klein_name.png"
Var RewardImage = DirImage + "/reward_calvin_klein.png"
Var RewardText_X = 117
Var RewardText_Y = 541
Var RewardImage_X = 178
Var RewardImage_Y = 787
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
If CodeType = "143" Then
Var RewardText = DirImage + "/reward_set_a_name.png"
Var RewardImage = DirImage + "/reward_set_a.png"
Var RewardText_X = 283
Var RewardText_Y = 545
Var RewardImage_X = 114
Var RewardImage_Y = 819
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
If CodeType = "144" Then
Var RewardText = DirImage + "/reward_set_a_plus_name.png"
Var RewardImage = DirImage + "/reward_set_a_plus.png"
Var RewardText_X = 255
Var RewardText_Y = 545
Var RewardImage_X = 134
Var RewardImage_Y = 863
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
If CodeType = "145" Then
Var RewardText = DirImage + "/reward_discount_name.png"
Var RewardImage = DirImage + "/reward_discount.png"
Var RewardText_X = 361
Var RewardText_Y = 725
Var RewardImage_X = 137
Var RewardImage_Y = 748
Var RewardBg = DirImage + "/bg_reward_no_line.png"
EndIf
Var CodeReward = CodeType
@ -117,7 +138,7 @@
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "/bg_reward.png") </Filename>
<Filename> RewardBg </Filename>
</Image>
<Image>
@ -127,17 +148,11 @@
</Image>
<Image>
<X> 126 </X>
<Y> 595 </Y>
<X> RewardText_X </X>
<Y> RewardText_Y </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>

File diff suppressed because it is too large Load diff

View file

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