AccDist Divergence Scan

Sorry but I cannot think of a simple way to do this. Divergence takes a great deal of complexity to measure properly. But your approach is one that allows for a result that is far less precise than true divergence studies such as the ones we publish in our premium indicators page:

https://www.hahn-tech.com/premium-chart-indicators/

I was able to come up with a solution that finds the specific divergence pattern you have described in your question. Here is the code to achieve what you have requested:

input lookbackBars = 30;
def accDist = TotalSum(volume * CloseLocationValue());
def highestThirtyDay = Highest(accDist, lookbackBars);
def maxAccDistOffset = GetMaxValueOffset(accDist, lookbackBars);
def closeAtMaxAccDist = GetValue(close, maxAccDistOffset);
def valueDiffAccDist = highestThirtyDay - accDist;
def valueDiffClose = closeAtMaxAccDist - close;
plot scan = close > valueDiffClose and valueDiffClose < 0 and valueDiffAccDist > 0;

I am including two screenshots below. One that shows the result of this piece of code. (dashed yellow trendlines were drawn by hand). The blue line on the lower subgraph below the AccDist indicator shows the places where this scan will return a true result.

For reference I am also included a screenshot showing our premium divergence study based on the MACD. (solid yellow line is drawn by the code automatically) We can also make customized versions of these premium divergence indicators. AccDist is a candidate for just this sort of customization.