WoodyEA

//+------------------------------------------------------------------+
//|                                                      WoodyEA.mq4 |
//|                                              @2009 Desynced Tech |
//|                                     http://desynced.no-ip.org/fx |
//+------------------------------------------------------------------+
#property copyright "@2009 Desynced Tech"
#property link      "http://desynced.no-ip.org/fx"
#include <mysql.mqh>

datetime lastOrder = 0;
bool hasHedge = false;
bool hasHedgeWithStop = false;
extern double lots = 0.1;
int MAGIC = 60;
int ticket;
int edgeTicket= 0;

int edgeTries=0;
datetime PreviousBar;      // record the candle/bar time
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
  
  bool NewBar()
{
   if(PreviousBar<Time[0])
   {
      PreviousBar = Time[0];
      return(true);
   }
   else
   {
      return(false);
   }
   return(false);    // in case if - else statement is not executed
}
  
  
int closeOrder(int ticket,int orderType, double lts) {

if ( orderType == OP_BUY ) {

   OrderClose(ticket,lts,Bid,3,Green);
   return(0);
}
else {
   OrderClose(ticket, lts, Ask, 3, Green);
    return(0);

}




}  


datetime checkTicket (int tik) {
   
   
     int hstTotal=OrdersHistoryTotal();
     datetime ret = 0;
     if(OrderSelect(tik,SELECT_BY_TICKET,MODE_HISTORY) !=false ) {
     
        ret = OrderCloseTime();
        return(ret);
             
     }  
      
     return(0); 
}



void checkProfit(int hedgeLoss ) {

   double currentProfit = OrderProfit();
   int orderTicket = OrderTicket();
   int orderType = OrderType();
   
   double hLots = OrderLots();//*2;
   
   int hedge = getHedgeTrades();
   
   if ( hedge == -1 && currentProfit < hedgeLoss ) {
      
      int decision = stochasticAlert();
      
      if ( orderType == 0 && decision == -1 ) {
         // é um buy vou abrir um sell */
         edgeTicket =OrderSend(Symbol(),OP_SELL, hLots, Bid, 3, Ask+200*Point, 0,"hedge", MAGIC, 0, Red);
         /*
                            mysql_connect("192.168.0.3","forex","forex","forex",3306);
 									 insertOrderDb(ticket,Symbol(),Bid,0, 0,MAGIC,"woodyEA-HEDGER",OP_SELL, TimeCurrent());
 									mysql_close(mysql);
                        
                      */
         
             hasHedge = true;
             edgeTries = 0;
      }
      else if ( orderType == 1 && decision == 1 ) {
      
        edgeTicket =  OrderSend(Symbol(),OP_BUY, hLots, Ask, 3, Bid-200*Point, 0,"hedge", MAGIC, 0, Red); 
         hasHedge = true;
         edgeTries = 0;
      }
     
      return(0);
   
   }
   if ( hedge > 0 && !hasHedgeWithStop) {
   
         // ja tenho um edge e agora que faco com ele 
         bool res = false;
         double point = 0 ;
         if ( OrderType() == 0 ) {
            
            res = OrderModify(hedge,Ask,OrderOpenPrice(),0,0,Blue);
            
            point = MathAbs((Ask-OrderOpenPrice()));
         
         }
         else {
            
           res =  OrderModify(hedge,Bid,OrderOpenPrice(),0,0,Blue);
           
             point = MathAbs((Bid-OrderOpenPrice()));
         }
         if ( res ) {
         
            Print(" modifiquei no hedge" , hedge);
            hasHedgeWithStop = true;
         }
         else {
               edgeTries++;
               Print(" modifiquei no hedge" , edgeTries);
         }
   
   }
   if  ( hedge > 0 && hasHedgeWithStop ) {
      
      if ( currentProfit + OrderProfit() > 0 ) {
         
               if ( currentProfit + OrderProfit() > 100 )  {
                  closeOrder(OrderTicket(),OrderType(),hLots);
                  closeOrder(orderTicket,orderType,hLots/2);
                  
               }
               Print("tenho aqui um ponto de lucro " , currentProfit + OrderProfit());
         }
   
   
   }
   

}


  
  
  
  

int getHedgeTrades() {


   int z = OrdersTotal();
   
   for(int i=0;i<z;i++) {
   
      OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      if ( OrderSymbol() == Symbol() && OrderMagicNumber() == MAGIC && OrderComment() == "hedge" ) {
         hasHedge = true;
         if ( OrderStopLoss() == OrderOpenPrice() ) hasHedgeWithStop = true;
         return (OrderTicket());
      }
   
   }
   
   hasHedge = false;
   hasHedgeWithStop = false;
   edgeTicket = 0;
   
   
   return(-1);

}



bool canTrade() {

   //if ( Minute() == 0) return(false);

   if ( Hour() >= 1 && Hour() < 2 || (Hour() == 2 && Minute() < 20 )  ) return (false);
   
   if ( Hour() >= 9 && Hour() < 10 || (Hour() == 10 && Minute() < 20 ) ) return (false);
   
   if ( Hour() >= 13 && Hour() < 14 || ( Hour() == 14 && Minute() < 20 )) return (false);
   
   if ( Hour() == 17 ) return(false);
   
   return (true);

}


int getNumberTrades()
{   
   int total = OrdersTotal();
   int numords = 0;
      
   for(int cnt=0; cnt<total; cnt++) 
   {        
   OrderSelect(cnt, SELECT_BY_POS);            
   if(OrderSymbol() == Symbol() &&  OrderMagicNumber() == MAGIC) 
      return (OrderTicket());
   }
   return(-1);
}  


int decision(bool includeTime) {

         double y1 = iCustom(NULL, 0, "cci_woodies_lnx_v1_1",0,0);
         double y2 = iCustom(NULL, 0, "cci_woodies_lnx_v1_1",1,0);
         double y3 = iCustom(NULL, 0, "cci_woodies_lnx_v1_1",2,0);
         double y4 = iCustom(NULL, 0, "cci_woodies_lnx_v1_1",3,0);
         double y5 = iCustom(NULL, 0, "cci_woodies_lnx_v1_1",5,0);
         double y6 = iCustom(NULL, 0, "cci_woodies_lnx_v1_1",5,1);
         
         double y7 = iCustom(NULL, 0, "cci_woodies_lnx_v1_1",5,2);
         
 
        /* int ratio = MathFloor( AccountBalance() /1000 );
 
          if ( ratio > 0 ) lots = 0.1*(ratio*2);
  */
        if (y1 ==0 && y6 > -10 &&  y6 < 0 && y5 > 0  && y5 > 120 && OrdersTotal() == 0  ) {
        
            if ( includeTime ) {
            
               if ( (TimeCurrent() - lastOrder ) > (60*60*3 ) ) {
                  Print( "buy " , y7 , " " , y6 , " ", y5 ,  " " , y1 );
                  return(1);
               
               }
               else return (0);
            }
            Print( "buy " , y7 , " " , y6 , " ", y5 ,  " " , y1 );
            return (1);
        }
        
        
        if ( y1 == 0 &&  y6 < 0 && y5 > 72 && OrdersTotal() == 0   ) {
        
                  if ( includeTime ) {
            
                          if ( (TimeCurrent() - lastOrder ) > (60*60*3 ) ) {
                                  Print( "sell " , y7 , " " , y6 , " ", y5 , " " , y1 );
                                  return(-1);
               
                            }
                           else return (0);
                  }
            Print( "sell " , y7 , " " , y6 , " ", y5 , " " , y1 );
            return (-1);
         }
        
        return(0);
      


}

int stochasticAlert() {

   double mainLine;
   double prevMainLine;
   double signalLine;
   double prevSignalLine;
      
   for(int a=0;a<=14 ;a++)
   {
      mainLine=iStochastic(0,0,14,3,3,MODE_SMA,0,MODE_MAIN,a);
      prevMainLine=iStochastic(0,0,14,3,3,MODE_SMA,0,MODE_MAIN,a+1);
      signalLine=iStochastic(0,0,14,3,3,MODE_SMA,0,MODE_SIGNAL,a);
      prevSignalLine=iStochastic(0,0,14,3,3,MODE_SMA,0,MODE_SIGNAL,a+1);
 
      if(prevMainLine<prevSignalLine && mainLine>signalLine) {
        // Print("buy " , mainLine , " " , signalLine );
         return (1);
        }
      if(prevMainLine>prevSignalLine && mainLine<signalLine) {
      
      //   Print("sell " , mainLine , " " , signalLine );
         return (-1);
        }
   }
   return(0);




}



int start()
  {

 
         if ( edgeTicket != 0 ) {
            datetime edgeTime = checkTicket(edgeTicket);
         if ( edgeTime != 0 && (TimeCurrent() - edgeTime )< (60*60*2 ) ) return(0);
        
         
         
         }

         int tik = getNumberTrades();
         
         if ( tik != -1 ) {
               checkProfit(-150);
               return(0);
         }


      
         if ( !canTrade()  ) {
         
            Comment("no trade time");
            return(0);
         }
         else Comment("");
         
        if(NewBar() == false ) return(0);
         
        
 
         int decision = decision(true);
        /* int ratio = MathFloor( AccountBalance() /1000 );
 
          if ( ratio > 0 ) lots = 0.1*(ratio*2);
  */
        if ( decision == 1 ) {
              
               
               

                      ticket = OrderSend(Symbol(),OP_BUY, lots, Ask, 3, 0, Ask+60*Point,"", MAGIC, 0, Red); 
                      
                      /*
                            mysql_connect("192.168.0.3","forex","forex","forex",3306);
 									 insertOrderDb(ticket,Symbol(),,0, Ask+60*Point,MAGIC,"woodyEA",OP_BUY, TimeCurrent());
 									mysql_close(mysql);
                        
                      */
                      lastOrder = TimeCurrent();
              

         }
         
         else if ( decision == -1 ) {
         
             ticket =  OrderSend(Symbol(),OP_SELL, lots, Bid, 3, 0, Bid-60*Point,"", MAGIC, 0, Red); 
               
                        if ( ticket > 0 ) {
                        
                         /*
                        
                            mysql_connect("192.168.0.3","forex","forex","forex",3306);
 									 insertOrderDb(ticket,Symbol(),Bid,0, Bid-60*Point,MAGIC,"woodyEA",OP_SELL, TimeCurrent());
 									mysql_close(mysql);
                      */
                               lastOrder = TimeCurrent();
                            
                        }
         
         }
         




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