BO indicator

study(title="Binary Options Indicator",shorttitle="BO indicator",overlay=true)

// CCI
source = close, CCIlength = input(title="CCI Period",defval=9, minval=1)
CCIupLevel=input(100, minval=100,title="CCI up Level")
CCIdnLevel=input(-100,minval=-350,title="CCI dn Level")
ma = sma(source, CCIlength)
cci = (source - ma) / (0.015 * dev(source, CCIlength))
CCIband1 = hline(100, color=gray, linestyle=dashed)
CCIband0 = hline(-100, color=gray, linestyle=dashed)
//ShowCCI = input(false,type=bool,title="Show CCI Indicator")
//plot( ShowCCI ? cci : na)

// BB %inestyle=dashed)
BBsource = close
length = input(title="BB %B Period",type=integer,defval=20, minval=1)
mult = input(title="BB %B Multiplayer",defval=1.0, minval=0.001, maxval=50)
BBupLevel=input(1,title="BB %B Up Level")
BBdnLevel=input(0,title="BB %B Dn Level")
basis = sma(BBsource, length)
dev = mult * stdev(BBsource, length)
upper = basis + dev
lower = basis - dev
bbr = (BBsource - lower)/(upper - lower)

src = close, len = input(title="RSI Period",defval=7, minval=1)
RSIupLevel=input(70,minval=50,title="RSI Up Level")
RSIdnLevel=input(30,minval=0,title="RSI Down Level")
up = rma(max(change(src), 0), len)
down = rma(-min(change(src), 0), len)
rsi = down == 0 ? 100 : up == 0 ? 0 : 100 - (100 / (1 + up / down))

// MA cross
ShowMA=input(false,type=bool,title="Show MACross indicator")

MAfast=input(9,title="Fast MA Period")
MAslow=input(21,title="Slow MA Period")
short = ema(close, MAfast)
long =  ema(close, MAslow)
plot(ShowMA ? short : na, color = red)
plot(ShowMA ? long  : na, color = green)


pu= (cci>CCIupLevel) and (rsi>RSIupLevel ) and (bbr>BBupLevel) and
            (open[1] > short[1] and close[1]>short[1])
pd= (cci<CCIdnLevel) and (rsi < RSIdnLevel) and (bbr < BBdnLevel) and 
            (open[1]< short[1] and close[1]<short[1]) 
plotCross= pu ? 1 : pd ? -1 : na

plot(ShowMA ? cross(short, long) ? short : na : na, style = cross, linewidth = 2 ,color=yellow )

plotarrow( plotCross , colorup=lime , colordown=red,transp=20 , minheight = 18 ,maxheight=20 )



newbar(res) => change(time(res)) != 0