/*[[
	Name := Vlado
	Author := Vlado
	Link := 
	Notes := use for 15min EUR/USD
	Lots := 1
	Stop Loss := 0
	Take Profit := 0
	Trailing Stop := 0
]]*/

Defines: periods(100),shift(0),slippage(5),risk(10), mm(0);
var: lotsi(0),i(0);


If FreeMargin<100 then Exit;  


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

if  iWPR(periods,shift) > -50 then {
for i=1 to TotalTrades {
	if ord(i,VAL_TYPE)=OP_SELL then
		CloseOrder(ord(i,VAL_TICKET),ord(i,VAL_LOTS),bid,slippage,red);
};

if TotalTrades<1 then {
    SetOrder(OP_BUY,lotsi,PriceAsk,Slippage,0,0,RED);
    };
};

if iWPR(periods,shift) < -50 then {
for i=1 to TotalTrades {
	if ord(i,VAL_TYPE)=OP_BUY then
		CloseOrder(ord(i,VAL_TICKET),ord(i,VAL_LOTS),ask,slippage,red);
};

if TotalTrades<1 then {
    SetOrder(OP_SELL,lotsi,Pricebid,Slippage,0,0,RED);
    };
};