ElijahEXP1_1

   //+------------------------------------------------------------------+
//|                                                                  |
//|  Copyright © 2008 Marcelo Marques, programmed by www.aptrafx.com |
//|                                    http://www.aptrafx.com        |
//+------------------------------------------------------------------+
 // m5 chart
 
#property copyright "Copyright © 2008 Marcelo Marques, programmed by www.aptrafx.com"
#property link      "www.aptrafx.com"

#define DgOneMinute                                  60
#define DgOneHour                                  3600
#define DgOneDay                                  86400

string HorarioAgora;
int    lock,ApenasSegunda,myBars,Total,i,Tipo;
double macdmH1,macdsH1,macdmM15,macdsM15,ema1_13,ema1_131,ema2_13,ema2_131,ema132,macdm,macds,ema13,ema131,sma50,ema_clientalterarabarra,ema50,ema100,macd,macd3,lots,DgGMTTime,Mn,Mx,sl,tp;
int OrdemBS=3;
int Ftime=1;

bool   AllowDemoAccount               = true;   
bool   JustoneDemoAccount             = false;   
int    AutAcc                         = 139636;     
string Dta                            = "2009.10.20"; //final
string DtaInicial                     = "2008.08.01"; 


//--------- //--------- //--------- //--------- //--------- //--------- //--------- //--------- 
//---------                      Settings                                             //---------
//--------- //--------- //--------- //--------- //--------- //--------- //--------- //--------- 
extern double  Lot5Value_1            = 0.1;
 int     Lot5StopLoss_1         = 0;
extern int     Lot5TakeProfit_1       = 15;
       
extern bool    TrailingStopEnable_1   = false;
extern int     Lot5TrailingStopPips_1 = 15;
       int     PipsValueSL            = 2;
//extern int     Ema_Bar                = 1;// where "0" is the current candle

 int     EMAPeriod1            = 5;
 int     EMAPeriod2            = 10;

extern bool    IsIBFXMiniAccount      = false;  // If you Use InterbankFX Broker ( MiniAccount )
extern int     MagicNumber            = 112211;   // Magic Number - A dif. number for each Pair

extern string  EAName                 = "ElijahExp1"; // Name to show into comments Orders


//--------- //--------- //-----Nao Estao Usando ---- //--------- //--------- //--------- //--------- //--------- 

       string  UseLot2_Settings="---------------------------------------------------------------------";
       bool    UseLot2                = false;
       double  Lot5Value_2            = 0.2;
       int     Lot5TakeProfit_2       = 100;
//     bool    TrailingStopEnable_2   = true;
       int     Lot5TrailingStopPips_2 = 15;
       int     TrailingStep           = 1;

      //extern bool    SendEmail   = true;

      double         PercentRisk            = 0 ; // If 0 lots size  will be same of Lots Variable

      bool    UseTimePeriod          = false;
      string  StartHour1             = "00:00";       
      string  StopHour1              = "23:59";       

//--------- //--------- //--------- //--------- //--------- //--------- //--------- //--------- 
//---------                      Final Settings
//--------- //--------- //--------- //--------- //--------- //--------- //--------- //--------- 
bool debug =true;

string TodosPares[20]={"GBPUSD","EURUSD","USDJPY","USDCHF","EURCHF","AUDUSD","USDCAD","NZDUSD","EURCAD","EURJPY","GBPJPY","CHFJPY","GBPCHF","AUDNZD","EURGBP","AUDCAD","AUDJPY","NZDJPY","EURAUD"};
string TodosParesm[20]={"GBPUSDm","EURUSDm","USDJPYm","USDCHFm","EURCHFm","AUDUSDm","USDCADm","NZDUSDm","EURCADm","EURJPYm","GBPJPYm","CHFJPYm","GBPCHFm","AUDNZDm","EURGBPm","AUDCADm","AUDJPYm","NZDJPYm","EURAUDm"};

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+----------------------------------------------- -------------------+
int init()
{
if (IsIBFXMiniAccount==true)ArrayCopy(TodosPares,TodosParesm,0,0,WHOLE_ARRAY );

   return(0);
}

//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit(){  return(0);}

//+------------------------------------------------------------------+
//| expert start function                                          
//+------------------------------------------------------------------+
int start(){
if (CheckV()) return(0);

if (debug==true)comentarios();

if(isNewBar()){

   HorarioAgora=TimeToStr(TimeCurrent(),TIME_MINUTES);
      if (( HorarioAgora>StartHour1 && HorarioAgora<StopHour1) || (!UseTimePeriod) )   CheckEntry();
}

  
if (TrailingStopEnable_1 && OrdensEmAndamento(001,MagicNumber,2)==1 ) TrailingStopCheck_Parameters(EAName,Lot5TrailingStopPips_1,Lot5StopLoss_1+PipsValueSL);
   
   return(0);
} 

//----------- Inicio das VOIDS --------------------------------------------------------------------------------------

void CheckExit(int bs){
}


void CheckEntry(){
double sll,tpp;

ema1_13     = NormalizeDouble(iMA(NULL, 5,EMAPeriod1, 0,MODE_SMA,PRICE_CLOSE,1),Digits); 
ema1_131    = NormalizeDouble(iMA(NULL, 5,EMAPeriod2, 0,MODE_SMA,PRICE_CLOSE,2 ),Digits); 
//ema2_13     = NormalizeDouble(iMA(NULL, 5,EMAPeriod1, 0,MODE_SMA,PRICE_CLOSE,2),Digits); 
//ema2_131    = NormalizeDouble(iMA(NULL, 5,EMAPeriod2, 0,MODE_SMA,PRICE_CLOSE,3 ),Digits); 

//ema132    = NormalizeDouble(iMA(NULL, 0,13, 0,MODE_EMA,PRICE_CLOSE,2 ),Digits); 
//sma50     = NormalizeDouble(iMA(NULL, 0,50, 0,MODE_SMA,PRICE_CLOSE,0 ),Digits); 
macdmH1      = iMACD(NULL,60,12,26,9,PRICE_CLOSE,MODE_MAIN,1);
macdsH1      = iMACD(NULL,60,12,26,9,PRICE_CLOSE,MODE_SIGNAL,1); //linha tracejada

macdmM15      = iMACD(NULL,15,12,26,9,PRICE_CLOSE,MODE_MAIN,1);
macdsM15      = iMACD(NULL,15,12,26,9,PRICE_CLOSE,MODE_SIGNAL,1); //linha tracejada

if (   macdmH1>macdsH1 && macdmM15>macdsM15 && ema1_13>ema1_131 /*&&  ema2_13<ema2_131 &&(OrdemBS==1 || OrdemBS==3)*/   ){
if (Ftime==1){OrdemBS=0;Ftime=0;return;}
  
if (OrdensEmAndamento(001,MagicNumber,2)==0) SendOrder(0);
if (OrdensEmAndamento(001,MagicNumber,1)==1) closeall(1);
}


if (   macdmH1<macdsH1 && macdmM15<macdsM15  && ema1_13<ema1_131 /*&&  ema2_13>ema2_131  /*&& (OrdemBS==0 || OrdemBS==3) */   ){
if (Ftime==1){OrdemBS=1;Ftime=0;return;}
      
if (OrdensEmAndamento(001,MagicNumber,2)==0) SendOrder(1);
if (OrdensEmAndamento(001,MagicNumber,0)==1) closeall(0);

}
}//void


bool CheckMacd(int bs){
int menor,maior;
double macdm1,macds1;

if(bs==0){
   
   for (i=0;i<20;i++) {
   //macdm = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,i);
   macdm      = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,i);
   macds      = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,i); //linha tracejada
   macdm1     = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,i+1);
   macds1     = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,i+1); //linha tracejada
   
   if (macdm>macds && macdm1<macds1)return(true);
   }
}


if(bs==1){
   
   for (i=0;i<5;i++) {
   //macdm = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,i);
   macdm      = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,i);
   macds      = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,i); //linha tracejada
   macdm1     = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,i+1);
   macds1     = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,i+1); //linha tracejada
   
   if (macdm<macds && macdm1>macds1)return(true);
   }
}



return(false);
}


void SendOrder(int bs)
{
double lt,texto,price,t;
int erro;

if (PercentRisk!=0)lt=GetLots(Lot5StopLoss_1+PipsValueSL);else lt=Lot5Value_1;

if (bs==0){
  int count=0;
  int Ticket=-99;

      if (Lot5StopLoss_1==0)  sl=0;else sl=Ask-(Lot5StopLoss_1*Point);
      if (Lot5TakeProfit_1==0)tp=0;else tp=Ask+(Lot5TakeProfit_1*Point);

 //Initial stop set at five-bar low from entry. 
 //o target sera 2 x o nosso risco = stoploss em pips x 2 

         while(Ticket<0)         {
            RefreshRates();
            
              Ticket=OrderSend(Symbol(),OP_BUY,lt,Ask,5,sl,tp,EAName,MagicNumber,0,Blue);

                  if(Ticket<0){
                  Print("erro buy = ",erro," sl= ",sl," tp = ",tp," lt = ",lt," texto = ",texto," ask = ",Ask," GetLastError =  ",GetLastError());
                  count++;
                  }
             OrdemBS=0;
             while (IsTradeContextBusy()) Sleep(250);
          if (count>10)return(0);   
         }//while

}

   if (bs==1) {
   Ticket=-1;
   count=0;
        
      if (Lot5StopLoss_1==0)  sl=0;else sl=Bid+(Lot5StopLoss_1*Point);
      if (Lot5TakeProfit_1==0)tp=0;else tp=Bid-(Lot5TakeProfit_1*Point);

              
            while(Ticket<0)            {
              RefreshRates();
         
              Ticket=OrderSend(Symbol(),OP_SELL,lt,Bid,5,sl,tp,EAName,MagicNumber,0,Red);
                 
                  if(Ticket<0){
                  Print("erro buy = ",erro," sl= ",sl," tp = ",tp," lt = ",lt," texto = ",texto," ask = ",Ask," GetLastError =  ",GetLastError());
                  count++;
                  }
       
               while (IsTradeContextBusy()) Sleep(250);
            OrdemBS=1;
            if (count>10)return(0);   
           }
    }
}//void


void comentarios()   {
   Comment ("----Trabalhando... ","\n",
         "ema1_13 = ",ema1_13,"\n",
         "ema1_131 = ",ema1_131,"\n",
         "macdmH1 = ",macdmH1,"\n",
         "macdsH1 = ",macdsH1,"\n",
         "macdmM15 = ",macdmM15,"\n",
         "macdsM15 = ",macdsM15,"\n",
         "HorarioAgora = ",HorarioAgora,"\n",
         "control = ",i,"\n");
   }


   
   
   
   
   
//int tipo 0=buy 1=sell 2=qualqueruma
int  OrdensEmAndamento(int Magic,int Magic2,int tipo)
{
ApenasSegunda=0;
//OP_BUY==0  OP_SELL==1
Tipo=111;
int Estado=0;
Total =    OrdersTotal();
            for (i=0;i<Total;i++) 
            {
            OrderSelect(i,SELECT_BY_POS,MODE_TRADES);                                                //aqui Tipo so ta retornando certo pq esse Ea nao aceita ordens inversas abertas,logo so tera sell ou buy. Se fosse um Ea q aceitava tem de mudar isso pq da primeira passada ele pode achar o sell mas na 2 pode achar um buy e retornar o buy por final
            
                if (tipo==0 || tipo==1)
                if (OrderSymbol()==Symbol() && (OrderMagicNumber()==Magic ||OrderMagicNumber()==Magic2) && tipo==OrderType()){
                Estado=1;
                Tipo=OrderType();
                break;
                }
           
                if (tipo==2)
                if (OrderSymbol()==Symbol() && (OrderMagicNumber()==Magic ||OrderMagicNumber()==Magic2))             {
                Estado=1;
                Tipo=OrderType();
                if (OrderComment()=="1st")ApenasSegunda++;
                break;
                }
            
            }
return(Estado);
}


void TrailingStopCheck_Parameters(string comentario,int tsp,int Lot5sl)
{

   for (int i = 0; i < OrdersTotal(); i ++) 
   {
      OrderSelect(i, SELECT_BY_POS, MODE_TRADES);

      if(OrderSymbol() == Symbol() && OrderMagicNumber()==MagicNumber && OrderComment()==comentario) 
      {
         if(OrderType() == OP_BUY) 
         {
            if(tsp > 0) 
            {                 
               if(Bid >= Point * (tsp+Lot5sl+TrailingStep)+OrderStopLoss()) 
               {
                     OrderModify(OrderTicket(), OrderOpenPrice(), Bid - Point * Lot5sl, OrderTakeProfit(), 0, MediumSeaGreen);
                     continue;
               }
            }
         } 
         if(OrderType() == OP_SELL) 
         {
            if(tsp > 0) 
            {                 
               if(Ask <=OrderStopLoss()-Point * (tsp+Lot5sl+TrailingStep)) 
               {
                     OrderModify(OrderTicket(), OrderOpenPrice(), Ask + Point * Lot5sl, OrderTakeProfit(), 0, DarkOrange);
                     continue;
               }
            }
         }
      }
   }


}


double GetLots(double StopLoss)
{
double lotsl;

double TamLote=(AccountEquity()*PercentRisk)/100; 

double RiskPerAverage=TamLote/(StopLoss); //2,0
if ((MarketInfo(Symbol(),MODE_LOTSIZE))==100000) lotsl=(RiskPerAverage*0.10);//0,2
if ((MarketInfo(Symbol(),MODE_LOTSIZE))==10000) lotsl=(RiskPerAverage*1.00);//0,2

return(lotsl);
}
 
int closeall(int bs)
{
int Ticket,Total;
int count=0;
int OK=0;

   Total = OrdersTotal();
       
   if (OrdersTotal()!=0)
   while (OK!=1)
   {
      
      for( i=Total-1;i>=0;i--) {
      OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
          Ticket = OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),10,Yellow);
          
          if (Ticket==true)OK=1;else while (IsTradeContextBusy()) Sleep(250);
      }
   count++;
   if (count>10){OK=1;Print("OrderClose Failure Tic = ",OrderTicket());}
   }
}
bool isNewBar()  {
   bool res=false;
   if (myBars!=Bars)
      {
      myBars=Bars;
      res=true;
      }
return(res);   
}

bool CheckV(){
  datetime TodayT=CurTime();
  datetime Venc=StrToTime(Dta);
  datetime Venc2=StrToTime(DtaInicial);
   
  
  if (TodayT>=Venc ||TodayT<=Venc2 ){
    Comment(" Just the FULL Version you can test all EA. Please check just the functionality of same, after conclude the Logic, we`ll send you the FULL EA");
    ObjectsDeleteAll();
    return(True);
  }
  if ( (!AllowDemoAccount) && (IsDemo()) &&  (JustoneDemoAccount==false)    ){                   Comment("F1");  return(True);}
  if ( (!IsDemo())  &&  (AccountNumber()!=AutAcc))   {            Comment("F2");  return(True);}
  if ( (IsDemo())   &&  (AccountNumber()!=AutAcc) && (JustoneDemoAccount==true) ) {  Comment("F3");  return(True);}
 
//Comment("T");
 
    return(False);  
}