[RS](SP) MMFI Indicator V0

//@version=2
study(title='[RS](SP) MMFI Indicator V0', shorttitle='MMFI', overlay=false)
o = security('INDEX:MMFI', period, open)
h = security('INDEX:MMFI', period, high)
l = security('INDEX:MMFI', period, low)
c = security('INDEX:MMFI', period, close)

candlecolor = c > o ? color(lime, 0) : c < o ? color(red, 0) : color(silver, 0)
plotcandle(o, h, l, c, title='MMFI', color=candlecolor)

length = input(title='Signal Length:', type=integer, defval=10)
signal = ema(c, length)

plot(series=signal, title='Signal', color=color(black, 0), linewidth=2)
hline(price=0, title='L', color=color(green, 0), linestyle=dashed, linewidth=1)
hline(price=10, title='L', color=color(green, 0), linestyle=dashed, linewidth=1)
hline(price=25, title='L', color=color(lime, 0), linestyle=dashed, linewidth=1)
hline(price=75, title='L', color=color(red, 0), linestyle=dashed, linewidth=1)
hline(price=90, title='L', color=color(maroon, 0), linestyle=dashed, linewidth=1)
hline(price=100, title='L', color=color(maroon, 0), linestyle=dashed, linewidth=1)