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

THAI: Added Swensen coupon

Browse source
This commit is contained in:
Kenta420 2025-02-05 18:40:52 +07:00
parent ba4973657c
commit 5052d38f14
5 changed files with 84 additions and 142 deletions
Download patch file Download diff file Expand all files Collapse all files

141
xml/event/tricker.ev
View file

@ -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
@ -358,7 +249,7 @@ If taobin_nopro = "true" Then
EndIf
; check material
; check material
If CoconutSyrupEnable = "true" Then

3
xml/page_payment.xml
View file

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

4
xml/page_payment_cash.xml
View file

@ -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"

29
xml/page_payment_code.xml
View file

@ -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>

49
xml/process/addpoint.ev
View file

@ -2,7 +2,7 @@
Var AddData = 1
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.PointTaobinStr
If Seeker.TNumberTaobinCredit = "" Then
@ -14,7 +14,7 @@
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
@ -23,25 +23,13 @@
If Seeker.VendingCode = "MKFOO" Then
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
Var PointCrm = ""
If Seeker.FromConsent = 1 Then
If Seeker.FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
@ -49,7 +37,36 @@
Var GetScore = Seeker.VendingTSID
Else
Var GetScore = ""
EndIf
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