Da ist er:
ONCE TF = GetTimeFrame
ONCE limitday = 215500
ONCE openTrueDay = 090000
ONCE BOXstart = 220000
ONCE BOXend = 075500
if TF <= 3600 then
//----------------------------------------------//
//-------- NIGHT Box --------------------//
//----------------------------------------------//
IF ShowNight THEN
ONCE BOXmax = high
ONCE BOXmin = low
ONCE prevBOXlow = low
ONCE prevBOXhigh = high
ONCE BOXStartBar = BarIndex
ONCE BOXEndBar = BarIndex
ONCE PlotLineL = 1
ONCE PlotLineS = 1
IF (OpenTime >= BOXstart) OR (OpenTime <= BOXend) THEN
IF (OpenTime = BOXstart) THEN
BOXmax = high
BOXmin = low
BOXStartBar = BarIndex
ENDIF
BOXmax = max(BOXmax,high)
BOXmin = min(BOXmin,low)
BOXEndBar = BarIndex
IF (OpenTime = BOXend) THEN
prevBOXmin = BOXmin
prevBOXmax = BOXmax
DrawRectangle(BOXStartBar,prevBOXmax ,BOXEndBar,prevBOXmin) style(Line,5) coloured("black",25) FillColor("black",25)
PlotLineL = 1
PlotLineS = 1
IF ShowMidLine THEN
MidRange = (prevBOXmax - prevBOXmin) / 2
MidPrice = prevBOXmin + MidRange
drawsegment(BOXStartBar,MidPrice,BOXEndBar,MidPrice)coloured("black") style(dottedline,2)
ENDIF
drawtext("H:#prevBOXmax#",BOXStartBar+25,prevBOXmax+0.4*tr)
drawtext("L:#prevBOXmin#",BOXStartBar+25,prevBOXmin-0.4*tr)
prevBOXEndBar = BOXEndBar
ENDIF
ELSE
IF PlotLineL OR PlotLineS THEN
if low crosses under prevBOXmin AND PlotLineL then //dieser Satz sorgt für das Ende bei Berührung
drawsegment(prevBOXEndBar,prevBOXmin,barindex,prevBOXmin)coloured("black",alpha3)style(line,2)
prevBOXmin=0
PlotLineL =0
elsif opentime=limitday and prevBOXmin<>0 then
drawsegment(prevBOXEndBar,prevBOXmin,barindex,prevBOXmin)coloured("black",alpha3)style(line,2)
prevBOXmin=0
elsif islastbarupdate and prevBOXmin<>0 then
drawsegment(prevBOXEndBar,prevBOXmin,barindex,prevBOXmin)coloured("black",alpha3)style(line,2)
endif
if high crosses over prevBOXmax AND PlotLineS then
drawsegment(prevBOXEndBar,prevBOXmax,barindex,prevBOXmax)coloured ("black",alpha3)style(line,2)
prevHighLO=0
PlotLineS =0
elsif opentime=limitday and prevBOXmax<>0 then
elsif opentime=limitday then
drawsegment(prevBOXEndBar,prevBOXmax,barindex,prevBOXmax)coloured("black",alpha3)style(line,2)
prevHighLO=0
elsif islastbarupdate and prevBOXmax<>0 then
drawsegment(prevBOXEndBar,prevBOXmax,barindex,prevBOXmax)coloured ("black",alpha3)style(line,2)
endif
ENDIF
ENDIF
endif
Start3 = 080000
End3 = 224500 //173000
alpha3 = 255 * (time > start3 and time <= end3)
endif
return
