//+------------------------------------------------------------------+
//|                                                  Market Long.mq4 |
//|                                                    Steve Hopwood |
//| www.hopwood3.freeserve.co.uk                                     |
//+------------------------------------------------------------------+
#property copyright "Steve Hopwood"
#property link      ""
#property show_inputs
#include <WinUser32.mqh>
#include <stdlib.mqh>

extern double Lots=0.2;
extern int    MagicNumber=59768;
extern double StopLoss;
extern double TakeProfit;
//extern double SlippageAllowed;

extern string TradeComment = "C4";
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
//----
  
  // Include spread
   double BrokerSpread=MarketInfo(Symbol(),MODE_SPREAD);
   double TP=TakeProfit; 
   double SL=StopLoss;
   
   if (TakeProfit==0) TP=0;
   else
   {
      TP=NormalizeDouble(TakeProfit-(BrokerSpread*Point),Digits);
   }
   
   if (StopLoss==0) SL=0;
   else
   {
      SL=NormalizeDouble(StopLoss-(BrokerSpread*Point),Digits);
   }
   
   
   int ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,0,SL,TP,TradeComment + "  # " + MagicNumber,MagicNumber,0,Green);
   if(ticket<1)
     {
      int error=GetLastError();
      Print("Error = ",ErrorDescription(error));
      return;
     }
//----
   OrderPrint();
   
//----
   return(0);
  }
//+------------------------------------------------------------------+