plan x

/*-----------------------------+
|			       |
| Shared by www.Aptrafx.com    |
|			       |
+------------------------------*/

//+------------------------------------------------------------------+
//|                                                       plan x.mq4 |
//|                                   Copyright © 2005, Peter Ingram |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, Peter Ingram"
#property link      "http://www.metaquotes.net"

extern double  Lots              =0.1;
extern int     Slippage          =2;

extern int     LongTarget        =25;
extern int     ShortTarget       =20;

extern int     InitialSL         =25;
extern int     TrailStopTrigger  =10;
extern int     TrailStopPips     =5;

extern double  BeginTime         =11;
extern double  EndTime           =15;

extern int     MagicNumber       =411;
extern string  comment           ="plan x";

int shift,c,b,i,s,ticket;
double tsl;
   
int init(){return(0);}
int deinit(){return(0);}
int start(){

   if(Period()!=PERIOD_M15) {Alert("Expert for 15m Chart!"); return(0);}
   PosCounter();

   shift=iBarShift(NULL,PERIOD_M15,begintime()); //Print(shift);
      
   if(CurTime()<endtime() && CurTime()>subsequentclose())   {//15min timeframe
      if(Close[1]>(Close[shift]+(LongTarget*Point)) && b==0)  {
         ticket=OrderSend(Symbol(),
                          OP_BUY,
                          Lots,
                          Ask,
                          Slippage,
                          Ask-(InitialSL*Point),
                          0,//OrderTakeProfit
                          comment,
                          MagicNumber,
                          0,//Order expiration time/date
                          Aqua);
                          if(ticket>0)   {
                              if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
                                    {  Print(ticket); }
                              else Print("Error Opening Buy Order: ",GetLastError());
                              return(0);  }}//buy

      if(Close[1]<(Close[shift]-(ShortTarget*Point)) && s==0)   {
         ticket=OrderSend(Symbol(),
                          OP_SELL,
                          Lots,
                          Bid,
                          Slippage,
                          Bid+(InitialSL*Point),
                          0,//OrderTakeProfit
                          comment,
                          MagicNumber,
                          0,//Order expiration time/date
                          Red);
                          if(ticket>0)   {
                              if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
                                    {  Print(ticket); }
                              else Print("Error Opening Sell Order: ",GetLastError());
                              return(0);  }}}//sell

   if(!IsTesting()) {
   for(i=0;i<=OrdersTotal();i++)   {
      OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber) {
         if(OrderType()==OP_BUY) {
            Print(OrderOpenPrice(),"  ",OrderStopLoss());
            if(OrderStopLoss()<OrderOpenPrice() && Bid-OrderOpenPrice()>=(TrailStopTrigger*Point)) {
               tsl=OrderOpenPrice()+(TrailStopPips*Point);}
            if(OrderStopLoss()>OrderOpenPrice() && Bid-OrderStopLoss()>=(TrailStopTrigger*Point))  {
               tsl=OrderStopLoss()+(TrailStopPips*Point);}
               OrderModify(OrderTicket(),
                           OrderOpenPrice(),
                           tsl,
                           OrderTakeProfit(),
                           OrderExpiration(),
                           LightGreen);}
         if(OrderType()==OP_SELL)   {
            Print(OrderOpenPrice(),"  ",OrderStopLoss());
            if(OrderStopLoss()>OrderOpenPrice() && OrderOpenPrice()-Ask>=(TrailStopTrigger*Point)) {
               tsl=OrderOpenPrice()-(TrailStopPips*Point);}
            if(OrderStopLoss()<OrderOpenPrice() && OrderStopLoss()-Ask>=(TrailStopTrigger*Point))  {
               tsl=OrderStopLoss()-(TrailStopPips*Point);}
               OrderModify(OrderTicket(),
                           OrderOpenPrice(),
                           tsl,
                           OrderTakeProfit(),
                           OrderExpiration(),
                           HotPink);}
   }}}//live trailstop

   if(IsTesting()) {
   for(i=0;i<=OrdersTotal();i++)   {
      OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber) {
         if(OrderType()==OP_BUY) {
            Print(OrderOpenPrice(),"  ",OrderStopLoss());
            if(OrderStopLoss()<OrderOpenPrice() && Close[0]-OrderOpenPrice()>=(TrailStopTrigger*Point)) {
               tsl=OrderOpenPrice()+(TrailStopPips*Point);}
            if(OrderStopLoss()>OrderOpenPrice() && Close[0]-OrderStopLoss()>=(TrailStopTrigger*Point))  {
               tsl=OrderStopLoss()+(TrailStopPips*Point);}
               OrderModify(OrderTicket(),
                           OrderOpenPrice(),
                           tsl,
                           OrderTakeProfit(),
                           OrderExpiration(),
                           LightGreen);}
         if(OrderType()==OP_SELL)   {
            Print(OrderOpenPrice(),"  ",OrderStopLoss());
            if(OrderStopLoss()>OrderOpenPrice() && OrderOpenPrice()-Close[0]>=(TrailStopTrigger*Point)) {
               tsl=OrderOpenPrice()-(TrailStopPips*Point);}
            if(OrderStopLoss()<OrderOpenPrice() && OrderStopLoss()-Close[0]>=(TrailStopTrigger*Point))  {
               tsl=OrderStopLoss()-(TrailStopPips*Point);}
               OrderModify(OrderTicket(),
                           OrderOpenPrice(),
                           tsl,
                           OrderTakeProfit(),
                           OrderExpiration(),
                           HotPink);}
   }}}//backtest trailstop

if(!IsTesting()) printcomments();
return(0);}

//Functions
datetime begintime()   {
string date=TimeToStr(CurTime(),TIME_DATE);
string hour=DoubleToStr(BeginTime,0);
string minutes=":00";
return(StrToTime(date+" "+hour+minutes));}//end

datetime endtime()   {
string date=TimeToStr(CurTime(),TIME_DATE);
string hour=DoubleToStr(EndTime,0);
string minutes=":00";
return(StrToTime(date+" "+hour+minutes));}//end

datetime subsequentclose()   {
string date=TimeToStr(CurTime(),TIME_DATE);
string hour=DoubleToStr(BeginTime,0);
string minutes=":15";
return(StrToTime(date+" "+hour+minutes));}//end

void printcomments() { Comment("Last Tick: ",TimeToStr(CurTime(),TIME_DATE|TIME_SECONDS),"\n",
                               "Begin Time: ",TimeToStr(begintime(),TIME_DATE|TIME_MINUTES),"\n",
                               "Begin Bar Close Price:",Close[shift],"\n",
                               "End Time: ",TimeToStr(endtime(),TIME_DATE|TIME_MINUTES));  }//end

void PosCounter() {
   b=0;s=0;
   for(int cnt=0;cnt<=OrdersTotal();cnt++)   {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber) {
         if(OrderType() == OP_SELL) s++;
         if(OrderType() == OP_BUY ) b++;}}}