hma_power2.02





//+-----------------------------------------------------------------------------------+
//|                                                                HMA POWER EA 3.mq4 |
//|                                               Copyright © 2005, Alejandro Galindo |
//|                                                               http://elCactus.com |
//|                                   Copyright © 2007, AZAM575 & OILFXPRO & YUSOF786 |
//|                                                                 http://mymefx.com |
//+-----------------------------------------------------------------------------------+

///Please, do not sell this EA because its FREE

#property copyright "Copyright © 2007, AZAM575&OILFXPRO&YUSOF786"
#property link      "MYMEFX.COM"

extern string  INFO="HMA POWER EA";
extern string  OWN="Copyright © 2007, AZAM575&OILFXPRO&YUSOF786";
extern int last_bar= 1;
extern bool long = true;
extern bool short = true;
extern bool ExitWithRSI=False;
extern string  sb="--TRADE SETTING--";
extern double Lots = 0.1;       // We start with this lots number
extern int    TakeProfit = 32;  // Profit Goal for the latest order opened
extern double multiply=2.0; 
extern int MaxTrades=15;        // Maximum number of orders to open
extern int Pips=22;             // Distance in Pips from one order to another
extern int    StopLoss = 0;  // StopLoss
extern int    TrailingStop = 0;// Pips to trail the StopLoss
extern string  MM="--MOney Management--"; // (from order 2, not from first order
extern string  MMSwicth="if one the lots size will increase based on account size";
extern int mm=0;                // if one the lots size will increase based on account size
extern string  riskset="risk to calculate the lots size (only if mm is enabled)";
extern int risk=1;             // risk to calculate the lots size (only if mm is enabled)
extern string accounttypes="0 if Normal Lots, 1 for mini lots, 2 for micro lots";
extern int AccountType=1;  // 0 if Normal Lots, 1 for mini lots, 2 for micro lots
extern string  magicnumber="--MAgic No--";
extern int MagicNumber=222777;  // Magic number for the orders placed
//extern int MagicNumber=0;  // Magic number for the orders placed
extern string  so="--CUTLOSS SETTING--";
extern bool MyMoneyProfitTarget=False;
extern double My_Money_Profit_Target=50;
extern bool SecureProfitProtection=False;
extern string  SP="If profit made is bigger than SecureProfit we close the orders";
extern int SecureProfit=20;     // If profit made is bigger than SecureProfit we close the orders
extern string  OTP="Number of orders to enable the account protection";
extern int OrderstoProtect=3;   // Number of orders to enable the account protection
extern string  ASP="if one will check profit from all symbols, if cero only this symbol";
extern bool AllSymbolsProtect=False; // if one will check profit from all symbols, if cero only this symbol
extern string  EP="if true, then the expert will protect the account equity to the percent specified";
extern bool EquityProtection=False;  // if true, then the expert will protect the account equity to the percent specified
extern string  AEP="percent of the account to protect on a set of trades";
extern int AccountEquityPercentProtection=90; // percent of the account to protect on a set of trades
extern string  AMP="if true, then the expert will use money protection to the USD specified";
extern bool AccountMoneyProtection=False;
extern double AccountMoneyProtectionValue=3000.00;
string  s1="--seting berapa jam dia nak open order--";
bool UseHourTrade = False;
int FromHourTrade = 0;
int ToHourTrade = 1;

extern string  TradingTime="--trading time setting--";
extern bool    UseTradingHours = false;
extern bool    TradeAsianMarket = true;
extern int     StartHour1 = 0;       // Start trades after time
extern int     StopHour1 = 3;      // Stop trading after time
extern bool    TradeEuropeanMarket = true;
extern int     StartHour2 = 9;       // Start trades after time
extern int     StopHour2 = 11;      // Stop trading after time
extern bool    TradeNewYorkMarket = false;
extern int     StartHour3 = 15;       // Start trades after time
extern int     StopHour3 = 17;      // Stop trading after time
extern bool TradeOnFriday=True;
extern string  OtherSetting="--Others Setting--";
int OrdersTimeAlive=0;  // in seconds
extern string  reverse="if one the desition to go long/short will be reversed";
extern bool ReverseCondition=False;  // if one the desition to go long/short will be reversed
extern string  limitorder="if true, instead open market orders it will open limit orders ";
extern bool SetLimitOrders=False; // if true, instead open market orders it will open limit orders 
int Manual=0;            // If set to one then it will not open trades automatically
color ArrowsColor=Black;       // color for the orders arrows


int OpenOrdersBasedOn=16; // Method to decide if we start long or short
bool ContinueOpening=True;

int  OpenOrders=0, cnt=0;
int MarketOpenOrders=0, LimitOpenOrders=0;
int  slippage=5;
double sl=0, tp=0;
double BuyPrice=0, SellPrice=0;
double lotsi=0, mylotsi=0;
int mode=0, myOrderType=0, myOrderTypetmp=0;

double LastPrice=0;
int  PreviousOpenOrders=0;
double Profit=0;
int LastTicket=0, LastType=0;
double LastClosePrice=0, LastLots=0;
double Pivot=0;
double PipValue=0;
bool Reversed=False;
double tmp=0;
double iTmpH=0;
double iTmpL=0;
datetime NonTradingTime[][2];
bool FileReaded=false;
string dateLimit = "2030.01.12 23:00";
int CurTimeOpeningFlag=0;
datetime LastOrderOpenTime=0;
bool YesStop;

// Orest : new variables declaration
extern string  HedgeSettings="-- Hedging safety strategy settings --";
extern bool    Use_Hedging = false;
extern int     Max_Loss_For_Hedge_pips = 50; //After how many negative pips the hedge is trigered
//extern int Max_Days_Hedge_Open = 0;
extern double Hedge_Lots_Multiplier = 1.0;
extern int     Pips_Less_Then_Max_Closing = 10; 

datetime LastHedgeAction;
int Max_SL_pips = 500;
// end of new variables declaration

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//---- 
// Orest
	LastHedgeAction=0;
   if (Hedge_Lots_Multiplier < 1)
      Hedge_Lots_Multiplier = 1;
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//---- 


   DeleteAllObjects();
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//---- 
  
   int cnt=0;
   bool result;   
   string text="";
   string version="VERSI INI DAH EXPIRED...SILA YM xxul_gunturean utk penggantian";

  //***==============================
  // Orest -- Process hedging orders
   int loss_pips_start = 0;
  if (Use_Hedging)
      hedgeManager();
  //***==============================
  
  // skrip masa trading
    if (UseTradingHours)
   {

     YesStop = true;
// Check trading Asian Market
     if (TradeAsianMarket)
     {
        if (StartHour1 > 18)
        {
// Check broker that uses Asian open before 0:00

          if (Hour() >= StartHour1) YesStop = false;
          if (!YesStop)
          {
            if (StopHour1 < 24)
            {
              if ( Hour() <= StopHour1) YesStop = false;
            }
// These cannot be combined even though the code looks the same
            if (StopHour1 >=0)
            {
              if ( Hour() <= StopHour1) YesStop = false;
            }
          }
        }
        else
        {
          if (Hour() >= StartHour1 && Hour() <= StopHour1) YesStop = false;
        }
     }
     if (YesStop)
     {
// Check trading European Market
       if (TradeEuropeanMarket)
       {
         if (Hour() >= StartHour2 && Hour() <= StopHour2) YesStop = false;
       }
     }
     if (YesStop)
     {
// Check trading European Market
       if (TradeNewYorkMarket)
       {
         if (Hour() >= StartHour3 && Hour() <= StopHour3) YesStop = false;
       }
     }
     if (YesStop)
     {
//      Comment ("Trading has been stopped as requested - wrong time of day");
       return (0);
      }
   }
   
   // skrip masa trading
   
   if (AccountType==0)
   {
	 if (mm!=0) { lotsi=MathCeil(AccountBalance()*risk/10000); }
	 else { lotsi=Lots; }
   } 
   
   if (AccountType==1)
   {  // then is mini
    if (mm!=0) { lotsi=MathCeil(AccountBalance()*risk/10000)/10; }
	 else { lotsi=Lots; }
   }
   
   if (AccountType==2)
   {
    if (mm!=0) { lotsi=MathCeil(AccountBalance()*risk/10000)/100; }
    else { lotsi=Lots; }
   }

   if (lotsi<0.01) lotsi=0.01;
   if (lotsi>100) lotsi=100; 
   
   OpenOrders=0;
   MarketOpenOrders=0;
   LimitOpenOrders=0;
   for(cnt=0;cnt<OrdersTotal();cnt++)   
   {
     if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
     {
	   if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber)
	   {				
	  	  if (OrderType()==OP_BUY || OrderType()==OP_SELL) 
	  	  {
	  	   MarketOpenOrders++;
	  	   LastOrderOpenTime=OrderOpenTime();
	  	  }
	  	  if (OrderType()==OP_SELLLIMIT || OrderType()==OP_BUYLIMIT) LimitOpenOrders++;
	  	  OpenOrders++;
	   }
	  }
   }  
   
   if (OpenOrders<1) 
   {
	  if (!TradeOnFriday && DayOfWeek()==5) 
	  {
	    Comment("TradeOnfriday is False");
	    return(0);
	  }
   }
   
   PipValue=MarketInfo(Symbol(),MODE_TICKVALUE); 
   
   if (PipValue==0) { PipValue=5; }
  
   if (AccountMoneyProtection && AccountBalance()-AccountEquity()>=AccountMoneyProtectionValue)
   {
    text = text + "\nClosing all orders and stop trading because account money protection activated..";
    Print("Closing all orders and stop trading because account money protection activated.. Balance: ",AccountBalance()," Equity: ",AccountEquity());
    PreviousOpenOrders=OpenOrders+1;
    ContinueOpening=False;
    return(0);
   }
   
   ////aku masukkan time
   if (UseHourTrade){
      if (!(Hour()>=FromHourTrade && Hour()<=ToHourTrade)) {
    text = text + "\nORDER TELAH DI TUTUP KERANA MASA DAH TAMAT.";
    Print("ORDER TELAH DI TUTUP KERANA MASA TAMAT. UNTUNG: ",AccountProfit()," EKUITI: ",AccountEquity());
    PreviousOpenOrders=OpenOrders+1;
    ContinueOpening=False;
    return(0);
   }
}
   //set my profit for one Day
   if (MyMoneyProfitTarget && AccountProfit()>= My_Money_Profit_Target)
   {
    text = text + "\nClosing all orders and stop trading because mymoney profit target reached..";
    Print("Closing all orders and stop trading because mymoney profit target reached.. Profit: ",AccountProfit()," Equity: ",AccountEquity());
    PreviousOpenOrders=OpenOrders+1;
    ContinueOpening=False;
    return(0);
   }
   // Account equity protection 
   if (EquityProtection && AccountEquity()<=AccountBalance()*AccountEquityPercentProtection/100) 
	 {
	 text = text + "\nClosing all orders and stop trading because account money protection activated.";
	 Print("Closing all orders and stop trading because account money protection activated. Balance: ",AccountBalance()," Equity: ", AccountEquity());
	 //Comment("Closing orders because account equity protection was triggered. Balance: ",AccountBalance()," Equity: ", AccountEquity());
	 //OrderClose(LastTicket,LastLots,LastClosePrice,slippage,Orange);		 
	 PreviousOpenOrders=OpenOrders+1;
	 ContinueOpening=False;
	 return(0);
   }
     
   // if dont trade at fridays then we close all
   if (!TradeOnFriday && DayOfWeek()==5)
   {
    PreviousOpenOrders=OpenOrders+1;
    ContinueOpening=False;
    text = text +"\nClosing all orders and stop trading because TradeOnFriday protection.";
    Print("Closing all orders and stop trading because TradeOnFriday protection.");
   }
   
   // Orders Time alive protection
   if (OrdersTimeAlive>0 && CurTime() - LastOrderOpenTime>OrdersTimeAlive)
   {
    PreviousOpenOrders=OpenOrders+1;
    ContinueOpening=False;
    text = text + "\nClosing all orders because OrdersTimeAlive protection.";
    Print("Closing all orders because OrdersTimeAlive protection.");
   }
   
   if (PreviousOpenOrders>OpenOrders) 
   {	  
	  for(cnt=OrdersTotal()-1;cnt>=0;cnt--)
	  {
	     if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
	     {
	  	   mode=OrderType();

		   if ((OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) || AllSymbolsProtect) 
		   {
		 	 if (mode==OP_BUY || mode==OP_SELL)
		 	 { 
		 	  OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),slippage,ArrowsColor);
	 		  return(0);
	 		 }
		  }
		 }
	  }
	  
	  for(cnt=0; cnt<OrdersTotal(); cnt++)
	  {
	     if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
	     {
	  	   mode=OrderType();
		   if ((OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) || AllSymbolsProtect) 
		   {
		 	 if (mode==OP_SELLLIMIT || mode==OP_BUYLIMIT || mode==OP_BUYSTOP || mode==OP_SELLSTOP)
		 	 {
			  OrderDelete(OrderTicket());
	 		  return(0);
	 		 }
		  }
		 }
	  }
   }
   
   PreviousOpenOrders=OpenOrders;
      
   if (OpenOrders>=MaxTrades) 
   {
	  ContinueOpening=False;
   } else {
	  ContinueOpening=True;
   }

   if (LastPrice==0) 
   {
	  for(cnt=0;cnt<OrdersTotal();cnt++)
	  {	
	    if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
	    {
		  mode=OrderType();	
		  if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) 
		  {
			LastPrice=OrderOpenPrice();
			if (mode==OP_BUY) { myOrderType=2; }
			if (mode==OP_SELL) { myOrderType=1;	}
		  }
		 }
	  }
   }

   // SecureProfit protection
  //if (SecureProfitProtection && MarketOpenOrders>=(MaxTrades-OrderstoProtect)
  // Modified to make easy to understand 
  if (SecureProfitProtection && MarketOpenOrders>=OrderstoProtect) 
   {
	  Profit=0;
     for(cnt=0;cnt<OrdersTotal();cnt++)
     {
      if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
      {
      // Orest
       if ((OrderSymbol()==Symbol() && (OrderMagicNumber()==MagicNumber ||
            OrderMagicNumber()==MagicNumber+1 || OrderMagicNumber()==MagicNumber+2)) || AllSymbolsProtect)
        Profit=Profit+OrderProfit();         
      }
     }	    
	  if (Profit>=SecureProfit) 
	  {
	     text = text + "\nClosing orders because account protection with SecureProfit was triggered.";
	     Print("Closing orders because account protection with SeureProfit was triggered. Balance: ",AccountBalance()," Equity: ", AccountEquity()," Profit: ",Profit);
	     PreviousOpenOrders=OpenOrders+1;
		  ContinueOpening=False;
		  return(0);
	  }
   }


  myOrderTypetmp=3;
  switch (OpenOrdersBasedOn)
  {  
     case 16:
       myOrderTypetmp=OpenOrdersBasedOnRSI();
       break; 	
     default: 
        myOrderTypetmp=OpenOrdersBasedOnRSI();
        break;
  }
  
   if (OpenOrders<1 && Manual==0) 
   {
     myOrderType=myOrderTypetmp;
	  if (ReverseCondition)
	  {
	  	  if (myOrderType==1) { myOrderType=2; }
		  else { if (myOrderType==2) { myOrderType=1; } }
	  }
   }   
   if (ReverseCondition)
   {
    if (myOrderTypetmp==1) { myOrderTypetmp=2; }
    else { if (myOrderTypetmp==2) { myOrderTypetmp=1; } }
   }
   
   // if we have opened positions we take care of them
   cnt=OrdersTotal()-1;
   while(cnt>=0)
   {
     if(OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES)==false)        break;
	  if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) // && Reversed==False) 
	  {
        //Print("Ticket ",OrderTicket()," modified.");
        // Orest
        loss_pips_start = getPipsForSL(OrderOpenPrice(),OrderStopLoss(), OrderType());
        	     
	  	  if (OrderType()==OP_SELL && loss_pips_start < Max_SL_pips) 
	  	  {		
	  	     if (ExitWithRSI&& myOrderTypetmp==2)
           {
             PreviousOpenOrders=OpenOrders+1;
             ContinueOpening=False;
             text = text +"\nClosing all orders because Indicator triggered another signal.";
             Print("Closing all orders because Indicator triggered another signal."); 
             //return(0);
           }
	  	  	  if (TrailingStop>0) 
			  {
				  if ((OrderOpenPrice()-OrderClosePrice())>=(TrailingStop*Point+Pips*Point)) 
				  {						
					 if (OrderStopLoss()>(OrderClosePrice()+TrailingStop*Point))
					 {										    
					    result=OrderModify(OrderTicket(),OrderOpenPrice(),OrderClosePrice()+TrailingStop*Point,OrderClosePrice()-TakeProfit*Point-TrailingStop*Point,0,Purple);
					    if(result!=TRUE) Print("LastError = ", GetLastError());
                   else OrderPrint();
	  					 return(0);	  					
	  				 }
	  			  }
			  }
	  	  }
   
	  	  if (OrderType()==OP_BUY && loss_pips_start < Max_SL_pips)
	  	  {
	  	     if (ExitWithRSI && myOrderTypetmp==1)
           {
             PreviousOpenOrders=OpenOrders+1;
             ContinueOpening=False;
             text = text +"\nClosing all orders because Indicator triggered another signal.";
             Print("Closing all orders because Indicator triggered another signal."); 
             //return(0);
           }
	  		 if (TrailingStop>0) 
	  		 {
			   if ((OrderClosePrice()-OrderOpenPrice())>=(TrailingStop*Point+Pips*Point)) 
				{
					if (OrderStopLoss()<(OrderClosePrice()-TrailingStop*Point)) 
					{					   
					   result=OrderModify(OrderTicket(),OrderOpenPrice(),OrderClosePrice()-TrailingStop*Point,OrderClosePrice()+TakeProfit*Point+TrailingStop*Point,0,ArrowsColor);		
					   if(result!=TRUE) Print("LastError = ", GetLastError());                  
                  else OrderPrint();
                  return(0);
					}
  				}
			 }
	  	  }
   	}
      cnt--;
   }   

      if (!IsTesting()) 
      {
	     if (myOrderType==3 && OpenOrders<1) { text=text + "\nTIADA KONDISI UTK OPEN ORDER"; }
	     //else { text= text + "\n                         "; }
	     Comment("HARGA TERAKHIR=",LastPrice," OPEN ODER YG LEPAS=",PreviousOpenOrders,"\nBUKA LAGI=",ContinueOpening," JENISORDER=",myOrderType,"\nLOT=",lotsi,text);
      }

      if (OpenOrders<1)
         OpenMarketOrders();
      else
         if (SetLimitOrders) OpenLimitOrders();
         else OpenMarketOrders();

//----
   return(0);
  }
//+------------------------------------------------------------------+


void OpenMarketOrders()
{         
   int cnt=0;      
      if (myOrderType==1 && ContinueOpening) 
      {	      
	     if ((Bid-LastPrice)>=Pips*Point || OpenOrders<1) 
	     {	     		
		    SellPrice=Bid;				
		    LastPrice=0;
		    if (TakeProfit==0) { tp=0; }
		    else { tp=SellPrice-TakeProfit*Point; }	
		    if (StopLoss==0) { sl=0; }
		    else { sl=SellPrice+StopLoss*Point;  }
		    if (OpenOrders!=0) 
		    {
			      mylotsi=lotsi;			
			      for(cnt=0;cnt<OpenOrders;cnt++)
			      {
				     if (MaxTrades>12) { mylotsi=NormalizeDouble(mylotsi*multiply,2); }
				     else { mylotsi=NormalizeDouble(mylotsi*multiply,2); }
			      }
		    } else { mylotsi=lotsi; }
		    if (mylotsi>100) { mylotsi=100; }			    
		    OrderSend(Symbol(),OP_SELL,mylotsi,SellPrice,slippage,sl,tp,"MyMEFx EA"+MagicNumber,MagicNumber,0,ArrowsColor);		    		    
		    return(0);
	     }
	     
	  //   Sleep(6000);   ////aku letak
        //      RefreshRates(); 
      }
      
      if (myOrderType==2 && ContinueOpening) 
      {
	     if ((LastPrice-Ask)>=Pips*Point || OpenOrders<1) 
	     {			      
		    BuyPrice=Ask;
		    LastPrice=0;
		    if (TakeProfit==0) { tp=0; }
		    else { tp=BuyPrice+TakeProfit*Point; }	
		    if (StopLoss==0)  { sl=0; }
		    else { sl=BuyPrice-StopLoss*Point; }
		    if (OpenOrders!=0) {
			   mylotsi=lotsi;			
			   for(cnt=0;cnt<OpenOrders;cnt++)
			   {
				  if (MaxTrades>12) { mylotsi=NormalizeDouble(mylotsi*multiply,2); }
				  else { mylotsi=NormalizeDouble(mylotsi*multiply,2); }
			   }
		    } else { mylotsi=lotsi; }
		    if (mylotsi>100) { mylotsi=100; }
		    OrderSend(Symbol(),OP_BUY,mylotsi,BuyPrice,slippage,sl,tp,"MyMEFx EA"+MagicNumber,MagicNumber,0,ArrowsColor);		    
		    return(0);
	     }
      }   
}

void OpenLimitOrders()
{
   int cnt=0;
               
      if (myOrderType==1 && ContinueOpening) 
      {	
	     //if ((Bid-LastPrice)>=Pips*Point || OpenOrders<1) 
	     //{		
		    //SellPrice=Bid;				
		    SellPrice = LastPrice+Pips*Point;
		    LastPrice=0;
		    if (TakeProfit==0) { tp=0; }
		    else { tp=SellPrice-TakeProfit*Point; }	
		    if (StopLoss==0) { sl=0; }
		    else { sl=SellPrice+StopLoss*Point;  }
		    if (OpenOrders!=0) 
		    {
			      mylotsi=lotsi;			
			      for(cnt=0;cnt<OpenOrders;cnt++)
			      {
				     if (MaxTrades>12) { mylotsi=NormalizeDouble(mylotsi*multiply,2); }
				     else { mylotsi=NormalizeDouble(mylotsi*multiply,2); }
			      }
		    } else { mylotsi=lotsi; }
		    if (mylotsi>100) { mylotsi=100; }
		    OrderSend(Symbol(),OP_SELLLIMIT,mylotsi,SellPrice,slippage,sl,tp,"MyMEFx EA"+MagicNumber,MagicNumber,0,ArrowsColor);		    		    
		    return(0);
	     //}
      }
      
      if (myOrderType==2 && ContinueOpening) 
      {
	     //if ((LastPrice-Ask)>=Pips*Point || OpenOrders<1) 
	     //{		
		    //BuyPrice=Ask;
		    BuyPrice=LastPrice-Pips*Point;
		    LastPrice=0;
		    if (TakeProfit==0) { tp=0; }
		    else { tp=BuyPrice+TakeProfit*Point; }	
		    if (StopLoss==0)  { sl=0; }
		    else { sl=BuyPrice-StopLoss*Point; }
		    if (OpenOrders!=0) {
			   mylotsi=lotsi;			
			   for(cnt=0;cnt<OpenOrders;cnt++)
			   {
				  if (MaxTrades>12) { mylotsi=NormalizeDouble(mylotsi*multiply,2); }
				  else { mylotsi=NormalizeDouble(mylotsi*multiply,2); }
			   }
		    } else { mylotsi=lotsi; }
		    if (mylotsi>100) { mylotsi=100; }
		    OrderSend(Symbol(),OP_BUYLIMIT,mylotsi,BuyPrice,slippage,sl,tp,"MyMEFx EA"+MagicNumber,MagicNumber,0,ArrowsColor);		    
		    return(0);
	     //}
      }   

}

void DeleteAllObjects()
{
 int    obj_total=ObjectsTotal();
 string name;
 for(int i=0;i<obj_total;i++)
 {
  name=ObjectName(i);
  if (name!="")
   ObjectDelete(name);
 }
 ObjectDelete("FLP_txt");
 ObjectDelete("P_txt");
}

// 16
int OpenOrdersBasedOnRSI()
{
 int myOrderType=3;

 double hma4_1, hma4_2;
   double hma6_1, hma6_2;
   double hma8_1, hma8_2;
   double hma10_1, hma10_2;
   double hma20_1, hma20_2;
   double hma40_1, hma40_2;
   double hma80_1, hma80_2;
   double hma200_1, hma200_2;
   double hma420_1, hma420_2;
   
   if (last_bar < 0) {
      last_bar = 1;
   }

   hma4_1 = iCustom(Symbol(), 0, "HMA_v07.1", 4, 200, 1, last_bar);
      hma4_2 = iCustom(Symbol(), 0, "HMA_v07.1", 4, 200, 1, last_bar + 1);
      hma6_1 = iCustom(Symbol(), 0, "HMA_v07.1", 6, 200, 1, last_bar);
      hma6_2 = iCustom(Symbol(), 0, "HMA_v07.1", 6, 200, 1, last_bar + 1);
      hma8_1 = iCustom(Symbol(), 0, "HMA_v07.1", 8, 200, 1, last_bar);
      hma8_2 = iCustom(Symbol(), 0, "HMA_v07.1", 8, 200, 1, last_bar + 1);
      hma10_1 = iCustom(Symbol(), 0, "HMA_v07.1", 10, 500, 1, last_bar);
      hma10_2 = iCustom(Symbol(), 0, "HMA_v07.1", 10, 500, 1, last_bar + 1);
      hma20_1 = iCustom(Symbol(), 0, "HMA_v07.1", 20, 500, 1, last_bar);
      hma20_2 = iCustom(Symbol(), 0, "HMA_v07.1", 20, 500, 1, last_bar + 1);
      hma40_1 = iCustom(Symbol(), 0, "HMA_v07.1", 40, 800, 1, last_bar);
      hma40_2 = iCustom(Symbol(), 0, "HMA_v07.1", 40, 800, 1, last_bar + 1);
      hma80_1 = iCustom(Symbol(), 0, "HMA_v07.1", 80, 800, 1, last_bar);
      hma80_2 = iCustom(Symbol(), 0, "HMA_v07.1", 80, 800, 1, last_bar + 1);
      hma200_1 = iCustom(Symbol(), 0, "HMA_v07.1", 200, 1000, 1, last_bar);
      hma200_2 = iCustom(Symbol(), 0, "HMA_v07.1", 200, 1000, 1, last_bar + 1);
      hma420_1 = iCustom(Symbol(), 0, "HMA_v07.1", 420, 2000, 1, last_bar);
      hma420_2 = iCustom(Symbol(), 0, "HMA_v07.1", 420, 2000, 1, last_bar + 1);

         if (
         hma420_1 > hma420_2 &&
         hma200_1 > hma200_2 &&
         hma200_2 > hma420_2 &&
         hma4_1 > hma6_1 &&
         hma6_1 > hma8_1 &&
         hma8_1 > hma10_1 &&
         hma10_1 > hma20_1 &&
         hma20_1 > hma40_1 &&
         hma40_1 > hma80_1 &&
         hma4_1 > hma4_2 &&
         hma6_1 > hma6_2 &&
         hma8_1 > hma8_2 &&        
         hma10_1 > hma10_2 &&
         hma20_1 > hma20_2 &&
         hma40_1 > hma40_2 &&
         hma80_1 > hma80_2 &&
         long
         )
 {
  myOrderType=2;
 }
  
//buy order
  if (
         hma420_1 < hma420_2 &&
         hma200_1 < hma200_2 &&
         hma200_2 < hma420_2 &&
         hma4_1 < hma6_1 &&
         hma6_1 < hma8_1 &&
         hma8_1 < hma10_1 &&
         hma10_1 < hma20_1 &&
         hma20_1 < hma40_1 &&
         hma40_1 < hma80_1 &&
         hma4_1 < hma4_2 &&
         hma6_1 < hma6_2 &&
         hma8_1 < hma8_2 &&        
         hma10_1 < hma10_2 &&
         hma20_1 < hma20_2 &&
         hma40_1 < hma40_2 &&
         hma80_1 < hma80_2 &&
         short
         )
 {
  myOrderType=1;
 }

 return(myOrderType);
}

// Hedge orders manager

void hedgeManager() {

  int MagicNumber_hedge_sell = MagicNumber + 1;	
  int MagicNumber_hedge_buy  = MagicNumber + 2;	

  bool result = false;
  double order_sl, sl; 

  int cnt, hedge_sl;

  int Pips_buy     = 0;
  int Pips_sell    = 0;
  bool result_close=false;  
  string buy_ord_numbers, sell_ord_numbers;

  double hedge_sell_profit, hedge_buy_profit;

// Close Hedge Orders if price goes our direction


  for(cnt=OrdersTotal()-1;cnt>=0;cnt--)
  { //1

     Pips_buy     = 0;
     Pips_sell    = 0;
     buy_ord_numbers = "";
     sell_ord_numbers= "";
     result_close = false;
    
     OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
	   //.... Add closing by date here (hedge and all related orders)	
	   if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber_hedge_sell) //Max_Days_Hedge_Open*24*60*60 
	   {//2
   	   hedge_sl = getPipsForSL(OrderOpenPrice(),OrderStopLoss(),OrderType());
	   hedge_sell_profit = OrderLots()*(OrderOpenPrice() - Ask);	
      
      // Checking if our main trades improved (sum(pips) > )
		  for(int cnt_s = OrdersTotal()-1; cnt_s>=0; cnt_s--)
		  {//3
		     if (OrderSelect(cnt_s, SELECT_BY_POS, MODE_TRADES))
		     {//4
   			 if (OrderType() == OP_BUY)
   			 {//5
	  	  	      order_sl = getPipsForSL(OrderOpenPrice(),OrderStopLoss(),OrderType());	
	 		      if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber && order_sl>0
	 		          && order_sl==hedge_sl)
	 		     {//6
				if ((Bid - OrderOpenPrice()) < 0)
				{//7
		                  if (Pips_buy==0) buy_ord_numbers = ""+ OrderTicket();
                		  else buy_ord_numbers = buy_ord_numbers +","+ OrderTicket();
		                  Pips_buy = Pips_buy + MathAbs(Bid - OrderOpenPrice())/Point;
				}//7

				  hedge_sell_profit = hedge_sell_profit + OrderLots()*(Bid - OrderOpenPrice());
			      }//6
		 	    }//5 
		     }//4	
		   }//3	
		  // end for	

        if ((StringLen(buy_ord_numbers)>0 && Pips_buy < 
            (Max_Loss_For_Hedge_pips - Pips_Less_Then_Max_Closing) && Hedge_Lots_Multiplier==1)
            || (Hedge_Lots_Multiplier>1 && hedge_sell_profit > 0))
        {//3 
          if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
          {//4
            Print("Close SELL Hedge Order==>", OrderTicket()," Orders:",buy_ord_numbers);
 		      result_close = OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),slippage,ArrowsColor);
		      LastHedgeAction = TimeCurrent();
		    }//4

		    for(int cnt_bs = OrdersTotal()-1; result_close && cnt_bs>=0; cnt_bs--)
		    {//4
		       if (OrderSelect(cnt_bs, SELECT_BY_POS, MODE_TRADES))
		       {//5
   			   if (OrderType() == OP_BUY)
   			   {//6
	  	  	        order_sl = getPipsForSL(OrderOpenPrice(),OrderStopLoss(),OrderType());
	  	  	        
    		        if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber && order_sl>0 
	 		            && order_sl==hedge_sl)
	 		        {//7

   				      
				if (Hedge_Lots_Multiplier>1 && hedge_sell_profit > 0)
				{ //8
		    		      result = OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),slippage,ArrowsColor);

				} //8 
				else
				{ //8
				      if (StopLoss==0)  { sl = 0; }
	     			      else              { sl = OrderOpenPrice()-StopLoss*Point;}

   				      result=OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,Purple);
	     			      if(! result) Print("Error during Modify BUY Hedge linked order: ", GetLastError());
	     			      else Print("Modify correspondent BUY Order==>", OrderTicket());
				} //8

			        }//7
		 	      }//6 
		       }//5	
		     }//4	
		    // end for	
		  }//3
	   }//2
	  //.... Add closing by date here (hedge and all related orders)
	   else if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber_hedge_buy)  // Max_Days_Hedge_Open*24*60*60
	        {//2
	           	hedge_sl = getPipsForSL(OrderOpenPrice(),OrderStopLoss(),OrderType());
		        hedge_buy_profit = OrderLots()*(Bid - OrderOpenPrice());	


               // Checking if our main trades improved (sum(pips) > )
		           for(int cnt_b = OrdersTotal()-1; cnt_b>=0; cnt_b--)
		           {//3
		              if (OrderSelect(cnt_b, SELECT_BY_POS, MODE_TRADES))
		              {//4
   			          if (OrderType() == OP_SELL)
   			          {//5
	  	  	               order_sl = getPipsForSL(OrderOpenPrice(),OrderStopLoss(),OrderType());	
	 		               if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber
	 		                   && order_sl>0 && order_sl==hedge_sl)
	 		              {//6
					if ((OrderOpenPrice() - Ask) < 0)
					{ //7
		                           if (Pips_sell==0) sell_ord_numbers = ""+ OrderTicket();
                		           else sell_ord_numbers = sell_ord_numbers +","+ OrderTicket();
  
  		                           Pips_sell = Pips_sell + MathAbs(OrderOpenPrice() - Ask)/Point;
					} 

					   hedge_buy_profit = hedge_buy_profit + (OrderOpenPrice() - Ask);	
  			               }//6
		 	             }//5 
		              }//4	
		            }//3	
		           // end for	

               if ((StringLen(sell_ord_numbers)>0 && Pips_sell <
                  (Max_Loss_For_Hedge_pips - Pips_Less_Then_Max_Closing) &&
                   Hedge_Lots_Multiplier==1) || (Hedge_Lots_Multiplier > 1 &&
                   hedge_sell_profit > 0))
               {//3 
                  if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
                  {//4
                     Print("Close BUY Hedge Order==>", OrderTicket()," Orders:",sell_ord_numbers);
		               result_close=OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),slippage,ArrowsColor);
		               LastHedgeAction = TimeCurrent();
		            }//4   

      		       for(int cnt_sb = OrdersTotal()-1; result_close && cnt_sb>=0; cnt_sb--)
		             {//4
		                if (OrderSelect(cnt_sb, SELECT_BY_POS, MODE_TRADES))
		                {//5
			                 if (OrderType() == OP_SELL)
			                 {//6
			                    order_sl = getPipsForSL(OrderOpenPrice(),OrderStopLoss(),OrderType());	
	 		                    if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber
	 		                        && order_sl>0 && order_sl==hedge_sl)
	 		                    {//7
	
						if (Hedge_Lots_Multiplier>1 && hedge_buy_profit > 0)
						{ //8
				    		      result = OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),slippage,ArrowsColor);

						} //8 
						else
						{ //8	
         		    		         if (StopLoss==0)  { sl=0; }
			            	         else 	            { sl = OrderOpenPrice()+StopLoss*Point;}
	  			                     result=OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,Purple);
				                     if(! result) Print("Error during Modify BUY Hedge linked order: ", GetLastError());
				                     else Print("Modify correspondent SELL Order==>", OrderTicket());
						} //8
	    		                 }//7
   			              } //6
		 	              }//5	
		              }//4	
		              // end for
		          } //3   	
	       }//2
	       // end else
  }//1
  // end for

// Here Hedge Orders are open....
// - Open only if Last Open/Close was 2 min ago...

int loss_pips    = 0;

Pips_buy     = 0;
Pips_sell    = 0;
int result_open = 0;

double Lots_sell = 0;
double Lots_buy  = 0;

buy_ord_numbers = "";
sell_ord_numbers= "";

//Print ("Time diff",TimeCurrent() - LastHedgeAction,Max_Loss_For_Hedge_pips);

if (Max_Loss_For_Hedge_pips > 0) // (TimeCurrent() - LastHedgeAction) > 2*60 && 
 {
  for(cnt=OrdersTotal()-1; cnt>=0; cnt--)
  {
     if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
     {
	     	loss_pips = getPipsForSL(OrderOpenPrice(),OrderStopLoss(), OrderType());

         //Print("Ticket",OrderTicket()," Bid:",(Bid - OrderOpenPrice())/Point,"Ask:",(OrderOpenPrice() - Ask));
         //if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber &&
         //   loss_pips <= Max_SL_pips)
         //   Print ("Ticket ",OrderTicket()," ",OrderSymbol(),",",Symbol(),",",OrderMagicNumber(),",",MagicNumber,",",loss_pips,",",Max_SL_pips);
            

        //Print (loss_pips,",",Max_SL_pips);

      	if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber &&
      	    loss_pips < Max_SL_pips)
      	{
	        //Print ("We are here");
	        if (OrderType()==OP_BUY  && (Bid - OrderOpenPrice()) < 0)
	        {
               if (Pips_buy==0) buy_ord_numbers = ""+ OrderTicket();
               else buy_ord_numbers = buy_ord_numbers +","+ OrderTicket();

   	        	Pips_buy = Pips_buy + MathAbs(Bid - OrderOpenPrice())/Point;  // Here should be loss in pips
	     	      Lots_sell = Lots_sell + OrderLots();
	     	      //Print ("Pips_buy",Pips_buy," Pips_sell",Pips_sell);
	        }
	        else if (OrderType()==OP_SELL  && (OrderOpenPrice() - Ask) < 0)
	           {

                if (Pips_sell==0) sell_ord_numbers = ""+ OrderTicket();
                else sell_ord_numbers = sell_ord_numbers +","+ OrderTicket();

		          Pips_sell = Pips_sell + MathAbs(OrderOpenPrice() - Ask)/Point; // Here should be loss in pips
       	       Lots_buy  = Lots_sell + OrderLots();
	           }			
      	}
     }	
  }	

//if (Pips_buy !=0 || Pips_sell!=0)
//Print ("Pips_buy",Pips_buy," Pips_sell",Pips_sell);

// Create the Hedge

  if (Pips_buy >= Max_Loss_For_Hedge_pips) {
  
      //Print("Pips_buy:",Pips_buy," Max_Loss_For_Hedge_pips",Max_Loss_For_Hedge_pips);    
  
      // -- Create 1 SELL order, Lots_sell, SL = Next hedge SL, MAGIC#= +1	 	   
	   int sell_hedge_sl = getNextHedgeSL();
   
      Print("Create new SELL hedge Order==>");
      
      
      result_open = OrderSend(Symbol(),OP_SELL,getLots(Hedge_Lots_Multiplier*Lots_sell), Bid ,
                     slippage,Bid+sell_hedge_sl*Point,0,"MyMEFx-SL:"+sell_hedge_sl+" for:"+buy_ord_numbers,
                     MagicNumber_hedge_sell,0,ArrowsColor);	   

		LastHedgeAction = TimeCurrent();
	    
      for(int cnt_b_mod =OrdersTotal()-1; result_open>=0 && cnt_b_mod>=0; cnt_b_mod--)
      {
         if (OrderSelect(cnt_b_mod, SELECT_BY_POS, MODE_TRADES))
         {
      	    if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber && 
      	        OrderType()==OP_BUY && StringFind(buy_ord_numbers,""+OrderTicket(),0)>=0 )
      	     {
   				  result=OrderModify(OrderTicket(),OrderOpenPrice(),
   				         OrderOpenPrice()-sell_hedge_sl*Point,OrderTakeProfit(),0,Purple);
					  if(result!=TRUE) Print("LastError = ", GetLastError());
					  else Print("Modify SL for correspondent BUY orders==>");
       	     }
         }	
      }	
   }	

  if (Pips_sell >= Max_Loss_For_Hedge_pips) {
      // -- Create 1 BUY order, Lots_buy, SL = Next hedge SL, MAGIC#= +2	 	   
	   int buy_hedge_sl = getNextHedgeSL();
   
      Print("Create new BUY hedge Order==>");
      result_open=OrderSend(Symbol(),OP_BUY,getLots(Hedge_Lots_Multiplier*Lots_buy), Ask ,slippage,
                  Ask-buy_hedge_sl*Point,0,
                   "MyMEFx-SL:"+buy_hedge_sl,MagicNumber_hedge_buy,0,ArrowsColor);	   

		LastHedgeAction = TimeCurrent();
	    
      for(int cnt_s_mod =OrdersTotal()-1; result_open>=0 && cnt_s_mod>=0;cnt_s_mod--)
      {
         if (OrderSelect(cnt_s_mod, SELECT_BY_POS, MODE_TRADES))
         {
      	    if (OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber &&  
      	        OrderType()==OP_SELL && StringFind(sell_ord_numbers,""+OrderTicket(),0)>=0)
      	     {
   				  result=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()+buy_hedge_sl*Point,
					         OrderTakeProfit(),0,Purple);
					  if(result!=TRUE) Print("LastError = ", GetLastError());
					  else Print("Modify SL for correspondent SELL orders==>");
       	     }
         }	
      }	
   }	 	
}

// end of the method
}

//===============================
int getPipsForSL(double ord_open,double ord_sl, int dir)
{
   int val = 0;
   if(dir == OP_SELL && ord_sl>0)
       val=((ord_sl - ord_open)/Point);
   else if (dir == OP_BUY && ord_sl>0)
       val=(ord_open - ord_sl)/Point;
   return(val);   
}

int getNextHedgeSL()
{
   bool ord_exists = false;
   int ret = 0;

   for (ret = Max_SL_pips+200; ret > Max_SL_pips; ret--)
   { 
     for(int cnt_ini = OrdersTotal()-1;cnt_ini >=0;cnt_ini--)
     {
        if (OrderSelect(cnt_ini, SELECT_BY_POS, MODE_TRADES))
        {
          ord_exists = false;
          if (OrderSymbol()==Symbol() && (OrderMagicNumber() == MagicNumber + 1 || OrderMagicNumber() == MagicNumber + 2) &&
              getPipsForSL(OrderOpenPrice(),OrderStopLoss(), OrderType())==ret)
          {
              //Print(ret+" exists======>");
              ord_exists = true;
              break;
          }     
        }
      }
   
      if (ord_exists)
           break; 
    }
    
    if (ord_exists) ret++;
    if (ret>Max_SL_pips+200) ret= Max_SL_pips;
 
    //Print("Final value: "+ret);
        
  return(ret);
}

double getLots(double lot)
{
double ret_lot;
double StepLots=MarketInfo(Symbol(),MODE_LOTSTEP);

ret_lot = NormalizeDouble(lot/StepLots,0)*StepLots;

return (ret_lot);
}





Sample





Analysis



Market Information Used:

Series array that contains open time of each bar


Indicator Curves created:


Indicators Used:




Custom Indicators Used:
HMA_v07.1

Order Management characteristics:
Checks for the total of open orders
It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
It automatically opens orders when conditions are reached

Other Features: