Eccolo modificato:

DEFPARAM CalculateOnLastBars = 20000
 
//text color
// white = 255,255,255 ; black = 0,0,0
 
atr = averagetruerange[10](close)*0.5              //offset per il display di frecce e nomi sul grafico dei prezzi

Corpo    = abs(close - open)
Distanza = 1 * PipSize

x = 0

oo = 2.65
cc = 1.35

data8=(close[1] > open[1] and open > close and open >= close[1] and open[1] >= close and open - close > close[1] - open[1] )
data9=(open[1] > close[1] and close > open and close >= open[1] and close[1] >= open and close - open > open[1] - close[1] )

if data8 then
x = 4
r = 34
g = 139
b = 34
DrawCandle(OO,oo,cc,cc) coloured(r,g,b,255)
//DRAWTEXT("Bearish Engulfing", barindex, high+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10)// Verde
//DRAWARROWDOWN(barindex,high) COLOURED(255,0,10)//(VERDE)
elsif data9 then
x = 4
r = 255
g = 0
b = 255
DrawCandle(oo,oo,cc,cc) coloured(r,g,b,255)
//DRAWTEXT("Bullish Engulfing", barindex, low-atr*1.5, Dialog, Standard, 12) COLOURED(0,255,10)//Fuxia scuro
//DRAWARROWUP(barindex,low) COLOURED(0,255,10)//(FUXIA)
ELSE
Man1 = range >= (Corpo[1] - Distanza)                  //1 punto di tolleranza
Man2 = high >= (max(open[1],close[1]) - Distanza)
Man3 = low  <= (min(open[1],close[1]) + Distanza)
MAN  = Man1 AND Man2 AND Man3
IF MAN THEN
DrawText("M",barindex,2.5) coloured(0,0,0,255)
DrawText("A",barindex,2.0) coloured(0,0,0,255)
DrawText("N",barindex,1.5) coloured(0,0,0,255)
ENDIF
ENDIF
RETURN// x COLOURED(r,g,b) STYLE(histogram,1)