Bouncer Moving Average

study(title="Bouncer Moving Average", shorttitle="BMA", overlay=true)

outh = sma(high, 200)
outl = sma(low, 200)
outc = sma(close, 200)
plot(outh, color=orange, transp=0)
plot(outl, color=orange, transp=0)

smma34 = na(smma34[1]) ? sma(close, 34) : (smma34[1] * (34 - 1) + close) / 34
smma12 = na(smma12[1]) ? sma(close, 12) : (smma12[1] * (12 - 1) + close) / 12
plot(smma34, color=black, transp=0)
plot(smma12, color=silver, transp=0)

ccol = smma12 > smma34 and rising(smma12,1) ? green : smma12 < smma34 and falling(smma12,1) ? red : black
plot(outc, color=ccol, transp=0, linewidth=2)