Swing Trading Safely with Super Trend Signal v1

-- Swing Trading Safely with Super Trend Signal (STSwSTS)
-- Author: deemzie
-- Thanks to pshai for the MassEve script which inspired the present and for the SuperTrend command
-- Consider donating to support our work!
-- deemzie: ETH/BSC: 0xFcFD51f3eD7BCcb3652631E7118C2c5913A3aa14
-- phsai BTC: 3FRx1EkG4T4izrkaS34xeZHJFK4kQefHKf

HideTradeAmountSettings()

local src_types = {
    'Close',
    'Open',
    'HL',
    'HLC',
    'OHLC'
}
 
InputGroupHeader('Timeframe Settings')
local tf_update = InputInterval('1. Update Timeframe', 60, 'Update timeframe, how frequently does the bot logic update.')
local tf_price = InputInterval('2. Prices Timeframe', 240, 'Prices timeframe to use.')

InputGroupHeader('Position Settings')
local type = InputOptions('1. Position order type', 'Amount', {'Amount', 'Equity'}, 'Initial position defined either by the number of contract or a percentage of the wallet balance.')
local amount = Input('2. Position amount', 100, 'Trade amount to use')
local prop = Input('3. Equity', 20, 'Equity of the available wallet balance to use')

InputGroupHeader('Entry and Exit Settings')
local ent_trlg = Input('1. Entry Trailing %', 1, 'Price move down before going Long after the SuperTrend Buy signal')
local sec_tp = Input('2. Safety TP price %', 5, 'Price move up after going Long to secure profit')
local sec_tp_prct = Input('3. Safety TP amount %', 50, 'Portion of the Long to close when the Safety TP is reached')
local tp_prct = Input('4. Partial TP amount %', 15, 'Portion of the Long to close after the SuperTrend TP Sell signal')
local sl = Input('5. Stop Loss %', 20, 'Maximum price movement from entry before triggering the Stop Loss')
local sl_lim = Input('6. Stop Loss limit %', 0.2, 'Limit order below the trigger for the Stop Loss')
local sl_type = InputOptions('7. Stop Loss type', 'Fixed Market', {'Fixed Market', 'Fixed Limit', 'Close'}, 'Fixed: SL triggered if the price drops below trigger, Close: if the candle closes below')

InputGroupHeader('SuperTrend Settings')
local st_atr_len = Input('1. ATR Length Open', 10, 'SuperTrend ATR period lenth.')
local st_atr_mul = Input('2. ATR Mult Open', 3, 'SuperTrend ATR multiplier.')
local st_atr_len_tp = Input('1. ATR Length TP', 10, 'SuperTrend ATR period lenth.')
local st_atr_mul_tp = Input('2. ATR Mult TP', 2, 'SuperTrend ATR multiplier.')
local st_src_type = InputOptions('3. Price Source Type', src_types[4], src_types, 'Price source used for SuperTrend.')
local st_use_smooth = Input('4. Use Smoothing', false, 'Whether or not use MA smoothing on SuperTrend price source.')
local st_smooth_type = InputMaTypes('5. Smooth Type', SmaType, 'MA type for smoothing, if enabled.')
local st_smooth_len = Input('6. Smooth Length', 10, 'MA length for smoothing, if enabled.')

if type == 'Equity' then
    amount = MaxLongAmount(AccountGuid()) * prop / 100 
end

function init_id (name)
    local id = Load(name)
    if id == nil then
        id = NewGuid()
    end
    return id
end
 
-- all trading logic etc happens inside this command's callback.
OptimizedForInterval(
    tf_update, -- update interval
 
    -- the callback function
    function()
        -- get candle prices
        local o = OpenPrices(tf_price)
        local h = HighPrices(tf_price)
        local l = LowPrices(tf_price)
        local c = ClosePrices(tf_price)
 
        local op = OpenPrices(tf_update)
        local hp = HighPrices(tf_update)
        local lp = LowPrices(tf_update)
        local cp = ClosePrices(tf_update)
 
        -- get source prices
        local st_src
        local src
 
        if st_src_type == src_types[1] then
            st_src = c
            src = cp
        elseif st_src_type == src_types[2] then
            st_src = o
            src = op
        elseif st_src_type == src_types[3] then
            st_src = (h+l)/2
            src = (hp+lp)/2
        elseif st_src_type == src_types[4] then
            st_src = (h+l+c)/3
            src = (hp+lp+cp)/3
        elseif st_src_type == src_types[5] then
            st_src = (o+h+l+c)/4
            src = (op+hp+lp+cp)/4
        end
 
        -- apply smoothing if used
        if st_use_smooth then
            st_src = MA(st_src, st_smooth_len, st_smooth_type)
        end
 
        -- super trend
        local st = CC_SuperTrendExt(h, l, st_src, st_atr_len, st_atr_mul)
        local st_tp = CC_SuperTrendExt(h, l, st_src, st_atr_len_tp, st_atr_mul_tp)
        Plot(0, 'st', st)
        Plot(0, 'st tp', st_tp) 
 
        -- go long orders
        local enter_id = init_id('enter_id')
        local enter = OrderContainer(enter_id)

        -- exit long orders
        local sec_id = init_id('sec_id')
        local sec = OrderContainer(sec_id)

        local tp_id = init_id('tp_id')
        local tp = OrderContainer(tp_id)
        
        local stop_id = init_id('stop_id')
        local stop = OrderContainer(stop_id)

        -- position
        local long_id = init_id('long_id')
        local long = PositionContainer(long_id)
 
        local entry = GetPositionEnterPrice(long_id)
        local pos_amount = GetPositionAmount(long_id)

        -- entry logic
        if st_src > st_tp and st_src > st and not long.isLong and not stop.isFilled then 
            if (enter.isOpen and enter.price < lp * (1 - ent_trlg / 100)) or not enter.isOpen then
                CancelAllOrders(long_id)
                long_id = NewGuid()
                enter_id = PlaceGoLongOrder(lp * (1 - ent_trlg / 100), amount, {timeout = 999999, positionId = long_id})
                sec_id = NewGuid()
                tp_id = NewGuid()
                stop_id = NewGuid()
            end
        end

        -- SL logic
         if sl_type == 'Fixed Market' then 
            if long.isLong and not stop.isOpen and not stop.isFilled then
                stop_id = PlaceExitLongOrder(entry * (1 - sl / 100), pos_amount, {triggerPrice = entry * (1 - sl / 100), type = StopMarketOrderType, timeout = 999999, positionId = long_id})
            end
            if long.isLong and stop.isOpen and not stop.isFilled and stop.executedAmount != pos_amount then
                CancelOrder(stop_id)
                stop_id = PlaceExitLongOrder(entry * (1 - sl / 100), pos_amount, {triggerPrice = entry * (1 - sl / 100), type = StopMarketOrderType, timeout = 999999, positionId = long_id})
            end
        elseif sl_type == 'Fixed Limit' then 
            if long.isLong and not stop.isOpen and not stop.isFilled then
                stop_id = PlaceExitLongOrder(entry * (1 - sl / 100) * (1 - sl_lim / 100), pos_amount, {triggerPrice = entry * (1 - sl / 100), type = StopLimitOrderType, timeout = 999999, positionId = long_id})
            end
            if long.isLong and stop.isOpen and not stop.isFilled and stop.executedAmount != pos_amount then
                CancelOrder(stop_id)
                stop_id = PlaceExitLongOrder(entry * (1 - sl / 100) * (1 - sl_lim / 100), pos_amount, {triggerPrice = entry * (1 - sl / 100), type = StopLimitOrderType, timeout = 999999, positionId = long_id})
            end
        else
            if long.isLong and c < entry * (1 - sl / 100) then
                CancelAllOrders(long_id)
                stop_id = PlaceExitPositionOrder(long_id, {type = MarketOrderType, timeout = 999999})
                long_id = NewGuid()
                long = PositionContainer(long_id)
                Log('Stop!')
            end
        end


         -- Exit logic
        if long.isLong and st_src < st then
            CancelAllOrders(long_id)
            PlaceExitPositionOrder(long_id, {type = MarketOrderType, timeout = 999999})
            long_id = NewGuid()
            long = PositionContainer(long_id)
            Log('Exit!')
        end

        -- Secure TP logic
        if long.isLong and not sec.isOpen and not sec.isFilled and not stop.isFilled then
            sec_id = PlaceExitLongOrder(entry * (1 + sec_tp / 100), pos_amount * sec_tp_prct / 100, {timeout = 999999, positionId = long_id})
        end

         -- TP logic
        if long.isLong and st_src < st_tp and not tp.isOpen and not tp.isFilled and not stop.isFilled then
            tp_id = PlaceExitLongOrder(hp, pos_amount * tp_prct / 100, {timeout = 999999, positionId = long_id})
        end

        -- reset TP
        if long.isLong and st_src > st_tp and tp.isFilled then
            tp_id = NewGuid()
        end
 
        -- reset SL: if SL has been triggered, wait for ST to flip bullish again
        if stop.isFilled then
            CancelAllOrders(long_id)
            long_id = NewGuid()
        end
        if st_src < st and stop.isFilled then
            stop_id = NewGuid()
        end

        Save('long_id', long_id)
        Save('enter_id', enter_id)
        Save('sec_id', sec_id)
        Save('tp_id', tp_id)
        Save('stop_id', stop_id)
    end
)