StochRSI overSold/Bought alerts - by squattter

//@version=2 
study("Stoch OverS/B alerts - squattter") 
smoothK = input(3, minval=1)
smoothD = input(3, minval=1)
lengthRSI = input(14, minval=1)
lengthStoch = input(14, minval=1)
src = input(close, title="RSI Source")

rsi1 = rsi(src, lengthRSI)
k = sma(stoch(rsi1, rsi1, rsi1, lengthStoch), smoothK)
d = sma(k, smoothD)





short = crossunder(k,d) and (k>80 or d>80)
long = crossover(k,d) and (k<20 or d<20)
null = (crossover(k,d) and (k>80 or d>80)) or (crossunder(k,d) and (k<20 or d<20))

plot(long, "Long", color=white, transp=0, linewidth=2) 
plot(short, "Short", color=maroon, transp=0, linewidth=2)
plot(null, "NULL", color=orange)