diff --git a/inter/aus/xml/page_brewing3.lxml b/inter/aus/xml/page_brewing3.lxml
index 0cc3087e..937420d7 100644
--- a/inter/aus/xml/page_brewing3.lxml
+++ b/inter/aus/xml/page_brewing3.lxml
@@ -1110,16 +1110,18 @@
Var Cid = 26
If NewCollectPointFlag = 1 Then
- If Seeker.redeem2Dollar = 1 Then
+ If Seeker.redeemDiscount = "2_dollar" Then
Var Cid = 49
EndIf
- If Seeker.redeem1Dollar = 1 Then
+ If Seeker.redeemDiscount = "1_dollar" Then
Var Cid = 48
EndIf
+
+ Var Seeker.redeemDiscount = ""
EndIf
- AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
+ AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
EndIf
Var ServiceType = "coffee"
@@ -1224,15 +1226,17 @@
If AddData = 1 Then
Var Cid = 26
If NewCollectPointFlag = 1 Then
- If Seeker.redeem2Dollar = 1 Then
+ If Seeker.redeemDiscount = "2_dollar" Then
Var Cid = 49
EndIf
- If Seeker.redeem1Dollar = 1 Then
+ If Seeker.redeemDiscount = "1_dollar" Then
Var Cid = 48
EndIf
+
+ Var Seeker.redeemDiscount = ""
EndIf
- AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
+ AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
EndIf
diff --git a/inter/aus/xml/page_brewing3Conti.xml b/inter/aus/xml/page_brewing3Conti.xml
index 18bfd775..bdc5284f 100644
--- a/inter/aus/xml/page_brewing3Conti.xml
+++ b/inter/aus/xml/page_brewing3Conti.xml
@@ -614,18 +614,24 @@
If AddData = 1 Then
Var Cid = 26
DEBUGVAR "Brewing3Conti"
- DEBUGVAR Seeker
- DEBUGVAR Seeker.UseGet15Discount
- If NewCollectPoint = 1 Then
- If Seeker.UseGet15Discount = 1 Then
- Var Cid = 39
- Else
- Var Cid = 40
- Var PreviousSeeker.UseGetDrink5Bath = 0
+ 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 = ""
EndIf
- AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
+ DEBUGVAR Cid
+ DEBUGVAR Seeker
+ DEBUGVAR Seeker.TNumberTaobinMember
+
+ AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
EndIf
Var ServiceType = "coffee"
@@ -736,16 +742,24 @@
If AddData = 1 Then
Var Cid = 26
- If NewCollectPoint = 1 Then
- If Seeker.UseGet15Discount = 1 Then
- Var Cid = 39
- Else
- Var Cid = 40
- Var PreviousSeeker.UseGetDrink5Bath = 0
+ 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 = ""
EndIf
- AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
+ DEBUGVAR Cid
+ DEBUGVAR Seeker
+ DEBUGVAR Seeker.TNumberTaobinMember
+ DEBUGVAR Seeker.redeemDiscount
+
+ AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
EndIf
diff --git a/inter/aus/xml/page_collect_point_2.lxml b/inter/aus/xml/page_collect_point_2.lxml
index ff8f74f0..493a33f1 100644
--- a/inter/aus/xml/page_collect_point_2.lxml
+++ b/inter/aus/xml/page_collect_point_2.lxml
@@ -153,24 +153,6 @@
Var CoffeePoint = PointTaobin + CoffeePoint1
Var CoffeePointOld = CoffeePoint1
- If Seeker = "next" Then
- Var CurrSeeker = "curr"
- If CurrSeeker.TNumberTaobinMember = Seeker.TNumberTaobinMember Then
- Var CoffeePoint = Seeker.CurrentCoffeePoint + PointTaobin
- If CurrSeeker.redeem1Dollar = 1 Then
- Var CoffeePoint = CoffeePoint - 10
- Var CoffeePointOld = Seeker.CurrentCoffeePoint - 10
- EndIf
-
- If CurrSeeker.redeem2Dollar = 1 Then
- Var CoffeePoint = CoffeePoint - 20
- Var CoffeePointOld = Seeker.CurrentCoffeePoint - 20
- EndIf
- EndIf
- EndIf
-
- Seeker.CurrentCoffeePoint = CoffeePoint
-
If TaobinLevel = 1 Then
Var CoffeePointRank = CoffeePointRank + 0
Else
diff --git a/inter/aus/xml/page_collect_point_3.lxml b/inter/aus/xml/page_collect_point_3.lxml
index 9c385d88..f2f13697 100644
--- a/inter/aus/xml/page_collect_point_3.lxml
+++ b/inter/aus/xml/page_collect_point_3.lxml
@@ -9,6 +9,7 @@
; On open
Var Timeout = 0
+ Var TargetTimeout = 5
;CoffeePoint
;Var CoffeePoint = 30
Var BmiYear = "0/0/0/0/0/0/0/0/0/1"
@@ -35,6 +36,7 @@
Var PointDiff = 0
Var redeemButtonState = "Disable"
+ Var closeButtonState = "Enable"
Var RedeemType = ""
Var TaobinExpireDay = ""
@@ -456,22 +458,44 @@
If CoffeePoint >= 30 Then
Var taobinP30 = "Enable"
Var taobinImgP30 = "/shell_get_free_active.png"
+ Var TargetTimeout = 2
+ Var redeemButtonState = "Invisible"
+ Var closeButtonState = "Invisible"
EndIf
;inter-from-consent
Var Seeker.FromConsent = 0
+ Var AlradyRedeem = 0
- Var redeemSeeker = "curr-redeem"
- If redeemSeeker.phoneNumber = Seeker.TNumberTaobinMember Then
- If redeemSeeker.redeem1Dollar = 1 Then
- Var redeemButtonState = "Disable"
- Else
- If redeemSeeker.redeem2Dollar = 1 Then
- Var redeemButtonState = "Disable"
+ DEBUGVAR Seeker
+ DEBUGVAR Seeker.redeemDiscount
+
+
+ If Seeker = "next" Then
+ Var Seeker.redeemDiscount = ""
+ Var CurrSeeker = "curr"
+
+ If CurrSeeker.TNumberTaobinMember = Seeker.TNumberTaobinMember Then
+ DEBUGVAR CurrSeeker.redeemDiscount
+
+ If CurrSeeker.redeemDiscount = "" Then
+
+ Else
+
+ If CurrSeeker.redeemDiscount = "get_free" Then
+ Var redeemButtonState = "Invisible"
+ Var closeButtonState = "Invisible"
+ Else
+ Var redeemButtonState = "Disable"
+ EndIf
+
+ Var AlradyRedeem = 1
EndIf
+
EndIf
EndIf
+
1000
@@ -482,13 +506,22 @@
- ;Var Timeout = Timeout + 1
- If Timeout > 5 Then
+ Var Timeout = Timeout + 1
+ If Timeout > TargetTimeout Then
; goto lid straw
If CoffeePoint >= 30 Then
- Var RedeemType = "get_free"
- Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_redeem.lxml"
+ If Seeker = "next" Then
+ If AlradyRedeem = 1 Then
+ Open "ROOT/taobin_project/xml/page_lid_straw.xml"
+ Else
+ Var RedeemType = "get_free"
+ Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_redeem.lxml"
+ EndIf
+ Else
+ Var RedeemType = "get_free"
+ Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_redeem.lxml"
+ EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
@@ -929,6 +962,7 @@