mql5/Scripts/Downloads/Fast Pending Orders-v1.1.mq5

<EFBFBD><EFBFBD>//+------------------------------------------------------------------+

//|                                      Fast Pending Orders.mq5     |

//|                                 Copyright <EFBFBD> 2020, behzad.mvr     |

//|                                         Behzad.mvr@gmail.com     |

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



#property script_show_inputs



// Set riskPercent=0 if you want to use riskAmount

enum definePendingType

  {

   BuyStop=1,//Buy Stop

   BuyLimit=2,//Buy Limit

   SellStop=-1,//Sell Stop

   SellLimit=-2,//Sell Limit

   None=0,// Not Defined!

  };

  

input string firstRun="----- Set in First script run -----"; // -----------------------------------

input definePendingType pendingType=0; //Type of Pending Order

input string secondRun="----- Set in Second script run -----"; // -----------------------------------

input double riskPercent=2; //Risk Percent (%)

input double riskAmount=0; //Risk Amount ($)

input int TotalOrders=1; //Number of Pending Orders

input double minLot=0.01;  //Minimum Lot Allowed by Broker to open Orders

int Slipage=0;   //Max order slipage(deviation) (points)

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

//|                                                                  |

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



ulong  magic=0;

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

//|                                                                  |

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

int OnStart()

  {

   if(!TerminalInfoInteger(TERMINAL_TRADE_ALLOWED))

     {

      Alert("Check if automated trading is allowed in the terminal settings.");

      return(0);

     }

   if(riskPercent!=0 && riskAmount!=0)

     {

      Alert("Set one of the risk parameters=0 to other parameter works.");

      return(0);

     }

   if(riskPercent==0 && riskAmount==0)

     {

      Alert("Don't set both of risk parameters = 0");

      return(0);

     }

   int totalOrders=TotalOrders;

   double orderPrice=0,sl=0;

   double lots=0;

   double price=SymbolInfoDouble(Symbol(),SYMBOL_BID);

   double TP=0,SL=0;

   double equity=AccountInfoDouble(ACCOUNT_EQUITY);

   double tick=SymbolInfoDouble(_Symbol,SYMBOL_TRADE_TICK_VALUE);

   double maxLoss=0;

   if(riskPercent!=0)

      maxLoss=(riskPercent/100)*equity;

   else

      if(riskAmount!=0)

         maxLoss=riskAmount;



   ENUM_ORDER_TYPE orderType=-1;



   MqlTradeRequest request;

   MqlTradeResult  result;

   int total=OrdersTotal();



   double volume=0;

   ulong  order_ticket=0;

   int minLotCnt=0;

   for(int i=0; i<total; i++)

     {

      //--- parameters of the order

      order_ticket=OrderGetTicket(i);// ticket of the order

      string order_symbol=OrderGetString(ORDER_SYMBOL); // symbol

      volume=OrderGetDouble(ORDER_VOLUME_CURRENT);    // volume of the order

      if(order_symbol!=_Symbol || volume!=minLot)

         continue;

      minLotCnt++;

      int    digits=(int)SymbolInfoInteger(order_symbol,SYMBOL_DIGITS); // number of decimal places

      magic=OrderGetInteger(ORDER_MAGIC); // MagicNumber of the order

      orderPrice=OrderGetDouble(ORDER_PRICE_OPEN);

      sl=OrderGetDouble(ORDER_SL);  // Stop Loss of the order

      if(sl==0)

        {

         Alert("Please Set the StopLoss!");

         return(0);

        }

      orderType=(ENUM_ORDER_TYPE)OrderGetInteger(ORDER_TYPE);  // type of the order

     }

   if(minLotCnt==0 && pendingType==0)

     {

     // Alert("First set a "+DoubleToString(minLot,2)+" pending order for "+_Symbol);

      Alert("Please set Type of Pending Order parameter in inputs window.");

      return(0);

     }

   if(minLotCnt>1)

     {

      Alert("There must be only one "+DoubleToString(minLot,2)+" lot pending order for "+_Symbol);

      return(0);

     }

   if(minLotCnt==1)

     {

      double usedLoss=0;

      if(orderType==ORDER_TYPE_BUY_STOP || orderType==ORDER_TYPE_BUY_LIMIT)

        {

         double ask=SymbolInfoDouble(Symbol(),SYMBOL_ASK);

         usedLoss=minLot*(ask-sl)*tick/_Point;

         for(int k=1; k<=totalOrders; k++)

           {

            if(maxLoss<k*usedLoss)

              {

               totalOrders=k-1;

               Alert("There is only enough risked eguity to split pending order into "+IntegerToString(k-1)+" order.");

               break;

              }

           }

         if(totalOrders==0)

            return(0);

         TP=orderPrice+(orderPrice-sl);

         lots=NormalizeDouble((maxLoss/((orderPrice-sl)*tick/_Point)/totalOrders),2);

         for(int i=0; i<totalOrders; i++)

           {

            sendOrder(orderType,orderPrice,sl,TP,lots,"");

            TP=TP+50*_Point;

           }

        }

      //----