//+------------------------------------------------------------------+
//|                                                  Fabularasa.mq4 |
//|                                                      Fabularasa |
//|                                                                  |
//+------------------------------------------------------------------+

#property copyright "Fabularasa"
#property copyright "X"
#property indicator_separate_window
#property indicator_buffers 2
#property indicator_levelcolor DarkSlateGray
#property indicator_color1 Blue
#property indicator_color2 Gold
#property indicator_levelcolor DarkSlateGray

bool Side = True;
extern int Y = 5;
extern int X = 5;
extern color BarLabel_color = DarkGreen;
extern int barsPerTimeFrame =1000;


double rsi[], ema[],rsiTF1[],
      emaTF1,
      rsiTF5[],
      emaTF5,
      rsiTF15[],
      emaTF15,
      rsiTF30[],
      emaTF30,
      rsiTF1H[],
      emaTF1H,
      rsiTF4H[],
      emaTF4H;

int init()
{

if ( barsPerTimeFrame > 3000 ) barsPerTimeFrame = 3000;

  IndicatorBuffers(8);

  SetIndexStyle (0, DRAW_LINE,Blue);
  SetIndexStyle (1, DRAW_LINE,Green);
  SetIndexBuffer(0, rsi);
  SetIndexBuffer(1, ema);
  SetIndexBuffer(2,rsiTF1);
  SetIndexBuffer(3,rsiTF5);
  SetIndexBuffer(4,rsiTF15);
  SetIndexBuffer(5,rsiTF30);
  SetIndexBuffer(6,rsiTF1H); 
  SetIndexBuffer(7,rsiTF4H); 

    
  return(0);
}


int deinit()
{
ObjectDelete("NumberRsi");
ObjectDelete("RSI1");
ObjectDelete("RSI5");
ObjectDelete("RSI15");
ObjectDelete("RSI30");
ObjectDelete("RSI1H");
ObjectDelete("RSI4H");

return(0);
}





int start()
{

int limit = Bars;


for(int b=0; b<barsPerTimeFrame; b++)
rsi[b] = iRSI(Symbol(),0,34,PRICE_CLOSE,b);

for(int c=0; c<barsPerTimeFrame; c++)
ema[c] = iMAOnArray(rsi,0,8,0,MODE_EMA,c);

for(int a1=0; a1<barsPerTimeFrame; a1++)
  { 
      rsiTF1[a1] = iRSI(Symbol(),1,14,PRICE_CLOSE,a1);
      rsiTF5[a1] = iRSI(Symbol(),5,14,PRICE_CLOSE,a1);
      rsiTF15[a1] = iRSI(Symbol(),15,14,PRICE_CLOSE,a1);
      rsiTF30[a1] = iRSI(Symbol(),30,14,PRICE_CLOSE,a1);
      rsiTF1H[a1] = iRSI(Symbol(),60,14,PRICE_CLOSE,a1);
      rsiTF4H[a1] = iRSI(Symbol(),240,14,PRICE_CLOSE,a1);
      //rsi[a1] = iRSI(Symbol(),0,14,PRICE_CLOSE,a1);
  }


emaTF1 = iMAOnArray(rsiTF1,0,8,0,MODE_EMA,0);
emaTF5 = iMAOnArray(rsiTF5,0,8,0,MODE_EMA,0);
emaTF15= iMAOnArray(rsiTF15,0,8,0,MODE_EMA,0);
emaTF30= iMAOnArray(rsiTF30,0,8,0,MODE_EMA,0);
emaTF1H= iMAOnArray(rsiTF1H,0,8,0,MODE_EMA,0);
emaTF4H= iMAOnArray(rsiTF4H,0,8,0,MODE_EMA,0);

string EMA1 = emaTF1;
string EMA5 = emaTF5;
string EMA15 = emaTF15;
string EMA30 = emaTF30;
string EMA1H = emaTF1H;
string EMA4H = emaTF4H;

Write("NumberRsi", Side, X+12, Y, "M1     M5     M15     M30     H1     H4", 6, "Tahoma Narrow", BarLabel_color);
Write("RSI1",  Side, X+5 , Y+10, StringSubstr(EMA1,0,5),  6, "Tahoma Narrow", White);
Write("RSI5",  Side, X+29,  Y+10, StringSubstr(EMA5,0,5),  6, "Tahoma Narrow", White);
Write("RSI15", Side, X+51,  Y+10, StringSubstr(EMA15,0,5), 6, "Tahoma Narrow", White);
Write("RSI30", Side, X+74,  Y+10, StringSubstr(EMA30,0,5), 6, "Tahoma Narrow", White);
Write("RSI1H", Side, X+97,  Y+10, StringSubstr(EMA1H,0,5), 6, "Tahoma Narrow", White);
Write("RSI4H", Side, X+120,  Y+10, StringSubstr(EMA4H,0,5), 6, "Tahoma Narrow", White);



return(0);
}
//+------------------------------------------------------------------+

void Write(string LBL, double Side, int X, int Y, string text, int fontsize, string fontname, color Tcolor)
{


  ObjectCreate(LBL, OBJ_LABEL,WindowFind("!"), 0, 0);
  ObjectSetText(LBL,text, fontsize, fontname, Tcolor);
  ObjectSet(LBL, OBJPROP_CORNER, Side);
  ObjectSet(LBL, OBJPROP_XDISTANCE, X);
  ObjectSet(LBL, OBJPROP_YDISTANCE, Y);
 
 
}