На ВХЦ работает, на Альпари нет

extern double        StartLots=0.1;
extern int           TrailStop=30;
extern int           TrailStep=5;
extern int           Level=20;
extern int           Slippage=3;

int                  i;
double               Lots,Lotc,Loto,STP,SPR,MaxLots,MinLots,StepLots;
string               txt;

int init()
{
   MaxLots=MarketInfo(Symbol(),MODE_MAXLOT);
   MinLots=MarketInfo(Symbol(),MODE_MINLOT);
   StepLots=MarketInfo(Symbol(),MODE_LOTSTEP);
   Lots=StartLots;
   if(Lots<MinLots) Lots=MinLots; else if(Lots>MaxLots) Lots=MaxLots; else Lots=NormalizeDouble(Lots/StepLots,0)*StepLots;
   Lotc=StartLots/2;
   if(Lotc<MinLots) Lotc=MinLots; else if(Lotc>MaxLots) Lotc=MaxLots; else Lotc=NormalizeDouble(Lotc/StepLots,0)*StepLots;
   Loto=Lots-Lotc;
   if(Loto<MinLots) Loto=MinLots; else if(Loto>MaxLots) Loto=MaxLots; else Loto=NormalizeDouble(Loto/StepLots,0)*StepLots;
   return(0);
}
int deinit()
{
   Comment("");
   return(0);
}
//============================================================================================================
// Основная функция
int start()
{
   // Проверка доступности торговли.
   if(!IsTradeAllowed())
   {
      Comment("Торговля по этому инструменту запрещена или торговый поток занят."); return(0);
   }
   STP=MarketInfo(Symbol(),MODE_STOPLEVEL);
   SPR=MarketInfo(Symbol(),MODE_SPREAD);
   txt="Контролируемые ордера:\n";
   // Проверяем все открытые ордера---------------------------------------------------------------------------
   for(i=OrdersTotal()-1;i>=0;i--)
   {
      OrderSelect(i,SELECT_BY_POS);
      if(OrderSymbol()!=Symbol()) continue;
      if(OrderLots()==Lots) txt=txt+Symbol()+" "+OrderTicket()+" Lot="+OrderLots()+" Контролируется на закрытие половины\n"; else
      if(OrderLots()==Loto) txt=txt+Symbol()+" "+OrderTicket()+" Lot="+OrderLots()+" Закрыта половина\n"; else
      txt=txt+Symbol()+" "+OrderTicket()+" Lot="+OrderLots()+" Не контролируется!\n";
      if(OrderType()==OP_SELL)
      {
         if(OrderLots()==Loto && (OrderStopLoss()>OrderOpenPrice() || OrderStopLoss()==0))
            OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,CLR_NONE);
         if(Level>0 && OrderOpenPrice()-Ask>Level*Point && OrderLots()==Lots)
            OrderClose(OrderTicket(),Lotc,Ask,Slippage,CLR_NONE); else
         if(TrailStop>=STP)
         {
            if(OrderOpenPrice()-Ask>TrailStop*Point && (OrderStopLoss()>OrderOpenPrice() || OrderStopLoss()==0))
               OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,CLR_NONE);
            else if(OrderOpenPrice()-Ask>TrailStop*Point && OrderStopLoss()>Ask+(TrailStop+TrailStep)*Point
            && OrderStopLoss()<=OrderOpenPrice())
               OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+TrailStop*Point,Digits),OrderTakeProfit(),0,CLR_NONE);
         }
      } else
      if(OrderType()==OP_BUY)
      {
         if(OrderLots()==Loto && OrderStopLoss()<OrderOpenPrice())
            OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,CLR_NONE);
         if(Level>0 && Bid-OrderOpenPrice()>Level*Point && OrderLots()==Lots)
            OrderClose(OrderTicket(),Lotc,Ask,Slippage,CLR_NONE); else
         if(TrailStop>=STP)
         {
            if(Bid-OrderOpenPrice()>TrailStop*Point && OrderStopLoss()<OrderOpenPrice())
               OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,CLR_NONE);
            else if(Bid-OrderOpenPrice()>TrailStop*Point && OrderStopLoss()<Bid-(TrailStop+TrailStep)*Point
            && OrderStopLoss()>=OrderOpenPrice())
               OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-TrailStop*Point,Digits),OrderTakeProfit(),0,CLR_NONE);
         }
      }
   }
   Comment(txt);
   return(0);
}