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