monster_9 EA.mq5

//+------------------------------------------------------------------+
//|                                                  My_First_EA.mq5 |
//|                        Copyright 2010, MetaQuotes Software Corp. |
//|                                              http://www.mql5.com |
//+------------------------------------------------------------------+


#property copyright "Copyright 2010, MetaQuotes Software Corp."
#property link      "http://www.mql5.com"
#property version   "1.00"


#include <Trade\Trade.mqh>

//--- input parameters
input int      StopLoss=0;      // Stop Loss
input int      TakeProfit=30;   // Take Profit
input int      ADX_Period=8;     // ADX Period
input int      MA_Period=8;      // Moving Average Period
input int      EA_Magic=12345;   // EA Magic Number
// input double   Adx_Min=23.0;     // Minimum ADX Value

//--- Other parameters
int adxHandle; // handle for our ADX indicator
int maHandle;  // handle for our Moving Average indicator
double plsDI[],minDI[],maVal[]; // Dynamic arrays to hold the values of +DI, -DI and ADX values for each bars
int STP, TKP;   // To be used for Stop Loss & Take Profit values
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//--- Get handle for ADX indicator
   adxHandle=iADX(NULL,0,ADX_Period);
//--- Get the handle for Moving Average indicator
   maHandle=iMA(_Symbol,_Period,MA_Period,0,MODE_EMA,PRICE_CLOSE);
//--- What if handle returns Invalid Handle
   if(adxHandle<0 || maHandle<0)
     {
      Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!!");
      return(-1);
     }

//--- Let us handle currency pairs with 5 or 3 digit prices instead of 4
   STP = StopLoss;
   TKP = TakeProfit;
   if(_Digits==5 || _Digits==3)
     {
      STP = STP*10;
      TKP = TKP*10;
     }
   return(0);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//--- Release our indicator handles
   IndicatorRelease(adxHandle);
   IndicatorRelease(maHandle);
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+

 CTrade m_trade;
 
 int Oxygen = 0;
 
 int base = 20;
 
 int inhale = base+7; //  profit intake period - increases profit potential by waiting for price to increase even more
 int exhale = base+49; //  -profit intake period - equity neutralize period - REDUCES profit to reduce equity reduce breath 
 
 int scrape = base+99; //Scraper does same job as position correction(open space for new potential positions)
 // kept high to increase overall profit pontential
 // main target is to force market movement and not subsitute target profit
 // is a form of inhale
 
double profit = 31;

double acc_red = -700; // danger zone indicator - to start reversing margin on account.

void OnTick()
  {
//--- Do we have enough bars to work with
   if(Bars(_Symbol,_Period)<20) // if total bars is less than 60 bars
     {
      Print("We have less than 20 bars, EA will now exit!!");
      return;
     }  

// We will use the static Old_Time variable to serve the bar time.
// At each OnTick execution we will check the current bar time with the saved one.
// If the bar time isn't equal to the saved time, it indicates that we have a new tick.

   static datetime Old_Time;
   datetime New_Time[1];
   bool IsNewBar=false;

// copying the last bar time to the element New_Time[0]
   int copied=CopyTime(_Symbol,_Period,0,1,New_Time);
   if(copied>0) // ok, the data has been copied successfully
     {
      if(Old_Time!=New_Time[0]) // if old time isn't equal to new bar time
        {
         IsNewBar=true;   // if it isn't a first call, the new bar has appeared
         if(MQL5InfoInteger(MQL5_DEBUGGING)) Print("We have new bar here ",New_Time[0]," old time was ",Old_Time);
         Old_Time=New_Time[0];            // saving bar time
        }
     }
   else
     {
      Alert("Error in copying historical times data, error =",GetLastError());
      ResetLastError();
      return;
     }

//--- EA should only check for new trade if we have a new bar
   if(IsNewBar==false)
     {
      return;
     }
 
//--- Do we have enough bars to work with
   int Mybars=Bars(_Symbol,_Period);
   if(Mybars<30) // if total bars is less than 30 bars
     {
      Alert("We have less than 30 bars, EA will now exit!!");
      return;
     }

//--- Define some MQL5 Structures we will use for our trade
   
   MqlTick latest_price;      // To be used for getting recent/latest price quotes
   
// the ADX DI+values array
   ArraySetAsSeries(plsDI,true);
// the ADX DI-values array
   ArraySetAsSeries(minDI,true);
// the MA-8 values arrays
   ArraySetAsSeries(maVal,true);


//--- Get the last price quote using the MQL5 MqlTick Structure
   if(!SymbolInfoTick(_Symbol,latest_price))
     {
      Alert("Error getting the latest price quote - error:",GetLastError(),"!!");
      return;
     }


//--- Copy the new values of our indicators to buffers (arrays) using the handle
   if(CopyBuffer(adxHandle,1,0,3,plsDI)<0 || CopyBuffer(adxHandle,2,0,3,minDI)<0)
     {
      Alert("Error copying ADX indicator Buffers - error:",GetLastError(),"!!");
      ResetLastError();
      return;
     }
     
   if(CopyBuffer(maHandle,0,0,3,maVal)<0)
     {
      Alert("Error copying Moving Average indicator buffer - error:",GetLastError());
      ResetLastError();
      return;
     }

           
            for(int a=0;a<PositionsTotal();a++){
   
                 PositionSelectByTicket(PositionGetTicket(a));
                 
            if(AccountInfoDouble(ACCOUNT_PROFIT)>1000 && (Oxygen%inhale==0)){ 
             
            Print(PositionGetTicket(a)," Profit From Position: ",(PositionGetDouble(POSITION_PROFIT)));
            m_trade.PositionClose(PositionGetTicket(a)); // close trade of position if profit greater than 11 dollars
              
            }else if(PositionGetDouble(POSITION_PROFIT)>=profit && (Oxygen%inhale==0)){
        
            Print(PositionGetTicket(a)," Profit From Position: ",(PositionGetDouble(POSITION_PROFIT)));
            m_trade.PositionClose(PositionGetTicket(a)); // close trade of position if profit greater than 11 dollars
            pump_oxygen();
           
            }else if((PositionGetDouble(POSITION_PROFIT))<-profit && (Oxygen%exhale==0)){
            
            if(AccountInfoDouble(ACCOUNT_PROFIT)<acc_red){
            Print(PositionGetTicket(a)," Profit From Position: ",(PositionGetDouble(POSITION_PROFIT)));
            m_trade.PositionClose(PositionGetTicket(a)); 
            pump_oxygen();
            }
           
            }else if(PositionGetDouble(POSITION_PROFIT)>11 && (Oxygen%scrape==0)){
            //(open space for new potential positions)
            //Scraper takes profit below normal target to accomodate stagnant market
           
             Print(PositionGetTicket(a)," Profit From Position: ",(PositionGetDouble(POSITION_PROFIT)));
             m_trade.PositionClose(PositionGetTicket(a)); 
             pump_oxygen();
            
            }else if((PositionGetDouble(POSITION_PROFIT)<=-7 && PositionGetDouble(POSITION_PROFIT)>=-15) && (Oxygen%exhale==0)){
            //Position correction - take loss before it gets out of hand 
            
            Print(PositionGetTicket(a)," Profit From Position: ",(PositionGetDouble(POSITION_PROFIT)));
            m_trade.PositionClose(PositionGetTicket(a)); 
            pump_oxygen();
            }
            
               }
     pump_oxygen(); // tick related movement      
   
   double LLot = 0.1;
   // dont place more than 2 orders at once for accont balance less than 100 dollars - prevent account from reaching 0 equity
    
           if(AccountInfoDouble(ACCOUNT_BALANCE)<=100){
           if(PositionsTotal()>=2){
                 return;
           }else{
                LLot=0.01; 
           }
           }else if(AccountInfoDouble(ACCOUNT_BALANCE)>10000){
           if(PositionsTotal()>=21){
                 return;
           }else{
                LLot=0.7; 
           }
           }else if(AccountInfoDouble(ACCOUNT_BALANCE)>5000){
           if(PositionsTotal()>=41){
                 return;
           }else{
                LLot=0.3; 
           }
           }
          

          if((maVal[0]>maVal[1]) && (maVal[1]>maVal[2])) // MA-8 Increasing upwards
    if((plsDI[0]>minDI[0]))   // +DI greater than -DI
     if  (!sym_max(_Symbol))
         if(m_trade.Buy(LLot,_Symbol,
           latest_price.ask,
           NormalizeDouble(latest_price.ask - STP*_Point,_Digits), 
           NormalizeDouble(latest_price.ask + TKP*_Point,_Digits),
           NULL)) //Request is completed or order placed
           {
            Print("A Buy order has been successfully placed !!");
           }
         else
           {
            Print("The Buy order request could not be completed - error:",GetLastError());
            ResetLastError();           
            return;
           }
     
     
   if((maVal[0]<maVal[1]) && (maVal[1]<maVal[2]))//MA-8 decreasing downwards
        if((plsDI[0]<minDI[0]))  // -DI greater than +DI
            if(!sym_max(_Symbol))
         if(m_trade.Sell(LLot,_Symbol,
           NormalizeDouble(latest_price.bid,_Digits),
           NormalizeDouble(latest_price.bid + STP*_Point,_Digits), 
           NormalizeDouble(latest_price.bid - TKP*_Point,_Digits),
           NULL)) //Request is completed or order placed
           {
           
            Print("A Sell order has been successfully placed !!");
            
           }
         else
           {
            Print("The Sell order request could not be completed - error:",GetLastError());
            ResetLastError();
            return;
           }
        
     
   return;
  }
    
     void pump_oxygen(){
  if(Oxygen>=1000){
                Oxygen=0;
               }else{
                 Oxygen++;
               }
      }
    
     bool sym_max(string sym){
    int aa = 0;
    for(int a=(PositionsTotal()-1);a>-1;a--){
    if(PositionGetSymbol(a)==sym){
         aa++;
    }
    }
    return aa>=11;
    }
    
//+-------------------