//+------------------------------------------------------------------+
//|                                           10Points_4_Ind_v2d.mq4 |
//|                              Copyright © 2005, Alejandro Galindo |
//|                                              http://elCactus.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, Alejandro Galindo"
#property link      "http://elCactus.com"

extern double Lots               = 0.1;
extern double TakeProfit         = 30;
extern int    Pips               = 20;
extern int    MaxTrades          = 15;
extern double Multiplier         = 2;
extern string Indicator          ="TURBO";
extern int    H_level            = 70;
extern int    L_level            = 30;
extern int    mm                 = 0;
extern int    risk               = 5;
extern int MinimumEquityForTrade = 300;//t_david 5/4/07
extern int    MaxAllowedDD       = 300;//t_david 5/4/07  This should be a positive value , the expert will convert it to a negative

bool FirstRun = True;//t_david 5/13/07
string opentrades;//t_david 5/13/07

int prevtime=0;//t_david 5/8/07
bool CloseAllTrades = false;//t_david 5/4/07
int AccountisNormal=0;
int SecureProfit=100;

int AccountProtection=1;
int OrderstoProtect=3;
double InitialStop = 0;
double TrailingStop = 15;
int  OpenOrders=0, cnt=0;
int  Slippage=5;
double sl=0, tp=0;
double BuyPrice=0, SellPrice=0;
double lotsi=0, mylotsi=0;
int mode=0, myOrderType=0, myBuyOrderType=0, mySellOrderType=0;
bool ContinueOpening=True;
double LastPrice=0;
int  PreviousOpenOrders=0;
double AllOrdersDD=0;//t_david 5/4/07
double Profit=0;
int LastTicket=0, LastType=0;
double LastClosePrice=0, LastLots=0;
double Pivot=0;
double PipValue=0;
string text="", text2="";

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//---- 
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//---- 
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//---- 
   
   if (FirstRun)//t_david 5/13/07
    {
     opentrades = AccountNumber()+"_opentrades";
     if (!GlobalVariableCheck(opentrades)) { GlobalVariableSet(opentrades,0); }
     if (GlobalVariableCheck(opentrades) && GlobalVariableGet(opentrades) > 0) { GlobalVariableSet(opentrades,365); }
     FirstRun=False;
    }
   
   if (CloseAllTrades && prevtime < Time[0])//t_david 5/8/07
    { Alert(Symbol(),"CloseAllTrades Has Worked Re-Start Expert");
      GlobalVariableSet(opentrades,365);
      prevtime = Time[0];
      return(0);
    }
   
   double ind;
   
   if (!CloseAllTrades && GlobalVariableGet(opentrades) == 0)//t_david 5/13/07
   {
   
   if (AccountisNormal==1)
   {
	  if (mm!=0) { lotsi=MathCeil(AccountBalance()*risk/10000); }
		else { lotsi=Lots; }
   } else {  // then is mini
    if (mm!=0) { lotsi=MathCeil(AccountBalance()*risk/10000)/100; }
		else { lotsi=Lots; }
   }

   if (lotsi>100){ lotsi=100; }
   
   OpenOrders=0;
   for(cnt=0;cnt<OrdersTotal();cnt++)   
   {
     OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
	  if (OrderSymbol()==Symbol())
	  {				
	  	  OpenOrders++;
	  }
   }     
   
   if (PipValue==0) { PipValue=9; }
   
   if (PreviousOpenOrders>OpenOrders) 
   {	  
	  for(cnt=OrdersTotal();cnt>=0;cnt--)
	  {
	     OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
	  	  mode=OrderType();
		  if (OrderSymbol()==Symbol()) 
		  {
			if (mode==OP_BUY) { OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),Slippage,Blue); }
			if (mode==OP_SELL) { OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),Slippage,Red); }
			return(0);
		 }
	  }
   }

   PreviousOpenOrders=OpenOrders;
   if (OpenOrders>=MaxTrades) 
   {
	  ContinueOpening=False;
   } else {
	  ContinueOpening=True;
   }

   if (LastPrice==0) 
   {
	  for(cnt=0;cnt<OrdersTotal();cnt++)
	  {	
	    OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
		 mode=OrderType();	
		 if (OrderSymbol()==Symbol()) 
		 {
			LastPrice=OrderOpenPrice();
			if (mode==OP_BUY) { myOrderType=2; }
			if (mode==OP_SELL) { myOrderType=1;	}
		 }
	  }
   }
   
   if (OpenOrders<1) 
   {
	  myOrderType=3;
	  if (Indicator=="RSI")
	    {
	        if(iRSI(NULL,Period(),14,PRICE_CLOSE,0)>H_level)
	           myOrderType=1;
	        if(iRSI(NULL,Period(),14,PRICE_CLOSE,0)<L_level)
	           myOrderType=2;
	        
	    }
	  if (Indicator=="MACD")
        {
            if (iMACD(Symbol(),Period(),14,26,9,PRICE_CLOSE,MODE_MAIN,0)>iMACD(Symbol(),0,14,26,9,PRICE_CLOSE,MODE_MAIN,1)) 
               myOrderType=2;
            if (iMACD(Symbol(),Period(),14,26,9,PRICE_CLOSE,MODE_MAIN,0)<iMACD(Symbol(),0,14,26,9,PRICE_CLOSE,MODE_MAIN,1)) 
               myOrderType=1;
        }
	  if (Indicator=="TURBO")
        {
          if (iCustom(Symbol(),Period(),"Turbo_JRSX",14,MODE_MAIN,0)>  H_level) 
               myOrderType=1;
          if (iCustom(Symbol(),Period(),"Turbo_JRSX",14,MODE_MAIN,0)<  L_level) 
               myOrderType=2;
        }
 	  if (Indicator=="TURBO2")
        {
          if (iCustom(Symbol(),Period(),"Turbo_JVEL",14,MODE_MAIN,0)>  0.10) 
               myOrderType=1;
          if (iCustom(Symbol(),Period(),"Turbo_JVEL",14,MODE_MAIN,0)< -0.10)  
               myOrderType=2;
        }
	  if (Indicator=="STOCH")
	    {
          if(iStochastic(Symbol(),Period(),5,3,9,MODE_SMA,0,MODE_MAIN,0)>H_level && iStochastic(Symbol(),0,5,3,3,MODE_SMA,0,MODE_SIGNAL,1)>H_level)
               myOrderType=1;
          if(iStochastic(Symbol(),Period(),5,3,9,MODE_SMA,0,MODE_MAIN,0)<L_level && iStochastic(Symbol(),0,5,3,3,MODE_SMA,0,MODE_SIGNAL,1)<L_level)
               myOrderType=2;
	    }
   }

   // if we have opened positions we take care of them
   for(cnt=OrdersTotal();cnt>=0;cnt--)
   {
     OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
	  if (OrderSymbol() == Symbol()) 
	  {	
	  	  if (OrderType()==OP_SELL) 
	  	  {			
	  	  	  if (TrailingStop>0) 
			  {
				  if (OrderOpenPrice()-Ask>=(TrailingStop+Pips)*Point) 
				  {						
					 if (OrderStopLoss()>(Ask+Point*TrailingStop))
					 {			
					    OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderClosePrice()-TakeProfit*Point-TrailingStop*Point,800,Purple);
	  					 return(0);	  					
	  				 }
	  			  }
			  }
	  	  }
   
	  	  if (OrderType()==OP_BUY)
	  	  {
	  		 if (TrailingStop>0) 
	  		 {
			   if (Bid-OrderOpenPrice()>=(TrailingStop+Pips)*Point) 
				{
					if (OrderStopLoss()<(Bid-Point*TrailingStop)) 
					{					   
					   OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderClosePrice()+TakeProfit*Point+TrailingStop*Point,800,Yellow);
                  return(0);
					}
  				}
			 }
	  	  }
   	}
   }
   
   AllOrdersDD=0;//t_david 5/4/07
   Profit=0;
   LastTicket=0;
   LastType=0;
	LastClosePrice=0;
	LastLots=0;	
	for(cnt=0;cnt<OrdersTotal();cnt++)
	{
	  OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
	  AllOrdersDD+=OrderProfit();//t_david 5/4/07
	  if (OrderSymbol()==Symbol()) 
	  {			
	  	   LastTicket=OrderTicket();
			if (OrderType()==OP_BUY) { LastType=OP_BUY; }
			if (OrderType()==OP_SELL) { LastType=OP_SELL; }
			LastClosePrice=OrderClosePrice();
			LastLots=OrderLots();
			if (LastType==OP_BUY) 
			{
				//Profit=Profit+(Ord(cnt,VAL_CLOSEPRICE)-Ord(cnt,VAL_OPENPRICE))*PipValue*Ord(cnt,VAL_LOTS);				
				if (OrderClosePrice()<OrderOpenPrice()) 
					{ Profit=Profit-(OrderOpenPrice()-OrderClosePrice())*OrderLots()/Point; }
				if (OrderClosePrice()>OrderOpenPrice()) 
					{ Profit=Profit+(OrderClosePrice()-OrderOpenPrice())*OrderLots()/Point; }
			}
			if (LastType==OP_SELL) 
			{
				//Profit=Profit+(Ord(cnt,VAL_OPENPRICE)-Ord(cnt,VAL_CLOSEPRICE))*PipValue*Ord(cnt,VAL_LOTS);
				if (OrderClosePrice()>OrderOpenPrice()) 
					{ Profit=Profit-(OrderClosePrice()-OrderOpenPrice())*OrderLots()/Point; }
				if (OrderClosePrice()<OrderOpenPrice()) 
					{ Profit=Profit+(OrderOpenPrice()-OrderClosePrice())*OrderLots()/Point; }
			}
			//Print(Symbol,":",Profit,",",LastLots);
	  }
   }
	
	Profit=Profit*PipValue;
	text2="Profit: $"+DoubleToStr(Profit,2)+" +/-";
   if (OpenOrders>=(MaxTrades-OrderstoProtect) && AccountProtection==1) 
   {	    
	     //Print(Symbol,":",Profit);
	     if (Profit>=SecureProfit) 
	     {
	        //OrderClose(LastTicket,LastLots,LastClosePrice,Slippage,Yellow);		 
	        CloseAllTrades = true;
	        ContinueOpening=False;
	        NowClose();
	     }
   }

      if (!IsTesting()) 
      {
	     if (myOrderType==3) { text="No conditions to open trades"; }
	     else { text=""; }
	     Comment("\n","MaxAllowedDD :  ",MaxAllowedDD," ,  AllOrdersDD :  ",AllOrdersDD," ,  GlobalVariableGet(opentrades) :  ",GlobalVariableGet(opentrades),//t_david 5/13/07
	             "\n","MinimumEquityForTrade :  ",MinimumEquityForTrade," ,  AccountEquity :  ",AccountEquity(),//t_david 5/8/07
	             "\nLastPrice=",LastPrice," Previous open orders=",PreviousOpenOrders,
	             "\nContinue opening=",ContinueOpening," OrderType=",myOrderType,
	             "\n",text2,
	             "\nLots=",lotsi,
	             "\n",text);
      }

      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 (InitialStop==0) { sl=0; }
		    else { sl=SellPrice+InitialStop*Point;  }
		    if (OpenOrders!=0) 
		    {
			      mylotsi=lotsi;			
			      for(cnt=1;cnt<=OpenOrders;cnt++)
			      {
				     mylotsi=NormalizeDouble(mylotsi*Multiplier,2);
				     Comment(mylotsi);
			      }
		    } else { mylotsi=lotsi; }
		    if (mylotsi>100) { mylotsi=100; }
		    if (mylotsi>1)
		       {
		          tp     =NormalizeDouble(tp+(tp*0.15),2);
		          mylotsi=NormalizeDouble(mylotsi-(mylotsi*0.15),2);
		       }
		    OrderSend(Symbol(),OP_SELL,mylotsi,SellPrice,Slippage,sl,tp,NULL,0,0,Red);		    		    
		    return(0);
	     }
      }
      
      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 (InitialStop==0)  { sl=0; }
		    else { sl=BuyPrice-InitialStop*Point; }
		    if (OpenOrders!=0) {
			   mylotsi=lotsi;
			   for(cnt=1;cnt<=OpenOrders;cnt++)
			   {
				  mylotsi=NormalizeDouble(mylotsi*Multiplier,2);
				  Comment(mylotsi);
			   }
		    } else { mylotsi=lotsi; }
		    if (mylotsi>100) { mylotsi=100; }
		    if (mylotsi>1)
		       {
                tp     =NormalizeDouble(tp+(tp*0.15),2);
		          mylotsi=NormalizeDouble(mylotsi-(mylotsi*0.15),2);
		       }
		    OrderSend(Symbol(),OP_BUY,mylotsi,BuyPrice,Slippage,sl,tp,NULL,0,0,Blue);		    
		    return(0);
	     }
      } 
      
   } // if (!CloseAllTrades)//t_david 5/4/07
   
   if ( !CloseAllTrades && AllOrdersDD <= -MaxAllowedDD ) { Print("MaxAllowedDD Exceeded"); CloseAllTrades = true; GlobalVariableSet(opentrades,365); NowClose(); }//t_david 5/13/07
   if ( !CloseAllTrades && AccountEquity() <= MinimumEquityForTrade ) { Print("Account Equity Lower Than MinimumEquityForTrade"); CloseAllTrades = true; GlobalVariableSet(opentrades,365); NowClose(); }//t_david 5/13/07
   if ( GlobalVariableGet(opentrades) > 0 ) { CloseAllTrades = true; NowClose(); }//t_david 5/13/07
   if ( CloseAllTrades ) { GlobalVariableSet(opentrades,365); NowClose(); }//t_david 5/13/07

//----
   return(0);
  }
//+------------------------------------------------------------------+
 
void NowClose()//t_david 5/4/07 thanks go to Paul Hampton-Smith for the code
 {
   GlobalVariableSet(opentrades,365);//t_david 5/13/07
  while (OrdersTotal() > 0)
   {
     OrderSelect(0, SELECT_BY_POS, MODE_TRADES);
    switch (OrderType())
     {
       case OP_BUY: OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 0, Purple); break;
       case OP_SELL: OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 0, Purple); break;
       //case OP_BUYSTOP:
       //case OP_SELLSTOP: 
       //case OP_BUYLIMIT:
       //case OP_SELLLIMIT: OrderDelete(OrderTicket());
     }
   }
 }