/*[[
	Name := % b
	Author := Copyright © 2005, Lynndal Daniels, Nick Bilak
	Link := 
	Notes := 
	Lots := 1
	Stop Loss := 120
	Take Profit := 800
	Trailing Stop := 0
]]*/
Defines: mprd(200),bprd(5),bdev(1),bdays(3),bhi(0.8),blo(0.2),rule4(1),slippage(7),risk(10),mm(0);
var: i(0),buysig(false),sellsig(false),buyaddsig(false),selladdsig(false),exitlong(false),exitshort(false);
var: lotsi(0),orders(0);
Arrays: pb[5](0);

If Bars<1 or TakeProfit<10 then Exit; 
If FreeMargin<200 then Exit;  
If((CurTime-LastTradeTime)<10) then Exit;

if mm<>0 then
	lotsi=Ceil(Balance*risk/10000)/10
else
	lotsi=lots;

orders=0;
For i=1 to TotalTrades {
	If Ord(i,Val_Symbol)=Symbol then {
		orders++;
	};
};
//get %b
//%b is defined as: %b= (Close - Lower Bollinger Band)/(Upper Bollinger Band - Lower Bollinger Band)
for i=1 to 4 {
	pb[i]=(C[i]-iBandsEx(bprd,bdev,0,PRICE_CLOSE,MODE_LOW,i))/(iBandsEx(bprd,bdev,0,PRICE_CLOSE,MODE_HIGH,i)-iBandsEx(bprd,bdev,0,PRICE_CLOSE,MODE_LOW,i));
};
/*
Rules for Long Entries:

1.) The market closes above its 200-day moving average. (SMA)
2.) The %b closes below 0.2 for 3 days in a row.
3.) Buy the market at the close (or at the next opening) when rules 1 & 2 are met
4.) Buy an additional unit if/when %b closes below 0.2 for 4 days in a row (1 additional day)
5.) Exit at the close when %b closes above 0.8

Rules for Shorts:

1.) The market closes below its 200 day MA
2.) The %b closes above 0.8 for 3 days in a row
3.) Sell the market at close (or at the next opening) when rules 1 & 2 are met
4.) Sell an additional unit if/when %b closes above 0.8 for 4 days in a row (1 additional day)
5.) Exit at the close when %b closes below 0.2
*/

if c[1]>iMA(mprd,MODE_SMA,1) and pb[1]<blo and pb[2]<blo and pb[3]<blo then {
//if c[2]<=iMA(mprd,MODE_SMA,2) and c[1]>iMA(mprd,MODE_SMA,1) and pb[1]<blo and pb[2]<blo and pb[3]<blo then {
	buysig=true;
	exitlong=false;
	if rule4=1 and orders=1 and pb[4]<blo then buyaddsig=true;
};
if c[1]<iMA(mprd,MODE_SMA,1) and pb[1]>bhi and pb[2]>bhi and pb[3]>bhi then {
//if c[2]>=iMA(mprd,MODE_SMA,2) and c[1]<iMA(mprd,MODE_SMA,1) and pb[1]>bhi and pb[2]>bhi and pb[3]>bhi then {
	sellsig=true;
	exitshort=false;
	if rule4=1 and orders=1 and pb[4]>bhi then selladdsig=true;
};
if pb[1]>bhi then exitlong=true;
if pb[1]<blo then exitshort=true;

	if orders>0 then {
      for i=1 to TotalTrades {
		if ord(i,VAL_SYMBOL)=Symbol and ord(i,VAL_TYPE)=OP_SELL and exitshort then {
			CloseOrder(ord(i,VAL_TICKET),ord(i,VAL_LOTS),ord(i,VAL_CLOSEPRICE),slippage,white);
			exit;
		};
		if ord(i,VAL_SYMBOL)=Symbol and ord(i,VAL_TYPE)=OP_BUY and exitlong then {
			CloseOrder(ord(i,VAL_TICKET),ord(i,VAL_LOTS),ord(i,VAL_CLOSEPRICE),slippage,white);
			exit;
		};
	  };
	};

	if orders=0 and buysig then {
		buysig=false;
    	SetOrder(OP_BUY,lotsi,ask,Slippage,ask-StopLoss*point,ask+TakeProfit*point,blue);
    	exit;
	};
	if orders=0 and sellsig then {
		sellsig=false;
    	SetOrder(OP_SELL,lotsi,bid,Slippage,bid+StopLoss*point,bid-TakeProfit*point,red);
    	exit;
	};
	if buyaddsig then {
		buyaddsig=false;
    	SetOrder(OP_BUY,lotsi,ask,Slippage,ask-StopLoss*point,ask+TakeProfit*point,blue);
    	exit;
	};
	if selladdsig then {
		selladdsig=false;
    	SetOrder(OP_SELL,lotsi,bid,Slippage,bid+StopLoss*point,bid-TakeProfit*point,red);
    	exit;
	};