Added: Rerun promotion

This commit is contained in:
Kenta420 2024-01-16 15:39:07 +07:00
parent a09907615b
commit a0334ca60e
13 changed files with 14745 additions and 39 deletions

View file

@ -76,6 +76,14 @@
Var PriceDrink = OriginalPrice
EndIf
If FromRerunPro = 1 Then
Var PromoPriceDrink = PriceDrink
Var PriceDrink = OldPrice
DEBUGVAR PriceDrink
DEBUGVAR PromoPriceDrink
EndIf
;Var AdultFlag = 1
@ -269,6 +277,20 @@
DEBUGVAR PriceDrink
DEBUGVAR PriceDrinkTmp
If FromRerunPro = 1 Then
Var PriceDiff = PriceDrink - PromoPriceDrink
Var Seeker.VendingCode = RerunProCode
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = PromoPriceDrink
; reset
Var RerunProCode = ""
EndIf
If NightTime = 1 Then
If SelectDrink = "12-99-03-0066" Then
Var PriceDrink = 60