[RS]Open Price Levels V1

study(title="[RS]Open Price Levels V1", shorttitle="[RS]OPL.V1", overlay=true)
mode = input("week")
hourfix = input(19, title="hourfix(at what time is 00h correct):", minval=0, maxval=23)
openprice = mode == "hour" ? valuewhen(minute == 0, open, 0) :
        mode == "day" ?
            ( isintraday ? valuewhen(hour == hourfix and minute == 0, open, 0) :
            valuewhen(hour == hourfix, open, 0) ) :
        mode == "week" ?
            ( isintraday ? valuewhen(dayofweek == 1 and hour == hourfix and minute == 0, open, 0) :
            valuewhen(dayofweek == 1, open, 0) ) :
        mode == "month" ?
            ( isintraday ? valuewhen(dayofmonth == 1 and hour == hourfix and minute == 0, open, 0) : 
            valuewhen(dayofmonth == 1, open, 0) ) :
        mode == "year" ?
            ( isintraday ? valuewhen(weekofyear == 1 and dayofweek == 1 and hour == hourfix and minute == 0, open, 0) :
            isdaily ? valuewhen(weekofyear == 1 and dayofweek == 1, open, 0) :
                valuewhen(weekofyear == 1, open, 0) ) : na

scolor = openprice != openprice[1] ? na : close >= openprice ? green : maroon
plot(openprice, color=scolor, linewidth=2)