pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

[THAI] Update Image Jemila reward out of stock

Browse source
This commit is contained in:
Kenta420 2024-09-24 10:12:49 +07:00
parent 4bcade7be8
commit e2003d1f54
8 changed files with 187 additions and 138 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
image/event/jemila/jemila_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 301 KiB

BIN
image/event/jemila/jemila_prize_out_of_stock_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 285 KiB

BIN
image/event/jemila/jemila_prize_out_of_stock_th.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 281 KiB

0
image/event/jemila/jemila.png → image/event/jemila/jemila_th.png
View file

Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 296 KiB

After

Width:  |  Height:  |  Size: 296 KiB

Before After
Before After

52
xml/event/promotion_jemila.xml
View file

@ -12812,43 +12812,61 @@ LIMENADE SODA" </Value>
<State> BigButtonEnable </State> <State> BigButtonEnable </State>
<Filename> <Filename>
eval( eval(
If show_eng = "true" Then If JemilaRewardOutOfStock = 1 Then
Var return = "ROOT/taobin_project/image/event/jemila/jemila.png" Var return = "ROOT/taobin_project/image/event/jemila/jemila_prize_out_of_stock"
Else Else
Var return = "ROOT/taobin_project/image/event/jemila/jemila.png" Var return = "ROOT/taobin_project/image/event/jemila/jemila"
EndIf
If show_eng = "true" Then
Var return = return + "_en.png"
Else
Var return = return + "_th.png"
EndIf EndIf
) )
</Filename> </Filename>
<FilenamePress> <FilenamePress>
eval( eval(
If show_eng = "true" Then If JemilaRewardOutOfStock = 1 Then
Var return = "ROOT/taobin_project/image/event/jemila/jemila.png" Var return = "ROOT/taobin_project/image/event/jemila/jemila_prize_out_of_stock"
Else Else
Var return = "ROOT/taobin_project/image/event/jemila/jemila.png" Var return = "ROOT/taobin_project/image/event/jemila/jemila"
EndIf
If show_eng = "true" Then
Var return = return + "_en.png"
Else
Var return = return + "_th.png"
EndIf EndIf
) )
</FilenamePress> </FilenamePress>
<FilenameDisable> <FilenameDisable>
eval( eval(
If show_eng = "true" Then If JemilaRewardOutOfStock = 1 Then
Var return = "ROOT/taobin_project/image/event/jemila/jemila.png" Var return = "ROOT/taobin_project/image/event/jemila/jemila_prize_out_of_stock"
Else Else
Var return = "ROOT/taobin_project/image/event/jemila/jemila.png" Var return = "ROOT/taobin_project/image/event/jemila/jemila"
EndIf
If show_eng = "true" Then
Var return = return + "_en.png"
Else
Var return = return + "_th.png"
EndIf EndIf
) )
</FilenameDisable> </FilenameDisable>
<EventOnClick> <EventOnClick>
Open "ROOT/taobin_project/xml/page_catalog_group_pro_jemila.xml" Open "ROOT/taobin_project/xml/page_catalog_group_pro_jemila.xml"
</EventOnClick> </EventOnClick>
</Button> </Button>
<EventUnitTest1> <EventUnitTest1>
Var BigButtonEnable = "Enable" Var BigButtonEnable = "Enable"
Refresh Refresh
</EventUnitTest1> </EventUnitTest1>
<EventUnitTest2> <EventUnitTest2>

52
xml/event/promotion_template2.inc
View file

@ -5,42 +5,60 @@
<State> BigButtonEnable </State> <State> BigButtonEnable </State>
<Filename> <Filename>
eval( eval(
If show_eng = "true" Then If JemilaRewardOutOfStock = 1 Then
Var return = ###normal_eng Var return = "ROOT/taobin_project/image/event/jemila/jemila_prize_out_of_stock"
Else Else
Var return = ###normal_thai Var return = "ROOT/taobin_project/image/event/jemila/jemila"
EndIf
If show_eng = "true" Then
Var return = return + "_en.png"
Else
Var return = return + "_th.png"
EndIf EndIf
) )
</Filename> </Filename>
<FilenamePress> <FilenamePress>
eval( eval(
If show_eng = "true" Then If JemilaRewardOutOfStock = 1 Then
Var return = ###normal_eng Var return = "ROOT/taobin_project/image/event/jemila/jemila_prize_out_of_stock"
Else Else
Var return = ###normal_thai Var return = "ROOT/taobin_project/image/event/jemila/jemila"
EndIf
If show_eng = "true" Then
Var return = return + "_en.png"
Else
Var return = return + "_th.png"
EndIf EndIf
) )
</FilenamePress> </FilenamePress>
<FilenameDisable> <FilenameDisable>
eval( eval(
If show_eng = "true" Then If JemilaRewardOutOfStock = 1 Then
Var return = ###normal_eng Var return = "ROOT/taobin_project/image/event/jemila/jemila_prize_out_of_stock"
Else Else
Var return = ###normal_thai Var return = "ROOT/taobin_project/image/event/jemila/jemila"
EndIf
If show_eng = "true" Then
Var return = return + "_en.png"
Else
Var return = return + "_th.png"
EndIf EndIf
) )
</FilenameDisable> </FilenameDisable>
<EventOnClick> <EventOnClick>
###EventOnClick ###EventOnClick
</EventOnClick> </EventOnClick>
</Button> </Button>
<EventUnitTest1> <EventUnitTest1>
Var BigButtonEnable = "Enable" Var BigButtonEnable = "Enable"
Refresh Refresh
</EventUnitTest1> </EventUnitTest1>
<EventUnitTest2> <EventUnitTest2>

6
xml/event/tricker.ev
View file

@ -131,6 +131,8 @@ Var FromRobinsonBeautyPro = 0
; Enable Jemila promotion, 1 - 18 Oct ; Enable Jemila promotion, 1 - 18 Oct
Var JemilaPro = 0 Var JemilaPro = 0
Var FromJemilaPro = 0
Var JemilaRewardOutOfStock = 0
Var NewCollectPoint = 1 Var NewCollectPoint = 1
Var PayMentCodeShouldCollectPromotionPoint = 0 Var PayMentCodeShouldCollectPromotionPoint = 0
@ -377,8 +379,10 @@ EndIf
Var CurrentMainVideoTemp = 0 Var CurrentMainVideoTemp = 0
DEBUGVAR FreePowerup
; Check reward out of stock
READ_FILE "/mnt/sdcard/coffeevending/jemila_reward_out_of_stock" JemilaRewardOutOfStock
DEBUGVAR JemilaRewardOutOfStock
; Control collect promotion point behavior ; Control collect promotion point behavior

215
xml/page_collect_point_1.xml
View file

@ -11,8 +11,8 @@
; jump ; jump
If IgnoreCollectPointByMe = 1 Then If IgnoreCollectPointByMe = 1 Then
Var IgnoreCollectPointByMe = 0 Var IgnoreCollectPointByMe = 0
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
If Seeker.CodeChannel = 1 Then If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 0 Then If Seeker.CollectPointMain = 0 Then
@ -20,10 +20,10 @@
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
EndIf EndIf
If SettingIgnoreCollectPoint = 1 Then If SettingIgnoreCollectPoint = 1 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -35,7 +35,7 @@
Var TimeOutPlay = 0 Var TimeOutPlay = 0
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_en" Var DirImage = "ROOT/taobin_project/image/collect_point1_en"
;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" ;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
@ -74,7 +74,7 @@
Var CampaingRef1 = "" Var CampaingRef1 = ""
Var CampaingRef2 = "" Var CampaingRef2 = ""
SUBSTRING CampaingRef 0 6 CampaingRef1 SUBSTRING CampaingRef 0 6 CampaingRef1
SUBSTRING CampaingRef 12 18 CampaingRef2 SUBSTRING CampaingRef 12 18 CampaingRef2
@ -124,20 +124,21 @@
Var PepweenCollectPoint = 0 Var PepweenCollectPoint = 0
EndIf EndIf
EndIf EndIf
DEBUGVAR NotCollectPointPromotion DEBUGVAR NotCollectPointPromotion
DEBUGVAR RobinsonBeautyPro DEBUGVAR RobinsonBeautyPro
DEBUGVAR FromRobinsonBeautyPro DEBUGVAR FromRobinsonBeautyPro
DEBUGVAR JemilaPro DEBUGVAR JemilaPro
DEBUGVAR FromJemilaPro DEBUGVAR FromJemilaPro
DEBUGVAR JemilaRewardOutOfStock
If Seeker.TNumberTaobinCredit = "" Then If Seeker.TNumberTaobinCredit = "" Then
If web_telnumOK = "" Then If web_telnumOK = "" Then
If show_eng = "true" Then If show_eng = "true" Then
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Else Else
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
@ -148,7 +149,7 @@
Var StepGetPoint = 1 Var StepGetPoint = 1
Var PdpaAsk = 0 Var PdpaAsk = 0
Var OperatorTemp = "" Var OperatorTemp = ""
Var CreditAmount = 0 Var CreditAmount = 0
Var OperatorStatus = "" Var OperatorStatus = ""
@ -168,10 +169,10 @@
AddData 45 TelPhoneNum drink_price param2 param3 AddData 45 TelPhoneNum drink_price param2 param3
EndIf EndIf
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/" Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP Var Param1 = Param1 + ParamCP
If NotCollectPointPromotion = 0 Then If NotCollectPointPromotion = 0 Then
@ -191,21 +192,25 @@
If JemilaPro = 1 Then If JemilaPro = 1 Then
If FromJemilaPro = 1 Then If FromJemilaPro = 1 Then
If Seeker.CodeChannel = 1 Then If JemilaRewardOutOfStock = 1 Then
If Seeker.CollectPointPromotion = 1 Then SAVELOG "Jemila prize out of stock skip collect promotion point."
GETACCEXT TelephoneNumber 40
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
EndIf
Else Else
GETACCEXT TelephoneNumber 40 If Seeker.CodeChannel = 1 Then
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml" If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 40
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 40
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
EndIf
EndIf EndIf
EndIf EndIf
EndIf 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"
EndIf EndIf
Else Else
@ -223,7 +228,7 @@
Var StepGetPoint = 1 Var StepGetPoint = 1
Var PdpaAsk = 0 Var PdpaAsk = 0
Var OperatorTemp = "" Var OperatorTemp = ""
Var CreditAmount = 0 Var CreditAmount = 0
Var OperatorStatus = "" Var OperatorStatus = ""
@ -233,10 +238,10 @@
Var TelephoneNumberX = TelephoneNumber Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber DEBUGVAR TelephoneNumber
DEBUGVAR PepweenCollectPoint DEBUGVAR PepweenCollectPoint
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/" Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP Var Param1 = Param1 + ParamCP
If NotCollectPointPromotion = 0 Then If NotCollectPointPromotion = 0 Then
@ -256,22 +261,26 @@
If JemilaPro = 1 Then If JemilaPro = 1 Then
If FromJemilaPro = 1 Then If FromJemilaPro = 1 Then
If Seeker.CodeChannel = 1 Then If JemilaRewardOutOfStock = 1 Then
If Seeker.CollectPointPromotion = 1 Then SAVELOG "Jemila prize out of stock skip collect promotion point."
GETACCEXT TelephoneNumber 40 Else
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml" If Seeker.CodeChannel = 1 Then
EndIf If Seeker.CollectPointPromotion = 0 Then
Else GETACCEXT TelephoneNumber 40
GETACCEXT TelephoneNumber 40 Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml" EndIf
EndIf Else
GETACCEXT TelephoneNumber 40
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
EndIf
EndIf
EndIf EndIf
EndIf 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"
EndIf EndIf
@ -279,24 +288,24 @@
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var CountDownBrewing = BREW_CNT Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing Var ShowCountDownBrewing = CountDownBrewing
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen > 0 Then If TelNumLen > 0 Then
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Else Else
; Add ; Add
Var TimeOutPlay = TimeOutPlay + 1 Var TimeOutPlay = TimeOutPlay + 1
If TimeOutPlay > 10 Then If TimeOutPlay > 10 Then
Var TimeOutPlay = 0 Var TimeOutPlay = 0
If show_eng = "true" Then If show_eng = "true" Then
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Else Else
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
@ -305,17 +314,17 @@
; ;
EndIf EndIf
DEBUGVAR Timeout DEBUGVAR Timeout
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 30 Then If Timeout > 30 Then
SAVELOG "collect_point1-p107." SAVELOG "collect_point1-p107."
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
If Timeout = 18 Then If Timeout = 18 Then
@ -333,7 +342,7 @@
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -359,13 +368,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1" Var TelephoneNumber = TelephoneNumber + "1"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -375,9 +384,9 @@
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -389,13 +398,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2" Var TelephoneNumber = TelephoneNumber + "2"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -414,13 +423,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3" Var TelephoneNumber = TelephoneNumber + "3"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -439,13 +448,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4" Var TelephoneNumber = TelephoneNumber + "4"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -464,13 +473,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5" Var TelephoneNumber = TelephoneNumber + "5"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -489,13 +498,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6" Var TelephoneNumber = TelephoneNumber + "6"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -514,13 +523,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7" Var TelephoneNumber = TelephoneNumber + "7"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -539,13 +548,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8" Var TelephoneNumber = TelephoneNumber + "8"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -564,13 +573,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9" Var TelephoneNumber = TelephoneNumber + "9"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -579,7 +588,7 @@
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -590,13 +599,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0" Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -615,24 +624,24 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Trim TelephoneNumber -1 Trim TelephoneNumber -1
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible" Var Tel_Confirm_State = "Invisible"
EndIf EndIf
If TelNumLen = 0 Then If TelNumLen = 0 Then
Var ShowTextNumber = "Enable" Var ShowTextNumber = "Enable"
EndIf EndIf
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -656,11 +665,11 @@
<FilenamePress> Var( DirImage + "/bp_negative.png") </FilenamePress> <FilenamePress> Var( DirImage + "/bp_negative.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
; goto lid straw ; goto lid straw
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
SAVELOG "collect_point1-p589." SAVELOG "collect_point1-p589."
If LuckyDrawCampaign = 1 Then If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml" Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else Else
@ -679,9 +688,9 @@
<FilenameDisable> Var( DirImage + "/bn_positive.png") </FilenameDisable> <FilenameDisable> Var( DirImage + "/bn_positive.png") </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Tel_Confirm_Flag = 1 Then If Tel_Confirm_Flag = 1 Then
@ -696,7 +705,7 @@
Var StepGetPoint = 1 Var StepGetPoint = 1
Var PdpaAsk = 0 Var PdpaAsk = 0
Var OperatorTemp = "" Var OperatorTemp = ""
Var CreditAmount = 0 Var CreditAmount = 0
Var OperatorStatus = "" Var OperatorStatus = ""
@ -715,17 +724,17 @@
AddData 45 TelPhoneNum drink_price param2 param3 AddData 45 TelPhoneNum drink_price param2 param3
EndIf EndIf
If ChildrenFree = 1 Then If ChildrenFree = 1 Then
Var Seeker.TNumberTaobinMember = TelephoneNumber Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
Var Param1 = TelephoneNumber + "/"
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP Var Param1 = Param1 + ParamCP
DEBUGVAR FruityRayaEnable DEBUGVAR FruityRayaEnable
@ -756,7 +765,7 @@
If MyMintEnable = 1 Then If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then If FromMyMintPro = 1 Then
GETACCEXT TelephoneNumber 32 GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml" Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml"
EndIf EndIf
EndIf EndIf
@ -821,12 +830,12 @@
EndIf EndIf
GETACCEXT Param1 23 GETACCEXT Param1 23
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_collect_point_2.xml" Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else Else
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_en" Var DirImage2 = "ROOT/taobin_project/image/collectiing_en"
Else Else
Var DirImage2 = "ROOT/taobin_project/image/collectiing" Var DirImage2 = "ROOT/taobin_project/image/collectiing"
@ -839,7 +848,7 @@
Var Tel_Confirm_State = "Invisible" Var Tel_Confirm_State = "Invisible"
Refresh Refresh
EndIf EndIf
@ -930,11 +939,11 @@
<State> ShowErrorText </State> <State> ShowErrorText </State>
<Filename> text_show_error </Filename> <Filename> text_show_error </Filename>
</Image> </Image>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml" <EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity> </EventSecurity>
<EventMachine> <EventMachine>
If MachineStage = "drink-success" Then If MachineStage = "drink-success" Then