#First X Minute Heiken Ashi Green Candle Strategy V1
#Identifies the first X Minute Green HA Candle after a sell off of X Candles and then buys the first open of the second X Minute Green HA Candle after the first oen has closed

input tradeSize = 1;
input TimeframeMin = 15;
input offsetType = {default percent, value, tick};
input stop = 1;
#input CountPriorRedCandles = 4;
input CandleType = "HA";
input RSIDaverageType = AverageType.HULL;
input ExitRSI = 80;

#Determina if Current Candle is Green
def HAopenCurrent =(open[1] + close[1])/2;
def HAcloseCurrent = (open + high + low + close)/4;
def HAhighCurrent = high;
def HAlowCurrent = low;
def RedCandleCurrent = HAcloseCurrent < HAopenCurrent ;
def GreenCandleCurrent =  HAcloseCurrent > HAopenCurrent;

# determine if prior candle was RED
def HAopenPrior1 =(open[2] + close[2])/2;
def HAclosePrior1 = (open[1] + high[1] + low[1] + close[1])/4;
def HAhighPrior1 = high[1];
def HAlowCPrior1 = low[1]; 
def RedCandlePrior1 = HAclosePrior1 < HAopenPrior1;

# buy if then current  candle is green and the prior (x) candle is red
def buysignal =  (RedCandlePrior1 is true  and GreenCandleCurrent is true);

addOrder(OrderType.BUY_TO_OPEN, buysignal, open[-1], tradeSize, Color.GREEN, Color.GREEN, name = "Entry");

def exit =  RSI(AverageType = RSIDaverageType)."RSI" crosses above ExitRSI;


def entryPrice = entryPrice();
def mult;
switch (offsetType) {
case percent:
    mult = entryPrice / 100;
case value:
    mult = 1;
case tick:
    mult = TickSize();
}
def stopPrice = entryPrice - stop * mult;

AddOrder(OrderType.SELL_TO_CLOSE, condition = exit, price = open[-1], tradeSize = tradeSize, tickcolor = GetColor(3), arrowcolor = GetColor(3), name = "Exit");

AddOrder(OrderType.SELL_TO_CLOSE, low <= stopPrice, tickcolor = GetColor(5), arrowcolor = GetColor(5), name = "S/L");