/*[[
	Name := Gimme Bars
	Author := Matthew Heldreth
	Notes := Use on 5M chart.
	Lots := 1
	Stop Loss := 30
	Take Profit := 10
	Trailing Stop := 5
]]*/
defines: Slippage(3);
defines: MM(0),Leverage(1);
var: cnt(0),IsBuying(False),IsSelling(False),IsClosing(False),RealTP(0),RealSL(0);
var: bb1mid_0(0),bb1mid_1(0),bb1low_0(0),bb1low_1(0),bb1up_0(0),bb1up_1(0);
var: LotMM(0),LotMax(50);

// Check for invalid bars and takeprofit
If Bars<200 then Exit;

// From which month test on history.
Define : MyYear(2005),MyMonth(1);
If MyYear>0 And MyYear>Year Then Exit;
If MyYear>0 And Year==MyYear And Month<MyMonth Then Exit;

// Calculate indicators' value
bb1mid_0 = iBandsEx(20,2,0,PRICE_CLOSE,MODE_MAIN,0);
bb1mid_1 = iBandsEx(20,2,0,PRICE_CLOSE,MODE_MAIN,1);
bb1low_0 = iBandsEx(20,2,0,PRICE_CLOSE,MODE_LOW,0);
bb1low_1 = iBandsEx(20,2,0,PRICE_CLOSE,MODE_LOW,1);
bb1up_0 = iBandsEx(20,2,0,PRICE_CLOSE,MODE_HIGH,0);
bb1up_1 = iBandsEx(20,2,0,PRICE_CLOSE,MODE_HIGH,1);

//  Lot Management
		If MM < 0 then 
		{
			LotMM = Round(Balance*Leverage/10000)/10;
  			If LotMM > LotMax then LotMM = LotMax;  
	  	};
		If MM = 0 then LotMM = lots;
		if MM > 0 then 
 		{
			LotMM = Round(Balance*Leverage/10000)/10;
 			If LotMM > 1 then LotMM = ceil(LotMM);
 			if LotMM < 1 then LotMM = 1;
	 		If LotMM > LotMax then LotMM = LotMax;  
		};

// Check for BUY, SELL, and CLOSE signal
IsBuying = (PriceAsk > bb1up_0);
IsSelling = (PriceBid < bb1low_0);
IsClosing = False;

// Control open trades
for cnt=1 to TotalTrades
  {
   // Control only market trades not entry order
   if OrderValue(cnt,VAL_TYPE)<=OP_SELL and
      OrderValue(cnt,VAL_SYMBOL)=Symbol then
     {
     
      // Check for close signal for bought trade
      If OrderValue(cnt,VAL_TYPE)=OP_BUY then
  		{
                  
         If IsSelling or IsClosing then
     	   {
     	    // Close bought trade
            CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_LOTS),Bid,3,Violet);
            Alert("Gimme Bars: Closing BUY order.");
     	   };
         
         // Check trailing stop
         If TrailingStop>0 then
		   {                   
            If (Bid-OrderValue(cnt,VAL_OPENPRICE))>(Point*TrailingStop) then
        	  {
               If OrderValue(cnt,VAL_STOPLOSS)<(Bid-Point*TrailingStop) then
           	     {
           	      // Modify trailing stop
                  ModifyOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_OPENPRICE),
                              Bid-Point*TrailingStop,OrderValue(cnt,VAL_TAKEPROFIT),Red);        
           		 };
           	  };
           };
  		}
  	  else
  	  	{
         
         // Check sold trade for close signal
         If IsBuying or IsClosing then
     	   {
            CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_LOTS),Ask,3,Violet); 
            Alert("Gimme Bars: Closing SELL order.");
     	   };
         
         // Control trailing stop
         If TrailingStop>0 then
     	   {
            If (OrderValue(cnt,VAL_OPENPRICE)-Ask)>(Point*TrailingStop) then
        	  {
               If OrderValue(cnt,VAL_STOPLOSS)=0 or 
                  OrderValue(cnt,VAL_STOPLOSS)>(Ask+Point*TrailingStop) then
           	     {
                  ModifyOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_OPENPRICE),
                              Ask+Point*TrailingStop,OrderValue(cnt,VAL_TAKEPROFIT),Red);
           		 };
        	  };
     	   };
     	};
  	 };
  };
  
  
// If there is no open trade
If TotalTrades<1 then
  {
   // If we have enough money for 1 lot
   If FreeMargin<1000 then Exit;  

   // Check for BUY entry signal
   If IsBuying and IsSelling=False and IsClosing=False then
     {
      // Buy
      If StopLoss>0 then
      {
      	RealSL=Ask-StopLoss*Point;
      }   
      If TakeProfit>0 then
      {
      	RealTP=Ask+TakeProfit*Point;
      }        
      SetOrder(OP_BUY,Lots,Ask, Slippage,RealSL,RealTP,RED);
      Alert("Gimme Bars: Buying"); 
     };
   
   // Check for SELL entry signal
   If IsSelling and IsBuying=False and IsClosing=False then
     {
      // Sell
	  If StopLoss>0 then
      {
      	RealSL=Bid+StopLoss*Point;
      }   
      If TakeProfit>0 then
      {
      	RealTP=Bid-TakeProfit*Point;
      }    
      SetOrder(OP_SELL,Lots,Bid,Slippage,RealSL,RealTP,RED);
      Alert("Gimme Bars: Selling");
     };
  };