Multi_SellStopOrder

//+------------------------------------------------------------------+
//|                                   Wamek_SellStopOrders.mq4       |
//|                        Copyright 2023, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Wamek Script-2023"
#property link      "eawamek@gmail.com"
#property version   "1.00"
#property strict
#property script_show_inputs

enum ChooseOption {Target=1,NumOfPips=2};
//--- input parameters
extern string   Option = "SELECT TargetPrice OR NumOfPips BELOW";
extern string   NOTEWELL = "When TargetPrice is selected,Pips has no effect& Vice Versa";

extern ChooseOption TargetOrPips = 2;
extern int      Pips_4rm_BidPrice = 400;
extern double   TargetPrice = 1.03350;
extern double   Lots= .01;
extern int      TakeProfit=400;
extern int      StopLoss= 200;
extern int      NumOfSellStop =1; 
int             MagicNum = 5210;
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
  {
//---
    if( IsTradeAllowed())
         {  
             int pick = MessageBox("You are about to open "+DoubleToString(NumOfSellStop,0)+" SellStop orders\n","SellStop",0x00000001);     
                if (pick==1)
                       for(int i =0 ; i<NumOfSellStop; i++)
                          place_order();
                
         }
   else MessageBox("Enable AutoTrading Please ");
  
  }
  
void OnDeinit(const int reason)
  {
//---
   Comment (" ");
  }
//+------------------------------------------------------------------+


double WhereToSell()
  { 
   if (TargetOrPips == 1)
         return(TargetPrice);
   else 
         return(Bid-Pips_4rm_BidPrice*Point);
  }
void place_order()
 { 
 int ticket;double stoplosslevel, takeprofitlevel;

      if(StopLoss == 0) stoplosslevel=0;
      else stoplosslevel=WhereToSell() + StopLoss*Point;
      
      if(TakeProfit == 0) takeprofitlevel=0;
      else takeprofitlevel =  WhereToSell() - TakeProfit*Point;
  
//---
  ticket = OrderSend(Symbol() ,OP_SELLSTOP,Lots, WhereToSell(), 3,stoplosslevel ,takeprofitlevel,NULL,MagicNum,0,Red);
   if(ticket< 0)   Alert ("OrderSend failed with error #",GetLastError()); 
            
 }