Conversion of adx and di indicator

 I want an adx and di indicator to place alerts based on heieken ashi data, buy condition would be DI +ve crosses up DI -ve, sell condition will be DI -ve crosses up DI +ve.

i have made two circles, DI+ve is green DI -ve is red, now you understand? AGAIN AS ABOVE, ONLY WORKS ON HEIKEN ashi, so code heiken ashi so that this indicator bases data from within the charts, and alert will ONLY BE GENERATED AT BAR CLOSURE, hence the trade will be executed on the new bar  forming provided that the condition is met. Mt4 doesnt support heiken ashi hence i am saying that i only want heiken ashi chart data to be used to generate the above. I am attaching the code below to be used to convert it into mt4 indicator. 

In the pic that i have attached DI+ve is the green line, DI-ve is the red line

study("ADX and DI")

len = input(title="Length", type=integer, defval=3)

len1 = input(title="Length1", type=integer, defval=1)

th = input(title="threshold", type=integer, defval=20)

TrueRange = max(max(high-low, abs(high-nz(close[1]))), abs(low-nz(close[1])))

DirectionalMovementPlus = high-nz(high[1]) > nz(low[1])-low ? max(high-nz(high[1]), 0): 0

DirectionalMovementMinus = nz(low[1])-low > high-nz(high[1]) ? max(nz(low[1])-low, 0): 0

SmoothedTrueRange = nz(SmoothedTrueRange[1]) - (nz(SmoothedTrueRange[1])/len) + TrueRange

SmoothedDirectionalMovementPlus = nz(SmoothedDirectionalMovementPlus[1]) - (nz(SmoothedDirectionalMovementPlus[1])/len) + DirectionalMovementPlus

SmoothedDirectionalMovementMinus = nz(SmoothedDirectionalMovementMinus[1]) - (nz(SmoothedDirectionalMovementMinus[1])/len) + DirectionalMovementMinus

DIPlus = SmoothedDirectionalMovementPlus / SmoothedTrueRange * 100

DIMinus = SmoothedDirectionalMovementMinus / SmoothedTrueRange * 100

DX = abs(DIPlus-DIMinus) / (DIPlus+DIMinus)*100

ADX = sma(DX, len)

//Skuska

crosscall = (DIPlus > DIMinus)

crossput = (DIMinus > DIPlus)

DIPcross = sma(crosscall, len1)

DIPput = sma(crossput, len1)

DIPOVB = (DIPlus > 60)

DIMOVS = (DIMinus > 60)

bgcolor(DIMOVS ? lime : na, transp=40)

bgcolor(DIPOVB ? orange : na, transp=20)

plot(DIPlus, color=green, linewidth=3, title="DI+")

plot(DIMinus, color=red, linewidth=3, title="DI-")

plot(ADX, color=white, linewidth=1, title="ADX")

hline(th, color=white, linewidth=1, linestyle=dashed)

bgcolor(DIPcross ? green : na, transp=60)

bgcolor(DIPput ? red : na, transp=60)