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

THAI: Added Clean Feedback

Browse source
This commit is contained in:
Kenta420 2025-01-16 17:26:30 +07:00
parent 42ce124c89
commit 47def2ae71
32 changed files with 468 additions and 537 deletions
Download patch file Download diff file Expand all files Collapse all files

199
xml/page_collect_point_1.xml
View file

@ -25,12 +25,22 @@
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 0 Then
SAVELOG "Seeker.CollectPointMain = 0 Jump!!!"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
EndIf
If SettingIgnoreCollectPoint = 1 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Var ShowErrorText = "Invisible"
@ -55,7 +65,7 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_mmr"
EndIf
@ -137,8 +147,6 @@
EndIf
EndIf
DEBUGVAR NotCollectPointPromotion
DEBUGVAR RobinsonBeautyPro
DEBUGVAR FromRobinsonBeautyPro
DEBUGVAR JemilaPro
@ -173,54 +181,10 @@
Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber
If FromTeaTimePro = 1 Then
Var TelPhoneNum = TelephoneNumber
Var drink_price = PriceFromCatalog
Var param2 = ""
Var param3 = ""
AddData 45 TelPhoneNum drink_price param2 param3
EndIf
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
If NotCollectPointPromotion = 0 Then
If RobinsonBeautyPro = 1 Then
If FromRobinsonBeautyPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
EndIf
EndIf
If JemilaPro = 1 Then
If FromJemilaPro = 1 Then
If JemilaRewardOutOfStock = 1 Then
SAVELOG "Jemila prize out of stock skip collect promotion point."
Else
If Seeker.CodeChannel = 1 Then
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
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
@ -229,14 +193,6 @@
Var TelephoneNumber = Seeker.TNumberTaobinCredit
If FromTeaTimePro = 1 Then
Var TelPhoneNum = TelephoneNumber
Var drink_price = PriceFromCatalog
Var param2 = ""
Var param3 = ""
AddData 45 TelPhoneNum drink_price param2 param3
EndIf
Var StepGetPoint = 1
Var PdpaAsk = 0
@ -256,40 +212,6 @@
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
If NotCollectPointPromotion = 0 Then
If RobinsonBeautyPro = 1 Then
If FromRobinsonBeautyPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
EndIf
EndIf
If JemilaPro = 1 Then
If FromJemilaPro = 1 Then
If JemilaRewardOutOfStock = 1 Then
SAVELOG "Jemila prize out of stock skip collect promotion point."
Else
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 0 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
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
@ -339,8 +261,12 @@
SAVELOG "collect_point1-p107."
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
If Timeout = 18 Then
@ -686,11 +612,17 @@
;Open "ROOT/taobin_project/xml/page_catalog.xml"
SAVELOG "collect_point1-p589."
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
</EventClick>
</Button>
@ -732,88 +664,15 @@
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
DEBUGVAR TelephoneNumber
If FromTeaTimePro = 1 Then
Var TelPhoneNum = TelephoneNumber
Var drink_price = PriceFromCatalog
Var param2 = ""
Var param3 = ""
AddData 45 TelPhoneNum drink_price param2 param3
EndIf
If ChildrenFree = 1 Then
Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
DEBUGVAR FruityRayaEnable
DEBUGVAR FromFruityRaya
If FruityRayaEnable = 1 Then
If FromFruityRaya = 1 Then
Open "ROOT/taobin_project/inter/mys/xml/event/fruit_raya/page_get_free_1_fruit_raya.lxml"
EndIf
EndIf
DEBUGVAR ProThaiTeaEnable
DEBUGVAR FromProThaiTea
If ProThaiTeaEnable = 1 Then
If FromProThaiTea = 1 Then
Open "ROOT/taobin_project/inter/mys/xml/event/thai_tea/page_get_free_1_thai_tea.lxml"
EndIf
EndIf
DEBUGVAR ProYuzuEnable
DEBUGVAR FromProYuzu
If ProYuzuEnable = 1 Then
If FromProYuzu = 1 Then
Open "ROOT/taobin_project/inter/mys/xml/event/yuzu/page_get_free_1_yuzu.lxml"
EndIf
EndIf
If NotCollectPointPromotion = 0 Then
If RobinsonBeautyPro = 1 Then
If FromRobinsonBeautyPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
EndIf
EndIf
If JemilaPro = 1 Then
If FromJemilaPro = 1 Then
If JemilaRewardOutOfStock = 1 Then
SAVELOG "Jemila prize out of stock skip collect promotion point."
Else
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 0 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
GETACCEXT Param1 23
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
@ -824,7 +683,7 @@
Var DirImage2 = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_mmr"
EndIf