hello guys,

this nice code is from nicolas. its a great indicator. but i cannot build it up for the pro screener so please help.

i wann search the highest indicator values of the last 12 nbr bars, to get the screenings result.

//PRC_Bull&Bear Volume on Price | indicator
//05.07.2018
//Nicolas @ www.prorealcode.com
//Sharing ProRealTime knowledge
 
defparam drawonlastbaronly=true
defparam calculateonlastbars=1000
 
// --- settings 
ScaleFactor = 5
NbrBars=12
lookback=200
// --- end of settings 
 
hh=highest[lookback](high)
ll=lowest[lookback](low)
div = (hh-ll)/NbrBars
i=0
volsum=summation[lookback](volume)
startbar = barindex[lookback]
while i<NbrBars do
 lrange=ll+div*i
 hrange=lrange+div
 volbull=0
 volbear=0
 for j = 1 to lookback do
  if close[j]>=lrange and close[j]<=hrange then
   if close[j]>open[j] then
    volbull=volbull+volume[j]
   else
    volbear=volbear+volume[j]
   endif
  endif
 next
 bullbar = round((volbull*lookback)/volsum)*scalefactor
 bearbar = round((volbear*lookback)/volsum)*scalefactor
 
 drawrectangle(startbar,lrange,startbar+bullbar,hrange) coloured(46,139,87)
 drawrectangle(startbar,lrange,startbar+bearbar,hrange) coloured(255,0,0)
 
 if bullbar>bearbar then 
  drawtext("■",startbar+bullbar,(lrange+hrange)/2,Dialog,Bold,22) coloured(46,139,87)
 else
  drawtext("■",startbar+bearbar,(lrange+hrange)/2,Dialog,Bold,22) coloured(255,0,0)
 endif
 i=i+1
wend
drawvline(barindex[lookback])
 
return 

here is my try but it doesnet work:

//PRC_Bull&Bear Volume on Price | indicator
//05.07.2018
//Nicolas @ www.prorealcode.com
//Sharing ProRealTime knowledge
 
defparam drawonlastbaronly=true
defparam calculateonlastbars=1000
 
// --- settings
ScaleFactor = 5
NbrBars=12
lookback=200
// --- end of settings
 
hh=highest[lookback](high)
ll=lowest[lookback](low)
div = (hh-ll)/NbrBars
i=0
volsum=summation[lookback](volume)
startbar = barindex[lookback]
while i<NbrBars do
lrange=ll+div*i
hrange=lrange+div
volbull=0
volbear=0
for j = 1 to lookback do
if close[j]>=lrange and close[j]<=hrange then
if close[j]>open[j] then
volbull=volbull+volume[j]
else
volbear=volbear+volume[j]
endif
endif
next
bullbar = round((volbull*lookback)/volsum)*scalefactor
bearbar = round((volbear*lookback)/volsum)*scalefactor
endif
 
c1 = highest[12](bullbar)[1] < bullbar
c2 highest[12](bearbar)[1] < beabar
c3 = c1 or c2
SCREENER[c3 ] sort by volume*close

thanks for help!

fehler.jpg