Offset = average[100,0](range)
Ema50 = Average[50,1](close)
EmaUP = Ema50 > Ema50[1]
EmaDN = Ema50 < Ema50[1]
Bullish = close > open
Bearish = close < open
Bulls = 0
Bears = 0
hh = 9999999
ll = 0
FOR i = 0 TO BarIndex
IF Bullish[i] AND (Bulls < 5) THEN
Bulls = Bulls + 1
ll = max(ll,low[i])
ENDIF
IF Bearish[i] AND (Bears < 5) THEN
Bears = Bears + 1
hh = min(hh,high[i])
ENDIF
IF (Bulls >= 5) AND (Bears >= 5) THEN
Break
ENDIF
NEXT
IF Bullish AND EmaUP THEN
IF close CROSSES OVER ll THEN
DrawArrowUP(BarIndex,low - Offset) coloured(0,128,0,150)
ENDIF
ENDIF
IF Bearish AND EmaDN THEN
IF close CROSSES UNDER hh THEN
DrawArrowDOWN(BarIndex,high + Offset) coloured(255,0,0,255)
ENDIF
ENDIF
RETURN hh coloured(255,0,0,255) style(line,2) AS "SHORT entry",ll coloured(0,128,0,140) style(line,2) AS "LONG entry"