update promotion code for 15THB pro

This commit is contained in:
Kenta420 2023-10-27 12:34:39 +07:00
parent 970b16ee61
commit e099452885
4 changed files with 39 additions and 22 deletions

View file

@ -273,11 +273,14 @@
EndIf
If From15THBPro = 1 Then
Var PriceDrink = OriginalPrice
Var PriceDiff = OriginalPrice - 15
Var Seeker.VendingCode = "FIX15"
Var Seeker.IntVendingCampaign = PriceDrink
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
Var Seeker.VendingCampaignRI3 = 15
EndIf
If ChildrenFree = 1 Then