//-----------------------------------------------------------------------------
//                                                 Mn MaDist                  |
//-----------------------------------------------------------------------------

#property copyright "Mn"
#property link      ""

#property indicator_chart_window

extern int mTextSize = 10, 
           mCorner = 2, 
           mMaPrd =200, 
            MODE =0,
           mCorner1 = 3, 
           mMaPrd1 = 400, 
           
           mTf2 = 240, 
           mTf3 = 60,
           mTf4 = 5,
          
           
           mTf21 = 240, 
           mTf31 = 60,
           mTf41 = 5;
           
extern color mCol  = Blue,
             mCol2 = Red;
int mPipFact;

//-----------------------------------------------------------------------------
void init()
 {
  ObjectCreate("mMaPrd", OBJ_LABEL, 0, 0, 0, 0, 0);
  ObjectSet("mMaPrd", OBJPROP_CORNER, mCorner);
  ObjectSet("mMaPrd", OBJPROP_COLOR, mCol);
  ObjectSet("mMaPrd", OBJPROP_YDISTANCE, 2);
  ObjectSet("mMaPrd", OBJPROP_XDISTANCE, 2);
  ObjectSetText("mMaPrd", "MaPrd : " + DoubleToStr(mMaPrd , 0), mTextSize, "Arial", mCol);


  ObjectCreate("mMaDist", OBJ_LABEL, 0, 0, 0, 0, 0);
  ObjectSet("mMaDist", OBJPROP_CORNER, mCorner);
  ObjectSet("mMaDist", OBJPROP_COLOR, mCol);
  ObjectSet("mMaDist", OBJPROP_YDISTANCE, 17);
  ObjectSet("mMaDist", OBJPROP_XDISTANCE, 2);
  
  ObjectCreate("mMaDist2", OBJ_LABEL, 0, 0, 0, 0, 0);
  ObjectSet("mMaDist2", OBJPROP_CORNER, mCorner);
  ObjectSet("mMaDist2", OBJPROP_COLOR, mCol);
  ObjectSet("mMaDist2", OBJPROP_YDISTANCE, 32);
  ObjectSet("mMaDist2", OBJPROP_XDISTANCE, 2);
 
  ObjectCreate("mMaDist3", OBJ_LABEL, 0, 0, 0, 0, 0);
  ObjectSet("mMaDist3", OBJPROP_CORNER, mCorner);
  ObjectSet("mMaDist3", OBJPROP_COLOR, mCol);
  ObjectSet("mMaDist3", OBJPROP_YDISTANCE, 47);
  ObjectSet("mMaDist3", OBJPROP_XDISTANCE, 2);
   ObjectCreate("mMaDist4", OBJ_LABEL, 0, 0, 0, 0, 0);
  ObjectSet("mMaDist4", OBJPROP_CORNER, mCorner);
  ObjectSet("mMaDist4", OBJPROP_COLOR, mCol);
  ObjectSet("mMaDist4", OBJPROP_YDISTANCE, 57);
  ObjectSet("mMaDist4", OBJPROP_XDISTANCE, 2);
  
  

  ObjectCreate("mMaPrd1", OBJ_LABEL, 0, 0, 0, 0, 0);
  ObjectSet("mMaPrd1", OBJPROP_CORNER, mCorner1);
  ObjectSet("mMaPrd1", OBJPROP_COLOR, mCol);
  ObjectSet("mMaPrd1", OBJPROP_YDISTANCE, 2);
  ObjectSet("mMaPrd1", OBJPROP_XDISTANCE, 2);
  ObjectSetText("mMaPrd1", "MaPrd1 : " + DoubleToStr(mMaPrd1 , 0), mTextSize, "Arial", mCol);
  
  
  ObjectCreate("mMaDist11", OBJ_LABEL, 0, 0, 0, 0, 0);
  ObjectSet("mMaDist11", OBJPROP_CORNER, mCorner1);
  ObjectSet("mMaDist11", OBJPROP_COLOR, mCol);
  ObjectSet("mMaDist11", OBJPROP_YDISTANCE, 17);
  ObjectSet("mMaDist11", OBJPROP_XDISTANCE, 2);
  
  ObjectCreate("mMaDist21", OBJ_LABEL, 0, 0, 0, 0, 0);
  ObjectSet("mMaDist21", OBJPROP_CORNER, mCorner1);
  ObjectSet("mMaDist21", OBJPROP_COLOR, mCol);
  ObjectSet("mMaDist21", OBJPROP_YDISTANCE, 32);
  ObjectSet("mMaDist21", OBJPROP_XDISTANCE, 2);
 
  ObjectCreate("mMaDist31", OBJ_LABEL, 0, 0, 0, 0, 0);
  ObjectSet("mMaDist31", OBJPROP_CORNER, mCorner1);
  ObjectSet("mMaDist31", OBJPROP_COLOR, mCol);
  ObjectSet("mMaDist31", OBJPROP_YDISTANCE, 47);
  ObjectSet("mMaDist31", OBJPROP_XDISTANCE, 2);
   ObjectCreate("mMaDist41", OBJ_LABEL, 0, 0, 0, 0, 0);
  ObjectSet("mMaDist41", OBJPROP_CORNER, mCorner1);
  ObjectSet("mMaDist41", OBJPROP_COLOR, mCol);
  ObjectSet("mMaDist41", OBJPROP_YDISTANCE, 57);
  ObjectSet("mMaDist41", OBJPROP_XDISTANCE, 2);
  
  
  
   if(Digits == 3 || Digits ==  5)
     mPipFact = 10;
   else
     mPipFact = 100;

   return(0);
 }

//-----------------------------------------------------------------------------
void start() 
 {
   double mDist, mDist2, mDist3,mDist4,mDist11, mDist21, mDist31,mDist41;
   
   mDist = Close[0] - iMA(NULL, 0, mMaPrd, 0, MODE, PRICE_CLOSE, 0);
   
   mDist11 = Close[0] - iMA(NULL, 0, mMaPrd1, 0, MODE, PRICE_CLOSE, 0);
   
   mDist2 = Close[0] - iMA(NULL, mTf2, mMaPrd, 0, MODE, PRICE_CLOSE, 0);
   mDist3 = Close[0] - iMA(NULL, mTf3, mMaPrd, 0, MODE, PRICE_CLOSE, 0);
   mDist4 = Close[0] - iMA(NULL, mTf4, mMaPrd, 0, MODE, PRICE_CLOSE, 0);
  
  
   mDist21 = Close[0] - iMA(NULL, mTf21, mMaPrd1, 0, MODE, PRICE_CLOSE, 0);
   mDist31 = Close[0] - iMA(NULL, mTf31, mMaPrd1, 0, MODE, PRICE_CLOSE, 0);
   mDist41 = Close[0] - iMA(NULL, mTf41, mMaPrd1, 0, MODE, PRICE_CLOSE, 0);
  
  
   if(mDist >= 0)
     ObjectSetText("mMaDist", Period() + "m   " + DoubleToStr(mDist / Point / mPipFact, 1), mTextSize, "Arial", mCol);
   else
     ObjectSetText("mMaDist", Period() + "m   " + DoubleToStr(mDist / Point / mPipFact, 1), mTextSize, "Arial", mCol2);

   if(mDist2 >= 0)
     ObjectSetText("mMaDist2", mTf2 + "m   " + DoubleToStr(mDist2 / Point / mPipFact, 1), mTextSize, "Arial", mCol);
   else
     ObjectSetText("mMaDist2", mTf2 + "m   " + DoubleToStr(mDist2 / Point / mPipFact, 1), mTextSize, "Arial", mCol2);

   if(mDist3 >= 0)
     ObjectSetText("mMaDist3", mTf3 + "m   " + DoubleToStr(mDist3 / Point / mPipFact, 1), mTextSize, "Arial", mCol);
   else
     ObjectSetText("mMaDist3", mTf3 + "m   " + DoubleToStr(mDist3 / Point / mPipFact, 1), mTextSize, "Arial", mCol2);
    
   if(mDist4 >= 0)
     ObjectSetText("mMaDist4", mTf4 + "m   " + DoubleToStr(mDist4 / Point / mPipFact, 1), mTextSize, "Arial", mCol);
   else
     ObjectSetText("mMaDist4", mTf4 + "m   " + DoubleToStr(mDist4 / Point / mPipFact, 1), mTextSize, "Arial", mCol2);
  
  
  
   if(mDist11 >= 0)
     ObjectSetText("mMaDist11", Period() + "m   " + DoubleToStr(mDist11 / Point / mPipFact, 1), mTextSize, "Arial", mCol);
   else
     ObjectSetText("mMaDist11", Period() + "m   " + DoubleToStr(mDist11 / Point / mPipFact, 1), mTextSize, "Arial", mCol2);

   if(mDist21 >= 0)
     ObjectSetText("mMaDist21", mTf21 + "m   " + DoubleToStr(mDist21 / Point / mPipFact, 1), mTextSize, "Arial", mCol);
   else
     ObjectSetText("mMaDist21", mTf21 + "m   " + DoubleToStr(mDist21 / Point / mPipFact, 1), mTextSize, "Arial", mCol2);

   if(mDist31 >= 0)
     ObjectSetText("mMaDist31", mTf31 + "m   " + DoubleToStr(mDist31 / Point / mPipFact, 1), mTextSize, "Arial", mCol);
   else
     ObjectSetText("mMaDist31", mTf31 + "m   " + DoubleToStr(mDist31 / Point / mPipFact, 1), mTextSize, "Arial", mCol2);
    
   if(mDist41 >= 0)
     ObjectSetText("mMaDist41", mTf41 + "m   " + DoubleToStr(mDist41 / Point / mPipFact, 1), mTextSize, "Arial", mCol);
   else
     ObjectSetText("mMaDist41", mTf41 + "m   " + DoubleToStr(mDist41 / Point / mPipFact, 1), mTextSize, "Arial", mCol2);
  
  
  
  
   return(0);
 }

//-----------------------------------------------------------------------------
void deinit()
 {
   ObjectDelete("mMaPrd");
   ObjectDelete("mMaDist");
   ObjectDelete("mMaDist2");
   ObjectDelete("mMaDist3");
 ObjectDelete("mMaDist4");

   ObjectDelete("mMaPrd1");
   ObjectDelete("mMaDist11");
   ObjectDelete("mMaDist21");
   ObjectDelete("mMaDist31");
 ObjectDelete("mMaDist41");
   return(0);
 }

//-----------------------------------------------------------------------------