// 1 = ↑
// 2 = ↓
// 9 = no signal on that TF
//
// 4 = 4-hour TF
// H = 1-hour TF
// 1 = 15-minute TF
// 5 = 5-minute TF
//
TIMEFRAME(4 hour)
Xrs = RSI[7](close)
Xema50 = ExponentialAverage[50](close)
Xema200 = ExponentialAverage[200](close)
Xb = Xrs[1] crosses over 30
Xx1 = Xema50[1] > Xema200[1]
Xd = Xrs[1] crosses under 70
Xx2 = Xema50[1] < Xema200[1]
XSignal= 9000
IF Xb and Xx1 THEN
XSignal = 1000
ELSIF Xd and Xx2 THEN
XSignal = 2000
ENDIF
//
TIMEFRAME(1 hour)
Yrs = RSI[7](close)
Yema50 = ExponentialAverage[50](close)
Yema200 = ExponentialAverage[200](close)
Yb = Yrs[1] crosses over 30
YY1 = Yema50[1] > Yema200[1]
Yd = Yrs[1] crosses under 70
YY2 = Yema50[1] < Yema200[1]
YSignal= 900
IF Yb and YY1 THEN
YSignal = 100
ELSIF Yd and YY2 THEN
YSignal = 200
ENDIF
//
TIMEFRAME(15 minute)
Zrs = RSI[7](close)
Zema50 = ExponentialAverage[50](close)
Zema200 = ExponentialAverage[200](close)
Zb = Zrs[1] crosses over 30
ZZ1 = Zema50[1] > Zema200[1]
Zd = Zrs[1] crosses under 70
ZZ2 = Zema50[1] < Zema200[1]
ZSignal= 90
IF Zb and ZZ1 THEN
ZSignal = 10
ELSIF Zd and ZZ2 THEN
ZSignal = 20
ENDIF
//
TIMEFRAME(5 minute)
Wrs = RSI[7](close)
Wema50 = ExponentialAverage[50](close)
Wema200 = ExponentialAverage[200](close)
Wb = Wrs[1] crosses over 30
WW1 = Wema50[1] > Wema200[1]
Wd = Wrs[1] crosses under 70
WW2 = Wema50[1] < Wema200[1]
WSignal= 9
IF Wb and WW1 THEN
WSignal = 1
ELSIF Wd and WW2 THEN
WSignal = 2
ENDIF
//
TIMEFRAME(default)
Signal = XSignal + YSignal + ZSignal + WSignal
IF Signal = 9999 THEN
Signal = 0
ENDIF
SCREENER[Signal](Signal AS "1=↑,2=↓/4H15")