Eccolo:

ONCE Period      = 14
ONCE BullishFalg = 0
ONCE BearishFalg = 0
ONCE OuvertureHA = (open + close + high + low)/4
ONCE ClotureHA   = (open + close)/2
ONCE PlusBasHA   = high
ONCE PlusHautHA  = low
OuvertureHA      = (OuvertureHA + ClotureHA)/2
ClotureHA        = (open + close + high + low)/4
PlusBasHA        = MIN(MIN(OuvertureHA,ClotureHA),low)
PlusHautHA       = MAX(MAX(OuvertureHA,ClotureHA),high)
myRSI            = rsi[period](ClotureHA)
if myRSI > 50 then
   IF myRSI[1] <= 50 THEN
      BullishFlag = 0
   ENDIF
   DRAWCANDLE (ouvertureHA, plushautHA, plusbasHA, clotureHA) COLOURED (100,200,100)
   IF BullishFlag = 0 AND (PlusBasHA = OuvertureHA) THEN
      DRAWCANDLE (ouvertureHA, plushautHA, plusbasHA, clotureHA) COLOURED ("Cyan")
      BullishFlag = 1
   ENDIF
elsif myRSI < 50 then
   IF myRSI[1] >= 50 THEN
      BearishFlag = 0
   ENDIF
   DRAWCANDLE (ouvertureHA, plushautHA, plusbasHA, clotureHA) COLOURED (200,100,100)
   IF BearishFlag = 0 AND PlusHautHA = OuvertureHA THEN
      DRAWCANDLE (ouvertureHA, plushautHA, plusbasHA, clotureHA) COLOURED ("Fuchsia")
      BearishFlag = 1
   ENDIF
else
   DRAWCANDLE (ouvertureHA, plushautHA, plusbasHA, clotureHA) COLOURED (100,100,100)
   BullishFlag = 0
   BearishFlag = 0
endif
RETURN