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

WTC+SGP: change collect pt ui and member regis QR

Browse source
This commit is contained in:
Pakin 2024-10-04 17:28:51 +07:00
parent da3e42901e
commit 9ad0f10a7c
25 changed files with 565 additions and 349 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
font/PepsiOwners2/PepsiOwners2-Compressed220909.ttf Normal file
View file

Binary file not shown.

BIN
font/PepsiOwners2/PepsiOwners2-Extended220909.ttf Normal file
View file

Binary file not shown.

BIN
font/PepsiOwners2/PepsiOwners2-Regular220909.ttf Normal file
View file

Binary file not shown.

BIN
inter/sgp/image/page_member/qr_regis.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.1 KiB

After

Width:  |  Height:  |  Size: 64 KiB

Before After
Before After

197
inter/sgp/xml/page_collect_point_1.lxml
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"
@ -81,7 +81,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
@ -131,7 +131,7 @@
Var PepweenCollectPoint = 0 Var PepweenCollectPoint = 0
EndIf EndIf
EndIf EndIf
DEBUGVAR PepweenCollectPoint DEBUGVAR PepweenCollectPoint
DEBUGVAR ProBadValentineEnable DEBUGVAR ProBadValentineEnable
@ -143,13 +143,13 @@
DEBUGVAR ProThaiTeaEnable DEBUGVAR ProThaiTeaEnable
DEBUGVAR FromProThaiTea DEBUGVAR FromProThaiTea
DEBUGVAR FromProYuzu DEBUGVAR FromProYuzu
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"
@ -160,7 +160,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 = ""
@ -180,16 +180,16 @@
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 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
@ -221,7 +221,7 @@
If PepweenEnable = 1 Then If PepweenEnable = 1 Then
If PepweenCollectPoint = 0 Then If PepweenCollectPoint = 0 Then
GETACCEXT TelephoneNumber 31 GETACCEXT TelephoneNumber 31
Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml" Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"
EndIf EndIf
EndIf EndIf
@ -278,7 +278,7 @@
GETACCEXT Param1 23 GETACCEXT Param1 23
EndIf EndIf
Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_2.lxml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_2.lxml"
EndIf EndIf
Else Else
@ -296,7 +296,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 = ""
@ -306,10 +306,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
DEBUGVAR MyMintEnable DEBUGVAR MyMintEnable
@ -319,7 +319,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
@ -339,7 +339,7 @@
Open "ROOT/taobin_project/inter/mys/xml/event/thai_tea/page_get_free_1_thai_tea.lxml" Open "ROOT/taobin_project/inter/mys/xml/event/thai_tea/page_get_free_1_thai_tea.lxml"
EndIf EndIf
EndIf EndIf
DEBUGVAR ProYuzuEnable DEBUGVAR ProYuzuEnable
DEBUGVAR FromProYuzu DEBUGVAR FromProYuzu
If ProYuzuEnable = 1 Then If ProYuzuEnable = 1 Then
@ -396,7 +396,7 @@
If PepweenCollectPoint = 0 Then If PepweenCollectPoint = 0 Then
GETACCEXT TelephoneNumber 31 GETACCEXT TelephoneNumber 31
Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml" Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"
Else Else
If UseSGPCollectFlag = 1 Then If UseSGPCollectFlag = 1 Then
@ -405,7 +405,7 @@
Else Else
GETACCEXT Param1 23 GETACCEXT Param1 23
EndIf EndIf
Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_2.lxml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_2.lxml"
EndIf EndIf
EndIf EndIf
@ -416,7 +416,7 @@
If SGPSimMode = "Enable" Then If SGPSimMode = "Enable" Then
If BREW_CNT = 0 Then If BREW_CNT = 0 Then
Var BREW_CNT = 20 Var BREW_CNT = 20
EndIf EndIf
@ -492,10 +492,10 @@
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var CountDownBrewing = BREW_CNT Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing Var ShowCountDownBrewing = CountDownBrewing
@ -511,20 +511,20 @@
DEBUGVAR XPercent DEBUGVAR XPercent
Var XPercent = XPercent / InitCNT Var XPercent = XPercent / InitCNT
EndIf EndIf
DEBUGVAR XPercent DEBUGVAR XPercent
EndIf EndIf
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"
@ -533,17 +533,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
@ -561,7 +561,7 @@
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -587,13 +587,13 @@
<FilenamePress> bp_NumPad1 </FilenamePress> <FilenamePress> bp_NumPad1 </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
@ -603,9 +603,9 @@
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -617,13 +617,13 @@
<FilenamePress> bp_NumPad2 </FilenamePress> <FilenamePress> bp_NumPad2 </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
@ -642,13 +642,13 @@
<FilenamePress> bp_NumPad3 </FilenamePress> <FilenamePress> bp_NumPad3 </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
@ -667,13 +667,13 @@
<FilenamePress> bp_NumPad4 </FilenamePress> <FilenamePress> bp_NumPad4 </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
@ -692,13 +692,13 @@
<FilenamePress> bp_NumPad5 </FilenamePress> <FilenamePress> bp_NumPad5 </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
@ -717,13 +717,13 @@
<FilenamePress> bp_NumPad6 </FilenamePress> <FilenamePress> bp_NumPad6 </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
@ -742,13 +742,13 @@
<FilenamePress> bp_NumPad7 </FilenamePress> <FilenamePress> bp_NumPad7 </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
@ -767,13 +767,13 @@
<FilenamePress> bp_NumPad8 </FilenamePress> <FilenamePress> bp_NumPad8 </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
@ -792,13 +792,13 @@
<FilenamePress> bp_NumPad9 </FilenamePress> <FilenamePress> bp_NumPad9 </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
@ -807,7 +807,7 @@
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -818,13 +818,13 @@
<FilenamePress> bp_NumPad0 </FilenamePress> <FilenamePress> bp_NumPad0 </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
@ -843,24 +843,24 @@
<FilenamePress> bp_NumPadBack </FilenamePress> <FilenamePress> bp_NumPadBack </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>
@ -884,11 +884,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."
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick> </EventClick>
</Button> </Button>
@ -903,9 +903,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
@ -921,7 +921,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 = ""
@ -940,17 +940,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
@ -981,7 +981,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
@ -1033,7 +1033,7 @@
If PepweenCollectPoint = 0 Then If PepweenCollectPoint = 0 Then
GETACCEXT TelephoneNumber 31 GETACCEXT TelephoneNumber 31
Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml" Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"
Else Else
If UseSGPCollectFlag = 1 Then If UseSGPCollectFlag = 1 Then
Var Param1 = "SG/" + Param1 Var Param1 = "SG/" + Param1
@ -1042,13 +1042,13 @@
Else Else
GETACCEXT Param1 23 GETACCEXT Param1 23
EndIf EndIf
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_2.lxml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_2.lxml"
EndIf EndIf
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"
@ -1061,7 +1061,7 @@
Var Tel_Confirm_State = "Invisible" Var Tel_Confirm_State = "Invisible"
Refresh Refresh
EndIf EndIf
@ -1165,11 +1165,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
@ -1186,7 +1186,12 @@
Var DebugBypassCollectPt2 = 1 Var DebugBypassCollectPt2 = 1
DEBUGVAR DebugBypassCollectPt2 DEBUGVAR DebugBypassCollectPt2
Var TaobinLevel = "2"
Var CoffeePoint = 55
</EventUnitTest1> </EventUnitTest1>
</Popup> </Popup>

111
inter/sgp/xml/page_collect_point_2.lxml
View file

@ -10,7 +10,7 @@
Var Timeout = 0 Var Timeout = 0
SAVELOG UnitTestType SAVELOG UnitTestType
If UnitTestType = "1" Then If UnitTestType = "1" Then
Var CoffeePoint = 10 Var CoffeePoint = 10
Open "ROOT/taobin_project/xml/page_show_consent.xml" Open "ROOT/taobin_project/xml/page_show_consent.xml"
@ -22,12 +22,12 @@
Var Seeker.TaobinErrorNetwork = 0 Var Seeker.TaobinErrorNetwork = 0
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en" Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else Else
Var DirImage = "ROOT/taobin_project/image/collectiing" Var DirImage = "ROOT/taobin_project/image/collectiing"
@ -42,6 +42,10 @@
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber Var Seeker.TNumberTaobinMember= TelephoneNumber
Var TaobinLevel = 2
Var CoffeePointRank = 55
DEBUGVAR TaobinLevel
; reset ; reset
Var DebugBypassCollectPt2 = 0 Var DebugBypassCollectPt2 = 0
@ -75,10 +79,10 @@
Var IMG_CNT = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_doing/img2_eng.png" Var IMG_CNT = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_doing/img2_eng.png"
EndIf EndIf
EndIf EndIf
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var CountDownBrewing = BREW_CNT Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing Var ShowCountDownBrewing = CountDownBrewing
@ -93,51 +97,51 @@
DEBUGVAR XPercent DEBUGVAR XPercent
Var XPercent = XPercent / InitCNT Var XPercent = XPercent / InitCNT
EndIf EndIf
DEBUGVAR XPercent DEBUGVAR XPercent
EndIf EndIf
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 30 Then If Timeout > 30 Then
Var TaobinLevel = 0 Var TaobinLevel = 0
Var CoffeePoint = 1 Var CoffeePoint = 1
Var Seeker.TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber Var Seeker.TNumberTaobinMember= TelephoneNumber
DEBUGVAR "Try open collect.error timeout30" DEBUGVAR "Try open collect.error timeout30"
Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_error.lxml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_error.lxml"
EndIf EndIf
TimerReset TimerReset
Refresh Refresh
</EventTimeout> </EventTimeout>
<EventSecurity> <EventSecurity>
Open "/media/bt/xml/security_alarm.xml" Open "/media/bt/xml/security_alarm.xml"
</EventSecurity> </EventSecurity>
<EventActionOk> <EventActionOk>
If StepGetPoint = 0 Then If StepGetPoint = 0 Then
If PdpaAsk = 0 Then If PdpaAsk = 0 Then
Open "ROOT/taobin_project/xml/page_show_consent.xml" Open "ROOT/taobin_project/xml/page_show_consent.xml"
Else Else
Var StepGetPoint = 1 Var StepGetPoint = 1
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
If UseSGPCollectFlag = 1 Then If UseSGPCollectFlag = 1 Then
GETACCEXT Param1 35 GETACCEXT Param1 35
Else Else
@ -145,21 +149,21 @@
EndIf EndIf
Var Ext1a = "" Var Ext1a = ""
Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_2.xml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_2.xml"
EndIf EndIf
Else Else
If Ext1a = "" Then If Ext1a = "" Then
Var Seeker.TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_error.lxml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_error.lxml"
Else Else
If Ext1a = "ok" Then If Ext1a = "ok" Then
@ -180,7 +184,7 @@
INT PointTaobinTmp INT PointTaobinTmp
INT TaobinPDPA INT TaobinPDPA
DEBUGVAR TaobinName DEBUGVAR TaobinName
Var CatchNotMember = 0 Var CatchNotMember = 0
If TaobinName = "" Then If TaobinName = "" Then
@ -213,7 +217,7 @@
Var TNumberTaobinMemberXXX = TelephoneNumber Var TNumberTaobinMemberXXX = TelephoneNumber
;Var PointTaobinTmp = 4 ;Var PointTaobinTmp = 4
Var PointTaobin = PointTaobinTmp Var PointTaobin = PointTaobinTmp
Var pTaobin = PointTaobin Var pTaobin = PointTaobin
@ -235,14 +239,14 @@
Var Seeker.PointTaobinStr = ParamCP Var Seeker.PointTaobinStr = ParamCP
Var Seeker.TNumberTaobinMember = TelephoneNumberX Var Seeker.TNumberTaobinMember = TelephoneNumberX
Var CoffeePointRank = Ext1b Var CoffeePointRank = Ext1b
INT CoffeePointRank INT CoffeePointRank
Var CoffeePoint1 = Ext1c Var CoffeePoint1 = Ext1c
INT CoffeePoint1 INT CoffeePoint1
Var CoffeePoint = PointTaobin + CoffeePoint1 Var CoffeePoint = PointTaobin + CoffeePoint1
Var CoffeePointOld = CoffeePoint1 Var CoffeePointOld = CoffeePoint1
@ -250,7 +254,7 @@
Var CoffeePointRank = CoffeePointRank + 0 Var CoffeePointRank = CoffeePointRank + 0
Else Else
Var CoffeePointRank = CoffeePointRank + PointTaobin Var CoffeePointRank = CoffeePointRank + PointTaobin
EndIf EndIf
Var CoffeePointRankTmp = CoffeePointRank Var CoffeePointRankTmp = CoffeePointRank
@ -261,13 +265,13 @@
;inter-xml-open ;inter-xml-open
If CountryName = "Malaysia" Then If CountryName = "Malaysia" Then
Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_3.xml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_3.xml"
EndIf EndIf
;inter-xml-open ;inter-xml-open
If CountryName = "Indonesia" Then If CountryName = "Indonesia" Then
Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_3.xml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_3.xml"
EndIf EndIf
;inter-xml-open ;inter-xml-open
If CountryName = "Australia" Then If CountryName = "Australia" Then
@ -276,71 +280,71 @@
Var pageCollectPoint = CountryRootPath + "/xml/page_collect_point_3.lxml" Var pageCollectPoint = CountryRootPath + "/xml/page_collect_point_3.lxml"
Open pageCollectPoint Open pageCollectPoint
Else Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml" Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf EndIf
EndIf EndIf
;inter-xml-open ;inter-xml-open
If CountryName = "Singapore" Then If CountryName = "Singapore" Then
DEBUGVAR "Try open collect3.sgp" DEBUGVAR "Try open collect3.sgp"
Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_3.lxml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_3.lxml"
EndIf EndIf
Open "ROOT/taobin_project/xml/page_show_consent.xml" Open "ROOT/taobin_project/xml/page_show_consent.xml"
EndIf EndIf
If PayAmount >= 20 Then If PayAmount >= 20 Then
If TaobinPromoX = "p2.no_otp" Then If TaobinPromoX = "p2.no_otp" Then
Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml" Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml"
EndIf EndIf
If TaobinPromoX = "p2.unused" Then If TaobinPromoX = "p2.unused" Then
Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml" Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml"
EndIf EndIf
EndIf EndIf
If NewCollectPoint = 1 Then If NewCollectPoint = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml" Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml" Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf EndIf
Else Else
Var Seeker.TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_error.lxml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_error.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
</EventActionOk> </EventActionOk>
<EventActionError> <EventActionError>
Var Seeker.TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber Var Seeker.TNumberTaobinMember= TelephoneNumber
Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_error.lxml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_error.lxml"
</EventActionError>
</EventActionError>
<EventMachine> <EventMachine>
If MachineStage = "drink-success" Then If MachineStage = "drink-success" Then
@ -416,4 +420,3 @@
</Popup> </Popup>

341
inter/sgp/xml/page_collect_point_3.lxml
View file

@ -26,7 +26,7 @@
DEBUGVAR TelephoneNumber DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX DEBUGVAR TelephoneNumberX
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en" Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
@ -38,7 +38,7 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf EndIf
Var CoffeePointTmp = CoffeePoint Var CoffeePointTmp = CoffeePoint
If CoffeePoint > 54 Then If CoffeePoint > 54 Then
@ -46,11 +46,11 @@
Var CoffeePointTmp = 55 Var CoffeePointTmp = 55
EndIf EndIf
Var pImage = CoffeePointTmp * 20 Var pImage = CoffeePointTmp * 20
Var pImage = pImage / 55 Var pImage = pImage / 55
Var pImageStr = "/taobinPoint55.png" Var pImageStr = "/taobinPoint55.png"
If UsePepsiTheme = 1 Then If UsePepsiTheme = 1 Then
Var pImageStr = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member" + pImageStr Var pImageStr = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member" + pImageStr
@ -70,7 +70,7 @@
Var TaobinExpireDay = "" Var TaobinExpireDay = ""
@ -78,14 +78,14 @@
Var TaobinExpireMonthX = "" Var TaobinExpireMonthX = ""
Var TaobinExpireYear = "" Var TaobinExpireYear = ""
SPLIT TaobinExpire "/" 1 TaobinExpireDay SPLIT TaobinExpire "/" 1 TaobinExpireDay
SPLIT TaobinExpire "/" 2 TaobinExpireMonth SPLIT TaobinExpire "/" 2 TaobinExpireMonth
SPLIT TaobinExpire "/" 3 TaobinExpireYear SPLIT TaobinExpire "/" 3 TaobinExpireYear
If show_eng = "true" Then If show_eng = "true" Then
If TaobinExpireMonth = "01" Then If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan" Var TaobinExpireMonth = "Jan"
@ -152,7 +152,7 @@
Var TaobinExpireYear = TaobinExpireYear + 0 Var TaobinExpireYear = TaobinExpireYear + 0
Else Else
If TaobinExpireMonth = "01" Then If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "ม.ค." Var TaobinExpireMonth = "ม.ค."
@ -229,17 +229,17 @@
Var ExpireStrTmp = ExpireStrTmp + " " Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
If TaobinLevel = "1" Then If TaobinLevel = "1" Then
Var PointMaskState = "Enable" Var PointMaskState = "Enable"
EndIf EndIf
If show_eng = "true" Then
If show_eng = "true" Then
Var TaobinLevelDesc3 = "You have coupons " Var TaobinLevelDesc3 = "You have coupons "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
@ -253,124 +253,69 @@
;EndIf ;EndIf
If TaobinLevel = "2" Then If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "Walking turtle level" Var TaobinLevelDesc1 = "CUPPING"
Var TaobinLevelDesc1Cont = "GOOD!"
Var TaobinLevelDesc1More = "BRONZE LEVEL"
Var PointDiff = 150 - CoffeePointRank Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells " Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Flying turtle level" Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Flying turtle level"
Var TaobinLeveImg = "/taoLevel2.png" Var TaobinLeveImg = "/WTCLevel1.png"
If CoffeePointRank > 149 Then If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png" Var TaobinLeveImg = "/WTCLevel2.png"
;Var TaobinLevelDesc1 = "Flying turtle level " Var TaobinLevelDesc1 = "CUPPING"
Var TaobinLevelDesc1Cont = "BETTER!"
Var TaobinLevelDesc1More = "SILVER LEVEL"
Var TaobinLevelDesc2 = "" Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150 Var CoffeePointRank = CoffeePointRank - 150
EndIf EndIf
EndIf EndIf
If TaobinLevel = "3" Then If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp ;Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 350 - CoffeePointRank Var PointDiff = 350 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells " Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level" Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
Var TaobinLeveImg = "/taoLevel3.png" Var TaobinLeveImg = "/WTCLevel2.png"
If CoffeePointRank > 349 Then If CoffeePointRank > 349 Then
;Var TaobinLeveImg = "/taoLevel4.png" Var TaobinLeveImg = "/WTCLevel3.png"
;Var TaobinLevelDesc1 = "Master turtle level " Var TaobinLevelDesc1 = "CUPPING"
Var TaobinLevelDesc1Cont = "BEST!"
Var TaobinLevelDesc1More = "GOLD LEVEL"
Var TaobinLevelDesc2 = "" Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350 Var CoffeePointRank = CoffeePointRank - 350
EndIf EndIf
EndIf EndIf
If TaobinLevel = "4" Then If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp ;Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp
Var TaobinLevelDesc2 = "" Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png" Var TaobinLeveImg = "/WTCLevel3.png"
EndIf EndIf
Else
Var TaobinLevelDesc3 = "ตอนนี้คุณมีคูปองแลกเครื่องดื่มฟรีเหลืออยู่ "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " ใบ"
;If TaobinLevel = "1" Then
; Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าขี้อาย"
; Var TaobinLevelDesc2 = ""
; Var TaobinLeveImg = "/taoLevel1.png"
;EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าเตาะแตะ"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นเต่าติดปีก"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก จนถึง " + ExpireStrTmp
Var PointDiff = 350 - CoffeePointRank
Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 349 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า จนถึง " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
EndIf EndIf
Var CheckCoupons = 0 Var CheckCoupons = 0
Var MakeDrinkState = 0 Var MakeDrinkState = 0
@ -380,24 +325,24 @@
Var ShellXCol3 = 365 Var ShellXCol3 = 365
Var ShellXCol4 = 462 Var ShellXCol4 = 462
Var ShellXCol5 = 557 Var ShellXCol5 = 557
Var ShellXCol6 = 652 Var ShellXCol6 = 662
Var ShellXCol7 = 747 Var ShellXCol7 = 757
Var ShellXCol8 = 842 Var ShellXCol8 = 852
; 1-8 ; 1-8
Var ShellYRow1 = 1037 Var ShellYRow1 = 1047
; 9-16 ; 9-16
Var ShellYRow2 = 1120 Var ShellYRow2 = 1130
; 17-24 ; 17-24
Var ShellYRow3 = 1203 Var ShellYRow3 = 1213
; 25-32 ; 25-32
Var ShellYRow4 = 1282 Var ShellYRow4 = 1292
; 33-40 ; 33-40
Var ShellYRow5 = 1365 Var ShellYRow5 = 1375
; 41-48 ; 41-48
Var ShellYRow6 = 1448 Var ShellYRow6 = 1458
; 49-55 ; 49-55
Var ShellYRow7 = 1531 Var ShellYRow7 = 1541
Var taobinP1 = "Invisible" Var taobinP1 = "Invisible"
@ -461,7 +406,7 @@
Var taobinP53 = "Invisible" Var taobinP53 = "Invisible"
Var taobinP54 = "Invisible" Var taobinP54 = "Invisible"
Var taobinP55 = "Invisible" Var taobinP55 = "Invisible"
Var taobinImgP1 = "/taobinPN.png" Var taobinImgP1 = "/taobinPN.png"
Var taobinImgP2 = "/taobinPN.png" Var taobinImgP2 = "/taobinPN.png"
@ -877,20 +822,20 @@
Var CheckCouponState = "Disable" Var CheckCouponState = "Disable"
EndIf EndIf
Var PointEndDate = "" Var PointEndDate = ""
GetDateEndOfMonth PointEndDate GetDateEndOfMonth PointEndDate
DEBUGVAR PointEndDate DEBUGVAR PointEndDate
Var xPointEndDate = 570 Var xPointEndDate = 570
If show_eng = "true" Then If show_eng = "true" Then
Var xPointEndDate = 618 Var xPointEndDate = 618
EndIf EndIf
Var Point2XState = "Invisible" Var Point2XState = "Invisible"
Var Point2XImage = "" Var Point2XImage = ""
If Point2X = 1 Then If Point2X = 1 Then
Var Point2XState = "Enable" Var Point2XState = "Enable"
If Seeker.CampaignPayChanel = "kbank" Then If Seeker.CampaignPayChanel = "kbank" Then
Var Point2XImage = "/text9.png" Var Point2XImage = "/text9.png"
EndIf EndIf
@ -900,7 +845,7 @@
If Seeker.CampaignPayChanel = "dolfin" Then If Seeker.CampaignPayChanel = "dolfin" Then
Var Point2XImage = "/text11.png" Var Point2XImage = "/text11.png"
EndIf EndIf
EndIf EndIf
;inter-from-consent ;inter-from-consent
@ -911,17 +856,17 @@
;inter-from-consent ;inter-from-consent
If CountryName = "Indonesia" Then If CountryName = "Indonesia" Then
Var Seeker.FromConsent = 0 Var Seeker.FromConsent = 0
EndIf EndIf
;inter-from-consent ;inter-from-consent
If CountryName = "Australia" Then If CountryName = "Australia" Then
Var Seeker.FromConsent = 0 Var Seeker.FromConsent = 0
EndIf EndIf
;inter-from-consent ;inter-from-consent
If CountryName = "Singapore" Then If CountryName = "Singapore" Then
Var Seeker.FromConsent = 0 Var Seeker.FromConsent = 0
EndIf EndIf
Var AlphaBg = "ROOT/taobin_project/image/display_point/alpha.png" Var AlphaBg = "ROOT/taobin_project/image/display_point/alpha.png"
@ -962,10 +907,10 @@
Var Free1 = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member/free1.png" Var Free1 = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member/free1.png"
EndIf EndIf
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var CountDownBrewing = BREW_CNT Var CountDownBrewing = BREW_CNT
@ -981,7 +926,7 @@
DEBUGVAR XPercent DEBUGVAR XPercent
Var XPercent = XPercent / InitCNT Var XPercent = XPercent / InitCNT
EndIf EndIf
DEBUGVAR XPercent DEBUGVAR XPercent
EndIf EndIf
@ -997,36 +942,36 @@
If CoffeePoint > 54 Then If CoffeePoint > 54 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml" Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else Else
If Seeker.FromConsent = 1 Then If Seeker.FromConsent = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml" Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
TimerReset TimerReset
Refresh Refresh
</EventTimeout> </EventTimeout>
<EventSecurity> <EventSecurity>
Open "/media/bt/xml/security_alarm.xml" Open "/media/bt/xml/security_alarm.xml"
</EventSecurity> </EventSecurity>
<EventActionOk> <EventActionOk>
If CheckCoupons = 1 Then If CheckCoupons = 1 Then
Var MakeDrinkState = 1 Var MakeDrinkState = 1
Var CouponPage = 1 Var CouponPage = 1
Var CouponInfo1 = Ext1a Var CouponInfo1 = Ext1a
Var CouponInfo2 = Ext1b Var CouponInfo2 = Ext1b
Var CouponInfo3 = Ext1c Var CouponInfo3 = Ext1c
@ -1037,14 +982,14 @@
Var CouponInfo8 = Ext1h Var CouponInfo8 = Ext1h
Var CouponInfo9 = Ext1i Var CouponInfo9 = Ext1i
Var CouponInfo10 = Ext1j Var CouponInfo10 = Ext1j
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
GETACCEXT TelephoneNumber 13 GETACCEXT TelephoneNumber 13
Var CheckCoupons = 2 Var CheckCoupons = 2
Else Else
If CheckCoupons = 2 Then If CheckCoupons = 2 Then
Var TaobinCredit = Ext1b Var TaobinCredit = Ext1b
@ -1052,15 +997,15 @@
Var ChackMemberPage = CountryRootPath + "xml/page_check_member2.lxml" Var ChackMemberPage = CountryRootPath + "xml/page_check_member2.lxml"
Open ChackMemberPage Open ChackMemberPage
Else Else
Open "ROOT/taobin_project/xml/page_check_member2.xml" Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
</EventActionOk> </EventActionOk>
@ -1095,7 +1040,6 @@
; ;
<Image> <Image>
<X> 108 </X> <X> 108 </X>
<Y> 665 </Y> <Y> 665 </Y>
@ -1109,24 +1053,50 @@
</Image> </Image>
<Image> ;<Image>
<X> 243 </X> ;<X> 483 </X>
<Y> 722 </Y> ;<Y> 700 </Y>
<Filename> Var( DirImage + "/text7.png" )</Filename> ;<Filename> Var( DirImage + "/text7.png" )</Filename>
</Image> ;</Image>
;<Text>
;<X> 483 </X>
;<Y> 750 </Y>
;<Size> 38 </Size>
;<Font> PepsiExtend </Font>
;<Color> HeadlineColor </Color>
;<Value> TaobinLevelDesc1 </Value>
;</Text>
<Text>
<X> 483 </X>
<Y> 730 </Y>
<Size> 20 </Size>
<Font> PepsiExtend </Font>
<Color> WTCMediumBlueColor </Color>
<Value> "MEMBERSHIP\nSTATUS:" </Value>
</Text>
;<Image>
;<X> 483 </X>
;<Y> 900 </Y>
;<Filename> Var( DirImage + "/text4.png" )</Filename>
;</Image>
<Text>
<X> 483 </X>
<Y> 930 </Y>
<Size> 20 </Size>
<Font> PepsiExtend </Font>
<Color> WTCMediumBlueColor </Color>
<Value> "TOTAL BALANCE:" </Value>
</Text>
<Image> <Image>
<X> 243 </X> <X> 243 </X>
<Y> 860 </Y>
<Filename> Var( DirImage + "/text4.png" )</Filename>
</Image>
<Image>
<X> 625 </X>
<Y> 734 </Y> <Y> 734 </Y>
<Filename> Var( DirImage + TaobinLeveImg )</Filename> <Filename> Var( DirImage + TaobinLeveImg )</Filename>
</Image> </Image>
@ -1148,7 +1118,7 @@
<FilenamePress> ClosePressFilename </FilenamePress> <FilenamePress> ClosePressFilename </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
; goto lid straw ; goto lid straw
;Open "ROOT/taobin_project/xml/page_back_to_main.xml" ;Open "ROOT/taobin_project/xml/page_back_to_main.xml"
@ -1157,7 +1127,7 @@
Open "ROOT/taobin_project/inter/sgp/xml/page_check_member.lxml" Open "ROOT/taobin_project/inter/sgp/xml/page_check_member.lxml"
EndIf EndIf
If Seeker.FromConsent = 1 Then If Seeker.FromConsent = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml" Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else Else
If CoffeePoint > 54 Then If CoffeePoint > 54 Then
@ -1165,7 +1135,7 @@
EndIf EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
@ -1555,8 +1525,8 @@
; free ; free
<Button> <Button>
<X> 747 </X> <X> 740 </X>
<Y> 1528 </Y> <Y> 1535 </Y>
<Filename> Free1 </Filename> <Filename> Free1 </Filename>
</Button> </Button>
@ -1567,24 +1537,24 @@
<Filename> Var( DirImage + taobinImgP55 )</Filename> <Filename> Var( DirImage + taobinImgP55 )</Filename>
</Button> </Button>
<Text> ;<Text>
<X> 250 </X> ;<X> 250 </X>
<Y> 790 </Y> ;<Y> 790 </Y>
<Size> 20 </Size> ;<Size> 20 </Size>
<Width> 1000 </Width> ;<Width> 1000 </Width>
<Font> KanitRegularTTF </Font> ;<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color> ;<Color> 0x746253 </Color>
<Value> TNumberTaobinMemberXXX </Value> ;<Value> TNumberTaobinMemberXXX </Value>
<Format> Telnum-mask-3 </Format> ;<Format> Telnum-mask-3 </Format>
</Text> ;</Text>
<Text> <Text>
<X> 250 </X> <X> 720 </X>
<Y> 890 </Y> <Y> 930 </Y>
<Size> 50 </Size> <Size> 20 </Size>
<Width> 120 </Width> <Width> 120 </Width>
<Font> KanitRegularTTF </Font> <Font> PepsiExtend </Font>
<Color> 0xDE794E </Color> <Color> WTCMediumBlueColor </Color>
<Value> CoffeePointRank </Value> <Value> CoffeePointRank </Value>
</Text> </Text>
@ -1595,15 +1565,37 @@
<Filename> Var( DirImage + "/pointMask.png" )</Filename> <Filename> Var( DirImage + "/pointMask.png" )</Filename>
</Button> </Button>
;<Text> <Text>
;<X> 250 </X> <X> 483 </X>
;<Y> 990 </Y> <Y> 800 </Y>
;<Size> 25 </Size> <Size> 50 </Size>
;<Width> 1000 </Width> <Font> PepsiExtend </Font>
;<Font> KanitRegularTTF </Font> <Color> HeadlineColor </Color>
;<Color> 0xDE794E </Color> <Value> TaobinLevelDesc1 </Value>
;<Value> TaobinLevelDesc1 </Value> </Text>
;</Text>
; TaobinLevelDesc1Cont
<Text>
<X> 483 </X>
<Y> 838 </Y>
<Size> 50 </Size>
<Font> PepsiExtend </Font>
<Color> HeadlineColor </Color>
<Value> TaobinLevelDesc1Cont </Value>
</Text>
; TaobinLevelDesc1More
<Text>
<X> 483 </X>
<Y> 898 </Y>
<Size> 20 </Size>
<Font> PepsiExtend </Font>
<Color> HeadlineColor </Color>
<Value> TaobinLevelDesc1More </Value>
</Text>
;<Text> ;<Text>
;<X> 250 </X> ;<X> 250 </X>
@ -1703,8 +1695,9 @@
Var taobinP42 = "Enable" Var taobinP42 = "Enable"
Var taobinP50 = "Enable" Var taobinP50 = "Enable"
Var taobinP55 = "Enable"
</EventUnitTest1> </EventUnitTest1>
</Popup> </Popup>

10
inter/sgp/xml/page_member_prompt.lxml
View file

@ -36,7 +36,7 @@
Var YesPressButton = ImgDir + "bp_yes.png" Var YesPressButton = ImgDir + "bp_yes.png"
Var NoPressButton = ImgDir + "bp_no.png" Var NoPressButton = ImgDir + "bp_no.png"
Var QRImg = ImgDirStatic + "qr_regis.png" Var QRImg = ImgDirStatic + "qr_regis.png"
Var UseSGPCollectFlag = 0 Var UseSGPCollectFlag = 0
DEBUGVAR YesButton DEBUGVAR YesButton
@ -62,10 +62,10 @@
Var Timeout = 0 Var Timeout = 0
; to-lid-straw ; to-lid-straw
SAVELOG "member_prompt.Timeout" SAVELOG "member_prompt.Timeout"
;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
Refresh Refresh
@ -151,7 +151,7 @@
<Image> <Image>
<X> 400 </X> <X> 300 </X>
<Y> 1065 </Y> <Y> 1065 </Y>
<State> DisplayQR </State> <State> DisplayQR </State>
<Filename> QRImg </Filename> <Filename> QRImg </Filename>
@ -159,4 +159,4 @@
;include="ROOT/taobin_project/inc/video.inc" ;include="ROOT/taobin_project/inc/video.inc"
</Popup> </Popup>

BIN
inter/whatthecup/sgp/image/display_get_free_en/img_popup1.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 53 KiB

BIN
inter/whatthecup/sgp/image/display_point_en/WTCLevel1.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 37 KiB

BIN
inter/whatthecup/sgp/image/display_point_en/WTCLevel2.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 29 KiB

BIN
inter/whatthecup/sgp/image/display_point_en/WTCLevel3.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 38 KiB

BIN
inter/whatthecup/sgp/image/display_point_en/taobinPN.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.9 KiB

After

Width:  |  Height:  |  Size: 1.6 KiB

Before After
Before After

BIN
inter/whatthecup/sgp/image/display_point_en/taobinPO.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.5 KiB

After

Width:  |  Height:  |  Size: 820 B

Before After
Before After

BIN
inter/whatthecup/sgp/image/page_member/WTCLevel1.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 37 KiB

BIN
inter/whatthecup/sgp/image/page_member/WTCLevel2.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 29 KiB

BIN
inter/whatthecup/sgp/image/page_member/WTCLevel3.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 38 KiB

BIN
inter/whatthecup/sgp/image/page_member/free1.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.3 KiB

After

Width:  |  Height:  |  Size: 2.2 KiB

Before After
Before After

BIN
inter/whatthecup/sgp/image/page_member/qr_regis.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 64 KiB

BIN
inter/whatthecup/sgp/image/page_member/taobinPN.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 1.6 KiB

BIN
inter/whatthecup/sgp/image/page_member/taobinPO.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 820 B

BIN
inter/whatthecup/sgp/image/page_member/taobinPoint55.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 76 KiB

After

Width:  |  Height:  |  Size: 50 KiB

Before After
Before After

201
inter/whatthecup/sgp/xml/page_display_get_free.xml Normal file
View file

@ -0,0 +1,201 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> BackgroundColor </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = CountryWTCRootPath + "/image/display_get_free_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/display_get_free"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var MemberState1 = "Enable"
Var MemberState2 = "Invisible"
Var MemberState3 = "Invisible"
;Var TaobinLevel = "3"
DEBUGVAR TaobinLevel
If TaobinLevel = "1" Then
Var MemberState1 = "Invisible"
Var MemberState2 = "Enable"
Var MemberState3 = "Invisible"
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Get_free_drink_faster.mp3"
Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Get_free_drink_faster.mp3"
EndIf
Else
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/You_mode_it.mp3"
Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/You_mode_it.mp3"
EndIf
EndIf
If Seeker.FromConsent = 1 Then
Var MemberState1 = "Invisible"
Var MemberState2 = "Invisible"
Var MemberState3 = "Enable"
EndIf
Var img_popup2 = "/img_popup2.png"
Var img_popup3 = "/img_popup3.png"
;inter-condition
;inter-image not use. because customer auto assige member.
If InternationalEnable = 1 Then
Var MemberState1 = "Enable"
Var MemberState2 = "Invisible"
Var MemberState3 = "Invisible"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
;Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
;
</EventActionOk>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/inter/whatthecup/sgp/image/display_point/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<State> MemberState1 </State>
<Filename> Var( DirImage + "/img_popup1.png" )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<State> MemberState2 </State>
<Filename> Var( DirImage + img_popup2 )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<State> MemberState3 </State>
<Filename> Var( DirImage + img_popup3 )</Filename>
</Image>
<Button>
<X> 397 </X>
<Y> 1680 </Y>
<Filename> Var( DirImage + "/bn_accept.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_accept.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
;
;<Image>
;<X> 751 </X>
;<Y> 413 </Y>
;<Filename> "ROOT/taobin_project/image/page_doing/img2.png" </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>
</Popup>

14
xml/page_board.xml
View file

@ -108,6 +108,9 @@
Var InterRegular = "ROOT/taobin_project/font/Inter/Inter-Regular.ttf" Var InterRegular = "ROOT/taobin_project/font/Inter/Inter-Regular.ttf"
Var PepsiExtend = "ROOT/taobin_project/font/PepsiOwners2/PepsiOwners2-Extended220909.ttf"
Var countClick = 0 Var countClick = 0
Var RoadShow = "false" Var RoadShow = "false"
@ -907,6 +910,9 @@
If BoxID = 210604 Then If BoxID = 210604 Then
Var SettingIgnoreCollectPoint = 0 Var SettingIgnoreCollectPoint = 0
EndIf EndIf
If BoxID = 210699 Then
Var SettingIgnoreCollectPoint = 0
EndIf
READ_FILE "/mnt/sdcard/coffeevending/use_pt_dev" use_pt_dev READ_FILE "/mnt/sdcard/coffeevending/use_pt_dev" use_pt_dev
STRCONTAIN "1" use_pt_dev enable_pt_mode_by_cfg STRCONTAIN "1" use_pt_dev enable_pt_mode_by_cfg
@ -994,8 +1000,8 @@
Var MinPhoneNumber = 9 Var MinPhoneNumber = 9
Var MaxPhoneNumber = 9 Var MaxPhoneNumber = 9
Var UsePepsiTheme = 1 ;Var UsePepsiTheme = 0
Var TargetThemeNum = 2 ;Var TargetThemeNum = 2
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
@ -1157,7 +1163,9 @@
EndIf EndIf
EndIf EndIf
TRY "ROOT/taobin_project/xml/profile/run.ev" If ProYuzu250Enable = 0 Then
TRY "ROOT/taobin_project/xml/profile/run.ev"
EndIf
Var NETCORE_LOST_COUNT_UP = 0 Var NETCORE_LOST_COUNT_UP = 0

40
xml/page_display_get_free.xml
View file

@ -2,13 +2,20 @@
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
<Background> "0xeae6e1" </Background> <Background> BackgroundColor </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
If UsePepsiTheme = 1 Then
Var WTCGetFree = CountryWTCRootPath + "/xml/page_display_get_free.xml"
Open WTCGetFree
EndIf
; On open ; On open
Var Timeout = 0 Var Timeout = 0
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_en" Var DirImage = "ROOT/taobin_project/image/display_get_free_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
@ -31,15 +38,15 @@
Var MemberState2 = "Enable" Var MemberState2 = "Enable"
Var MemberState3 = "Invisible" Var MemberState3 = "Invisible"
If show_eng = "true" Then If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Get_free_drink_faster.mp3" PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Get_free_drink_faster.mp3"
Else Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Get_free_drink_faster.mp3" PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Get_free_drink_faster.mp3"
EndIf EndIf
Else Else
If show_eng = "true" Then If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/You_mode_it.mp3" PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/You_mode_it.mp3"
Else Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/You_mode_it.mp3" PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/You_mode_it.mp3"
@ -66,25 +73,25 @@
Var MemberState3 = "Invisible" Var MemberState3 = "Invisible"
EndIf EndIf
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var CountDownBrewing = BREW_CNT Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 5 Then If Timeout > 5 Then
; goto lid straw ; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
@ -92,14 +99,14 @@
TimerReset TimerReset
Refresh Refresh
</EventTimeout> </EventTimeout>
<EventSecurity> <EventSecurity>
Open "/media/bt/xml/security_alarm.xml" Open "/media/bt/xml/security_alarm.xml"
</EventSecurity> </EventSecurity>
<EventActionOk> <EventActionOk>
@ -169,10 +176,10 @@
<FilenamePress> Var( DirImage + "/bp_accept.png" )</FilenamePress> <FilenamePress> Var( DirImage + "/bp_accept.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
; goto lid straw ; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
@ -199,4 +206,3 @@
</Popup> </Popup>