taobin_project/inter/mys/xml/event/event_profile.ev

71 lines
2.2 KiB
Text

TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/xml/event/tricker.ev"
Var XMLProfilePreEvent = XMLProfile
DEBUGVAR XMLProfile
STRCONTAIN "PromoYuzu250" XMLProfile HasProYuzu250Concat
STRCONTAIN "PromoReduced" XMLProfile IsProfileReduce
DEBUGVAR HasProYuzu250Concat
DEBUGVAR ProReducedPriceEnable
DEBUGVAR ProYuzu250Enable
If ProReducedPriceEnable = 1 Then
Else
DEBUGVAR "Case pro reduce end"
; case-pro-reduce-end
If ProYuzu250Enable = 1 Then
DEBUGVAR "Pro yuzu ongoing"
; concat-profile
If HasProYuzu250Concat = "true" Then
DEBUGVAR "Pro yuzu concat"
Else
If IsProfileReduce = "true" Then
DEBUGVAR "Pro reduce was set but disabled from trick"
CacheVarStr "get" XMLProfilePreEvent
If XMLProfilePreEvent = "" Then
DEBUGVAR "Get PreEvent Empty"
Var XMLProfile = "General"
Else
DEBUGVAR "Restore profile by pre-event, also concat Yuzu"
DEBUGVAR XMLProfilePreEvent
Var XMLProfile = XMLProfilePreEvent + "-"
Var XMLProfile = XMLProfile + "PromoYuzu250"
EndIf
Else
DEBUGVAR "No pro reduce, concat pro yuzu"
CacheVarStr "put" XMLProfilePreEvent
Var XMLProfile = XMLProfile + "-"
Var XMLProfile = XMLProfile + "PromoYuzu250"
EndIf
EndIf
Else
If IsProfileReduce = "true" Then
DEBUGVAR "No yuzu but set pro reduce"
CacheVarStr "get" XMLProfilePreEvent
If XMLProfilePreEvent = "" Then
DEBUGVAR "PreEvent empty, set General"
Var XMLProfile = "General"
Else
DEBUGVAR "Restore profile by pre-event"
Var XMLProfile = XMLProfilePreEvent
EndIf
Else
If HasProYuzu250Concat = "true" Then
CacheVarStr "get" XMLProfilePreEvent
Var XMLProfile = XMLProfilePreEvent
EndIf
DEBUGVAR "Store profile pre event"
DEBUGVAR XMLProfilePreEvent
CacheVarStr "put" XMLProfilePreEvent
EndIf
EndIf
EndIf