#property link      "jfaris31@hotmail.com"
#property version   "1.00"
//+------------------------------------------------------------------+
//| Include                                                          |
//+------------------------------------------------------------------+

  // include the file Trade.mqh
#include<Trade\Trade.mqh>

// Create an instance of Ctrade
CTrade trade;
//--- available trailing
#include <Expert\Trailing\TrailingNone.mqh>
//--- available money management
#include <Expert\Money\MoneyFixedLot.mqh>
//+------------------------------------------------------------------+
//| Inputs                                                           |
//+------------------------------------------------------------------+

//--- inputs for main signal
input double             Signal_TakeLevel     =210.0;        // Take Profit level (in points)
input double             Price_Trigger        =160.0;       //Price Trigger
input int                Balance_Range         =2.0;         //Balance Trigger
input int                Max_Positions_Total   =7.0;        //Max Positions to be held
input double             Gain_Percentage        =1.25;      //Gain Percentage in equity before close all
input double            Equity_Stop_Loss        =500;        //Equity Stop Loss
input double            Equity_Take_Profit    =200;          //Equity Take Profit

//--- inputs for money
input double             Money_FixLot_Percent =1.0;        // Percent
input double             Money_FixLot_Lots    =0.10;         // Fixed volume
//+------------------------------------------------------------------+
//| Global expert object                                             |
//+------------------------------------------------------------------+


//CExpert ExtExpert;
//+------------------------------------------------------------------+
//| Initialization function of the expert                            |
//+------------------------------------------------------------------+





void OnTick()
{


   // Get the ask & bid price
   double Ask=NormalizeDouble(SymbolInfoDouble(_Symbol,SYMBOL_ASK),4);
   double Bid=NormalizeDouble(SymbolInfoDouble(_Symbol,SYMBOL_BID),4);  
   
      //Get the Account Balance
   double Balance=AccountInfoDouble(ACCOUNT_BALANCE);
   
   //Get the Account Equity
   double Equity=AccountInfoDouble(ACCOUNT_EQUITY);  
   
   //Get the Account Margin Free
  double Free_Margin=AccountInfoDouble(ACCOUNT_MARGIN_FREE); 
  
  //Get the Account Margin
  double Account_Margin=AccountInfoDouble(ACCOUNT_MARGIN);
  
  //Get total positions
  
  int Total_Positions=PositionsTotal();
  
  // Calculate the deposit load
  double Deposit_Load = Account_Margin/Equity;
  
  //Create an equity starting point
 static double Base_Equity=0;
  
  if (PositionsTotal()==0)
  {
  Base_Equity=Equity;
  }
  
  
  
  
      //Create an Array for prices
      MqlRates PriceInformation[];
    
       
      
      // Sort it from current candle to oldest candle
      ArraySetAsSeries(PriceInformation,true);
      
   //Copy price data into the array ------ old text that was in place of 50 --- Bars(Symbol(),Period())
      int Data=CopyRates(Symbol(),_Period,0,10,PriceInformation);
      


 
     
 //ORDER HISTORY PROFIT TUTORIAL START
 




   uint   TotalNumberOfDeals=HistoryDealsTotal();
   ulong  TicketNumber=0;
   long   OrderType, DealEntry;
   double OrderProfit=0;
   string MySymbol="";
   string PositionDirection="";
   string MyResult="";
 static  double open_price=0;
   
   
   //get the history
   HistorySelect(0,TimeCurrent());
   
   //go through all the deals
   for(uint i=0; i<TotalNumberOfDeals;i++)
   {
   
      //we look for a ticket number  -- use an if statement, because if there are no open positions this avoids an error
      if((TicketNumber=HistoryDealGetTicket(i))>0)
         {
         
         //Get the profit
         OrderProfit=HistoryDealGetDouble(TicketNumber,DEAL_PROFIT);
         
         // get the type
         OrderType = HistoryDealGetInteger(TicketNumber,DEAL_TYPE);
         
         //get the currency pair
         MySymbol=HistoryDealGetString(TicketNumber,DEAL_SYMBOL);
         
         //get the deal entry type to check for close types
         DealEntry=HistoryDealGetInteger(TicketNumber,DEAL_ENTRY);
         
         open_price=HistoryDealGetDouble(TicketNumber,DEAL_PRICE);
  
  
        
      //+++++++++++++++SET THE BASE PRICE +++++++++++++++++++++++++++
   double             BasePrice=open_price;        
         
         //If the currency pair fits
         if (MySymbol==_Symbol)
         
         //if it is a buy or a sell order
         if(OrderType==ORDER_TYPE_BUY || OrderType==ORDER_TYPE_SELL)
         
         //if the order was closed
         if (DealEntry==1)
         
         {
            // set sell order type if close type was buy
            if (OrderType==ORDER_TYPE_BUY)
            PositionDirection="SELL-TRADE";
            
            //set buy order type if close type was sell
            if (OrderType==ORDER_TYPE_SELL)
            PositionDirection="BUY-TRADE";
            
        //    MyResult = "Profit:"+OrderProfit+ "Ticket:" +TicketNumber+ "Position Direction:"+PositionDirection;  
            
            
  //ORDER HISTORY PROFIT TUTORIAL END
 }
   }
      }

       
 
 
      
     if(PositionsTotal()<1)
     {
      trade.Buy((Money_FixLot_Percent),NULL,Ask,(Ask-Price_Trigger*_Point*1.1),(Ask+Price_Trigger*_Point*1.1),NULL);
      // trade.Sell((Money_FixLot_Percent),NULL,Bid,(Ask+Signal_TakeLevel*_Point),(Bid-Signal_TakeLevel*_Point),NULL);
         }
      //check all open positions for the current symbol +++++++++++++++++++++++++++++CHANGED i=PositionsTotal ()-1; i>=0
      for(int i=PositionsTotal()-1; i>=0; i--) // count all currency pair positions
      {
       
         string symbol=PositionGetSymbol(i); // get position symbol
            if(_Symbol==symbol) // if chart symbol equals position symbol
            
               // get the ticket number
               ulong PositionTicket=PositionGetInteger(POSITION_TICKET);   
               
               //get the current Stop Loss
               double CurrentStopLoss=PositionGetDouble(POSITION_SL);
               
                              //get the open price
           //    double open_price=PositionGetDouble(POSITION_PRICE_OPEN);
               
               
            //   datetime open_start_time=PositionGetDouble(POSITION_TIME_MSC);
            }
               
    //   if(PositionsTotal()>=1)
    //   if(Bid<=open_price-Price_Trigger*_Point)
     //          trade.Sell(Money_FixLot_Lots,NULL,Bid,0,(Bid-Signal_TakeLevel*_Point),NULL);

 
            
      if(PositionsTotal()>=1&& (OrdersTotal()+PositionsTotal())==PositionsTotal())
         if(Ask>=open_price+Price_Trigger*_Point)
            if(PositionsTotal()<=Max_Positions_Total)
              // {trade.BuyStop(Money_FixLot_Lots,open_price+Price_Trigger*_Point,_Symbol,NULL,Signal_TakeLevel*_Point,ORDER_TIME_GTC,0,NULL); }
                  trade.Sell((Money_FixLot_Percent),NULL,Bid,(Ask+Signal_TakeLevel*_Point),0,NULL);       

                
   
       if(PositionsTotal()>=1&& (OrdersTotal()+PositionsTotal())==PositionsTotal())
         if(Bid<=open_price-Price_Trigger*_Point)
            if(PositionsTotal()<=Max_Positions_Total)
              // {trade.BuyStop(Money_FixLot_Lots,open_price+Price_Trigger*_Point,_Symbol,NULL,Signal_TakeLevel*_Point,ORDER_TIME_GTC,0,NULL); }+++++(Bid-100*_Point)
                  trade.Buy((Money_FixLot_Percent),NULL,Ask,(Bid-Signal_TakeLevel*_Point),999999999,NULL);
      
      //  (Ask+Signal_TakeLevel*_Point) ++++++++  (Bid-Signal_TakeLevel*_Point)
      
      
      //++++++++++++++Balancing Trades+++++++
      
      
      //Buy & Sell Counter Variables
  int Buy_Position_Counter=0;
  int Sell_Position_Counter=0;    
      
    // count down until there are no positions left
   for(int i=PositionsTotal()-1; i>=0; i--) // go through all positions
   {
         //Get the ticket number for the current position
         int ticket=PositionGetTicket(i);
 //        
         // Get the positon direction
         int PositionDirection=PositionGetInteger(POSITION_TYPE);
         
         //if it is a buy position
         if (PositionDirection==POSITION_TYPE_BUY)
         
         //close the current position add to buy counter here
               // add 1 to the candleCounter
      Buy_Position_Counter=Buy_Position_Counter+1;
      
               //if it is a buy position
         if (PositionDirection==POSITION_TYPE_SELL)
         
         //close the current position add to buy counter here
               // add 1 to the candleCounter
      Sell_Position_Counter=Sell_Position_Counter+1;
   }//End for loop
        
      
      // Pull the counters into the logic for buying/selling here
      
  if((Buy_Position_Counter-Sell_Position_Counter)>=Balance_Range)
             trade.Sell((Money_FixLot_Percent*Total_Positions*2),NULL,Bid,0,(Bid-Signal_TakeLevel*_Point),NULL);
             
             
  if((Sell_Position_Counter-Buy_Position_Counter)>=Balance_Range)
              trade.Buy((Money_FixLot_Percent*Total_Positions*2),NULL,Ask,0,(Ask+Signal_TakeLevel*_Point),NULL);  

      //if we have a profit, close all positions "if the equity is above the balance, that means we made a profit"  +++++++  Equity>=Balance)Free_Margin<=0 || 
   if (Equity>=Base_Equity+Equity_Take_Profit || Equity<=Base_Equity-Equity_Stop_Loss)
         {
            CloseAllPositions();
         }

}

// EXTERNAL CLOSE FUNCTION 
void CloseAllPositions()
   {
   // from the number of positions count down to zero
   for(int i=PositionsTotal()-1; i>=0; i--) //look at all positions
   {
      // get the ticket number for the current position
      int ticket=PositionGetTicket(i);
      
      // close the current postion
      trade.PositionClose(ticket);
   }   // End the for loop
   
 } // CloseAllPositions end