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