///////////////////////////////////
#property copyright "markdshark"
///////////////////////////////////
//		DIBA - An Arrow pattern trader
///////////////////////////////////

// Externally configurable variables
extern double lot = 1;
extern int sl;
extern int tp;

//internal variables
datetime prevBar;
static double upperSlope, lowerSlope, hi[4], lo[4];


/////////////////////////////////////////
// Buy Condition
////////////////////////////////////////
bool buyCondition(){
	if(Close[0] > Close[2] + upperSlope && OrdersTotal()<1)	return (true); else return (false);
}

/////////////////////////////////////////
// Sell Condition
////////////////////////////////////////
bool sellCondition(){
	if(Close[0] < Close[2] + lowerSlope && OrdersTotal()<1)	return (true); else return (false);
}

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

	// We need at least 5 bars to run
	if (Bars < 5) return;
	
	// Everything happens when we find a new bar
	if (prevBar!=Time[0]){

		prevBar = Time[0];				

		if(arrowCondition()){

			loadArraysAndGetSlopes();

			if (buyCondition()){ 
				OrderSend(Symbol(),OP_BUY,lot,Ask,0,Bid-sl*Point,Ask+tp*Point,"DIBA");
			}
			else if (sellCondition()){
				OrderSend(Symbol(),OP_SELL,lot,Bid,0,Ask+sl*Point,Bid-tp*Point,"DIBA");
			}
		}
	}

	for (int i=0; i<OrdersTotal(); i++){                                               
		if (OrderSelect(i,SELECT_BY_POS,MODE_TIME)==true)
		{
		// Do cool tricky stuff here like add trailing stops, track account equity, play the national anthem, etc.
		}
	}
}

///////////////////////////////////////////////////////////////////////////////////////////////////
// LoadArraysAndGetSlopes - Loads the last 4 highs and lows & calculating the 2 slopes of the arrow
///////////////////////////////////////////////////////////////////////////////////////////////////
void loadArraysAndGetSlopes(){
//Alert("LOADING ARRAYS");
	int upX1=0;
	int upX2=0;
	int loX1=0;
	int loX2=0;
	
	double highest,high2, lowest, low2;
	
	highest = High[1];
	lowest = Low[1];
	
	for (int j=0;j<4;j++){
		hi[j] = High[j+1];
		lo[j] = Low[j+1];
		if (hi[j]>highest){
			high2=highest;
			highest=hi[j];
			upX2=upX1;
			upX1=j;
		}
		if(lo[j]<lowest){
			low2=lowest;
			lowest=lo[j];
			loX2=loX1;
			loX1=j;
		}
	}

//Alert("upX1: ",upX1," upX2: ",upX2," highest: ",highest," high2: ",high2);
//Alert("loX1: ",loX1," loX2: ",loX2," lowest: ",lowest," low2: ",low2);

	upperSlope=(high2-highest)/(-1*(upX2-upX1));
	lowerSlope=(low2-lowest)/(-1*(loX2-loX1)) ;
}


///////////////////////////////////////////////////////////////////////////////////////////////////
// ArrowCondition - Determines if the Arrow pattern is present
///////////////////////////////////////////////////////////////////////////////////////////////////
bool arrowCondition(){

	//bar 1 is an inside bar
	if (High[1] < High[2] && Low[1] > Low[2]) {
		//bar 2 is inside relative to bars 3 & 4
		if (High[2] < High[ArrayMaximum(High,4,1)] && Low[2] > Low[ArrayMinimum(Low,4,1)]){
			//high of bar 2 is below that of bar 3 && low of bar 2 is above low of bar 4
			if (High[2] < High[3] && Low[2] > Low[4])
				return (true);
		}
	}
	return (false);
}