[pshaiCmd] Break Even Safety

-- Author: pshai

DefineCommand('BreakEven', 'Sets or triggers a stop-loss at breakeven after X% breached.')

local min_prc = DefineParameter(NumberType, 'min_prc', 'Minimum required percentage price change for safety to activate', true, 1, 'Number, Input')
local max_rebounds = DefineParameter(NumberType, 'max_rebounds', 'Number of rebounds allowed before triggering the safety', false, 0, 'Number, Input')
local pos_id = DefineParameter(StringType, 'pos_id', 'Optional position ID', false, '', 'PositionContainer, Text, Load, SessionGet')

local pos = PositionContainer(pos_id)
local market = pos.market
local result = false
local cp = CurrentPrice(market)
local active = Load('active'..pos.positionId, false)
local prev_id = Load('prev_id'..pos.positionId, pos.positionId)
local rebound_count = Load('rebound_count'..pos.positionId, 0)
local rebound_level = Load('rebound_level'..pos.positionId, 0)

-- Update rebound count if used
if max_rebounds > 0 and rebound_level > 0 
and ((pos.isLong and cp.close > rebound_level)
or (pos.isShort and cp.close < rebound_level)) then
    rebound_count = rebound_count + 1
    LogWarning('[BE] '..market..': Rebound of '..rebound_count..'/'..max_rebounds..'.')
    rebound_level = 0
end

if PercentagePriceChange(min_prc, {positionId = pos_id}) then
    active = true

elseif active then

    if (pos.isLong and cp.bid <= pos.enterPrice)
    or (pos.isShort and cp.ask >= pos.enterPrice) then
        
        -- Prepare for a rebound if used
        if max_rebounds > 0 and rebound_count < max_rebounds and rebound_level <= 0 then
            rebound_level = cp.close
            LogWarning('[BE] '..market..': Rebound target set at '..rebound_level..'.')
        end
        
        if rebound_count >= max_rebounds then
            result = true 
        end
    end
end

Save('active'..pos.positionId, active)
Save('prev_id'..pos.positionId, prev_id)
Save('rebound_count'..pos.positionId, rebound_count)
Save('rebound_level'..pos.positionId, rebound_level)


DefineOutput(BooleanType, result, 'True if safety is triggered', 'DoExitPosition, PlaceExitPositionOrder, PlaceExitLongOrder, PlaceExitShortOrder')