//+------------------------------------------------------------------+
//|                                                  Abo 3atrees.mq4 |
//|                                     Copyright © 2007 , dr_waleed |
//|                                         www.moneyexpertsclub.net |
//|                                        www.arabtraderacademy.com |
//|                                                dr_waleed@msn.com |
//|                                                   00966501917706 |
//+------------------------------------------------------------------+
 
#property copyright   "Copyright © 2007, dr_waleed"
#property link        "http://www.moneyexpertsclub.net/forum/forumdisplay.php?f=48"

//---- Trades Limits
extern double    TakeProfit     = 150;
extern double    StopLoss       = 80;      
extern double    TrailingStop   = 70;    
//---- Hour Trades
extern bool      UseHourTrade   = false;
extern int       FromHourTrade  = 4;
extern int       ToHourTrade    = 10; 
//---- Money Monagement
extern string    MM_Parameters  = "Money Management";
extern int       MaxTrades      = 1;
extern double    Lots           = 1;
extern bool      MM             = false, 
                 AccountIsMicro = false;
extern int       Risk           = 10;
//---- Global variables
int              ID1             = 12893;
int              ID2             = 13498;
string           eaComment       = "Abo 3atrees";

//+------------------------------------------------------------------+
//|    Initialation function                                         |
//+------------------------------------------------------------------+

int init()
   {
    return(0);
   }

int orderscnt()
   {
    int cnt=0;
    for(int i =0;i<OrdersTotal();i++)
       {
        if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
          {
           if(OrderSymbol()==Symbol() && ID1==OrderMagicNumber()  && ID2==OrderMagicNumber())
             {
              cnt++;
             }
          }
       }
     return(cnt);
   }
   
//---------- 

bool isNewSymbol(string current_symbol)
  {
   int total  = OrdersTotal();
   for(int cnt = 0 ; cnt < total ; cnt++)
    {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      string selected_symbol = OrderSymbol();
      if (current_symbol == selected_symbol && (OrderMagicNumber()==ID1 ||OrderMagicNumber()==ID2))
      return (False);
     }
   return (True);
  }

//+------------------------------------------------------------------+
//|    Start function                                                |
//+------------------------------------------------------------------+

int start()
   {        
     
    if(Bars<100)
      {
       Print("bars less than 100");
          return(0);  
      }
         
    double Stop, Limit;
    int cnt, total;
    
    if(MM) Lots = subLotSize();
    
    if (UseHourTrade)
      {
       if(!(Hour()>=FromHourTrade&&Hour()<=ToHourTrade))
         {
          Comment("Non-Trading Hours!");
               return(0);
         }
      }
 
    double   m51, m52 ,m81 ,m82;
    
    m51  = iMA (NULL,PERIOD_M30,5,0,MODE_LWMA,PRICE_CLOSE,1);
    m52  = iMA (NULL,PERIOD_M30,5,0,MODE_LWMA,PRICE_CLOSE,2);
    m81 = iMA (NULL,PERIOD_M30,8,0,MODE_LWMA,PRICE_CLOSE,1);
    m82 = iMA (NULL,PERIOD_M30,8,0,MODE_LWMA,PRICE_CLOSE,2);          
       
    total=OrdersTotal();
    if(total<1 || isNewSymbol(Symbol())) 
      {    
       if(AccountFreeMargin()<(1000*Lots))
         {
          Print("We have no money. Free Margin = ",
          AccountFreeMargin());
                         return(0);  
         }    
            
       if ( m52<m82 && m51>m81 )   //---- Buy2
         {
          if(orderscnt()<MaxTrades)
            {
             if(StopLoss==0)
               {Stop=0;TrailingStop=0;}
             else
               {Stop=Ask-StopLoss*Point;}
             if(TakeProfit==0)
               {Limit=0;}
             else
               {Limit=Ask+TakeProfit*Point;}
                OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Stop,Limit,eaComment,ID2,0,Green);
                PlaySound("Alert.wav");
               } 
             }
                     
               
       if ( m52>m82 && m51<m81 )   //---- Sell2
         {
          if(orderscnt()<MaxTrades)
            {
             if(StopLoss==0)
               {Stop=0;TrailingStop=0;}
             else
               {Stop=Bid+StopLoss*Point;}
             if(TakeProfit==0)
               {Limit=0;}
             else
               {Limit=Bid-TakeProfit*Point;}
                OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Stop,Limit,eaComment,ID2,0,Red); 
                PlaySound("Alert.wav");
               }  
            }
        return(0);
      }
      
//-----------------------------------------------------------------Trailing Stop 

for(cnt=0;cnt<total;cnt++)
  {               
   OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
   if(OrderType()<=OP_SELL && OrderSymbol()==Symbol()) 
     {
      if(OrderType()==OP_BUY)
        {
         if(TrailingStop>0)  
           {                 
            if(Bid-OrderOpenPrice()>Point*TrailingStop)
              {
               if(OrderStopLoss()<Bid-Point*TrailingStop)
                 {
                  OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss()+Point*TrailingStop,OrderTakeProfit(),0,Green);
                           return(0);
                 }
              }
           }
   else
     {
      if(TrailingStop>0)  
        {                 
         if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
           {
            if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
              {
               OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss()-Point*TrailingStop,OrderTakeProfit(),0,Red);
                        return(0);
              }
           }
        }
     }
        }
     }
  }
  
    return(0);
   }
   
//+------------------------------------------------------------------+
//|    Money Management                                              |
//+------------------------------------------------------------------+
  
double subLotSize()
    {
     double lotMM = MathCeil(AccountFreeMargin() *  Risk / 1000) / 100; 
	  if(AccountIsMicro==false)
	    {
	     if(lotMM < 0.1)                  lotMM = Lots;
	     if((lotMM > 0.5) && (lotMM < 1)) lotMM = 0.5;
	     if(lotMM > 1.0)                  lotMM = MathCeil(lotMM);
	     if(lotMM > 100)                  lotMM = 100;
	    }
	  else
	    {
	     if(lotMM < 0.01)                 lotMM = Lots;
	     if(lotMM > 1.0)                  lotMM = MathCeil(lotMM);
	     if(lotMM > 100)                  lotMM = 100;
	    }
	   return (lotMM);
    }
      
//------------------------------------------------------------------------- The End.