Williams %R

//@version=6
indicator("Williams %R", overlay=false)
length = input.int(14, "Length")
wpr = ta.wpr(length)
longSignal  = ta.crossover(wpr, -80)
shortSignal = ta.crossunder(wpr, -20)
plotshape(longSignal,  style=shape.triangleup,   location=location.bottom, color=color.green, size=size.small)
plotshape(shortSignal, style=shape.triangledown, location=location.top,    color=color.red,   size=size.small)
hline(-20, "Overbought", color=color.red,   linestyle=hline.style_dashed)
hline(-50, "Mid",        color=color.gray,  linestyle=hline.style_dotted)
hline(-80, "Oversold",   color=color.green, linestyle=hline.style_dashed)
plot(wpr, "Williams %R", color=color.new(color.purple, 0))

input length = 14;
def wpr = WilliamsPercentR(length = length);
def buySignal = wpr crosses above -80;
def sellSignal = wpr crosses below -20;
AddOrder(OrderType.BUY_AUTO, buySignal, close, 1, Color.GREEN, Color.GREEN, "WPR Buy");
AddOrder(OrderType.SELL_AUTO, sellSignal, close, 1, Color.RED, Color.RED, "WPR Exit");
plot WPR = wpr;
WPR.SetDefaultColor(Color.CYAN);