//+------------------------------------------------------------------+
//|                                        Boxinglife Stochastic.mq4 |
//|                                                 author : Skyline |
//|                                          email : glicci@yahoo.it |
//+------------------------------------------------------------------+
// You can find me at following forums :
// www.forexpertutti.it (italian forum)
// www.fastbrokers.net/forum (international forum)
// www.forexfactory.com (international forum)

// v1.0 [07 May 2007] ** Indicator created
// v1.1 [10 july 2007 ] ** Indicator modified by Melpheos
#property copyright ""
#property link      ""

#property indicator_chart_window
extern color  Color      = White;
extern int    Label_Size = 20;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
     ObjectDelete("Label_M5");
     ObjectDelete("Label_M15");
     ObjectDelete("Label_M30");
     ObjectDelete("Label_H1");
     ObjectDelete("Label_H4");
     ObjectDelete("Label_D1");
     ObjectDelete("Label_Stoch5");
     ObjectDelete("Label_Stoch20");
     ObjectDelete("Label_Stoch50");
     ObjectDelete("ArrowStoch5_TF5");
     ObjectDelete("ArrowStoch20_TF5");
     ObjectDelete("ArrowStoch50_TF5");
     ObjectDelete("ArrowStoch5_TF15");
     ObjectDelete("ArrowStoch20_TF15");
     ObjectDelete("ArrowStoch50_TF15");
     ObjectDelete("ArrowStoch5_TF30");
     ObjectDelete("ArrowStoch20_TF30");
     ObjectDelete("ArrowStoch50_TF30");
     ObjectDelete("ArrowStoch5_TF60");
     ObjectDelete("ArrowStoch20_TF60");
     ObjectDelete("ArrowStoch50_TF60");
     ObjectDelete("ArrowStoch5_TF240");
     ObjectDelete("ArrowStoch20_TF240");
     ObjectDelete("ArrowStoch50_TF240");
     ObjectDelete("ArrowStoch5_TF1440");
     ObjectDelete("ArrowStoch20_TF1440");
     ObjectDelete("ArrowStoch50_TF1440");
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {

         
   int    counted_bars=IndicatorCounted();

   // Disegna label per timeframe
   DrawTFLabel(5,"Label_M5",150,40);
   DrawTFLabel(15,"Label_M15",150,60);
   DrawTFLabel(30,"Label_M30",150,80);
   DrawTFLabel(60,"Label_H1",150,100);
   DrawTFLabel(240,"Label_H4",150,120);
   DrawTFLabel(1440,"Label_D1",150,140);
 
   // Disegna label per stoch
   DrawStochLabel(5,"Label_Stoch5",110,20);
   DrawStochLabel(20,"Label_Stoch20",60,20);
   DrawStochLabel(50,"Label_Stoch50",10,20);

   // Disegna Freccie per TF5
   DrawArrow(5,5,"ArrowStoch5_TF5",120,40);
   DrawArrow(5,20,"ArrowStoch20_TF5",75,40);
   DrawArrow(5,50,"ArrowStoch50_TF5",25,40);

   // Disegna Freccie per TF15   
   DrawArrow(15,5,"ArrowStoch5_TF15",120,60);
   DrawArrow(15,20,"ArrowStoch20_TF15",75,60);
   DrawArrow(15,50,"ArrowStoch50_TF15",25,60);
   
   // Disegna Freccie per TF30
   DrawArrow(30,5,"ArrowStoch5_TF30",120,80);
   DrawArrow(30,20,"ArrowStoch20_TF30",75,80);
   DrawArrow(30,50,"ArrowStoch50_TF30",25,80); 
      
   // Disegna Freccie per TF60   
   DrawArrow(60,5,"ArrowStoch5_TF60",120,100);
   DrawArrow(60,20,"ArrowStoch20_TF60",75,100);
   DrawArrow(60,50,"ArrowStoch50_TF60",25,100);
   
   // Disegna Freccie per TF240   
   DrawArrow(240,5,"ArrowStoch5_TF240",120,120);
   DrawArrow(240,20,"ArrowStoch20_TF240",75,120);
   DrawArrow(240,50,"ArrowStoch50_TF240",25,120);
   
   // Disegna Freccie per TF1440   
   DrawArrow(1440,5,"ArrowStoch5_TF1440",120,140);
   DrawArrow(1440,20,"ArrowStoch20_TF1440",75,140);
   DrawArrow(1440,50,"ArrowStoch50_TF1440",25,140);
   
//----
   
//----
   return(0);
  }
   //DrawTFLabel(5,"Label_M5",150,40);

// Routine per disegnare le label degli stoch
  // DrawStochLabel(5,"Label_Stoch5",110,20);
void DrawStochLabel(int TipoStoch, string Label, int PosX, int PosY)
{
    // Stoch5 Label
   ObjectCreate(Label, OBJ_LABEL, 0, 0, 0);
   ObjectSet(Label, OBJPROP_CORNER, 1);
   ObjectSet(Label, OBJPROP_XDISTANCE, PosX);
   ObjectSet(Label, OBJPROP_YDISTANCE, PosY);  
   if (TipoStoch == 5)  ObjectSetText(Label, "Stoch5", 8, "Comic Sans MS", White);
   if (TipoStoch == 20) ObjectSetText(Label, "Stoch20", 8, "Comic Sans MS", White);   
   if (TipoStoch == 50) ObjectSetText(Label, "Stoch50", 8, "Comic Sans MS", White);      
}
      
// Routine per disegnare le label dei timframe
void DrawTFLabel(int TF, string Label, int PosX, int PosY)
{
   // M5 Label
   ObjectCreate(Label, OBJ_LABEL, 0, 0, 0);
   ObjectSet(Label, OBJPROP_CORNER, 1);
   ObjectSet(Label, OBJPROP_XDISTANCE, PosX);
   ObjectSet(Label, OBJPROP_YDISTANCE, PosY);
   if (TF == 5)  ObjectSetText(Label, "M5", 8, "Comic Sans MS", White);
   if (TF == 15) ObjectSetText(Label, "M15", 8, "Comic Sans MS", White);
   if (TF == 30) ObjectSetText(Label, "M30", 8, "Comic Sans MS", White);   
   if (TF == 60) ObjectSetText(Label, "H1", 8, "Comic Sans MS", White); 
   if (TF == 240) ObjectSetText(Label, "H4", 8, "Comic Sans MS", White);
   if (TF == 1440) ObjectSetText(Label, "D1", 8, "Comic Sans MS", White);  
}

// Routine per disegnare la freccia
void DrawArrow(int TF, int TipoStoch, string NameArrow, int PosX, int PosY)
{ string Temp;
    // Arrow Stoch5_TF5 
   if ( StochMain(TF,TipoStoch) > StochSignal(TF,TipoStoch) && StochMain(TF,TipoStoch)<80 && StochMain(TF,TipoStoch)>20) 
   { 
    Temp="Ù";
    Color = Green;
   }
   if ( StochMain(TF,TipoStoch)>80 )
   { 
    Temp="Ù";
    Color = Green;
   }
   if ( StochMain(TF,TipoStoch) < StochSignal(TF,TipoStoch) && StochMain(TF,TipoStoch)>20 && StochMain(TF,TipoStoch)<80) 
   { 
    Temp="Ú";
    Color = Red;
   } 
   if ( StochMain(TF,TipoStoch)<20 )
   {
    Temp="Ú";
    Color = Red;
   } 
   
   ObjectDelete(NameArrow);
   ObjectCreate(NameArrow, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(NameArrow,Temp,15, "Wingdings", Color);
   ObjectSet(NameArrow, OBJPROP_CORNER, 1);
   ObjectSet(NameArrow, OBJPROP_XDISTANCE,PosX);
   ObjectSet(NameArrow, OBJPROP_YDISTANCE,PosY);

}
 
// Rileva valore Main Stocastico
double StochMain(int TF,int TipoStoch)
{ double valore;
  if (TipoStoch == 5)  valore = iStochastic(NULL,TF,TipoStoch,3,3,MODE_SMA,0,MODE_MAIN,0);
  if (TipoStoch == 20) valore = iStochastic(NULL,TF,TipoStoch,10,20,MODE_SMA,0,MODE_MAIN,0); 
  if (TipoStoch == 50) valore = iStochastic(NULL,TF,TipoStoch,10,20,MODE_SMA,0,MODE_MAIN,0);   
  return(valore);
}  

// Rileva valore Signal Stocastico
double StochSignal(int TF,int TipoStoch)
{ double valore;
  if (TipoStoch == 5)  valore = iStochastic(NULL,TF,TipoStoch,3,3,MODE_SMA,0,MODE_SIGNAL,0);
  if (TipoStoch == 20) valore = iStochastic(NULL,TF,TipoStoch,10,20,MODE_SMA,0,MODE_SIGNAL,0); 
  if (TipoStoch == 50) valore = iStochastic(NULL,TF,TipoStoch,10,20,MODE_SMA,0,MODE_SIGNAL,0);   
  return(valore);  
}  

//+------------------------------------------------------------------+