AUS: Add CleanFeedback

This commit is contained in:
Kenta420 2025-05-22 18:26:24 +07:00
parent b376726bac
commit c5a0631077
6 changed files with 78 additions and 63 deletions

View file

@ -9,7 +9,8 @@
; Enable app game ; Enable app game
Var GameEnableFromTrickerEv = 0 Var GameEnableFromTrickerEv = 0
Var NewCollectPointFlag = 1 Var New_Payment = 1
Var CleanFeedbackFlag = 1
Var HappyEasterPro = 0 Var HappyEasterPro = 0
Var AutumnBreezePro = 0 Var AutumnBreezePro = 0

View file

@ -1122,7 +1122,7 @@
If AddData = 1 Then If AddData = 1 Then
Var Cid = 26 Var Cid = 26
If NewCollectPointFlag = 1 Then
If Seeker.redeemDiscount = "2_dollar" Then If Seeker.redeemDiscount = "2_dollar" Then
Var Cid = 49 Var Cid = 49
EndIf EndIf
@ -1132,7 +1132,6 @@
EndIf EndIf
Var Seeker.redeemDiscount = "" Var Seeker.redeemDiscount = ""
EndIf
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
EndIf EndIf
@ -1238,7 +1237,6 @@
If AddData = 1 Then If AddData = 1 Then
Var Cid = 26 Var Cid = 26
If NewCollectPointFlag = 1 Then
If Seeker.redeemDiscount = "2_dollar" Then If Seeker.redeemDiscount = "2_dollar" Then
Var Cid = 49 Var Cid = 49
EndIf EndIf
@ -1248,7 +1246,6 @@
EndIf EndIf
Var Seeker.redeemDiscount = "" Var Seeker.redeemDiscount = ""
EndIf
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
EndIf EndIf

View file

@ -622,7 +622,6 @@
If AddData = 1 Then If AddData = 1 Then
Var Cid = 26 Var Cid = 26
DEBUGVAR "Brewing3Conti" DEBUGVAR "Brewing3Conti"
If NewCollectPointFlag = 1 Then
If Seeker.redeemDiscount = "2_dollar" Then If Seeker.redeemDiscount = "2_dollar" Then
Var Cid = 49 Var Cid = 49
EndIf EndIf
@ -633,7 +632,6 @@
DEBUGVAR Seeker.redeemDiscount DEBUGVAR Seeker.redeemDiscount
Var Seeker.redeemDiscount = "" Var Seeker.redeemDiscount = ""
EndIf
DEBUGVAR Cid DEBUGVAR Cid
DEBUGVAR Seeker DEBUGVAR Seeker
@ -750,7 +748,6 @@
If AddData = 1 Then If AddData = 1 Then
Var Cid = 26 Var Cid = 26
If NewCollectPointFlag = 1 Then
If Seeker.redeemDiscount = "2_dollar" Then If Seeker.redeemDiscount = "2_dollar" Then
Var Cid = 49 Var Cid = 49
EndIf EndIf
@ -760,7 +757,6 @@
EndIf EndIf
Var Seeker.redeemDiscount = "" Var Seeker.redeemDiscount = ""
EndIf
DEBUGVAR Cid DEBUGVAR Cid
DEBUGVAR Seeker DEBUGVAR Seeker

View file

@ -185,8 +185,13 @@
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.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" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
EndIf
If Timeout = 18 Then If Timeout = 18 Then
Var date_time_str = "" Var date_time_str = ""
@ -531,7 +536,12 @@
;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 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" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
</EventClick> </EventClick>
</Button> </Button>

View file

@ -165,10 +165,11 @@
DEBUGVAR Seeker.PointTaobinStr DEBUGVAR Seeker.PointTaobinStr
DEBUGVAR Seeker.TNumberTaobinMember DEBUGVAR Seeker.TNumberTaobinMember
If NewCollectPointFlag = 1 Then If CleanFeedbackFlag = 1 Then
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_3.lxml" Var CleanFeedBackToCollectPoint = 1
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml" Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_3.lxml"
EndIf EndIf
Else Else

View file

@ -29,8 +29,13 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 5 Then If Timeout > 5 Then
; goto lid straw ; goto lid straw
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" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
EndIf
TimerReset TimerReset
Refresh Refresh
@ -76,7 +81,12 @@
<EventClick> <EventClick>
; goto lid straw ; goto lid straw
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" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
</EventClick> </EventClick>
</Button> </Button>