83 lines
2.8 KiB
Text
83 lines
2.8 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 IgnoreProfileFromRunEV
|
|
|
|
If ProReducedPriceEnable = 1 Then
|
|
|
|
Else
|
|
DEBUGVAR "Case pro reduce end"
|
|
; case-pro-reduce-end
|
|
If IgnoreProfileFromRunEV = 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"
|
|
|
|
; case-local-profile
|
|
If XMLProfile = "Discount50-PromoYuzu250" Then
|
|
DEBUGVAR "Restore Discount50 profile, also concat Yuzu"
|
|
Var XMLProfile = "NoDis50ForProYuzu25"
|
|
EndIf
|
|
EndIf
|
|
|
|
Else
|
|
DEBUGVAR "No pro reduce, concat pro yuzu"
|
|
CacheVarStr "put" XMLProfilePreEvent
|
|
|
|
Var XMLProfile = XMLProfile + "-"
|
|
Var XMLProfile = XMLProfile + "PromoYuzu250"
|
|
|
|
; case-local-profile
|
|
If XMLProfile = "Discount50-PromoYuzu250" Then
|
|
DEBUGVAR "No pro reduce but Discount50, concat pro yuzu"
|
|
Var XMLProfile = "NoDis50ForProYuzu25"
|
|
EndIf
|
|
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
|