Pivot points: classic, Fibonacci, Camarilla and Pine Script v6 code

//@version=6
indicator("Pivot points: classic, Fibonacci, Camarilla, Woodie", shorttitle = "Pivots", overlay = true, max_labels_count = 50)

pType   = input.string("Classic", "Type", options = ["Classic", "Fibonacci", "Camarilla", "Woodie"], group = "Pivots")
period  = input.string("Day", "From the previous", options = ["Day", "Week", "Month"], group = "Pivots")
showR3  = input.bool(true, "Show R3 and S3", group = "Display")
showLbl = input.bool(true, "Label the levels on the last bar", group = "Display")
resCol  = input.color(color.red, "Resistance", group = "Display")
supCol  = input.color(color.teal, "Support", group = "Display")
pCol    = input.color(color.orange, "Pivot", group = "Display")

tf        = period == "Week" ? "W" : period == "Month" ? "M" : "D"
newPeriod = timeframe.change(tf)

// Track the current period's high and low; when a new period starts, freeze the finished period's high, low and close.
var float curHigh   = na
var float curLow    = na
var float prevHigh  = na
var float prevLow   = na
var float prevClose = na
var int   periods   = 0

if newPeriod
    periods   += 1
    prevHigh  := curHigh
    prevLow   := curLow
    prevClose := close[1]
    curHigh   := high
    curLow    := low
else
    curHigh := math.max(nz(curHigh, high), high)
    curLow  := math.min(nz(curLow, low), low)

// The first period on the chart is usually incomplete, so levels start after the second period change.
ready = periods >= 2
H = prevHigh
L = prevLow
C = prevClose
R = H - L

float pp = na
float r1 = na
float s1 = na
float r2 = na
float s2 = na
float r3 = na
float s3 = na

if pType == "Fibonacci"
    pp := (H + L + C) / 3
    r1 := pp + 0.382 * R
    s1 := pp - 0.382 * R
    r2 := pp + 0.618 * R
    s2 := pp - 0.618 * R
    r3 := pp + R
    s3 := pp - R
else if pType == "Camarilla"
    pp := (H + L + C) / 3
    r1 := C + R * 1.1 / 12
    s1 := C - R * 1.1 / 12
    r2 := C + R * 1.1 / 6
    s2 := C - R * 1.1 / 6
    r3 := C + R * 1.1 / 4
    s3 := C - R * 1.1 / 4
else
    // Classic, or Woodie, which counts the previous close twice.
    pp := pType == "Woodie" ? (H + L + 2 * C) / 4 : (H + L + C) / 3
    r1 := 2 * pp - L
    s1 := 2 * pp - H
    r2 := pp + R
    s2 := pp - R
    r3 := H + 2 * (pp - L)
    s3 := L - 2 * (H - pp)

// Hide the first bar of each period on intraday charts so the lines break instead of jumping.
gap  = newPeriod and timeframe.in_seconds() < timeframe.in_seconds(tf)
show = ready and not gap

plot(show ? pp : na, "P", color = pCol, linewidth = 2, style = plot.style_linebr)
plot(show ? r1 : na, "R1", color = resCol, style = plot.style_linebr)
plot(show ? s1 : na, "S1", color = supCol, style = plot.style_linebr)
plot(show ? r2 : na, "R2", color = color.new(resCol, 30), style = plot.style_linebr)
plot(show ? s2 : na, "S2", color = color.new(supCol, 30), style = plot.style_linebr)
plot(show and showR3 ? r3 : na, "R3", color = color.new(resCol, 55), style = plot.style_linebr)
plot(show and showR3 ? s3 : na, "S3", color = color.new(supCol, 55), style = plot.style_linebr)

tag(float y, string txt, color col) =>
    label.new(bar_index + 1, y, txt, style = label.style_label_left, color = color.new(col, 100), textcolor = col, size = size.small)

var array<label> tags = array.new<label>()
if barstate.islast
    for t in tags
        t.delete()
    tags.clear()
    if showLbl and ready
        tags.push(tag(pp, "P", pCol))
        tags.push(tag(r1, "R1", resCol))
        tags.push(tag(s1, "S1", supCol))
        tags.push(tag(r2, "R2", resCol))
        tags.push(tag(s2, "S2", supCol))
        if showR3
            tags.push(tag(r3, "R3", resCol))
            tags.push(tag(s3, "S3", supCol))

aboveR1 = ta.crossover(close, r1)
belowS1 = ta.crossunder(close, s1)
aboveP  = ta.crossover(close, pp)
belowP  = ta.crossunder(close, pp)

alertcondition(ready and aboveR1, "Close above R1", "{{ticker}} closed above R1 ({{interval}})")
alertcondition(ready and belowS1, "Close below S1", "{{ticker}} closed below S1 ({{interval}})")
alertcondition(ready and aboveP, "Close above the pivot", "{{ticker}} closed above the pivot point ({{interval}})")
alertcondition(ready and belowP, "Close below the pivot", "{{ticker}} closed below the pivot point ({{interval}})")