// it will return two chatacters, one for each different screener, the rightmost for the first screener (engulfing
// patterns) and the leftmost for the second screener (crossings)
//
// For each one of the above two it will either return:
// 1 = long
// 2 = short
//
// So you may have these 8 combinations (9=zero, just to avoid it from being dropped):
//
// 91 = No crossing and Engulfing is Bullish
// 92 = No crossing and Engulfing is Bearish
// 10 = Crossover and NO Engulfing
// 20 = CrossUnder and NO Engulfing
// 11 = CrossOver and Bullish Engulfing
// 12 = CrossOver and Bearish Engulfing
// 21 = CrossUnder and Bullish Engulfing
// 22 = CrossUnder and Bearish Engulfing
//
Bullish = close > open
Bearish = close < open
Body = abs(open - close)
BullishEngulfing = (Bullish AND Bearish[1]) AND (Body > Body[1]) AND (open <= close[1]) AND (close >= open[1])
BearishEngulfing = (Bearish AND Bullish[1]) AND (Body > Body[1]) AND (open >= close[1]) AND (close <= open[1])
CrossOver = close CROSSES OVER Average[200,0](close)
CrossUnder = close CROSSES UNDER Average[200,0](close)
Result = 0
IF BullishEngulfing THEN
Result = Result = 1
ELSIF BearishEngulfing THEN
Result = Result + 2
ENDIF
IF CrossOver THEN
Result = Result + 10
ELSIF CrossUnder THEN
Result = Result + 20
ENDIF
IF (Result > 0) AND (Result < 10) THEN
Result = Result + 90
ENDIF
SCREENER[Result](Result AS "1=↑,2=↓")