This will return:

• 1 = DD (bearish)
• 2 = HD (bearish)
• 3 = DD (bullish)
• 4 = HD (bullish)

//RSI Divergences By Frank (Francesco)

//Description: the indicator draws arrows on chart as entry points when a direct or an hidden RSI divergence is found.
//When a DIRECT divergence is found, "dd" (direct divergence) text is added to chart over (Sell signal) or under (Buy signal) the arrow

//When an HIDDEN or INVERSE divergence is found, "hd" (hidden divergence) text is added to chart over (Sell signal) or under (Buy signal) the arrow

//Variables:
RsiPeriod     = 10    //number of bars to calculare RSI value
RsiOverSold   = 30    //Oversold Level
RsiOverBought = 70    //OverBought Level
MinBarRange   = 3     //minimum distance from two consecutive RSI Highs or RSI Lows

//Rge = averagetruerange[10](close)
MyRSI = rsi[RsiPeriod](Close)

//ONCE ShiftText = 3

RsiMax = MyRSI < MyRSI[1] and MyRSI[1] > MyRSI[2] and MyRSI[1] > RsiOverBought
RsiMin = MyRSI > MyRSI[1] and MyRSI[1] < MyRSI[2] and MyRSI[1] < RsiOverSold
Cond = 0
if RsiMax then
RSIMax1 = MyRSI[1]
High1 = High[1]

for I = MinBarRange to  80
if RsiMax[I] then
RSIMax2 = MyRSI[I + 1]
High2 = High[I + 1]
If High1 > High2 and RSIMax1 < RSIMax2 then
//DRAWARROWDOWN(barindex, High + Rge / ShiftText)coloured(255,192,203,255)
//DRAWTEXT("dd", barindex, High + Rge / ShiftText / 0.3,SansSerif,Italic,10)coloured(0,0,255,255)
Cond = 3
elsif High1 < High2 and RSIMax1 > RSIMax2 then
//DRAWARROWDOWN(barindex, High + Rge / ShiftText)coloured(255,192,203,255)
//DRAWTEXT("hd", barindex, High + Rge / ShiftText / 0.2,SansSerif,Italic,10)coloured(0,0,255,255)
Cond = 4
endif
break
endif
next
endif

if RsiMin then
RSIMin1 = MyRSI[1]
Low1 = Low[1]
for I = MinBarRange to  80
if RSIMin[I] then
RSIMin2 = MyRSI[I + 1]
Low2 = Low[I + 1]
If Low1 < Low2 and RSIMin1 > RSIMin2 then
//DRAWARROWUP(barindex, lOW - Rge / ShiftText)coloured(0,0,255,255)
//DRAWTEXT("dd", barindex, lOW - Rge / ShiftText / 0.3,SansSerif,Italic,10)coloured(0,0,255,255)
Cond = 1
elsif Low1 > Low2 and RSIMin1 < RSIMin2 then
//DRAWARROWUP(barindex, lOW - Rge / ShiftText)coloured(0,0,255,255)
//DRAWTEXT("hd", barindex, lOW - Rge / ShiftText / 0.2,SansSerif,Italic,10)coloured(0,0,255,255)
Cond = 2
endif
break
endif
next
endif

SCREENER[Cond](Cond AS "Cond")

Cond is the returned data, as I wrote above:

• 1 = DD (bearish)
• 2 = HD (bearish)
• 3 = DD (bullish)
• 4 = HD (bullish)