63 lines
1.1 KiB
Text
63 lines
1.1 KiB
Text
SAVELOG "Process::discount_from_promotion"
|
|
|
|
; fruit_raya
|
|
If FromFruityRaya = 1 Then
|
|
Var Seeker.VendingCode = "RAYA"
|
|
Var Seeker.FreeVendingCampaign = 0
|
|
EndIf
|
|
|
|
; mys pro thai tea
|
|
If FromProThaiTea = 1 Then
|
|
Var Seeker.VendingCode = "TT1F1"
|
|
Var Seeker.FreeVendingCampaign = 0
|
|
EndIf
|
|
|
|
; mys pro yuzu
|
|
If FromProYuzu = 1 Then
|
|
Var Seeker.VendingCode = "YZ1F1"
|
|
Var Seeker.FreeVendingCampaign = 0
|
|
EndIf
|
|
|
|
; mys mode pay later
|
|
If EnablePayLaterMode = 1 Then
|
|
Var PriceDiff = PriceDrink
|
|
|
|
Var Seeker.VendingCode = "PL"
|
|
Var Seeker.IntVendingCampaign = PriceDiff
|
|
|
|
EndIf
|
|
|
|
; promotion reduce price
|
|
; REPR
|
|
If ProReducedPriceEnable = 1 Then
|
|
Var Seeker.VendingCode = "REPR"
|
|
EndIf
|
|
|
|
|
|
; promotion yuzu 250
|
|
; YUZU25
|
|
If FromProYuzu250 = 1 Then
|
|
Var Seeker.VendingCode = "YUZU25"
|
|
EndIf
|
|
|
|
|
|
; promotion melonzy
|
|
If FromProMelon = 1 Then
|
|
Var Seeker.VendingCode = "MELN25"
|
|
EndIf
|
|
|
|
|
|
If FromProMysteryCup = 1 Then
|
|
Var Seeker.VendingCode = RandomVendingCode
|
|
Var Seeker.FromProMysteryCup = "true"
|
|
|
|
Var FromProMysteryCup = 0
|
|
Else
|
|
Var Seeker.FromProMysteryCup = "false"
|
|
|
|
Var FromProMysteryCup = 0
|
|
EndIf
|
|
|
|
|
|
|
|
DEBUGVAR Seeker.VendingCode
|