Please test it :)
study("MAcross tracker",overlay=true) k = ismonthly ? 'M' : isweekly ? 'W' : isdaily ? 'D' : '' ma_len = input(200) TW1=input('240') TW2=input('1D') TW3=input('1W') TW4=input('1M') Ins1 = input("FX:USDCAD") Ins2 = input("FX:AUDUSD") Ins3 = input("FX:EURUSD") Ins4 = input("FX:GBPUSD") signal(x,y)=> ma = security(y,x, sma(close,ma_len)) c = security(y,x, close) s = cross(ma,c) ? cross(ma,c) : na [s] [s1_TW1] = signal(TW1,Ins1) [s1_TW2] = signal(TW2,Ins1) [s1_TW3] = signal(TW3,Ins1) [s1_TW4] = signal(TW4,Ins1) [s2_TW1] = signal(TW1,Ins2) [s2_TW2] = signal(TW2,Ins2) [s2_TW3] = signal(TW3,Ins2) [s2_TW4] = signal(TW4,Ins2) [s3_TW1] = signal(TW1,Ins3) [s3_TW2] = signal(TW2,Ins3) [s3_TW3] = signal(TW3,Ins3) [s3_TW4] = signal(TW4,Ins3) [s4_TW1] = signal(TW1,Ins4) [s4_TW2] = signal(TW2,Ins4) [s4_TW3] = signal(TW3,Ins4) [s4_TW4] = signal(TW4,Ins4) hline(1,color=black,linewidth=2) plotshape(s1_TW1 ? 1 : na,style=shape.labeldown,color=#006600, textcolor=black,text='4h', location=location.absolute) plotshape(s1_TW2 ? 1 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1D', location=location.absolute) plotshape(s1_TW3 ? 1 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1W', location=location.absolute) plotshape(s1_TW4 ? 1 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1M', location=location.absolute) hline(2,color=black,linewidth=2) plotshape(s2_TW1 ? 2 : na,style=shape.labeldown,color=#006600, textcolor=black,text='4h', location=location.absolute) plotshape(s2_TW2 ? 2 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1D', location=location.absolute) plotshape(s2_TW3 ? 2 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1W', location=location.absolute) plotshape(s2_TW4 ? 2 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1M', location=location.absolute) hline(3,color=black,linewidth=2) plotshape(s3_TW1 ? 3 : na,style=shape.labeldown,color=#006600, textcolor=black,text='4h', location=location.absolute) plotshape(s3_TW2 ? 3 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1D', location=location.absolute) plotshape(s3_TW3 ? 3 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1W', location=location.absolute) plotshape(s3_TW4 ? 3 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1M', location=location.absolute) hline(4,color=black,linewidth=2) plotshape(s4_TW1 ? 4 : na,style=shape.labeldown,color=#006600, textcolor=black,text='4h', location=location.absolute) plotshape(s4_TW2 ? 4 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1D', location=location.absolute) plotshape(s4_TW3 ? 4 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1W', location=location.absolute) plotshape(s4_TW4 ? 4 : na,style=shape.labeldown,color=#006600, textcolor=black,text='1M', location=location.absolute) bgcolor(n>n[1] ? blue : gray)