As requested. Cheers
study("RSI candles by soru v.1 plus") len = input(title="RSI Period", defval=14) o=rsi(open,len) h=rsi(high,len) l=rsi(low,len) c=rsi(close,len) //inputs left = input(title="# bars to the left", type=integer, defval=30) left_low = lowest(left) left_high = highest(left) newlow = low <= left_low newhigh = high >= left_high q = barssince(newlow) w = barssince(newhigh) col = q < w ? #8B3A3A : #9CBA7F plotcandle(o,h,l,c,color=col) hline(80, color=navy, linestyle=dotted, linewidth=1) hline(60, color=navy, linestyle=dotted, linewidth=1) hline(40, color=navy, linestyle=dotted, linewidth=1) hline(20, color=navy, linestyle=dotted, linewidth=1)