add Nam Hom Coconut promotion (not finish yet)

This commit is contained in:
Kenta420 2024-05-15 13:05:23 +07:00
parent 3143147756
commit 32229624f7
56 changed files with 30456 additions and 2329 deletions

View file

@ -24,7 +24,7 @@
DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX
Var DirImage = "ROOT/taobin_project/image/event/nam_hom_coconut/display_point"
Var PointRootDir = "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"
@ -102,7 +102,6 @@
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
@ -560,7 +559,7 @@
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Open "ROOT/taobin_project/xml/event/lipit/page_lipit_random.xml"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
</EventClick>
</Button>
@ -570,8 +569,8 @@
<X> 610 </X>
<Y> 1660 </Y>
<State> showCloseBtnState </State>
<Filename> Var( DirImage + "/bn_close.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_close.png" )</FilenamePress>
<Filename> Var( PointRootDir + "/bn_close.png" )</Filename>
<FilenamePress> Var( PointRootDir + "/bp_close.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

View file

@ -0,0 +1,278 @@
<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/nam_hom_coconut/random"
Var RandomStyle = 0
Random2 0 1 RandomStyle
If RandomStyle = 0 Then
Var Text_X = 241
Var Text_Y = 1113
Var BagImg = DirImage + "/cura-md-bag_md.png"
Var Bag1_X = 75
Var Bag1_Y = 715
Var Bag2_X = 424
Var Bag2_Y = 715
Var Bag3_X = 774
Var Bag3_Y = 715
Var Bag4_X = 249
Var Bag4_Y = 1338
Var Bag5_X = 599
Var Bag5_Y = 1338
Else
Var Text_X = 256
Var Text_Y = 628
Var BagImg = DirImage + "/cura-md-bag_lg.png"
Var Bag1_X = 75
Var Bag1_Y = 806
Var Bag2_X = 713
Var Bag2_Y = 806
Var Bag3_X = 394
Var Bag3_Y = 1129
Var Bag4_X = 75
Var Bag4_Y = 1471
Var Bag5_X = 713
Var Bag5_Y = 1471
EndIf
Var MaxRandomIndex = 0
If ClearGelOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If TumbleBottleOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "tumble_bottle"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "tumble_bottle"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "tumble_bottle"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "tumble_bottle"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "tumble_bottle"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If CleansingGelOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "cleansing_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "cleansing_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "cleansing_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If BalanceEssenceTonerOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "balance_essence_toner"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "balance_essence_toner"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If SuperSetOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "super_set"
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
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.png") </Filename>
</Image>
<Image>
<X> Text_X </X>
<Y> Text_Y </Y>
<Filename> Var( DirImage + "/random_text.png") </Filename>
</Image>
<Button>
<X> Bag1_X </X>
<Y> Bag1_Y </Y>
<Filename> BagImg </Filename>
<FilenamePress> BagImg </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Button>
<X> Bag2_X </X>
<Y> Bag2_Y </Y>
<Filename> BagImg </Filename>
<FilenamePress> BagImg </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Button>
<X> Bag3_X </X>
<Y> Bag3_Y </Y>
<Filename> BagImg </Filename>
<FilenamePress> BagImg </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Button>
<X> Bag4_X </X>
<Y> Bag4_Y </Y>
<Filename> BagImg </Filename>
<FilenamePress> BagImg </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Button>
<X> Bag5_X </X>
<Y> Bag5_Y </Y>
<Filename> BagImg </Filename>
<FilenamePress> BagImg </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Function2>
; Random coupon
Var randResultInt = 0
DEBUGVAR MaxRandomIndex
Var MaxRandom = MaxRandomIndex - 1
DEBUGVAR MaxRandom
Random2 0 MaxRandom randResultInt
Var CodeType = ""
Var randResultStr = rewardList[randResultInt]
If randResultStr = "lip_mask_stick" Then
Var rewardImage = DirImage + "/reward_lip_mask_stick.png"
Var CodeType = "126"
EndIf
if randResultStr = "tint_me_healthy_balm" Then
Var rewardImage = DirImage + "/reward_tint_me_healthy_blam.png"
Var CodeType = "127"
EndIf
If randResultStr = "super_set" Then
Var rewardImage = DirImage + "/reward_happy_lip_set.png"
Var CodeType = "128"
EndIf
DEBUGVAR randResultInt
DEBUGVAR randResultStr
DEBUGVAR CodeType
DEBUGVAR rewardImage
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random_result.xml"
</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/nam_hom_coconut/page_nam_hom_coconut_random.xml"
</EventUnitTest2>
<EventUnitTest3>
Var show_eng = "true"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
</EventUnitTest3>
</Popup>

View file

@ -0,0 +1,148 @@
<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/nam_hom_coconut/random"
If CodeType = "123" 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 = "123" 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 = "123" 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 = "123" 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 = "123" 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
Var CodeReward = CodeType
Var var2 = "X"
Var var3 = "X"
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
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> 126 </X>
<Y> 595 <Y>
<Filename> RewardText </Filename>
</Image>
<Image>
<X> RewardImage_X </X>
<Y> RewardImage_Y </Y>
<Filename> RewardImage </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/nam_hom_coconut/page_nam_hom_coconut_random.xml"
</EventUnitTest2>
<EventUnitTest3>
Var show_eng = "true"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
</EventUnitTest3>
</Popup>