Robot_ADX+2MA

ÿþ//+------------------------------------------------------------------+

//|                                               Robot_ADX+2MA      |

//|                                               Yuriy Tokman (YTG) |

//|                                               https://ytg.com.ua |

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

#property copyright "Yuriy Tokman (YTG)"

#property link      "https://ytg.com.ua"

#property version   "2.00"

#property strict



input int TakeProfit = 4700;

input int Sl = 2400;

input double Lots = 0.1;

input int n = 10;



int MagicNumber = 2808;

int Slippage = 30;

int POPYTKY = 10;

bool  gbDisabled = False;

#include     <stdlib.mqh>



             

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

int start()

 {

  int ticket, total;

  double x1=iMA(NULL,0,5,0,MODE_EMA,PRICE_CLOSE,1);

  double x2=iMA(NULL,0,12,0,MODE_EMA,PRICE_CLOSE,1);

  double x3=MathAbs((x1-x2)/Point);

  double x4=iADX(NULL,0,6,0,MODE_PLUSDI,0);

  double x5=iADX(NULL,0,6,0,MODE_MINUSDI,0);

  double x6=iADX(NULL,0,6,0,MODE_PLUSDI,1);

  double x7=iADX(NULL,0,6,0,MODE_MINUSDI,1);

  double x8=iADX(NULL,0,6,0,MODE_PLUSDI,0);

  double x9=iADX(NULL,0,6,0,MODE_MINUSDI,0);



double ll=0,tp=0,sl=0;

     

  total=OrdersTotal();

  if(total<1)

   {

    if(AccountFreeMargin()<(1000*Lots) || Lots<=0)

     {

      Print("Insufficient funds = ", AccountFreeMargin());

      return(0);  

     }

    if (x1<x2 && x3>n && x6<5 && x4>10 && x8>x9 )

     {

      if(TakeProfit>0)tp=Ask + TakeProfit*Point;else tp=0;

      if(Sl>0)sl=Bid - Sl*Point;else sl=0;

      ll=Lots;

      OpenPosition(Symbol(), OP_BUY, ll, sl, tp, MagicNumber);

     }

    if (x1>x2 && x3>n && x7<5 && x5>10 && x8<x9 ) 

     {

      ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Ask+Sl*Point,Bid-TakeProfit*Point,"-",0,0,Red);

      if(TakeProfit>0)tp=Bid - TakeProfit*Point;else tp=0;

      if(Sl>0)sl=Ask + Sl*Point;else sl=0;

      ll=Lots;

      OpenPosition(Symbol(), OP_SELL, ll, sl, tp, MagicNumber); 

     }

 }

 

 return(0);

 }

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

int OpenPosition(string sy, int op, double ll, double sl=0, double tp=0, int mn=0, string cm ="") {

  color    clOpen;

  datetime ot;

  double   pp, pa, pb;

  int      dg, err, it, ticket=0;

  string   lsComm="http://ytg.com.ua/";

 

  if (sy=="" || sy=="0") sy=Symbol();

  if (op==OP_BUY) clOpen=Lime; else clOpen=Red;

  for (it=1; it<=POPYTKY; it++) {

    if (!IsTesting() && (!IsExpertEnabled() || IsStopped())) {

      Print("OpenPosition(): AB0=>2:0 @01>BK DC=:F88");

      break;

    }

    while (!IsTradeAllowed()) Sleep(5000);

    RefreshRates();

    dg=(int)MarketInfo(sy, MODE_DIGITS);

    pa=MarketInfo(sy, MODE_ASK);

    pb=MarketInfo(sy, MODE_BID);

    if (op==OP_BUY) pp=pa; else pp=pb;

    pp=NormalizeDouble(pp, dg);

    ot=TimeCurrent();

//----+

    if(AccountFreeMarginCheck(Symbol(),op, ll)<=0 || GetLastError()==134)return(0);    

//----+ 

    ticket=OrderSend(sy, op, ll, pp, Slippage, sl, tp, lsComm, mn, 0, clOpen);

    if (ticket>0) {

      PlaySound("ok.wav"); break;

    } else {

      err=GetLastError();

      if (pa==0 && pb==0) Message("@>25@LB5 2 17>@5 @K=:0 =0;8G85 A8<2>;0 "+sy);

      // K2>4 A>>1I5=8O >1 >H81:5

      Print("Error(",err,") opening position: ",ErrorDescription(err),", try ",it);

      Print("Ask=",pa," Bid=",pb," sy=",sy," ll=",ll," op=",GetNameOP(op),

            " pp=",pp," sl=",sl," tp=",tp," mn=",mn);

      // ;>:8@>2:0 @01>BK A>25B=8:0

      if (err==2 || err==64 || err==65 || err==133) {

        gbDisabled=True; break;

      }

      // ;8B5;L=0O ?0C70

      if (err==4 || err==131 || err==132) {

        Sleep(1000*300); break;

      }

      if (err==128 || err==142 || err==143) {

        Sleep(1000*66.666);

        if (ExistPositions(sy, op, mn, ot)) {

          PlaySound("ok.wav"); break;

        }

      }

      if (err==140 || err==148 || err==4110 || err==4111) break;

      if (err==141) Sleep(1000*100);

      if (err==145) Sleep(1000*17);

      if (err==146) while (IsTradeContextBusy()) Sleep(1000*11);

      if (err!=135) Sleep(1000*7.7);

    }

  }

  return(ticket);

}

//----

bool ExistPositions(string sy="", int op=-1, int mn=-1, datetime ot=0) {

  int i, k=OrdersTotal();

 

  if (sy=="0") sy=Symbol();

  for (i=0; i<k; i++) {

    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {

      if (OrderSymbol()==sy || sy=="") {

        if (OrderType()==OP_BUY || OrderType()==OP_SELL) {

          if (op<0 || OrderType()==op) {

            if (mn<0 || OrderMagicNumber()==mn) {

              if (ot<=OrderOpenTime()) return(True);

            }

          }

        }

      }

    }

  }

  return(False);

}

//----

void Message(string m) {

  Comment(m);

  if (StringLen(m)>0) Print(m);

} 

//----

string GetNameOP(int op) {

  switch (op) {

    case OP_BUY      : return("Buy");

    case OP_SELL     : return("Sell");

    case OP_BUYLIMIT : return("Buy Limit");

    case OP_SELLLIMIT: return("Sell Limit");

    case OP_BUYSTOP  : return("Buy Stop");

    case OP_SELLSTOP : return("Sell Stop");

    default          : return("Unknown Operation");

  }

}

//----