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

AUS: Update collect point

Browse source
This commit is contained in:
Kenta420 2024-08-07 09:21:34 +07:00
parent 931d2589dc
commit 0f9b288875
14 changed files with 1166 additions and 140 deletions
Download patch file Download diff file Expand all files Collapse all files

30
inter/aus/xml/page_brewing3.lxml
View file

@ -1110,20 +1110,13 @@
Var Cid = 26
If NewCollectPointFlag = 1 Then
Var redeemSeeker = "curr-redeem"
If redeemSeeker.redeem2Dollar = 1 Then
; TODO: Var Cid =
If Seeker.redeem2Dollar = 1 Then
Var Cid = 49
EndIf
If redeemSeeker.redeem1Dollar = 1 Then
; TODO: Var Cid =
If Seeker.redeem1Dollar = 1 Then
Var Cid = 48
EndIf
; reset
Var redeemSeeker.phoneNumber = ""
Var redeemSeeker.redeem2Dollar = 0
Var redeemSeeker.redeem1Dollar = 0
EndIf
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
@ -1231,20 +1224,13 @@
If AddData = 1 Then
Var Cid = 26
If NewCollectPointFlag = 1 Then
Var redeemSeeker = "curr-redeem"
If redeemSeeker.redeem2Dollar = 1 Then
; TODO: Var Cid =
If Seeker.redeem2Dollar = 1 Then
Var Cid = 49
EndIf
If redeemSeeker.redeem1Dollar = 1 Then
; TODO: Var Cid =
If Seeker.redeem1Dollar = 1 Then
Var Cid = 48
EndIf
; reset
Var redeemSeeker.phoneNumber = ""
Var redeemSeeker.redeem2Dollar = 0
Var redeemSeeker.redeem1Dollar = 0
EndIf
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
EndIf