FT3.3

//=============================================================================
//                                                     Fluid Turquoise 3.3.mq4 
//                                                                 Derk Wehler 
//                                                            fibofx@gmail.com
//
// Taken from FB3.3 by Matt Pavlovich: fibofx@gmail.com.  
// One change made by Derk Wehler, suggested by TradeForexFx: The use of the 
// difference of two moving averages instead of the accelorator oscillator.
// Search for "TradeForexFx" to find changes.
//=============================================================================



#property copyright "Matt Pavlovich"
#property link      "fibofx@gmail.com"

extern double    MinTime 		= 120;
extern double    drawdown1 		= 10;
extern double    drawdown2 		= 20;
extern double    drawdown3 		= 30;
extern double    MaxLots		= 100;
extern double    stop 			= 1;//1 - 4hr//
extern double    profit 		= 3;//3 - 4hr//
extern double    trailer 		= 0.5;
// Line introduced to have desirable profit target for each trade
extern double    PipProfit 		= 4;
extern bool      DoubleDown 	= true;
extern bool      TrippleDown 	= true;
extern bool      QuadDown 		= true;
extern bool      Reverse 		= false;
extern bool      micro 			= true;
extern bool      mini 			= false;
extern bool      standard 		= false;

double    riskm = 75;	// micro=75, mini=7.5, standard=.75 //
double    riskM = 7.5;	// micro=75, mini=7.5, standard=.75 //
double    riskS = 0.75;	// micro=75, mini=7.5, standard=.75 //


double           Lots;
// int              MagicNumber = 333; - original line 
extern int              MagicNumber = 333; 


//This is a reverse Martingale system.  It trades with the trend, doubling down as the 
// position goes against you.  It is an "Always in Play" system as well, so be ready 
// to place a lot of trades!

//PLACE ON EURUSD 4HR CHART.  YOU MUST HAVE AT LEAST $500 TO START WITH A MICRO ACCOUNT, 
// $5000 FOR A MINI, AND $50,000 FOR A STANDARD ACCOUNT. THIS SYSTEM HAS NOT YET BEEN 
// TESTED.  AS SUCH, DEMO TEST BEFORE GOING LIVE.  AS ALWAYS, SPECULATING IN FOREX AND 
// ANY OTHER MARKETS IS RISKY.  YOU COULD LOOSE EVERY CENT YOU HAVE.  BE SMART!  ALSO, 
// USE ONLY WITH A BROKER WITH A 2 PIP SPREAD ON THE EURUSD, AS WELL AS A VOLATILE FEED.
// THE LATTER DOES NOT INCLUDE THE LIKES OF INTERBANK FX, ALPARI, ETC.  THERE IS NOTHING 
// WRONG WITH THESE BROKERS, BUT THEIR FEEDS TEND TO BE LESS VOLATILE THAN THEIR 
// COMPETITORS.  I PERSONALLY RECOMMEND VELOCITY4X.  I AM NOT AN IB.  HAPPY TRADING!


//=============================================================================
// Start
//=============================================================================
int start()
{

	int cnt, ticket, total;
	double SL, TP, TrailinStop;

	if (Lots > MaxLots) 
		Lots = MaxLots;
	if (Lots >= 100)
		Alert("Take your profits and run!!  Your broker will not allow more than 100 lots!  You cannot double down from here!  Stop trading!");

	if (micro)
		Lots = (MathCeil(AccountEquity() * riskm / 100000) / 100);

	if (mini)
		Lots = (MathCeil(AccountEquity() * riskM / 100000) / 10);

	if (standard)
		Lots = (MathCeil(AccountEquity() * riskS / 100000));
   
  
     

	double TrailingStop, msd, myrsi, myao;
	TrailingStop = iATR(Symbol(), 0, 14, 1) * trailer;
	
	// ------------------------------------------------------------------------
	// Change made for TradeForexFx to use moving average instead of iAC:
	// myao = iAC(Symbol(), 0, 0);	// original line
	myao = (iMA(NULL, 0, 5, 0, MODE_LWMA, PRICE_CLOSE, 0) - 
			iMA(NULL, 0, 8, 0, MODE_LWMA, PRICE_CLOSE, 0)) / Point;
	// ------------------------------------------------------------------------
			
	if (!IsTesting()) 
		Comment(" TrailingStop=", DoubleToStr(TrailingStop, 4));
		
	total = 0; 
	for (cnt=OrdersTotal()-1; cnt >= 0; cnt--)
	{
		OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
		if (OrderSymbol() != Symbol())
			continue;
		if (OrderMagicNumber() != MagicNumber)
			continue;
			
		if (OrderType() == OP_BUY)
			total++;
		if (OrderType() == OP_SELL)
			total++;
	}
   
 
	{
//	if (OrdersTotal() == 0 && Ask - Bid <= 3 * Point && myao > 0) - Line changed
	if (OrdersTotal() == 0 && Ask - Bid <= 3 * Point && myao > 1)
	{
		SL = Ask - iATR(Symbol(), 0, 14, 0) * stop;
		TP = Ask + iATR(Symbol(), 0, 14, 0) * profit;
		ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, 1, SL, TP, "", MagicNumber, 0, Blue);
		if (ticket > 0)
		{
			if (OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)) 
			{
				Print("BUY order opened : ", OrderOpenPrice());
			}
		}
		else 
		{
			Print("Error opening BUY order : ", GetLastError()); 
		}
	}
           
 // 	if (OrdersTotal() == 0 && Ask - Bid <= 3 * Point && myao < 0)   line changed      
	if (OrdersTotal() == 0 && Ask - Bid <= 3 * Point && myao < -1)
	{
		SL = Bid + iATR(Symbol(), 0, 14, 0) * stop;
		TP = Bid - iATR(Symbol(), 0, 14, 0) * profit;
		ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, 1, SL, TP, "", MagicNumber, 0, Red);
		if (ticket > 0)
		{
			if (OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)) 
			{
				Print("SELL order opened : ", OrderOpenPrice());
			}
		}
		else 
		{
			Print("Error opening SELL order : ", GetLastError());  
		}
	}
	
	if (DoubleDown)
		if (OrdersTotal() == 1 && Ask - Bid <= 3 * Point && 
			OrderOpenPrice() - Ask >= drawdown1 * Point && myao > 0)
		{
			SL = Ask - iATR(Symbol(), 0, 14, 0) * stop;
			TP = Ask + iATR(Symbol(), 0, 14, 0) * profit;
			ticket = OrderSend(Symbol(), OP_BUY, Lots*2, Ask, 1, SL, TP, "", MagicNumber, 0, Blue);
			if (ticket > 0)
			{
				if (OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) 
				{
					Print("BUY order opened : ",OrderOpenPrice());
				}
			}
			else 
			{
				Print("Error opening BUY order : ",GetLastError()); 
			}
		}
         
	if (DoubleDown)   
		if (OrdersTotal() == 1 && Ask - Bid <= 3 * Point && 
			Bid - OrderOpenPrice() >= drawdown1 * Point && myao < 0)
		{
			SL = Bid + iATR(Symbol(), 0, 14, 0) * stop;
			TP = Bid - iATR(Symbol(), 0, 14, 0) * profit;
			ticket = OrderSend(Symbol(), OP_SELL, Lots*2, Bid, 1, SL, TP, "", MagicNumber, 0, Red);
			if (ticket > 0)
			{
				if (OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) 
				{
					Print("SELL order opened : ",OrderOpenPrice());
				}
			}
			else 
			{
				Print("Error opening SELL order : ",GetLastError());  
			}
		}

	if (TrippleDown)
		if (OrdersTotal() == 2 && Ask - Bid <= 3 * Point && 
			OrderOpenPrice() - Ask >= drawdown2 * Point && myao > 0)
		{
			SL = Ask - iATR(Symbol(), 0, 14, 0) * stop;
			TP = Ask + iATR(Symbol(), 0, 14, 0) * profit;
			ticket = OrderSend(Symbol(), OP_BUY, Lots*4, Ask, 1, SL, TP, "", MagicNumber, 0, Blue);
			if (ticket > 0)
			{
				if (OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)) 
				{
					Print("BUY order opened : ", OrderOpenPrice());
				}
			}
			else 
			{
				Print("Error opening BUY order : ",GetLastError()); 
			}
		}
         
	if (TrippleDown)   
		if (OrdersTotal() == 2 && Ask - Bid <= 3 * Point && 
			Bid - OrderOpenPrice() >= drawdown2 * Point && myao < 0)
		{
			SL = Bid + iATR(Symbol(), 0, 14, 0) * stop;
			TP = Bid - iATR(Symbol(), 0, 14, 0) * profit;
			ticket = OrderSend(Symbol(), OP_SELL, Lots*4, Bid, 1, SL, TP, "", MagicNumber, 0, Red);
			if (ticket > 0)
			{
				if (OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)) 
				{
					Print("SELL order opened : ",OrderOpenPrice());
				}
			}
			else 
			{
				Print("Error opening SELL order : ",GetLastError());  
			}
		}
		
	if (QuadDown)
		if (OrdersTotal() == 3 && Ask - Bid <= 3 * Point && 
			OrderOpenPrice() - Ask >= drawdown3 * Point && myao > 0)
		{
			SL = Ask - iATR(Symbol(), 0, 14, 0) * stop;
			TP = Ask + iATR(Symbol(), 0, 14, 0) * profit;
			ticket = OrderSend(Symbol(), OP_BUY, Lots*8, Ask, 1, SL, TP, "", MagicNumber, 0, Blue);
			if (ticket > 0)
			{
				if (OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)) 
				{
					Print("BUY order opened : ",OrderOpenPrice());
				}
			}
			else 
			{
				Print("Error opening BUY order : ",GetLastError()); 
			}
		}
         
	if (QuadDown)   
		if (OrdersTotal()==3 && Ask-Bid<=3*Point && Bid-OrderOpenPrice()>=drawdown3*Point && myao < 0)
		{
			SL = Bid + iATR(Symbol(), 0, 14, 0) * stop;
			TP = Bid - iATR(Symbol(), 0, 14, 0) * profit;
			ticket = OrderSend(Symbol(), OP_SELL, Lots*8, Bid, 1, SL, TP, "", MagicNumber, 0, Red);
			if (ticket > 0)
			{
				if (OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) 
					{
						Print("SELL order opened : ",OrderOpenPrice());
					}
			}
			else 
			{
				Print("Error opening SELL order : ",GetLastError());  
			}
		}
	}
       
	for(cnt=total-1; cnt >= 0; cnt--)
	{
		OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);

		if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
		{
			TrailingStop = iATR(Symbol(), 0, 14, 1) * trailer;
			if (TrailingStop <= 0.0005) 
				TrailingStop=0.0006;
				
			if (OrderType() == OP_BUY)   // long position is opened //
			{
//	if ((Bid - OrderOpenPrice() >= 4 * Point && CurTime() - OrderOpenTime() >= MinTime)) - original line
				if ((Bid - OrderOpenPrice() >= PipProfit * Point && CurTime() - OrderOpenTime() >= MinTime))
				{
					RefreshRates();
					OrderClose(OrderTicket(), OrderLots(), Bid, 1, Violet); // close position
					return(0); // exit
				}
				if (Reverse)
					if (myao < 0)
					{
						RefreshRates();
						OrderClose(OrderTicket(), OrderLots(), Bid, 1, Violet); // close position
						return(0); // exit
					}
					
				// check for trailing stop
				if (TrailingStop > 0)  
				{                 
					if (Bid - OrderOpenPrice() > TrailingStop)
					{
						if (OrderStopLoss() < Bid - TrailingStop)
						{
							RefreshRates();
							OrderModify(OrderTicket(), OrderOpenPrice(), Bid - TrailingStop, OrderTakeProfit(), 0, Blue);
						}
					}
				}
			}

			if (OrderType() == OP_SELL)   // short position is opened //
			{
				
//				if ((OrderOpenPrice() - Ask >= 4 * Point && CurTime() - OrderOpenTime() >= MinTime))- original line
				if ((OrderOpenPrice() - Ask >=  PipProfit * Point && CurTime() - OrderOpenTime() >= MinTime))
				{
					RefreshRates();
					OrderClose(OrderTicket(), OrderLots(), Ask, 1, Violet); // close position
					return(0); // exit
                }
				if (Reverse)
					if (myao > 0)
					{
						RefreshRates();
						OrderClose(OrderTicket(), OrderLots(), Ask, 1, Violet); // close position
						return(0); // exit
					}
				// check for trailing stop
				if (TrailingStop > 0)  
				{
					if ((OrderOpenPrice() - Ask) > (TrailingStop))
					{
						if ((OrderStopLoss() > (Ask + TrailingStop)) || (OrderStopLoss() == 0))
						{
							RefreshRates();
							OrderModify(OrderTicket(), OrderOpenPrice(), Ask + TrailingStop, OrderTakeProfit(), 0, Red);
						}
					}
				}
			}
		}
	}
}