Here we have a very simple indicator that shows the direction of the candles in the 1m/5m/15m/30m/1hr/4hr/1d/1w/1mt timeframes.

Important: the indicator only works on the smaller timeframe so if for example we use 30 minute candles then we must remove the lines of code for 1m/5m/15m

//PRC_CANDLE DIRECTION
//version = 0
//15.02.24
//Iván González @ www.prorealcode.com
//Sharing ProRealTime knowledge
//Timeframe M1 / M5 / M15 / M30 / H1 / H4 / D1 / W1 / MN
//////////////////////////////////////////////////////////
DEFPARAM DRAWONLASTBARONLY = TRUE
timeframe (1mn)
IF OPEN > CLOSE THEN
RT1M = 255
GT1M = 0
BT1M = 0
ELSIF OPEN < CLOSE THEN
RT1M = 0
GT1M = 255
BT1M = 0
ELSE
RT1M = 125
GT1M = 125
BT1M = 125
ENDIF
DRAWTEXT("⏹ 1MN",50, -100)ANCHOR(TOPLEFT,XSHIFT,YSHIFT)coloured(RT1M,GT1M,BT1M)
timeframe (5mn)
IF OPEN > CLOSE THEN
RT5M = 255
GT5M = 0
BT5M = 0
ELSIF OPEN < CLOSE THEN
RT5M = 0
GT5M = 255
BT5M = 0
ELSE
RT5M = 125
GT5M = 125
BT5M = 125
ENDIF
DRAWTEXT("⏹ 5MN",125, -100)ANCHOR(TOPLEFT,XSHIFT,YSHIFT)coloured(RT5M,GT5M,BT5M)
timeframe (15mn)
IF OPEN > CLOSE THEN
RT15M = 255
GT15M = 0
BT15M = 0
ELSIF OPEN < CLOSE THEN
RT15M = 0
GT15M = 255
BT15M = 0
ELSE
RT15M = 125
GT15M = 125
BT15M = 125
ENDIF
DRAWTEXT("⏹ 15MN",200, -100)ANCHOR(TOPLEFT,XSHIFT,YSHIFT)coloured(RT15M,GT15M,BT15M)
timeframe (30mn)
IF OPEN > CLOSE THEN
RT30M = 255
GT30M = 0
BT30M = 0
ELSIF OPEN < CLOSE THEN
RT30M = 0
GT30M = 255
BT30M = 0
ELSE
RT30M = 125
GT30M = 125
BT30M = 125
ENDIF
DRAWTEXT("⏹ 30MN",275, -100)ANCHOR(TOPLEFT,XSHIFT,YSHIFT)coloured(RT30M,GT30M,BT30M)
timeframe (1H)
IF OPEN > CLOSE THEN
RT1H = 255
GT1H = 0
BT1H = 0
ELSIF OPEN < CLOSE THEN
RT1H = 0
GT1H = 255
BT1H = 0
ELSE
RT1H = 125
GT1H = 125
BT1H = 125
ENDIF
DRAWTEXT("⏹ 1HR",350, -100)ANCHOR(TOPLEFT,XSHIFT,YSHIFT)coloured(RT1H,GT1H,BT1H)
timeframe (4H)
IF OPEN > CLOSE THEN
RT4H = 255
GT4H = 0
BT4H = 0
ELSIF OPEN < CLOSE THEN
RT4H = 0
GT4H = 255
BT4H = 0
ELSE
RT4H = 125
GT4H = 125
BT4H = 125
ENDIF
DRAWTEXT("⏹ 4HR",425, -100)ANCHOR(TOPLEFT,XSHIFT,YSHIFT)coloured(RT4H,GT4H,BT4H)
timeframe (DAILY)
IF OPEN > CLOSE THEN
RT1D = 255
GT1D = 0
BT1D = 0
ELSIF OPEN < CLOSE THEN
RT1D = 0
GT1D = 255
BT1D = 0
ELSE
RT1D = 125
GT1D = 125
BT1D = 125
ENDIF
DRAWTEXT("⏹ 1D",500, -100)ANCHOR(TOPLEFT,XSHIFT,YSHIFT)coloured(RT1D,GT1D,BT1D)
timeframe (WEEKLY)
IF OPEN > CLOSE THEN
RT1W = 255
GT1W = 0
BT1W = 0
ELSIF OPEN < CLOSE THEN
RT1W = 0
GT1W = 255
BT1W = 0
ELSE
RT1W = 125
GT1W = 125
BT1W = 125
ENDIF
DRAWTEXT("⏹ 1W",575, -100)ANCHOR(TOPLEFT,XSHIFT,YSHIFT)coloured(RT1W,GT1W,BT1W)
timeframe (MONTHLY)
IF OPEN > CLOSE THEN
RT1MT = 255
GT1MT = 0
BT1MT = 0
ELSIF OPEN < CLOSE THEN
RT1MT = 0
GT1MT = 255
BT1MT = 0
ELSE
RT1MT= 125
GT1MT = 125
BT1MT = 125
ENDIF
DRAWTEXT("⏹ 1M",650, -100)ANCHOR(TOPLEFT,XSHIFT,YSHIFT)coloured(RT1MT,GT1MT,BT1MT)

RETURN