//@version=5
indicator("SMC_BOS_FVG_OB_Pinbar_Sessions_Alerts", overlay = true, max_labels_count = 500, max_lines_count = 500)
//---------------------------------------------------------
// INPUTS
//---------------------------------------------------------
left       = input.int(2, "Left bars")
right      = input.int(2, "Right bars")
showZone   = input.bool(true, "Dibujar zona elegida (FVG u OB)")
// Alertas
alertBOS    = input.bool(true, "Alerta: BOS detectado")
alertPinbar = input.bool(true, "Alerta: Pinbar detectado")
alertTouch  = input.bool(true, "Alerta: Toque de zona")
alertEntry  = input.bool(true, "Alerta: Entrada confirmada")
// Filtro de RR mínimo (ratio)
minRR = input.float(1.5, "RR minimo para alertar entrada", step = 0.1)
// Filtro de sesión
sessionChoice = input.string("Londres", "Sesion para alertar entrada", options = ["Asia", "Londres", "Nueva York"])
//---------------------------------------------------------
// SESIONES (ajusta horarios a tu broker si hace falta)
//---------------------------------------------------------
asiaSession    = time(timeframe.period, "1800-0000")
londonSession  = time(timeframe.period, "0200-0500")
newYorkSession = time(timeframe.period, "0700-1100")
inAsia    = not na(asiaSession)
inLondon  = not na(londonSession)
inNewYork = not na(newYorkSession)
sessionOK =
     (sessionChoice == "Asia"       and inAsia) or
     (sessionChoice == "Londres"    and inLondon) or
     (sessionChoice == "Nueva York" and inNewYork)
//---------------------------------------------------------
// 1. Swings (estructura + liquidez)
//---------------------------------------------------------
swingHigh = ta.pivothigh(high, left, right)
swingLow  = ta.pivotlow(low,  left, right)
var float lastHigh = na
var float lastLow  = na
if not na(swingHigh)
    lastHigh := swingHigh
if not na(swingLow)
    lastLow := swingLow
//---------------------------------------------------------
// 2. Liquidity Taken
//---------------------------------------------------------
liqBuy  = not na(lastHigh) and high > lastHigh
liqSell = not na(lastLow)  and low  < lastLow
//---------------------------------------------------------
// 3. BOS
//---------------------------------------------------------
bosBull = liqBuy  and close > lastHigh
bosBear = liqSell and close < lastLow
//---------------------------------------------------------
// 4. FVG
//---------------------------------------------------------
bullFVG = low[1] > high[2]
bearFVG = high[1] < low[2]
var float fvgTop = na
var float fvgBot = na
if bullFVG
    fvgTop := low[1]
    fvgBot := high[2]
if bearFVG
    fvgTop := high[2]
    fvgBot := low[1]
//---------------------------------------------------------
// 5. OB (Order Block)
//---------------------------------------------------------
var float obHigh = na
var float obLow  = na
if bosBull
    obHigh := high[1]
    obLow  := low[1]
if bosBear
    obHigh := high[1]
    obLow  := low[1]
//---------------------------------------------------------
// 6. Pinbar Confirmation
//---------------------------------------------------------
body      = math.abs(close - open)
upperWick = high - math.max(close, open)
lowerWick = math.min(close, open) - low
pinbarBull = lowerWick >= body * 2 and close > open
pinbarBear = upperWick >= body * 2 and close < open
//---------------------------------------------------------
// 7. ELECCION AUTOMATICA: FVG u OB (la mas cercana)
//---------------------------------------------------------
var float zone = na
var bool  isFVG = false
// LONG
if bosBull and pinbarBull and not na(fvgBot) and not na(obHigh)
    distFVG = math.abs(close - fvgBot)
    distOB  = math.abs(close - obHigh)
    if distFVG < distOB
        zone  := fvgBot
        isFVG := true
    else
        zone  := obHigh
        isFVG := false
// SHORT
if bosBear and pinbarBear and not na(fvgTop) and not na(obLow)
    distFVG = math.abs(close - fvgTop)
    distOB  = math.abs(close - obLow)
    if distFVG < distOB
        zone  := fvgTop
        isFVG := true
    else
        zone  := obLow
        isFVG := false
//---------------------------------------------------------
// 8. TOQUE DE ZONA
//---------------------------------------------------------
touch = not na(zone) and low <= zone and high >= zone
//---------------------------------------------------------
// 9. CONFIRMACION DE LA SIGUIENTE VELA
//---------------------------------------------------------
bullNextConfirm = touch[1] and close > open and close > (low + (high - low) * 0.5)
bearNextConfirm = touch[1] and close < open and close < (high - (high - low) * 0.5)
//---------------------------------------------------------
// 10. ENTRADA FINAL + RR (ratio)
//---------------------------------------------------------
var float entry   = na
var float sl      = na
var float tp      = na
var float rrRatio = na
// LONG
if bullNextConfirm
    entry   := zone[1]
    sl      := lastLow
    tp      := entry + (entry - sl) * 2.0
    risk    = math.abs(entry - sl)
    reward  = math.abs(tp - entry)
    rrRatio := risk > 0 ? reward / risk : na
// SHORT
if bearNextConfirm
    entry   := zone[1]
    sl      := lastHigh
    tp      := entry - (sl - entry) * 2.0
    risk    = math.abs(sl - entry)
    reward  = math.abs(entry - tp)
    rrRatio := risk > 0 ? reward / risk : na
//---------------------------------------------------------
// 11. DIBUJAR ZONA ELEGIDA
//---------------------------------------------------------
if showZone and not na(zone)
    if isFVG
        line.new(bar_index, fvgTop, bar_index - 1, fvgTop, extend = extend.right, color = color.new(color.yellow, 70))
        line.new(bar_index, fvgBot, bar_index - 1, fvgBot, extend = extend.right, color = color.new(color.yellow, 70))
    else
        line.new(bar_index, zone, bar_index - 1, zone, extend = extend.right, color = color.new(color.orange, 70))
//---------------------------------------------------------
// 12. PLOTS
//---------------------------------------------------------
plot(entry, "Entry", color = color.new(color.yellow, 0), style = plot.style_linebr)
plot(sl,    "SL",    color = color.new(color.red,    0), style = plot.style_linebr)
plot(tp,    "TP",    color = color.new(color.green,  0), style = plot.style_linebr)
//---------------------------------------------------------
// 13. ALERTAS INSTITUCIONALES (simplificadas)
//---------------------------------------------------------
// BOS
if alertBOS and bosBull
    alert("BOS ALCISTA detectado (LONG)", alert.freq_once_per_bar)
if alertBOS and bosBear
    alert("BOS BAJISTA detectado (SHORT)", alert.freq_once_per_bar)
// PINBAR
if alertPinbar and pinbarBull
    alert("Pinbar ALCISTA detectado", alert.freq_once_per_bar)
if alertPinbar and pinbarBear
    alert("Pinbar BAJISTA detectado", alert.freq_once_per_bar)
// TOQUE
if alertTouch and touch
    dir = bosBull ? "LONG" : bosBear ? "SHORT" : "NA"
    alert("TOQUE de zona (" + dir + ")", alert.freq_once_per_bar)
// ENTRADA FINAL (con filtros RR + sesion)
entryLong  = bullNextConfirm and not na(rrRatio) and rrRatio >= minRR and sessionOK
entryShort = bearNextConfirm and not na(rrRatio) and rrRatio >= minRR and sessionOK
if alertEntry and entryLong
    msgLong = "ENTRY LONG | Entry: " + str.tostring(entry, format.mintick) +
              " | SL: " + str.tostring(sl, format.mintick) +
              " | TP: " + str.tostring(tp, format.mintick) +
              " | RR: " + str.tostring(rrRatio, format.mintick) +
              " | Sesion: " + sessionChoice
    alert(msgLong, alert.freq_once_per_bar)
if alertEntry and entryShort
    msgShort = "ENTRY SHORT | Entry: " + str.tostring(entry, format.mintick) +
               " | SL: " + str.tostring(sl, format.mintick) +
               " | TP: " + str.tostring(tp, format.mintick) +
               " | RR: " + str.tostring(rrRatio, format.mintick) +
               " | Sesion: " + sessionChoice
    alert(msgShort, alert.freq_once_per_bar)