/*[[
        Name := BARTRADER
        Author := FAB4X
        Link := http://www.FAB4X.com
        Notes := Use on 15 or 30m charts
        Lots := 1.00
        Stop Loss := 45
        Take Profit := 25
        Trailing Stop := 0
]]*/


define: Slippage(5);
define: MM(0);
define: Risk(7.5);

var: cnt(0);
var: Opentrades(0),MustOpenSecondTrade(FALSE);
var: lotsi(0);
var: trend("");
var: vTime(0);
var: vol1(0);
var: vol2(0);
var: myh(0),myl(0),myc(0),pivot(0),buyprice(0),sellprice(0);
//////////////////////////////////////////////////
// Exit if not H4 charts
//////////////////////////////////////////////////
/*
if Period != 240 then
{
	Comment("This expert is for 4HR Charts");
	Exit;
}
*/
//////////////////////////////////////////////////
// Exit if time between EA runs is less than 11 sec.
//////////////////////////////////////////////////
if Curtime - LastTradeTime < 11 then exit;

//////////////////////////////////////////////////
// Set if back tester earlier than 2005
//////////////////////////////////////////////////
If TimeYear(time)<2005 then Exit; 

//////////////////////////////////////////////////
// Set Variables
//////////////////////////////////////////////////
Slippage = Slippage*Point;
myh=High[1];
myl=Low[1];
myC=Close[1];

Pivot = ( myh+myl+myc )/ 3 ;  
buyprice=pivot+17*point;
sellprice=pivot-13*point;

//////////////////////////////////////////////////
// Set Comment 
//////////////////////////////////////////////////


//////////////////////////////////////////////////
///////////// Manage multiple trades ///////////// 
//////////////////////////////////////////////////
Opentrades = 0;
for cnt = 1 to TotalTrades 
{
	If OrderValue(cnt,Val_Symbol) == Symbol then
	{
		Opentrades++;
	}
};

//////////////////////////////////////////////////
///////////// Money Manager ///////////// 
//////////////////////////////////////////////////
if mm != 0 then Lotsi = Ceil(Balance*risk/10000)/10
else Lotsi=Lots;

//////////////////////////////////////////////////
// Close Order after each bar! 
//////////////////////////////////////////////////
if Opentrades != 0 and vTime != Time[0] then
{        
	for cnt=1 to TotalTrades
 	{
   	If  Ord(cnt,VAL_SYMBOL) == Symbol then
   	{
   		If (Ord(cnt,VAL_TYPE)=OP_BUY or Ord(cnt,VAL_TYPE)=OP_SELL)  then
     	{
     		//vTime = Time[0];
       		CloseOrder(OrderValue(cnt,VAL_TICKET),Ord(cnt,VAL_LOTS),(cnt,VAL_CLOSEPRICE),Slippage,BlueViolet);
       		Exit;
    	}
        If (Ord(cnt,VAL_TYPE)=OP_BUYSTOP or Ord(cnt,VAL_TYPE)=OP_SELLSTOP)  then
     	{
     		//vTime = Time[0];
       		DeleteOrder(OrderValue(cnt,VAL_TICKET),Brown);
       		Exit;
    	}   
    
    }
        
}
}
//////////////////////////////////////////////////
// Open Trade at start of bar!
//////////////////////////////////////////////////
if Opentrades == 0 and vTime != Time[0]  then 
{
	
		vTime = Time[0];
      	SetOrder(OP_BUYSTOP,Lotsi,buyprice,Slippage,buyprice-stoploss*point,buyprice+takeprofit*point,blue);
      	MustOpenSecondTrade=TRUE;
		Exit;
};

if MustOpenSecondTrade=TRUE then
	{
		//vTime = Time[0];
		MustOpenSecondTrade=FALSE;
		SetOrder(OP_SELLSTOP,Lotsi,sellprice,Slippage,sellprice+stoploss*point,sellprice-takeprofit*point,Red); 
	//	Exit;
	}



exit;