//@version=6
// Setup Windows — alleen de vensters die in de meting overeind bleven.
// Geen cyclusraster, geen derden, geen ruis. Eén setup per venster per dag.
//
// Structuur per venster (40 minuten):
//   eerste 13m20s  -> zet de range
//   daarna         -> 3-minuut BODY close buiten die range = bevestiging
//   stop           -> achter het tegenoverliggende extreem
//   doel           -> 1:1 van de range
//
// Richting bepaal JIJ met je narratief. Dit tekent alleen waar en wat.
// Anker 18:00 NY. Verschuif-toets ingebouwd voor de controletest.
indicator("Setup Windows", "Setups", overlay = true,
     max_lines_count = 500, max_labels_count = 500, max_boxes_count = 500)

gW = "Vensters (New York)"
w1000 = input.bool(true,  "10:00  ·  5★  ·  90,5%  (n=2.713)", group = gW)
w1200 = input.bool(true,  "12:00  ·  5★  ·  niet in de meting", group = gW)
w0920 = input.bool(false, "09:20  ·  82,0%  (n=2.881)", group = gW)
w0400 = input.bool(false, "04:00  ·  88,3%  (n=2.520)", group = gW)
w0320 = input.bool(false, "03:20  ·  78,2%  (n=2.752)", group = gW)

gT = "Toets"
offsetMin = input.int(0, "Alle vensters verschuiven (minuten)", minval = -120, maxval = 120,
     step = 10, group = gT,
     tooltip = "Voor de controletest. Zet op 20 en draai dezelfde regels.\n" +
               "Presteert het verschoven venster net zo goed, dan handel je de sessie en niet de cyclus.")

gS = "Structuur"
vensterMin = input.int(40, "Vensterlengte (min)", minval = 5, maxval = 240, group = gS)
rangeSec   = input.int(800, "Range-deel (sec)", minval = 60, maxval = 7200, step = 20, group = gS,
     tooltip = "800 = 13m20s, het eerste derde van 40 minuten.")
confTF     = input.string("3", "Bevestigingscandle", options = ["1","3","5","15"], group = gS)
toonDoel   = input.bool(true, "1:1 doel tonen", group = gS)

gK = "Kleuren"
kNeutraal = input.color(#5f7080, "Venster / range", group = gK)
kBull = input.color(#1f7a4d, "Bullish", group = gK)
kBear = input.color(#a33a3a, "Bearish", group = gK)
kStop = input.color(#a33a3a, "Stop", group = gK)
kDoel = input.color(#1f7a4d, "Doel", group = gK)
vulOp = input.int(93, "Venster doorzichtigheid", minval = 80, maxval = 99, group = gK)
bewaar = input.int(20, "Setups bewaren", minval = 3, maxval = 100, group = gK)

string tz = "America/New_York"
int tfSec = timeframe.in_seconds()
int confSec = timeframe.in_seconds(confTF)
bool confKan = confSec >= tfSec
bool confDicht = ta.change(time(confTF)) != 0

int sod = hour(time, tz) * 3600 + minute(time, tz) * 60 + second(time, tz)
int venSec = vensterMin * 60

// ── welk venster is nu actief? (ze overlappen niet)
actiefStart(int s0) =>
    int s = s0 + offsetMin * 60
    s := s < 0 ? s + 86400 : s % 86400
    sod >= s and sod < s + venSec ? s : -1

int vStart = -1
string vNaam = ""
if w1000 and actiefStart(36000) >= 0
    vStart := actiefStart(36000)
    vNaam := "10:00"
if w1200 and actiefStart(43200) >= 0
    vStart := actiefStart(43200)
    vNaam := "12:00"
if w0920 and actiefStart(33600) >= 0
    vStart := actiefStart(33600)
    vNaam := "09:20"
if w0400 and actiefStart(14400) >= 0
    vStart := actiefStart(14400)
    vNaam := "04:00"
if w0320 and actiefStart(12000) >= 0
    vStart := actiefStart(12000)
    vNaam := "03:20"

bool inVenster = vStart >= 0
bool inRange = inVenster and sod < vStart + rangeSec

// ── staat
var array<line>  lns = array.new<line>()
var array<label> lbs = array.new<label>()
var array<box>   bxs = array.new<box>()

var int   vT      = 0        // starttijd venster (ms)
var int   vEind   = 0        // eindtijd venster (ms)
var float rHi     = na
var float rLo     = na
var bool  rKlaar  = false
var int   ri      = 0        // 0 geen, 1 bull, -1 bear
var box   vBox    = na
var string huidig = ""

if barstate.isconfirmed
    // nieuw venster begint
    if inVenster and vNaam != huidig
        huidig := vNaam
        vT     := time
        vEind  := time + venSec * 1000
        rHi    := high
        rLo    := low
        rKlaar := false
        ri     := 0
        vBox := box.new(vT, high, vEind, low, xloc = xloc.bar_time,
             border_color = color.new(kNeutraal, 60), border_width = 1,
             bgcolor = color.new(kNeutraal, vulOp))
        array.push(bxs, vBox)
        lb = label.new(vT, low, vNaam + (offsetMin != 0 ? "  (+" + str.tostring(offsetMin) + "m)" : ""),
             xloc = xloc.bar_time, yloc = yloc.price, style = label.style_label_up,
             color = color.new(kNeutraal, 82), textcolor = kNeutraal, size = size.tiny)
        array.push(lbs, lb)

    if inVenster and vNaam == huidig
        // range-deel: hoog en laag verzamelen
        if inRange
            rHi := math.max(nz(rHi, high), high)
            rLo := math.min(nz(rLo, low),  low)
            if not na(vBox)
                box.set_top(vBox, rHi)
                box.set_bottom(vBox, rLo)

        // range net klaar: niveaus vastzetten
        if not inRange and not rKlaar
            rKlaar := true
            lh = line.new(vT, rHi, vEind, rHi, xloc = xloc.bar_time,
                 color = color.new(kNeutraal, 25), width = 2)
            ll = line.new(vT, rLo, vEind, rLo, xloc = xloc.bar_time,
                 color = color.new(kNeutraal, 25), width = 2)
            array.push(lns, lh)
            array.push(lns, ll)

        // bevestiging: body close buiten de range
        if rKlaar and ri == 0 and confKan and confDicht
            float cc = close[1]
            if cc > rHi
                ri := 1
            else if cc < rLo
                ri := -1
            if ri != 0
                bool bull = ri == 1
                float instap = bull ? rHi : rLo
                float stop   = bull ? rLo : rHi
                float R      = math.abs(rHi - rLo)
                float doel   = bull ? instap + R : instap - R
                color kr     = bull ? kBull : kBear
                le = line.new(time, instap, vEind, instap, xloc = xloc.bar_time,
                     color = kr, width = 3)
                ls = line.new(time, stop, vEind, stop, xloc = xloc.bar_time,
                     color = kStop, width = 2, style = line.style_dashed)
                array.push(lns, le)
                array.push(lns, ls)
                if toonDoel
                    ld = line.new(time, doel, vEind, doel, xloc = xloc.bar_time,
                         color = kDoel, width = 2, style = line.style_dotted)
                    array.push(lns, ld)
                    lbd = label.new(vEind, doel, "1:1   " + str.tostring(R, format.mintick),
                         xloc = xloc.bar_time, yloc = yloc.price, style = label.style_label_left,
                         color = color.new(kDoel, 85), textcolor = kDoel, size = size.tiny)
                    array.push(lbs, lbd)
                string rt = (bull ? "LONG" : "SHORT") + "  " + vNaam + "  ·  " + confTF + "m close"
                lbe = label.new(time, instap, rt, xloc = xloc.bar_time, yloc = yloc.price,
                     style = bull ? label.style_label_up : label.style_label_down,
                     color = color.new(kr, 78), textcolor = kr, size = size.tiny)
                array.push(lbs, lbe)
                if not na(vBox)
                    box.set_border_color(vBox, kr)
                    box.set_border_width(vBox, 2)

    if not inVenster
        huidig := ""

    while array.size(lns) > bewaar * 5
        line.delete(array.shift(lns))
    while array.size(lbs) > bewaar * 3
        label.delete(array.shift(lbs))
    while array.size(bxs) > bewaar
        box.delete(array.shift(bxs))

// ── statusregel
var table tb = table.new(position.bottom_right, 1, 3, frame_width = 1,
     frame_color = color.new(#95a3ae, 40), border_width = 1, border_color = color.new(#95a3ae, 70))
if barstate.islast
    string r1 = inVenster ? vNaam + " actief" : "geen venster"
    string r2 = not inVenster ? "" : inRange ? "range vormt zich" : ri == 1 ? "LONG bevestigd" : ri == -1 ? "SHORT bevestigd" : "wacht op " + confTF + "m close"
    color  c2 = ri == 1 ? kBull : ri == -1 ? kBear : #5f7080
    table.cell(tb, 0, 0, r1, text_size = size.tiny, text_color = #14395b,
         bgcolor = color.new(#95a3ae, 88))
    table.cell(tb, 0, 1, r2, text_size = size.tiny, text_color = c2,
         bgcolor = color.new(#ffffff, 100))
    string r3 = confKan ? (offsetMin != 0 ? "CONTROLETEST +" + str.tostring(offsetMin) + "m" : "") : "chart te grof voor " + confTF + "m"
    table.cell(tb, 0, 2, r3, text_size = size.tiny,
         text_color = confKan ? #9c5a2d : #a33a3a, bgcolor = color.new(#ffffff, 100))