There you go:

// 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")

x-23.jpg