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

@ -622,19 +622,17 @@
If AddData = 1 Then
Var Cid = 26
DEBUGVAR "Brewing3Conti"
If NewCollectPointFlag = 1 Then
If Seeker.redeemDiscount = "2_dollar" Then
Var Cid = 49
EndIf
If Seeker.redeemDiscount = "1_dollar" Then
Var Cid = 48
EndIf
DEBUGVAR Seeker.redeemDiscount
Var Seeker.redeemDiscount = ""
If Seeker.redeemDiscount = "2_dollar" Then
Var Cid = 49
EndIf
If Seeker.redeemDiscount = "1_dollar" Then
Var Cid = 48
EndIf
DEBUGVAR Seeker.redeemDiscount
Var Seeker.redeemDiscount = ""
DEBUGVAR Cid
DEBUGVAR Seeker
DEBUGVAR Seeker.TNumberTaobinMember
@ -750,18 +748,16 @@
If AddData = 1 Then
Var Cid = 26
If NewCollectPointFlag = 1 Then
If Seeker.redeemDiscount = "2_dollar" Then
Var Cid = 49
EndIf
If Seeker.redeemDiscount = "1_dollar" Then
Var Cid = 48
EndIf
Var Seeker.redeemDiscount = ""
If Seeker.redeemDiscount = "2_dollar" Then
Var Cid = 49
EndIf
If Seeker.redeemDiscount = "1_dollar" Then
Var Cid = 48
EndIf
Var Seeker.redeemDiscount = ""
DEBUGVAR Cid
DEBUGVAR Seeker
DEBUGVAR Seeker.TNumberTaobinMember