Market Long by Steve

#property show_inputs
#include <stdlib.mqh>

extern string  ins0="Number orders to place";   
extern int     Number_of_order = 1;
extern bool    UseExistingStops = true;
extern double  Lots=0;
extern string  ins1="Risk Percent. 0=Disabled";
extern double  Risk=0.5;
extern string  ins2="Stop loss and take profit as price";    
extern double  SlAsPrice;
extern double  TpAsPrice;
extern string  ins3="Stop loss and take profit as pips";    
extern double  SlAsPips=25;
extern double  TpAsPips=50;
extern double  Slippage = 1;
extern int     MagicNumber=8088;
extern string  TradeComment = "";

int Width = 1376;
int Height = 768;
double takeprofit,StopLoss,StopLossPips, Slip;
int Divisor=1, ticket=0, buyOrders, totalOrders;

double MinLotSize,MaxLotSize,point,AmountAtRisk,PointCostValue,LotSize;
double FirstOrderTicket,FirstOrderTakeProfit, FirstOrderStopLoss,FirstOrderOpenPrice;
string Currency="";
string SymbolExtra="";
string Lot="";

int start()
  {
      // код доступен только после оплаты
   }
  int err ;
  int i = 0;
  Slip = Slippage;
  double     FiveDigitM;

  if(StringFind(Symbol(), "JPY",0) > 0)
         FiveDigitM = 100 ;
      else  
         FiveDigitM = 10000 ;

   point=Point;
   if(Digits == 5 || Digits == 3 || Symbol() == "XAUUSD")
   { 
      point = Point * 10 ; 
      Slip = Slippage * 10;   
      Divisor = 10;
   }         

   buyOrders = CountOrders(Symbol(), MagicNumber, OP_BUY);

   if(TpAsPips==0 && TpAsPrice==0) takeprofit=0;
   if (!TpAsPips==0) takeprofit= Ask + TpAsPips/FiveDigitM ;
   if (!TpAsPrice==0) takeprofit=TpAsPrice;

   if (SlAsPips==0 && SlAsPrice) StopLoss=0;
   if (!SlAsPips==0) StopLoss = Ask - SlAsPips/FiveDigitM;  
   if (!SlAsPrice==0) StopLoss=SlAsPrice;

   StopLossPips = (Ask - StopLoss) / point;

   if(UseExistingStops && buyOrders>0)
   {
      FirstOrderTicket=GetFirstTicketBymagic(MagicNumber); 
      StopLossPips = (Ask - FirstOrderStopLoss) / point;
   }

    PointCost();
    if(Lots==0) Calc();

if(!UseExistingStops || buyOrders==0)
{  
   ticket=0;
   for(i = 0; i < Number_of_order; i++)
   {
      ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Slip,0,0,TradeComment,MagicNumber,0,Green);

      err = GetLastError() ;

      if ( err  != 0)
          Alert("Failed to create Order. Error = ",ErrorDescription(err)) ;
      else
      {

         OrderModify(ticket ,OrderOpenPrice(), StopLoss,takeprofit,0,CLR_NONE);

         err = GetLastError() ;

         if ( err  != 0)
                Alert("Failed to Modify Order. Error = ",ErrorDescription(err), " Order Id:, ", ticket, " Limit = ", takeprofit, " Stop loss = ", StopLoss ) ;
         else
                PlaySound("ok.wav") ;
      }
      WindowScreenShot("ScreenShots\\"+Symbol()+"_M"+Period()+"\\"+Symbol()+"_M"+ Period()+"_"+TimeToStr(iTime(NULL, 0, 0),TIME_DATE)+"_"+TimeHour(TimeCurrent())+"_"+Time

Показано первые 50% кода (символов: 4449)