[RS]Gap SR Zones V1

//@version=2
study(title='[RS]Gap SR Zones V1', shorttitle='Gap', overlay=true)
bars = input(20)

is_gap_up = close > open and low > low[1] and low > open[1] and low > high[1] and low > close[1]
is_gap_down = close <= open and high < low[1] and high < open[1] and high < close[1] and high < high[1]
bars_since_gap_up = barssince(is_gap_up)
bars_since_gap_down = barssince(is_gap_down)

gap_up_open = is_gap_up ? open : bars_since_gap_up > bars ? na : gap_up_open[1]
gap_up_previous_close = is_gap_up ? close[1] : bars_since_gap_up > bars ? na : gap_up_previous_close[1]
gap_up_high = is_gap_up ? highest(2) : bars_since_gap_up > bars ? na : gap_up_high[1]
gap_up_low = is_gap_up ? lowest(2) : bars_since_gap_up > bars ? na : gap_up_low[1]

gap_down_open = is_gap_down ? open : bars_since_gap_down > bars ? na : gap_down_open[1]
gap_down_previous_close = is_gap_down ? close[1] : bars_since_gap_down > bars ? na : gap_down_previous_close[1]
gap_down_high = is_gap_down ? highest(2) : bars_since_gap_down > bars ? na : gap_down_high[1]
gap_down_low = is_gap_down ? lowest(2) : bars_since_gap_down > bars ? na : gap_down_low[1]

plot(title='Up Open', series=gap_up_open, style=linebr, color=black, linewidth=2)
plot(title='Up Previous Close', series=gap_up_previous_close, style=linebr, color=black, linewidth=1)
up_1 = plot(title='Up High', series=gap_up_high, style=linebr, color=black, linewidth=1)
up_2 = plot(title='Up Low', series=gap_up_low, style=linebr, color=black, linewidth=1)
fill(up_1, up_2, color=red, transp=75)

plot(title='Down Open', series=gap_down_open, style=linebr, color=black, linewidth=2)
plot(title='Down Previous Close', series=gap_down_previous_close, style=linebr, color=black, linewidth=1)
down_1 = plot(title='Down High', series=gap_down_high, style=linebr, color=black, linewidth=1)
down_2 = plot(title='Down Low', series=gap_down_low, style=linebr, color=black, linewidth=1)
fill(down_1, down_2, color=lime, transp=75)