//+------------------------------------------------------------------+
//|                                                      2MA_RSI.mq4 |
//+------------------------------------------------------------------+
#property copyright "Wolfe"
#property link "xxxxwolfe@gmail.com"

#property indicator_separate_window
#property indicator_level1  100
#property indicator_level2  80
#property indicator_level3  50
#property indicator_level4  20
#property indicator_buffers 4
#property indicator_color1 Black    //RSI
#property indicator_color2 Blue     //MA1
#property indicator_color3 Red      //MA2
#property indicator_color4 Green    //Ratio

int  RSI_Timeframe=0;//0=current chart,1=m1,5=m5,15=m15,30=m30,60=h1,240=h4,etc...
int  RSI_Period = 10;
int  RSI_Applied_Price = 0;//0=close, 1=open, 2=high, 3=low, 4=(high+low)/2, 5=(high+low+close)/3, 6=(high+low+close+close)/4
int  MA1_Period = 10;
int  MA1_Method = 1;// 0=SMA, 1=EMA, 2=SMMA, 3=LWMA
int  MA2_Period = 30;
int  MA2_Method = 1;// 0=SMA, 1=EMA, 2=SMMA, 3=LWMA

double RSI[],MA1_Array[],MA2_Array[],MR_Ratio[];
double _RSI[],_MA1_Array[],_MA2_Array[],_MR_Ratio[];
string ShortName="MoR";

//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators setting
SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,1); //RSI
SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,1); //EMA10
SetIndexStyle(2,DRAW_LINE,STYLE_SOLID,1); //EMA30
SetIndexStyle(3,DRAW_LINE,STYLE_SOLID,2); //Ratio

SetIndexBuffer(0,RSI);
SetIndexLabel(0,"RSI");

SetIndexBuffer(1,MA1_Array);
SetIndexLabel(1,"MA1");

SetIndexBuffer(2,MA2_Array);
SetIndexLabel(2,"MA2");

SetIndexBuffer(3,MR_Ratio);
SetIndexLabel(3,"Ratio");

IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS));
IndicatorShortName(ShortName);

return(0);
}

int start()
{
   int i,limit = Bars - IndicatorCounted() - 1;
   for(i=limit; i>=0; i--){
      RSI[i]= iRSI(NULL,60,RSI_Period,RSI_Applied_Price,i);
   }
   for(i=limit; i>=0; i--){ 
      MA1_Array[i] = iMAOnArray(RSI,0,MA1_Period,0,MA1_Method,i);
      MA2_Array[i] = iMAOnArray(RSI,0,MA2_Period,0,MA2_Method,i);
   }
   for (i=0; i<=limit; i++){
      MR_Ratio[i] = MA1_Array[i] / MA2_Array[i] * 100;
   }
   double tmp1=MR_Ratio[0];
   SetText("Label1",DoubleToStr(tmp1,1),Black,55,20);
   
   //+------------------------------------------------------------------+
   //| Trying to set new buffers                                        |
   //+------------------------------------------------------------------+
   IndicatorBuffers(4);
   SetIndexBuffer(0,_RSI);
   SetIndexBuffer(1,_MA1_Array);
   SetIndexBuffer(2,_MA2_Array);
   SetIndexBuffer(3,_MR_Ratio);
   for(i=limit; i>=0; i--){
      _RSI[i]= iRSI(NULL,240,RSI_Period,RSI_Applied_Price,i);
   }
   for(i=limit; i>=0; i--){
      _MA1_Array[i] = iMAOnArray(_RSI,0,MA1_Period,0,MA1_Method,i);
      _MA2_Array[i] = iMAOnArray(_RSI,0,MA2_Period,0,MA2_Method,i);
   }
   for (i=0; i<=limit; i++){
     _MR_Ratio[i] = _MA1_Array[i] / _MA2_Array[i] * 100;
   }
   double tmp2=_MR_Ratio[0];
   SetText("Label2",DoubleToStr(tmp2,1),Black,95,20);
   //----
   return(0);
}

void SetText(string ObjName,string ObjText,color clr,int xpos,int ypos){
   ObjectCreate(ObjName,OBJ_LABEL,WindowFind(ShortName),0,0);
   ObjectSetText(ObjName,ObjText,9,"Arial Bold",clr);
   ObjectSet(ObjName,OBJPROP_CORNER,0);
   ObjectSet(ObjName,OBJPROP_XDISTANCE,xpos);
   ObjectSet(ObjName,OBJPROP_YDISTANCE,ypos);
}

string OpenTrades(string mySymbol,double LotSize, double OpenPrice,int Type, double StopLoss, double TakeProfit, string ticketComment, void string MagicNum)
{
   // bu funksiye birilgen melumatqa asasen mal alidu we zakaz numurini qayturidu.
   
   switch(Type)
   {
      case OP_BUY:      if(OpenPrice > MarketInfo(mySymbol,MODE_ASK) return(EMPTY);
      case OP_BUYLIMIT:
      case OP_BUYSTOP:
            OrderSend(mySymbol,Type,LotSize,OpenPrice,0,OpenPrice-Point*StopLoss,OpenPrice+Point*TakeProfit,ticketComment,MagicNum);
            break;
      case OP_SELL:     if(OpenPrice < MarketInfo(mySymbol,MODE_BID) return(EMPTY);
      case OP_SELLLIMIT:
      case OP_SELLSTOP:
            OrderSend(mySymbol,Type,LotSize,OpenPrice,0,OpenPrice+Point*StopLoss,OpenPrice-Point*TakeProfit,ticketComment,MagicNum);
            break;
    }