Помогите создать сеточник грааль

//+------------------------------------------------------------------+
//|                                                    StopLimit.mq4 |
//|                                              Copyright 2014, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2014, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict

#define MAGIC  20110406
/*
1. Выставляем по одному стоповому или лимитному ордеру на расстоянии от цены.
2. Если сработал бай и закрылся по ТП на его место ставим селл стоп.
3. Если сработал бай и закрылся по СЛ на его место ставим ???.
4. Если сработал селл и закрылся по ТП на его место ставим бай стоп.
5. Если сработал селл и закрылся по СЛ на его место ставим ???.
*/
extern int    StopLoss    = 2500;//Стоплосс ордера
extern int    TakeProfit  = 350; //Тейкпрофит ордера 
extern int    Distance    = 350; //Расстояние от цены для установки ордера
extern int    Step        = 400; //Шаг установки ордеров
extern int    Count       = 10;  //Количество устанавливаемых ордеров
extern int    StopLimit   = 1;   //0 - Только стоповые ордера, 1 - только лимитные
extern int    Expiration  = 44;  //Время истечения ордера
extern int    KLot        = 50;  //Коэффициент у величения лота
extern double Lots        = 0.1; //Лот
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   Comment("");      
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
   datetime expiration = TimeCurrent()+3600*Expiration;
   int Pos=0,b=0,s=0,res,i;
   double price;  
   for(i=OrdersTotal()-1;i>=0;i--)
    {
     if(OrderSelect(i, SELECT_BY_POS))
      {  
       if (OrderSymbol()!=Symbol() || OrderMagicNumber()!=MAGIC) continue;
       if (OrderType()==OP_BUYLIMIT) b++;
       if (OrderType()==OP_SELLLIMIT) s++;
       if (OrderType()==OP_BUYSTOP) b++;
       if (OrderType()==OP_SELLSTOP) s++;       
       if (OrderType()==OP_BUY) Pos++;
       if (OrderType()==OP_SELL) Pos++;                  
      }   
    }
    
   if(LastDealResult()==1 && LastDealType()==1 && Pos<1 && b<1 && s<1)       
    { 
     for(i=1;i<=Count*KLot;i++)
      {
       {      
        price=LastDealPrice();           
        res=OrderSend(Symbol(),OP_SELLSTOP,Lots*KLot,price,3,price+StopLoss*Point,price-TakeProfit*Point,"",MAGIC,expiration,Red);
        Pos++;    
        Sleep(1000);
      }
     }
    }
    
   if(LastDealResult()==1/*last sell*/ && LastDealType()==2 && Pos<1 && b<1 && s<1)       
    { 
     for(i=1;i<=Count*KLot;i++)
      {
       {       
        price=LastDealPrice();           
        res=OrderSend(Symbol(),OP_BUYSTOP,Lots*KLot,price,3,price-StopLoss*Point,price+TakeProfit*Point,"",MAGIC,expiration,Blue);
        Pos++;   
        Sleep(1000);
       }
     }
    }          
    
   if(b<1 && s<1 && Pos<1)       
   for(i=1;i<=Count;i++)
    {
     { 
      price=fND(Ask+(Distance*Point+i*Step*Point));           
      if(StopLimit==0)res=OrderSend(Symbol(),OP_BUYSTOP,Lots,price,3,price-StopLoss*Point,price+TakeProfit*Point,"",MAGIC,expiration,Blue);
      if(StopLimit==1)res=OrderSend(Symbol(),OP_SELLLIMIT,Lots,price,3,price+StopLoss*Point,price-TakeProfit*Point,"",MAGIC,expiration,Red);     
      Sleep(1000);
     }
    }
       
   if(s<1 && b<1 && Pos<1)
   for(i=1;i<=Count;i++)
     { 
      price=fND(Bid-(Distance*Point+i*Step*Point));                  
      if(StopLimit==0) res=OrderSend(Symbol(),OP_SELLSTOP,Lots,price,3,price+StopLoss*Point,price-TakeProfit*Point,"",MAGIC,expiration,Red);
      if(StopLimit==1)res=OrderSend(Symbol(),OP_BUYLIMIT,Lots,price,3,price-StopLoss*Point,price+TakeProfit*Point,"",MAGIC,expiration,Blue);
      Sleep(1000);
     }
     
   //if(CountTrades()>0)DelOrder();
   Comment("\nLast Deal Result ",LastDealResult(),
           "\nLast Deal Type ",LastDealType(), 
           "\nLast Deal Price ",LastDealPrice(),
           "\nSell Orders Count ",s,
           "\nBuy Orders Count ",b,
           "\nPositions Count ",Pos);
   return(0);    
  }     
//+------------------------------------------------------------------+
double fND(double d, int n=-1) 
  {  
   if (n<0) return(NormalizeDouble(d, Digits)); 
   return(NormalizeDouble(d, n)); 
  }
//+------------------------------------------------------------------+
int LastDealResult()
  {
   int result=0;  
   if(OrdersHistoryTotal()==0)
    {
     result=0;
    }             
   if(OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS,MODE_HISTORY))      
     {                                       
      if(OrderProfit()>0)                     
       {
        result=1;//tp  
       }
      if(OrderProfit()<0)
        {
         result=2;//sl  
        }
     }         
   return(result);
  }  
//+------------------------------------------------------------------+
int LastDealType()
  {
   int type=0;  
   if(OrdersHistoryTotal()==0)
    {
     type=0;
    }             
   if(OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS,MODE_HISTORY))      
     {                                       
      if(OrderType()==OP_BUY)                     
       {
        type=1;//buy  
       }
      if(OrderType()==OP_SELL) 
        {
         type=2;//sell  
        }
     }         
   return(type);
  }  
//+------------------------------------------------------------------+
double LastDealPrice()
  {
   double price=0;  
   if(OrdersHistoryTotal()==0)
    {
     price=0;
    }             
   if(OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS,MODE_HISTORY))      
     {                                       
      price=OrderOpenPrice();
     }         
   return(price);
  }  
//+------------------------------------------------------------------+
void DelOrder()
  {
   bool del; 
   for(int i=OrdersTotal()-1; i>=0; i--) 
    {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
       {
        if(OrderMagicNumber()!=MAGIC || OrderSymbol()!=Symbol()) continue;
         {    
          if (OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break; 
          if (OrderType()==OP_BUYSTOP)  del=OrderDelete(OrderTicket()); 
          if (OrderType()==OP_SELLSTOP) del=OrderDelete(OrderTicket());
          if (OrderType()==OP_BUYLIMIT)  del=OrderDelete(OrderTicket()); 
          if (OrderType()==OP_SELLLIMIT) del=OrderDelete(OrderTicket());
         }
       }                
     }         
  }
//+------------------------------------------------------------------+
int CountTrades()
  {
   int count=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
    {
     if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
      {
       if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGIC)
        {
         if(OrderType()==OP_BUY || OrderType()==OP_SELL)
          count++;
        }
      }
    }
    return(count);
  }
//+------------------------------------------------------------------+