İtalyan Ghost

hier

// © informanerd
//version=5

maxBoxes = 500
indicator("İtalyan Ghost", "", true, max_boxes_count = maxBoxes)

htf = input.timeframe("", "Zaman Dilimi")
appearGroup = "===============[ MUM RENKLERİ ]==============="
thickWick = input.bool(true, "RENKLER", group = appearGroup)
ascColor = input.color(color.green, "Rengini Seç →   Bull:", inline = "color", group = appearGroup)
descColor = input.color(color.white, "  Bear:", inline = "color", group = appearGroup)
bodyTrans = input.int(100, "Transparency →   Mum Gövdesi:", 0, 100, 10, inline = "trans", group = appearGroup)
wickTrans = input.int(90, "  Mum İğnesi:", 0, 100, 10, inline = "trans", group = appearGroup)

ctfCandleDeltaTime = switch
timeframe.isseconds => timeframe.multiplier * 1000
timeframe.isminutes => timeframe.multiplier * 1000 * 60
timeframe.isdaily => timeframe.multiplier * 1000 * 60 * 1440
timeframe.isweekly => timeframe.multiplier * 1000 * 60 * 1440 * 7
timeframe.ismonthly => timeframe.multiplier * 1000 * 60 * 1440 * 30

var bodies = array.new_box()
var wicks = array.new_box()
var color bodyColor = na
var color wickColor = na

[htfO, htfH, htfL, htfC, htfOpenTime, htfCloseTime] = request.security("", htf, [open, high, low, close, time, time_close])

if bodies.size() > 0 and htfOpenTime == htfOpenTime[1]
bodies.pop().delete()
wicks.pop().delete()
if bodies.size() == maxBoxes / 2
bodies.shift().delete()
wicks.shift().delete()

bodyTop = math.max(htfO, htfC)
bodyBottom = math.min(htfO, htfC)
wickLeft = htfOpenTime + ((htfCloseTime - htfOpenTime) / 2) - ctfCandleDeltaTime
wickRight = htfCloseTime - ((htfCloseTime - htfOpenTime) / 2) + (ctfCandleDeltaTime / 2)
bodyColor := htfO > htfC ? color.new(descColor, bodyTrans) : htfO < htfC ? color.new(ascColor, bodyTrans) : bodyColor
wickColor := htfO > htfC ? color.new(descColor, wickTrans) : htfO < htfC ? color.new(ascColor, wickTrans) : wickColor

bodies.push(box.new(htfOpenTime, bodyTop, htfCloseTime, bodyBottom, bodyTop == bodyBottom ? bodyColor : na, xloc = xloc.bar_time, bgcolor = bodyColor))
wicks.push(box.new(thickWick ? htfOpenTime : wickLeft, htfH, thickWick ? htfCloseTime : wickRight, htfL, na, xloc = xloc.bar_time, bgcolor = wickColor))