ecco qui:
//-----------------------------------------------//
// PRC_Boss Mode S/R
// Multi-source S/R zone detector with composite scoring
// Sources: Swing pivots, Order Blocks, Fair Value Gaps, Liquidity Pools
// Inspired by "Boss Mode S/R" by OrenLuxy (TradingView, MPL 2.0)
// version = 1
// 30.04.2026
// Iván González @ www.prorealcode.com
// Sharing ProRealTime knowledge
//-----------------------------------------------//
//-----INPUTS-----------------------------------//
prdLeft = 5 // Bars left for pivot
prdRight = 5 // Bars right for pivot (no-repaint delay)
zoneAtrPct = 0.5 // Zone half-width as fraction of ATR
maxZones = 30 // Max zones in memory
topN = 10 // Render only top N by score
obMinMovePct = 1.5 // Min impulse % to qualify Order Block
obVolMult = 1.5 // Min volume ratio at OB formation
fvgMinPct = 0.3 // Min gap size % of price for FVG
liqLength = 20 // Lookback for equal highs/lows
liqTolPct = 0.1 // Equal-tolerance % for Liquidity
// Scoring weights
wTouch = 12
wTouchVol = 18
wCreateVol = 12
wConf = 18
wFresh = 8
wRegime = 12
// Source toggles
useSwing = 1
useOB = 1
useFVG = 1
useLiq = 1
// Filters
showGradeC = 1 // 0 = render only Grade A and B
warnAtrDist = 0.5 // ATR distance for zone-approach warning
//-----STATE-----------------------------------//
once zCount = 0
prdTotal = prdLeft + prdRight + 1
atrV = averagetruerange[14]
avgVol20 = average[20](volume)
avgVol60 = average[60](volume)
avgVolLiq = average[liqLength](volume)
zoneW = atrV * zoneAtrPct
//-----REGIME CLASSIFIER-----------------------//
adxV = ADX[14]
ema50 = exponentialaverage[50](close)
emaSlope5 = 0
if barindex >= 5 and ema50[5] <> 0 then
emaSlope5 = (ema50 - ema50[5]) / ema50[5] * 100
endif
// regime: 1=STRONG_BULL 2=WEAK_BULL -1=STRONG_BEAR -2=WEAK_BEAR 0=RANGE
regime = 0
if adxV > 25 and emaSlope5 > 0.5 then
regime = 1
elsif adxV > 18 and emaSlope5 > 0.1 then
regime = 2
elsif adxV > 25 and emaSlope5 < -0.5 then
regime = -1
elsif adxV > 18 and emaSlope5 < -0.1 then
regime = -2
endif
//-----CANDIDATE COLLECTOR---------------------//
// Each detector pushes 0..1 candidates into $cand* arrays
// A single processor pass at the end resolves overlap and stores the zone
candCount = 0
// --- Detector 1: SWING pivots ---
if useSwing and barindex >= prdTotal then
if high[prdRight] >= highest[prdTotal](high) then
$candTop[candCount] = high[prdRight] + zoneW * 0.5
$candBot[candCount] = high[prdRight] - zoneW * 0.5
$candIsSup[candCount] = 0
$candSrc[candCount] = 1
$candVol[candCount] = volume[prdRight]
candCount = candCount + 1
endif
if low[prdRight] <= lowest[prdTotal](low) then
$candTop[candCount] = low[prdRight] + zoneW * 0.5
$candBot[candCount] = low[prdRight] - zoneW * 0.5
$candIsSup[candCount] = 1
$candSrc[candCount] = 1
$candVol[candCount] = volume[prdRight]
candCount = candCount + 1
endif
endif
// --- Detector 2: ORDER BLOCKS ---
if useOB and barindex >= 6 then
isBearPrev = close[1] < open[1]
bullMove = (close - open[1]) / open[1] * 100
bullDisp = close > max(high[2], max(high[3], max(high[4], high[5])))
if isBearPrev and bullMove >= obMinMovePct and volume >= avgVol60 * obVolMult and bullDisp then
obT = max(open[1], close[1])
obB = min(open[1], close[1])
$candTop[candCount] = obT
$candBot[candCount] = obB
$candIsSup[candCount] = 1
$candSrc[candCount] = 2
$candVol[candCount] = volume[1]
candCount = candCount + 1
endif
isBullPrev = close[1] > open[1]
bearMove = (open[1] - close) / open[1] * 100
bearDisp = close < min(low[2], min(low[3], min(low[4], low[5])))
if isBullPrev and bearMove >= obMinMovePct and volume >= avgVol60 * obVolMult and bearDisp then
obT = max(open[1], close[1])
obB = min(open[1], close[1])
$candTop[candCount] = obT
$candBot[candCount] = obB
$candIsSup[candCount] = 0
$candSrc[candCount] = 2
$candVol[candCount] = volume[1]
candCount = candCount + 1
endif
endif
// --- Detector 3: FAIR VALUE GAPS ---
if useFVG and barindex >= 2 then
minGap = close * fvgMinPct / 100
bullMidImp = close[1] > open[1] and (close[1] - open[1]) >= atrV * 0.3
if low > high[2] and (low - high[2]) >= minGap and bullMidImp then
$candTop[candCount] = low
$candBot[candCount] = high[2]
$candIsSup[candCount] = 1
$candSrc[candCount] = 3
$candVol[candCount] = volume[1]
candCount = candCount + 1
endif
bearMidImp = close[1] < open[1] and (open[1] - close[1]) >= atrV * 0.3
if low[2] > high and (low[2] - high) >= minGap and bearMidImp then
$candTop[candCount] = low[2]
$candBot[candCount] = high
$candIsSup[candCount] = 0
$candSrc[candCount] = 3
$candVol[candCount] = volume[1]
candCount = candCount + 1
endif
endif
// --- Detector 4: LIQUIDITY POOLS ---
if useLiq and barindex >= liqLength then
tol = close * liqTolPct / 100
liqH = highest[liqLength](high)
liqL = lowest[liqLength](low)
eqHcount = 0
eqLcount = 0
for k = 0 to liqLength - 1 do
if abs(high[k] - liqH) <= tol then
eqHcount = eqHcount + 1
endif
if abs(low[k] - liqL) <= tol then
eqLcount = eqLcount + 1
endif
next
if eqHcount >= 2 then
$candTop[candCount] = liqH + tol
$candBot[candCount] = liqH - tol
$candIsSup[candCount] = 0
$candSrc[candCount] = 4
$candVol[candCount] = avgVolLiq
candCount = candCount + 1
endif
if eqLcount >= 2 then
$candTop[candCount] = liqL + tol
$candBot[candCount] = liqL - tol
$candIsSup[candCount] = 1
$candSrc[candCount] = 4
$candVol[candCount] = avgVolLiq
candCount = candCount + 1
endif
endif
//-----PROCESS CANDIDATES (overlap + add)------//
if candCount > 0 then
for c = 0 to candCount - 1 do
cTop = $candTop[c]
cBot = $candBot[c]
cMid = (cTop + cBot) / 2
cWidth = cTop - cBot
cIsSup = $candIsSup[c]
cSrc = $candSrc[c]
cVol = $candVol[c]
// Overlap with existing zones?
overlap = 0
if zCount > 0 then
for q = 0 to zCount - 1 do
if abs($zoneMid[q] - cMid) < cWidth * 2 then
overlap = 1
endif
next
endif
if overlap = 0 then
// Slot: append, or evict lowest score
if zCount < maxZones then
idx = zCount
zCount = zCount + 1
else
minS = 999
minIdx = 0
for q = 0 to maxZones - 1 do
if $zoneScore[q] < minS then
minS = $zoneScore[q]
minIdx = q
endif
next
idx = minIdx
endif
$zoneTop[idx] = cTop
$zoneBot[idx] = cBot
$zoneMid[idx] = cMid
$zoneIsSup[idx] = cIsSup
$zoneSrc[idx] = cSrc
$zoneCreated[idx] = barindex
$zoneLastTouch[idx] = barindex
$zoneTouches[idx] = 0
$zoneViol[idx] = 0
$zoneFresh[idx] = 1
cv = 1
if avgVol20 > 0 then
cv = cVol / avgVol20
endif
$zoneCreateVol[idx] = cv
$zoneTouchVol[idx] = 0
$zoneConf[idx] = 1
$zoneScore[idx] = 50
endif
next
endif
//-----TOUCH & VIOLATION TRACKER---------------//
if zCount > 0 then
for q = 0 to zCount - 1 do
zT = $zoneTop[q]
zB = $zoneBot[q]
zIs = $zoneIsSup[q]
// Touch (bar entered the zone)
if low <= zT and high >= zB and barindex > $zoneCreated[q] then
$zoneFresh[q] = 0
tc = $zoneTouches[q] + 1
$zoneTouches[q] = tc
tvr = 1
if avgVol20 > 0 then
tvr = volume / avgVol20
endif
if tc = 1 then
$zoneTouchVol[q] = tvr
else
$zoneTouchVol[q] = ($zoneTouchVol[q] * (tc - 1) + tvr) / tc
endif
$zoneLastTouch[q] = barindex
endif
// Violation: close beyond the zone in the wrong direction
viol = 0
if zIs = 1 and close < zB then
viol = 1
endif
if zIs = 0 and close > zT then
viol = 1
endif
if viol = 1 then
$zoneViol[q] = $zoneViol[q] + 1
endif
next
endif
//-----CONFLUENCE COUNT------------------------//
if zCount > 0 then
for q = 0 to zCount - 1 do
cnt = 1
for r = 0 to zCount - 1 do
if r <> q then
if $zoneTop[q] >= $zoneBot[r] and $zoneBot[q] <= $zoneTop[r] then
cnt = cnt + 1
endif
endif
next
$zoneConf[q] = cnt
next
endif
//-----COMPOSITE SCORE ENGINE------------------//
totalW = wTouch + wTouchVol + wCreateVol + wConf + wFresh + wRegime
if zCount > 0 then
for q = 0 to zCount - 1 do
touchN = min($zoneTouches[q], 5) / 5
volConv = min($zoneTouchVol[q], 3) / 3
createVn = min($zoneCreateVol[q], 3) / 3
confN = min($zoneConf[q], 5) / 5
freshN = 0
if $zoneFresh[q] = 1 then
freshN = 1
else
decay = 1 - (barindex - $zoneLastTouch[q]) / 300
if decay > 0 then
freshN = decay
endif
endif
violPen = min($zoneViol[q] * 0.25, 1)
rf = 0.5
if $zoneIsSup[q] = 1 then
if regime = 1 then
rf = 1
elsif regime = 2 then
rf = 0.8
elsif regime = 0 then
rf = 0.5
elsif regime = -2 then
rf = 0.3
else
rf = 0.2
endif
else
if regime = -1 then
rf = 1
elsif regime = -2 then
rf = 0.8
elsif regime = 0 then
rf = 0.5
elsif regime = 2 then
rf = 0.3
else
rf = 0.2
endif
endif
raw = (touchN * wTouch + volConv * wTouchVol + createVn * wCreateVol + confN * wConf + freshN * wFresh + rf * wRegime - violPen * 6) / totalW * 100
sc = max(0, min(100, raw))
$zoneScore[q] = sc
next
endif
//-----WARNINGS--------------------------------//
// 0=none 1=approach A 2=approach B 3=trap suspected
warning = 0
if zCount > 0 then
for q = 0 to zCount - 1 do
zScore = $zoneScore[q]
zMid2 = $zoneMid[q]
zViol2 = $zoneViol[q]
dist = abs(zMid2 - close)
if zScore >= 80 and dist < atrV * warnAtrDist then
warning = 1
elsif zScore >= 65 and dist < atrV * warnAtrDist and warning = 0 then
warning = 2
endif
if zViol2 >= 1 and dist < atrV * 0.3 and volume < avgVol20 * 0.7 and warning < 3 then
warning = 3
endif
next
endif
//-----LAST-BAR RENDERING----------------------//
if islastbarupdate then
if zCount > 0 then
// Top-N selection (partial selection sort)
for q = 0 to zCount - 1 do
$drawFlag[q] = 0
next
for k = 0 to topN - 1 do
bestS = -1
bestIdx = -1
for q = 0 to zCount - 1 do
if $drawFlag[q] = 0 and $zoneScore[q] > bestS then
bestS = $zoneScore[q]
bestIdx = q
endif
next
if bestIdx >= 0 then
$drawFlag[bestIdx] = 1
endif
next
// Draw selected zones
for q = 0 to zCount - 1 do
if $drawFlag[q] = 1 then
zScoreD = $zoneScore[q]
zIsD = $zoneIsSup[q]
if zScoreD >= 50 or showGradeC = 1 then
if zIsD = 1 then
if zScoreD >= 80 then
r = 0
g = 200
b = 100
a = 90
elsif zScoreD >= 65 then
r = 30
g = 180
b = 90
a = 60
else
r = 80
g = 160
b = 100
a = 35
endif
else
if zScoreD >= 80 then
r = 230
g = 30
b = 30
a = 90
elsif zScoreD >= 65 then
r = 220
g = 90
b = 50
a = 60
else
r = 200
g = 130
b = 130
a = 35
endif
endif
drawrectangle($zoneCreated[q], $zoneBot[q], barindex + 5, $zoneTop[q]) coloured(r, g, b, 200) fillcolor(r, g, b, a)
endif
endif
next
// Nearest support and resistance
nsLow = 0
nsScore = 0
nrHigh = 0
nrScore = 0
bestSupDist = 999999
bestResDist = 999999
for q = 0 to zCount - 1 do
if $zoneIsSup[q] = 1 and $zoneTop[q] < close then
dS = close - $zoneTop[q]
if dS < bestSupDist then
bestSupDist = dS
nsLow = $zoneTop[q]
nsScore = $zoneScore[q]
endif
endif
if $zoneIsSup[q] = 0 and $zoneBot[q] > close then
dR = $zoneBot[q] - close
if dR < bestResDist then
bestResDist = dR
nrHigh = $zoneBot[q]
nrScore = $zoneScore[q]
endif
endif
next
// Highlighted nearest S/R: saturated horizontal segment + price label at the level
srLeft = barindex - 30
srRight = barindex + 30
if nsLow <> 0 then
drawsegment(srLeft, nsLow, srRight, nsLow) coloured(0, 230, 100, 255)
drawtext("#nsLow#", srRight + 2, nsLow+0.15*atrV, sansserif, bold, 11) coloured(0, 230, 100)
endif
if nrHigh <> 0 then
drawsegment(srLeft, nrHigh, srRight, nrHigh) coloured(230, 30, 30, 255)
drawtext("#nrHigh#", srRight + 2, nrHigh+0.15*atrV, sansserif, bold, 11) coloured(230, 30, 30)
endif
// Compact panel: regime + warning only
panelX = -200
topY = -100
if regime = 1 then
drawtext("Regime: STRONG BULL", panelX, topY, sansserif, bold, 11) coloured(0, 200, 100)anchor(topright,xshift,yshift)
elsif regime = 2 then
drawtext("Regime: WEAK BULL", panelX, topY, sansserif, bold, 11) coloured(80, 180, 120)anchor(topright,xshift,yshift)
elsif regime = -1 then
drawtext("Regime: STRONG BEAR", panelX, topY, sansserif, bold, 11) coloured(220, 50, 50)anchor(topright,xshift,yshift)
elsif regime = -2 then
drawtext("Regime: WEAK BEAR", panelX, topY, sansserif, bold, 11) coloured(220, 120, 80)anchor(topright,xshift,yshift)
else
drawtext("Regime: RANGE", panelX, topY, sansserif, bold, 11) coloured(150, 150, 150)anchor(topright,xshift,yshift)
endif
if warning = 1 then
drawtext("Approaching A-zone", panelX, topY - 30, sansserif, bold, 11) coloured(255, 100, 0)anchor(topright,xshift,yshift)
elsif warning = 2 then
drawtext("Approaching B-zone", panelX, topY - 30, sansserif, standard, 10) coloured(220, 150, 60)anchor(topright,xshift,yshift)
elsif warning = 3 then
drawtext("Trap suspected", panelX, topY - 30, sansserif, bold, 11) coloured(255, 50, 50)anchor(topright,xshift,yshift)
endif
endif
endif
return
