study(title="ALL IN ONE ALERT by KENO")
RSIPeriod = input(13, minval=1)
BuyAlertLevel = input(-10)
SellAlertLevel = input(10)
RSIHistoModify = input(1.5)
hline(0, color=purple, linestyle=line)
hline(BuyAlertLevel, color=lime, linestyle=dashed)
hline(SellAlertLevel, color=red, linestyle=dashed)
xPrice = close
RSIMain = (rsi(xPrice, RSIPeriod) - 50) * RSIHistoModify
rsiHcolor = iff(RSIMain >= 0 , lime,
        iff(RSIMain < 0, red, black))
pos =iff(RSIMain > BuyAlertLevel, 1,
	    iff(RSIMain < SellAlertLevel, -1, nz(pos[1], 0))) 
barcolor(pos == -1 ? red: pos == 1 ? green : blue )        
plot(RSIMain, color=blue, title="ALL IN ONE ALERT")
plot(RSIMain, color=rsiHcolor, title="Histograma", style = histogram, linewidth  = 1)