Suffic369_www.forex-instruments.info

//+------------------------------------------------------------------+
//|                                                    suffic369.mq4 |
//|                                                                  |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright "suffic369@yahoo.com, treberk"
#property link      "http://sufx.core.t3-ism.net/ExpertAdvisorBuilder/"
//----
extern int MagicNumber=0;
extern bool EachTickMode=True;
extern double Lots=0.1;
extern int Slippage=3;
extern bool StopLossMode=True;
extern int StopLoss=30;
extern bool TakeProfitMode=True;
extern int TakeProfit=60;
extern bool TrailingStopMode=True;
extern int TrailingStop=30;
//----
#define SIGNAL_NONE 0
//----
int BarCount;
int Current;
bool TickCheck=False;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
  int init() 
  {
   BarCount=Bars;
   if (EachTickMode) Current=0; else Current=1;
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
  int deinit() 
  {
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
  int start() 
  {
   int Order=SIGNAL_NONE;
   int Total, Ticket;
   double StopLossLevel, TakeProfitLevel;
//----
   if (EachTickMode && Bars!=BarCount) EachTickMode=False;
   Total=OrdersTotal();
   Order=SIGNAL_NONE;
   //+------------------------------------------------------------------+
   //| Signal Begin                                                     |
   //+------------------------------------------------------------------+
   double Buy1_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 1);
   double Buy1_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_HIGH, Current + 1);
   double Buy2_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 0);
   double Buy2_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_HIGH, Current + 0);
   double Buy3_1=iClose(NULL, 0, Current + 0);
   double Buy3_2=iBands(NULL, 0, 156, 1, 0, PRICE_CLOSE, MODE_LOWER, Current + 0);
   double Sell1_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 1);
   double Sell1_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_LOW, Current + 1);
   double Sell2_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 0);
   double Sell2_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_LOW, Current + 0);
   double Sell3_1=iClose(NULL, 0, Current + 0);
   double Sell3_2=iBands(NULL, 0, 156, 1, 0, PRICE_CLOSE, MODE_UPPER, Current + 0);
   double CloseBuy1_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 1);
   double CloseBuy1_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_LOW, Current + 1);
   double CloseBuy2_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 0);
   double CloseBuy2_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_LOW, Current + 0);
   double CloseBuy3_1=iClose(NULL, 0, Current + 0);
   double CloseBuy3_2=iBands(NULL, 0, 156, 1, 0, PRICE_CLOSE, MODE_UPPER, Current + 0);
   double CloseSell1_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 1);
   double CloseSell1_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_HIGH, Current + 1);
   double CloseSell2_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 0);
   double CloseSell2_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_HIGH, Current + 0);
   double CloseSell3_1=iClose(NULL, 0, Current + 0);
   double CloseSell3_2=iBands(NULL, 0, 156, 1, 0, PRICE_CLOSE, MODE_LOWER, Current + 0);
   //+------------------------------------------------------------------+
   //| Signal End                                                       |
   //+------------------------------------------------------------------+
   //Buy
   if(Total < 1)
     {
      //Check free margin
      if (AccountFreeMargin() < (1000 * Lots))
        {
         Print("We have no money. Free Margin = ", AccountFreeMargin());
         return(0);
        }
      if ((Buy1_1 < Buy1_2 && Buy2_1 > Buy2_2 && Buy3_1 < Buy3_2) && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars!=BarCount))))
        {
         if (StopLossMode) StopLossLevel=Ask - StopLoss * Point;
         else StopLossLevel=0.0;
         if (TakeProfitMode) TakeProfitLevel=Ask + TakeProfit * Point; else TakeProfitLevel=0.0;
//----
         Ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,StopLossLevel,TakeProfitLevel,"",MagicNumber,0,DodgerBlue);
           if(Ticket > 0) 
           {
            if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES))
               Print("BUY order opened : ", OrderOpenPrice()); else Print("Error opening BUY order : ", GetLastError());
           }
         if (EachTickMode) TickCheck=True;
         if (!EachTickMode) BarCount=Bars;
         return(0);
        }
     }
   //Sell
   if ((Sell1_1 > Sell1_2 && Sell2_1 < Sell2_2 && Sell3_1 > Sell3_2) && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars!=BarCount))))
     {
        if(Total < 1) 
        {
         //Check free margin
         if (AccountFreeMargin() < (1000 * Lots))
           {
            Print("We have no money. Free Margin = ", AccountFreeMargin());
            return(0);
           }
         if (StopLossMode) StopLossLevel=Bid + StopLoss * Point;
         else StopLossLevel=0.0;
         if (TakeProfitMode) TakeProfitLevel=Bid - TakeProfit * Point; else TakeProfitLevel=0.0;
//----
         Ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage,StopLossLevel,TakeProfitLevel,"", MagicNumber,0,DeepPink);
         if(Ticket > 0)
           {
            if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES))
               Print("SELL order opened : ", OrderOpenPrice());
            else Print("Error opening SELL order : ", GetLastError());
           }
         if (EachTickMode) TickCheck=True;
         if (!EachTickMode) BarCount=Bars;
         return(0);
        }
     }
   //Check position
     for(int i=0; i < Total; i ++) 
     {
      OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
      if(OrderType()<=OP_SELL &&  OrderSymbol()==Symbol())
        {
         if(OrderType()==OP_BUY)
           {
            //Close
            if ((CloseBuy1_1 > CloseBuy1_2 && CloseBuy2_1 < CloseBuy2_2 && CloseBuy3_1 > CloseBuy3_2) && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars!=BarCount))))
              {
               OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,MediumSeaGreen);
               if (EachTickMode) TickCheck=True;
               if (!EachTickMode) BarCount=Bars;
               return(0);
              }
            //Trailing stop
            if(TrailingStopMode && TrailingStop > 0)
              {
                 if(Bid - OrderOpenPrice() > Point * TrailingStop) 
                 {
                    if(OrderStopLoss() < Bid - Point * TrailingStop) 
                    {
                     OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,MediumSeaGreen);
                     if (!EachTickMode) BarCount=Bars;
                     return(0);
                    }
                 }
              }
            }
             else 
            {
            //Close
            if ((CloseSell1_1 < CloseSell1_2 && CloseSell2_1 > CloseSell2_2 && CloseSell3_1 < CloseSell3_2) && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars!=BarCount))))
              {
               OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, DarkOrange);
               if (EachTickMode) TickCheck=True;
               if (!EachTickMode) BarCount=Bars;
               return(0);
              }
            //Trailing stop
            if(TrailingStopMode && TrailingStop > 0)
              {
               if((OrderOpenPrice() - Ask) > (Point * TrailingStop))
                 {
                    if((OrderStopLoss() > (Ask + Point * TrailingStop)) || (OrderStopLoss()==0)) 
                    {
                     OrderModify(OrderTicket(), OrderOpenPrice(), Ask + Point * TrailingStop, OrderTakeProfit(), 0, DarkOrange);
                     if (!EachTickMode) BarCount=Bars;
                     return(0);
                    }
                 }
              }
           }
        }
     }
   if (!EachTickMode) BarCount=Bars;
//----
   return(0);
  }
//+------------------------------------------------------------------+