2ways system Metatrader MQL Experts Forex Trading Systems - XEATrade - Metatrader, Metastock, Tradestation, Amibroker

/*[[
        Name := 2 way orders
        Author := Copyright c 2003, Nick Bilak beluck[AT]ukr.net
        Link := http://bilak.port5.com
        Notes := eur/usd m15
        Lots := 1
        Stop Loss := 80
        Take Profit := 200
        Trailing Stop := 80
]]*/
defines: Slippage(5),sf(0),risk(12),mm(0);
var: i(0),lotsi(0),dels(0),p1(0),p2(0),Stoplos(0),TrailingSto(0);

If FreeMargin<100 then Exit;
if mm<>0 then
        lotsi=Ceil(Balance*risk/10000)/10
else
        lotsi=Lots;
p1=stoploss/2+2;
p2=stoploss/2-3;
Stoplos=p1+p2;
TrailingSto=p1+p2;
If TotalTrades<1 then {
        SetOrder(OP_BUYSTOP,lotsi,Bid+p1*Point,Slippage,Bid-p2*Point,Bid+(p1+TakeProfit)*Point,RED);
        SetOrder(OP_SELLSTOP,lotsi,Bid-p2*Point,Slippage,Bid+p1*Point,Bid-(p2+TakeProfit)*Point,RED);
};
If TotalTrades=1 then {
        if OrderValue(1,VAL_TYPE)=OP_SELLSTOP or OrderValue(1,VAL_TYPE)=OP_SELL then {
        	if ord(1,VAL_STOPLOSS)-16*Point > PriceAsk then
	            SetOrder(OP_BUYSTOP,lotsi,ord(1,VAL_STOPLOSS),Slippage,ord(1,VAL_STOPLOSS)-stoploss*point,ord(1,VAL_STOPLOSS)+TakeProfit*Point,RED);
        };
        if OrderValue(1,VAL_TYPE)=OP_BUYSTOP or OrderValue(1,VAL_TYPE)=OP_BUY then {
        	if ord(1,VAL_STOPLOSS)+16*Point < PriceBid then
	            SetOrder(OP_SELLSTOP,lotsi,ord(1,VAL_STOPLOSS),Slippage,ord(1,VAL_STOPLOSS)+stoploss*point,ord(1,VAL_STOPLOSS)-TakeProfit*Point,RED);
        };
};
dels=0;
for i=1 to TotalTrades
begin
   If Ord(i,VAL_TYPE)=OP_BUY then   {
      If (Bid-Ord(i,VAL_OPENPRICE))>(TrailingSto*Point) then   {
         If Ord(i,VAL_STOPLOSS)<(Bid-TrailingSto*Point) then {
            ModifyOrder(Ord(i,VAL_TICKET),Ord(i,VAL_OPENPRICE),
                        Bid-TrailingSto*Point,Ord(i,VAL_TAKEPROFIT),Red);
            dels=Bid-TrailingSto*Point;
           }
          else {
            dels=0;
          };
        };
     };
   If Ord(i,VAL_TYPE)=OP_SELL then
     {
      If (Ord(i,VAL_OPENPRICE)-Ask)>(TrailingSto*Point) then  {
         If Ord(i,VAL_STOPLOSS)>(Ask+TrailingSto*Point) or
            Ord(i,VAL_STOPLOSS)=0 then    {
            ModifyOrder(Ord(i,VAL_TICKET),Ord(i,VAL_OPENPRICE),
                        Ask+TrailingSto*Point,Ord(i,VAL_TAKEPROFIT),Red);
            dels=Ask+TrailingSto*Point;
            }
          else {
            dels=0;
            };
         };
     };
end;
for i=1 to TotalTrades {
	if (Ord(i,VAL_TYPE)=OP_SELLSTOP or Ord(i,VAL_TYPE)=OP_BUYSTOP) and dels<>0 then
		DeleteOrder(ord(i,VAL_TICKET),red);
};
exit;

Author/Source: Nick Bilak

Forex Directory | Forex Trading Systems | Privacy | Disclaimer | Contact