Stax

//+-------------------------------------------------------------------------+
//|                                      ñîâåòíèê     Stax.mq4         |
//|                                    Mamedov Sergey,Russia,Voronezh       |
//|                                      http://www.MOHCTP36.narod.ru       |
//+-------------------------------------------------------------------------+
#property copyright "Mamedov Sergey,Russia,Voronezh"
#property link      "http://www.MOHCTP36.narod.ru"
extern int cBars1;
extern int cBars2;
extern double Lot = 0.1;
extern int    sl=500;
extern int    tp=500;
extern bool   razvorot=true;

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {

  OrderSelect(SELECT_BY_POS,MODE_TRADES);
  int Order_mode=OrderType();
  if(razvorot==true)
  {
  if(iStochastic(NULL,0,6,21,8,MODE_SMA,0,MODE_MAIN,3)>53&&
      iStochastic(NULL,0,6,21,8,MODE_SMA,0,MODE_MAIN,0)<53&&
     
     Order_mode==OP_BUY)
  {
    OrderSelect(SELECT_BY_POS,MODE_TRADES); 
    if (Order_mode==OP_BUY) { OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),3,Red); }
  } 
 
  
  if(iStochastic(NULL,0,6,21,8,MODE_SMA,0,MODE_MAIN,3)<42&&
      iStochastic(NULL,0,6,21,8,MODE_SMA,0,MODE_MAIN,0)>42&&
     
     Order_mode==OP_SELL)
  {
    OrderSelect(SELECT_BY_POS,MODE_TRADES); 
    if (Order_mode==OP_SELL) { OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),3,Green); }
  }
  }
  
  
  
//----
OrderSelect(SELECT_BY_POS,MODE_TRADES); 

   int Total=OrdersTotal(); 

   if(Total<1)

   if(iStochastic(NULL,0,6,21,8,MODE_SMA,0,MODE_MAIN,5)<53&&
      iStochastic(NULL,0,6,21,8,MODE_SMA,0,MODE_MAIN,4)>53)
  {
if (cBars1!=Bars) // ïðîáåæàë òèê è óñëîâèå âûïîëíèëîñü
{   //---------- 1
    
    OrderSend(Symbol(),OP_SELL,Lot,Ask,5,Bid+sl*Point,
    Ask-tp*Point,"My order #",16384,0,Aqua);
    
 cBars1=Bars;
}
}
 if(Total<1)

 if(iStochastic(NULL,0,6,21,8,MODE_SMA,0,MODE_MAIN,5)>42&&
    iStochastic(NULL,0,6,21,8,MODE_SMA,0,MODE_MAIN,4)<42)
  
   {
if (cBars2!=Bars) // ïðîáåæàë òèê è óñëîâèå âûïîëíèëîñü
{   //---------- 1
      
    OrderSend(Symbol(),OP_BUY,Lot,Bid,5,Ask-sl*Point,
    Bid+tp*Point,"My order #",16384,0,Gold);
 cBars2=Bars;
}
}
  
//----
   return(0);
  }
//+------------------------------------------------------------------+