FT_PRICE_Pit&GLOBEX

//+------------------------------------------------------------------+
//|                                          FT_PRICE_Pit&GLOBEX.mq4 |
//|                            FORTRADER.RU, Þðèé, ftyuriy@gmail.com |
//|               http://www.fortrader.ru, Öåíà + Ôüþ÷åðñû           |
//+------------------------------------------------------------------+
#property copyright "FORTRADER.RU, Þðèé, ftyuriy@gmail.com"
#property link      "http://FORTRADER.RU, TIME"
/*Ðàçðàáîòàíî äëÿ 52 âûïóñêà æóðíàëà FORTRADER.Ru. Ñèñòåìà ïî ñòðàòåãèè Òîðãîâëÿ ìåæäó Pit è GLOBEX. 
Îáñóæäåíèå: http://forexsystems.ru/torgovat-mezhdu-pit-i-globex-t9830.html
Àðõèâ æóðíàëà: http://www.fortrader.ru/arhiv.php
52 âûïóñê: http://www.fortrader.ru/
*/




int start()
{
  OpenPattern();
  return(0);
}

extern int starttime=21;
extern int stoptime=2;
extern int numorder=5;
extern int pipsstep=5;
extern int mn=1;
extern double Lots=0.1;  

int day;

int OpenPattern()
{int i;double op,sl,tp,ent;int err;
   if(Hour()==starttime && day!=DayOfWeek())   
   {day=DayOfWeek();
      for(i=0;i<=pipsstep;i++)
      {
      op=op+pipsstep;  sl=0;  tp=Ask;
      ent=Ask+op*Point*mn;
      err=OrderSend(Symbol(),OP_SELLLIMIT,Lots,NormalizeDouble(ent,Digits),3,sl,tp,"FORTRADER.RU",0,0,Red);
      if(err<0){Print("FT_TIME_BIGDOG()-  Îøèáêà óñòàíîâêè îòëîæåííûõ îðäåðîâ OP_SELLLIMIT.  op "+op+" sl "+sl+" tp "+tp+" "+GetLastError());return(-1);}
      }
      op=0;ent=0;
      for(i=0;i<=pipsstep;i++)
      {
      op=op+pipsstep;  sl=0;  tp=Bid;
      ent=Bid-op*Point*mn;
      err=OrderSend(Symbol(),OP_BUYLIMIT,Lots,NormalizeDouble(ent,Digits),3,sl,tp,"FORTRADER.RU",0,0,Red);
      if(err<0){Print("FT_TIME_BIGDOG()-  Îøèáêà óñòàíîâêè îòëîæåííûõ îðäåðîâ OP_BUYLIMIT.  op "+op+" sl "+sl+" tp "+tp+" "+GetLastError());return(-1);}
      }
   }
   
   if(Hour()==stoptime){_DeleteOrderLimit(1);_DeleteOrderLimit(0);CloseAllPos(1);CloseAllPos(0);}
   
   return(0);
}

//óäàëÿåò îòëîæåííûå ëèìèò îðäåðà
int _DeleteOrderLimit(int type)
{
   for( int i=1; i<=OrdersTotal(); i++)          
   {
    if(OrderSelect(i-1,SELECT_BY_POS)==true) 
    {                                       
     if(OrderType()==OP_SELLLIMIT && OrderSymbol()==Symbol() && type==0)
     {
      OrderDelete(OrderTicket()); 
     }//if
  
    if(OrderType()==OP_BUYLIMIT && OrderSymbol()==Symbol() && type==1)
     {
      OrderDelete(OrderTicket()); 
     }//if
    }//if
   }
   return(0);
}  

//Çàêðûâàåì âñå ïîçèöèè ïî òèïó
int CloseAllPos(int type)
{//Îïèñàíèå ôóíêöèè: http://fxnow.ru/blog.php?user=Yuriy&blogentry_id=72
int buy=1; int sell=1;
int i,b=0;int ordertiket;
 
 if(type==1)
   {
   while(buy==1)
     {
        buy=0;
        for( i=0;i<OrdersTotal();i++)
         {
           if(true==OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
           {
           if(OrderType()==OP_BUY && OrderSymbol()==Symbol() ){buy=1; OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet);}
           }else{buy=0;}
         }  
         if(buy==0){return(0);}
      } 
   }
   
   if(type==0)
   {
      while(sell==1)
     {
        sell=0;
        for( i=0;i<OrdersTotal();i++)
         {
           if(true==OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
           {
           if(OrderType()==OP_SELL && OrderSymbol()==Symbol() ){sell=1;OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); }
           }else{sell=0;}
         }  
         
        if(sell==0){return(0);}
      } 
     }
   return(0);
   }