[RS]SUPA MA V0

study("[RS]SUPA MA V0", overlay=true)
src = input(hl2)
sbase = input(1)
sadd = input(1)

ma00 = sma(src, sbase)
ma01 = sma(src, sbase + sadd)
ma02 = sma(src, sbase + sadd * 2)
ma03 = sma(src, sbase + sadd * 3)
ma04 = sma(src, sbase + sadd * 4)
ma05 = sma(src, sbase + sadd * 5)
ma06 = sma(src, sbase + sadd * 6)
ma07 = sma(src, sbase + sadd * 7)
ma08 = sma(src, sbase + sadd * 8)
ma09 = sma(src, sbase + sadd * 9)
ma10 = sma(src, sbase + sadd * 10)
ma11 = sma(src, sbase + sadd * 11)
ma12 = sma(src, sbase + sadd * 12)
ma13 = sma(src, sbase + sadd * 13)
ma14 = sma(src, sbase + sadd * 14)
ma15 = sma(src, sbase + sadd * 15)
ma16 = sma(src, sbase + sadd * 16)
ma17 = sma(src, sbase + sadd * 17)
ma18 = sma(src, sbase + sadd * 18)
ma19 = sma(src, sbase + sadd * 19)
ma20 = sma(src, sbase + sadd * 20)
ma21 = sma(src, sbase + sadd * 21)
ma22 = sma(src, sbase + sadd * 22)
ma23 = sma(src, sbase + sadd * 23)
ma24 = sma(src, sbase + sadd * 24)
ma25 = sma(src, sbase + sadd * 25)
ma26 = sma(src, sbase + sadd * 26)
ma27 = sma(src, sbase + sadd * 27)
ma28 = sma(src, sbase + sadd * 28)
ma29 = sma(src, sbase + sadd * 29)
ma30 = sma(src, sbase + sadd * 30)
ma31 = sma(src, sbase + sadd * 31)

f_slope(_ma)=> _ma > _ma[1] ? 1 : _ma < _ma[1] ? -1 : 0
plot(ma00, color=f_slope(ma00)==1?green:f_slope(ma00)==-1?maroon:gray, linewidth=1)
plot(ma01, color=f_slope(ma01)==1?green:f_slope(ma01)==-1?maroon:gray, linewidth=1)
plot(ma02, color=f_slope(ma02)==1?green:f_slope(ma02)==-1?maroon:gray, linewidth=1)
plot(ma03, color=f_slope(ma03)==1?green:f_slope(ma03)==-1?maroon:gray, linewidth=1)
plot(ma04, color=f_slope(ma04)==1?green:f_slope(ma04)==-1?maroon:gray, linewidth=1)
plot(ma05, color=f_slope(ma05)==1?green:f_slope(ma05)==-1?maroon:gray, linewidth=1)
plot(ma06, color=f_slope(ma06)==1?green:f_slope(ma06)==-1?maroon:gray, linewidth=1)
plot(ma07, color=f_slope(ma07)==1?green:f_slope(ma07)==-1?maroon:gray, linewidth=1)
plot(ma08, color=f_slope(ma08)==1?green:f_slope(ma08)==-1?maroon:gray, linewidth=1)
plot(ma09, color=f_slope(ma09)==1?green:f_slope(ma09)==-1?maroon:gray, linewidth=1)
plot(ma10, color=f_slope(ma10)==1?green:f_slope(ma10)==-1?maroon:gray, linewidth=1)
plot(ma11, color=f_slope(ma11)==1?green:f_slope(ma11)==-1?maroon:gray, linewidth=1)
plot(ma12, color=f_slope(ma12)==1?green:f_slope(ma12)==-1?maroon:gray, linewidth=1)
plot(ma13, color=f_slope(ma13)==1?green:f_slope(ma13)==-1?maroon:gray, linewidth=1)
plot(ma14, color=f_slope(ma14)==1?green:f_slope(ma14)==-1?maroon:gray, linewidth=1)
plot(ma15, color=f_slope(ma15)==1?green:f_slope(ma15)==-1?maroon:gray, linewidth=1)
plot(ma16, color=f_slope(ma16)==1?green:f_slope(ma16)==-1?maroon:gray, linewidth=1)
plot(ma17, color=f_slope(ma17)==1?green:f_slope(ma17)==-1?maroon:gray, linewidth=1)
plot(ma18, color=f_slope(ma18)==1?green:f_slope(ma18)==-1?maroon:gray, linewidth=1)
plot(ma19, color=f_slope(ma19)==1?green:f_slope(ma19)==-1?maroon:gray, linewidth=1)
plot(ma20, color=f_slope(ma20)==1?green:f_slope(ma20)==-1?maroon:gray, linewidth=1)
plot(ma21, color=f_slope(ma21)==1?green:f_slope(ma21)==-1?maroon:gray, linewidth=1)
plot(ma22, color=f_slope(ma22)==1?green:f_slope(ma22)==-1?maroon:gray, linewidth=1)
plot(ma23, color=f_slope(ma23)==1?green:f_slope(ma23)==-1?maroon:gray, linewidth=1)
plot(ma24, color=f_slope(ma24)==1?green:f_slope(ma24)==-1?maroon:gray, linewidth=1)
plot(ma25, color=f_slope(ma25)==1?green:f_slope(ma25)==-1?maroon:gray, linewidth=1)
plot(ma26, color=f_slope(ma26)==1?green:f_slope(ma26)==-1?maroon:gray, linewidth=1)
plot(ma27, color=f_slope(ma27)==1?green:f_slope(ma27)==-1?maroon:gray, linewidth=1)
plot(ma28, color=f_slope(ma28)==1?green:f_slope(ma28)==-1?maroon:gray, linewidth=1)
plot(ma29, color=f_slope(ma29)==1?green:f_slope(ma29)==-1?maroon:gray, linewidth=1)
plot(ma30, color=f_slope(ma30)==1?green:f_slope(ma30)==-1?maroon:gray, linewidth=1)
plot(ma31, color=f_slope(ma31)==1?green:f_slope(ma31)==-1?maroon:gray, linewidth=1)