Price Levels Wall

//version=6
indicator("Price Levels From File", overlay = true)

// === Public parameters ===

string fileContent = input.text_area("Contenu du fichier", "Collez le contenu de Niveaux.txt ici")

color minColor = input.color(color.new(color.green, 0), "Couleur Min", group = "Couleurs")
color maxColor = input.color(color.new(color.red, 0), "Couleur Max", group = "Couleurs")
color acheteursColor = input.color(color.new(color.lime, 0), "Couleur Acheteurs", group = "Couleurs")
color vendeursColor = input.color(color.new(color.orange, 0), "Couleur Vendeurs", group = "Couleurs")
color wallUpperColor = input.color(color.new(color.fuchsia, 0), "Couleur Wall Upper", group = "Couleurs")
color wallMidColor = input.color(color.new(color.gray, 0), "Couleur Wall Mid", group = "Couleurs")
color controlMidColor = input.color(color.new(color.green, 0), "Couleur Control Mid", group = "Couleurs")
color wallLowerColor = input.color(color.new(color.aqua, 0), "Couleur Wall Lower", group = "Couleurs")
color highlightColor = input.color(color.new(#FFFF00, 88), "Couleur Highlight", group = "Couleurs")

int lineWidth = input.int(2, "Épaisseur ligne", group = "Apparence")

bool enableMinMinEventHighlight = input.bool(true, "Highlight Min–Min Event", group = "Options")
bool enableMaxMaxEventHighlight = input.bool(true, "Highlight Max–Max Event", group = "Options")

// === Private fields ===

var array<float> prices = array.new<float>()
var array<string> labels = array.new<string>()
var array<color> colors = array.new<color>()

var float minOneDayLevel = na
var float maxOneDayLevel = na
var float minEventLevel = na
var float maxEventLevel = na

var bool initialized = false

// === Helper functions ===

tryParse(string s) =>
string s_replaced = str.replace_all(s, ",", ".")
float val = str.tonumber(s_replaced)
na(val) ? na : val

trim(string s) =>
string res = s
while str.length(res) > 0 and (str.substring(res, 0, 1) == " " or str.substring(res, 0, 1) == "\t")
res := str.substring(res, 1)
while str.length(res) > 0 and (str.substring(res, str.length(res) - 1) == " " or str.substring(res, str.length(res) - 1) == "\t")
res := str.substring(res, 0, str.length(res) - 1)
res

extractValue(string line) =>
int colonIdx = str.pos(line, ":")
if colonIdx == -1
na
else
string valueStr = str.substring(line, colonIdx + 1)
valueStr := trim(valueStr)
tryParse(valueStr)

// === Parsing ===

if not initialized and barstate.islast
initialized := true

array<string> rawLines = str.split(fileContent, "\n")

for i = 0 to array.size(rawLines) - 1
string raw = array.get(rawLines, i)
string line = trim(raw)

if line == ""
continue

string lower = str.lower(line)

// Extract levels based on keywords
if str.contains(lower, "max event")
maxEventLevel := extractValue(line)
else if str.contains(lower, "max 1d")
maxOneDayLevel := extractValue(line)
else if str.contains(lower, "wall upper")
float val = extractValue(line)
if not na(val)
array.push(prices, val)
array.push(labels, "Wall Upper")
array.push(colors, wallUpperColor)
else if str.contains(lower, "buyers ctrl")
float val = extractValue(line)
if not na(val)
array.push(prices, val)
array.push(labels, "Buyers Ctrl")
array.push(colors, acheteursColor)
else if str.contains(lower, "wall mid")
float val = extractValue(line)
if not na(val)
array.push(prices, val)
array.push(labels, "Wall Mid")
array.push(colors, wallMidColor)
else if str.contains(lower, "control mid")
float val = extractValue(line)
if not na(val)
array.push(prices, val)
array.push(labels, "Control Mid")
array.push(colors, controlMidColor)
else if str.contains(lower, "sellers ctrl")
float val = extractValue(line)
if not na(val)
array.push(prices, val)
array.push(labels, "Sellers Ctrl")
array.push(colors, vendeursColor)
else if str.contains(lower, "wall lower")
float val = extractValue(line)
if not na(val)
array.push(prices, val)
array.push(labels, "Wall Lower")
array.push(colors, wallLowerColor)
else if str.contains(lower, "min 1d")
minOneDayLevel := extractValue(line)
else if str.contains(lower, "min event")
minEventLevel := extractValue(line)

// Add special levels
if not na(maxOneDayLevel)
array.push(prices, maxOneDayLevel)
array.push(labels, "Max 1D")
array.push(colors, maxColor)
if not na(maxEventLevel)
array.push(prices, maxEventLevel)
array.push(labels, "Max Event")
array.push(colors, maxColor)
if not na(minOneDayLevel)
array.push(prices, minOneDayLevel)
array.push(labels, "Min 1D")
array.push(colors, minColor)
if not na(minEventLevel)
array.push(prices, minEventLevel)
array.push(labels, "Min Event")
array.push(colors, minColor)

// === Rendering ===

var box minBand = na
var box maxBand = na

if barstate.islast and initialized
if enableMinMinEventHighlight and not na(minOneDayLevel) and not na(minEventLevel) and na(minBand)
float top = math.max(minOneDayLevel, minEventLevel)
float bottom = math.min(minOneDayLevel, minEventLevel)
minBand := box.new(left = bar_index, top = top, right = bar_index + 1, bottom = bottom, xloc = xloc.bar_index, extend = extend.both, bgcolor = highlightColor, border_width = 0)

if enableMaxMaxEventHighlight and not na(maxOneDayLevel) and not na(maxEventLevel) and na(maxBand)
float top = math.max(maxOneDayLevel, maxEventLevel)
float bottom = math.min(maxOneDayLevel, maxEventLevel)
maxBand := box.new(left = bar_index, top = top, right = bar_index + 1, bottom = bottom, xloc = xloc.bar_index, extend = extend.both, bgcolor = highlightColor, border_width = 0)

var array<line> hlines = array.new<line>()
var array<label> rightLabels = array.new<label>()

if barstate.islast and initialized and array.size(hlines) == 0
for i = 0 to array.size(prices) - 1
float p = array.get(prices, i)
string lbl = array.get(labels, i)
color col = array.get(colors, i)

line hl = line.new(bar_index, p, bar_index + 1, p, xloc = xloc.bar_index, extend = extend.both, color = col, width = lineWidth)
array.push(hlines, hl)

string labelText = lbl + " " + str.tostring(p)
label rightLbl = label.new(bar_index + 1, p, labelText, xloc = xloc.bar_index, yloc = yloc.price, style = label.style_label_right, color = na, textcolor = col, size = size.small)
array.push(rightLabels, rightLbl)

if barstate.islast
for i = 0 to array.size(rightLabels) - 1
label.set_x(array.get(rightLabels, i), bar_index + 1)