[RS]Block V0

study("[RS]Block V0", overlay=true)
reversalMode = input('ATR')
reversalValue = input(14, type=float)
reversal_value = reversalMode == 'ATR' ? atr(round(reversalValue)) : reversalValue

smooth_channel = input(8)
channel_multiplier = input(1)
hl2_smooth = input(4)

p_hl = nz(hl[1])
hl = hl2 < p_hl - reversal_value ? p_hl - reversal_value : hl2 > p_hl + reversal_value ? p_hl + reversal_value : p_hl

smooth = sma(hl, smooth_channel)

plot(smooth+reversal_value*channel_multiplier, title='', style=columns, color=smooth>smooth[1]?green:smooth<smooth[1]?maroon:gray, transp=70)
plot(smooth, style=columns, title='', color=smooth>smooth[1]?green:smooth<smooth[1]?maroon:gray, transp=70)
plot(smooth-reversal_value*channel_multiplier, title='', style=columns, color=white, transp=0)

plot(high, title='', style=cross, color=black, linewidth=1)
plot(low, title='', style=cross, color=black, linewidth=1)
plot(close, title='', style=circles, color=close>open?green:close<open?maroon:black, linewidth=2)
plot(sma(hl2, hl2_smooth), title='', style=cross, color=black, linewidth=2, join=true)
//plot(sma(hl2, hl2_smooth*2), title='', style=cross, color=red, linewidth=2, join=true)