THAI: Added Swensen coupon

xml/event/tricker.ev

@@ -32,127 +32,6 @@ Var MomDayEnable = 0
 ; Enable app game
 Var GameEnableFromTrickerEv = 0
 
-; Enable pro Pepween
-Var PepweenEnable = 0
-
-; Enable pro Tamatian. 16-30 Sep
-Var TamatianEnable = 0
-
-; September 9 - 16
-Var MayDayRunEnable = 0
-
-; Enable Milk Choice Vegan
-Var MilkChoiceVeganEnable = 0
-
-
-; Enable pro 15 THB, November 1 - 30
-Var pro15THBEnable = 0
-Var From15THBPro = 0
-
-; Enable pro My Mint My Moment, December 1 - 31
-Var MyMintEnable = 0
-Var FromMyMintPro = 0
-
-; Enable pro Rerun, Jan 22-26/29-31
-Var RerunProEnable = 0
-Var FromRerunPro = 0
-
-; Enable pro Peach, Feb 1 - 13
-Var ProPeachEnable = 0
-
-; Enable Bad valentine, Feb 14 - 29
-Var ProBadValentineEnable = 0
-Var FromBadValentinePro = 0
-
-; Enable Pepsi Second Cup 30, Mar 1 - 17, but get discount code only 4-8 and 11-15 Mar
-Var PepsiSecondCup30Enable = 0
-Var PepsiSecondCup30DiscountEnable = 0
-Var FromPepsiSecondCup30 = 0
-
-; Enable Lipit Promotion, 18 Mar - 5 Apr
-Var LipitPro = 0
-Var FromLipitPro = 0
-Var LipitRewardOutOfStock = 0
-
-; Enable Monday Banana Promotion, every Monday start 11 Mar - 19 Apr
-Var MondayBananaPro = 0
-Var FromMondayBananaPro = 0
-
-; Enable Free Energy Drink, 18 Mar - 30 Apr
-Var FreeEnergyDrink = 0
-Var FromPowerUpPro = 0
-Var FreePowerup = "Invisible"
-
-; Enable Tea Time, 13 - 30 Apr
-Var TeaTimePro = 0
-Var FromTeaTimePro = 0
-
-; Enable Free Fire, 1 - 30 Apr
-Var FreeFirePro = 0
-
-
-; Enable Energy Drink 1 Bath, 1 May - 31 May
-Var EnergyDrink1BathPro = 0
-Var FromEnergyDrink1BathPro = 0
-
-; Enable Coffee Drink 1 Bath, 1 May - 31 May
-Var CoffeeDrink1BathPro = 0
-Var FromCoffeeDrink1BathPro = 0
-
-; Enable Wednesday melon, 15, 22, 29 May - 5, 12 June
-Var WednesdayMelonPro = 0
-Var FromWednesdayMelonPro = 0
-
-; Enable Nam Hom Coconut, 3 - 21 June
-Var NamHomCoconutPro = 0
-Var FromNamHomCoconutPro = 0
-Var NamHomCoconutRewardOutOfStock = 0
-
-; Enable Cocoa 7.7 promotion, 7 - 9 July
-Var Cocoa77Pro = 0
-Var FromCocoa77Pro = 0
-
-; Enable Passion Mint promotion, 15 - 17 Jul
-Var PassionMintPro = 0
-Var FromPassionMintPro = 0
-
-; Enable 7UpLuckyDrawX2 promotion, 22 Jul - 9 Aug
-Var 7UpLuckyDrawX2Pro = 0
-
-; Enable Mom Cocoa promotion, 10 Aug - 16 Aug
-Var MomCocoaPro = 0
-Var MomCocoaProDiscountEnable = 0
-Var FromMomCocoaPro = 0
-Var Seeker.BuyMomCocoaProFlag = 0
-
-; Enable Robinson Beauty promotion, 9 - 30 Sep
-Var RobinsonBeautyPro = 0
-Var FromRobinsonBeautyPro = 0
-
-; Enable Jemila promotion, 1 - 25 Oct
-Var JemilaPro = 0
-Var FromJemilaPro = 0
-Var JemilaRewardOutOfStock = 0
-
-; Halloween promotion, 21 Oct - 3 Nov
-Var HalloweenPro = 0
-Var FromHalloweenPro = 0
-
-; Weekday discount, 4 Nov - 30 Nov
-Var WeekdayDiscountPro = 0
-Var WeekdayDiscountProEventOn = 0
-Var FromWeekdayDiscountProEventOn = 0
-
-; Oreo 11.11 discount,. 11 - 13 Nov
-Var OreoDiscount11Pro = 0
-Var FromOreoDiscount11Pro = 0
-Var Seeker.BuyOreo11ProFlag = 0
-Var FromBeforeGoToOreo = 0
-
-; Happy trios, 21 - 30 Nov
-Var HappyTriosPro = 0
-Var FromHappyTriosPro = 0
-
 ; Jemila Topping Free every Wednesday, start 20 Nov
 Var JemilaToppingFlag = 0
 Var JemilaToppingFreeFlag = 0
@@ -181,6 +60,9 @@ Var OvaltineSchoolPro = 0
 ; Red string of fate, 10 - 23 Feb
 Var RedStringOfFatePro = 0
 
+; Swensen, 21 Feb - 20 Mar
+Var SwensenPro = 0
+
 Var NewCollectPoint = 1
 Var PaymentCodeShouldCollectPromotionPoint = 0
 
@@ -226,6 +108,16 @@ If SystemDateMonthInt = 2 Then
             Var RedStringOfFatePro = 1
         EndIf
     EndIf
+
+    If SystemDateDayInt >= 21 Then
+        Var SwensenPro = 1
+    EndIf
+EndIf
+
+If SystemDateMonthInt = 3 Then
+    If SystemDateDayInt <= 20 Then
+        Var SwensenPro = 1
+    EndIf
 EndIf
 
 
@@ -239,12 +131,11 @@ If BoxID = 105005 Then
 	Var NewFlowPaymentCode = 1
 	Var New_Payment = 1
 	Var CleanFeedbackFlag = 1
-	Var 12Day12MenuPro = 0
-	;Var WinterWonderPro = 0
-	;Var ThickTeaByBrewerBanner = 0
 	Var StrawberrySeriesPro = 1
 	Var StrawberrySeriesMenu = 1
 
+	Var SwensenPro = 1
+
 	Var JemilaToppingFlag = 1
 	Var JemilaToppingFreeFlag = 1
 	Var SugarZeroCalFreeFlag = 1

xml/page_payment.xml

@@ -123,7 +123,8 @@
 	Var ReqPayInfoFromCashOther = 0
 
 
-
+	Var Seeker.RedeemSwensenCoupon = 0
+	Var Seeker.RedeemSwensenCouponDrinkPrice = PriceDrink
 
 	Var Seeker.PromotionIDCurrentOrder = 0
 

xml/page_payment_cash.xml

@@ -310,6 +310,10 @@
 
 		If Seeker.IntVendingCampaign = 0 Then
 		    Var CouponButtonState = "Enable"
+
+			If Seeker.RedeemSwensenCoupon = 1 Then
+                Var CouponButtonState = "Press"
+			EndIf
 		Else
 			SAVELOG "Cash only IntVendingCampaign"
             Var CouponButtonState = "Disable"

xml/page_payment_code.xml

@@ -930,6 +930,35 @@
 </EventClick>
 </Button>
 
+<Button>
+<X> 691 </X>
+<Y> 1432 </Y>
+<State>
+    eval(
+        If SwensenPro = 1 Then
+            If TelephoneNumber = "" Then
+				If Seeker.RedeemSwensenCouponDrinkPrice >= 20 Then
+                	Var return = "Enable"
+				Else
+                	Var return = "Invisible"
+				EndIf
+            Else
+                Var return = "Invisible"
+            EndIf
+        Else
+            Var return = "Invisible"
+        EndIf
+    )
+</State>
+<Refresh> "Enable" </Refresh>
+<Filename> "ROOT/taobin_project/image/event/swensen/bn_swensen_pay_code.png" </Filename>
+<FilenamePress> "ROOT/taobin_project/image/event/swensen/bn_swensen_pay_code.png" </FilenamePress>
+<EventClick>
+	Var Seeker.RedeemSwensenCoupon = 1
+	Open "ROOT/taobin_project/xml/page_payment_cash.xml"
+</EventClick>
+</Button>
+
 
 <Button>
 <X> 218 </X>

xml/process/addpoint.ev

@@ -25,18 +25,6 @@
 		Var AddData = 0
 	EndIf
 
-	If MyMintEnable = 1 Then
-		If FromMyMintPro = 1 Then
-			Var AddData = 0
-		EndIf
-	EndIf
-
-	If ProBadValentineEnable = 1 Then
-		If FromBadValentinePro = 1 Then
-			Var AddData = 0
-		EndIf
-	EndIf
-
 	DEBUGVAR Seeker.CodeChannel
 	DEBUGVAR Seeker.CollectPointMain
 
@@ -51,6 +39,35 @@
 		Var GetScore = ""
 	EndIf
     
+    DEBUGVAR Seeker.RedeemSwensenCoupon
+    DEBUGVAR Seeker.RedeemSwensenCouponDrinkPrice
+	If Seeker.RedeemSwensenCoupon = 1 Then
+        Var Cid = 56
+        Var var1 = ""
+        Var var2 = ""
+        Var var3 = ""
+        If Seeker.RedeemSwensenCouponDrinkPrice >= 20 Then
+            Var var1 = "153"
+        EndIf
+        If Seeker.RedeemSwensenCouponDrinkPrice >= 30 Then
+            Var var1 = "154"
+        EndIf
+        If Seeker.RedeemSwensenCouponDrinkPrice >= 40 Then
+            Var var1 = "155"
+        EndIf
+        If Seeker.RedeemSwensenCouponDrinkPrice >= 50 Then
+            Var var1 = "156"
+        EndIf
+
+        DEBUGVAR var1
+
+        If var1 = "" Then
+        
+        Else
+            AddData Cid Seeker.TNumberTaobinMember var1 var2 var3
+        EndIf
+	EndIf
+
 	If AddData = 1 Then
 		Var Cid = 26
 		DEBUGVAR "Befor Brewing3"