Omni Metatrader MQL Experts Forex Trading Systems - XEATrade - Metatrader, Metastock, Tradestation, Amibroker

/*[[
	Name := Omni
	Author := Copyright © 2004, Allan G. Black, alblack61@yahoo.com
	Link := http://www.metaquotes.net/
	Lots := 1.00
	Stop Loss := 0
	Take Profit := 0
	Trailing Stop := 0
]]*/
var: i(0);

var: interval(200);

var: buyref(0);
var: sellref(0);

var: buysetup(false);
var: sellsetup(false);

var: upper(0),uppertmp(0),toporder(0);
var: lower(0),lowertmp(0),loworder(0);

var: direction("none");

// Take profit parameters
var: timing("waitforprofit");
var: grabprofit(1000);

var: closeall(False);

// Timing
if timing=="waitforprofit" and totalprofit>=grabprofit then {
	closeall=true;
}
if closeall then {
	if TotalTrades==0 then {
		buysetup=false;
		sellsetup=false;
		closeall=false;exit;
	}
	if ord(1,VAL_TYPE)==0 then {
		CloseOrder(ord(1,VAL_TICKET),lots,Ask,0,Green);exit;
	}
	if ord(1,VAL_TYPE)==1 then {
		CloseOrder(ord(1,VAL_TICKET),lots,Bid,0,Green);exit;
	}

}

// Initialize
if TotalTrades==0 and !buysetup then {
	buyref=ask;
	SetOrder(OP_BUY,1,Ask,0,0,0,Green);
	buysetup=true;
	exit;
}
if TotalTrades==1 and !sellsetup then {
	sellref=bid;
	SetOrder(OP_SELL,1,Bid,0,0,0,Green);
	sellsetup=true;
	exit;
}
//Find extreme lots
upper=0.0;
uppertmp=0.0;
lower=500.0;
lowertmp=500.0;
for i=1 to TotalTrades {
	//PrintTrade(i);
	if ord(i,VAL_TYPE)==0 then {
		upper=max(upper,ord(i,VAL_OPENPRICE));
		if upper!=uppertmp then {toporder=i;}
		uppertmp=upper;
	}
	if ord(i,VAL_TYPE)==1 then {
		lower=min(lower,ord(i,VAL_OPENPRICE));
		if lower!=lowertmp then {loworder=i;}
		lowertmp=lower;
	}
}
// Determine direction
if ask>buyref then {direction="up";}
if bid<sellref then {direction="down";}
if ask<buyref and bid>sellref then {direction="none";exit;}
// Adjust stop and add
if TotalTrades>=2 then {
	if direction="up" then {
		if Ord(toporder,VAL_OPENPRICE)+interval*Point<=ask then {
			if ord(toporder,VAL_STOPLOSS)<ord(toporder,VAL_OPENPRICE) then {
				// Push up Stops to openprice
			//	for i=1 to TotalTrades{PrintTrade(i);}
					ModifyOrder(ord(toporder,VAL_TICKET),
					Ord(toporder,VAL_OPENPRICE),
					Ord(toporder,VAL_OPENPRICE),
					Ord(toporder,VAL_TAKEPROFIT),Green);
				
			}
			
			// BUY
			if FreeMargin>2000 then {
				SetOrder(OP_BUY,1,Ask,0,0,0,Green);
			//	toporder=TotalTrades;
				exit;
			}	
		}
	}
		
	
	if direction="down" then {
		if Ord(loworder,VAL_OPENPRICE)-interval*Point>=bid then {
			if ord(loworder,VAL_STOPLOSS)>ord(loworder,VAL_OPENPRICE) then {
				// Push down Stops to openprice
				
					ModifyOrder(ord(loworder,VAL_TICKET),
					Ord(loworder,VAL_OPENPRICE),
					Ord(loworder,VAL_OPENPRICE),
					Ord(loworder,VAL_TAKEPROFIT),Red);
				
			}
		
	
			// SELL
			if FreeMargin>2000 then {
				SetOrder(OP_SELL,1,Bid,0,0,0,Red);
				//loworder=TotalTrades;
				exit;
			}
		}
	}
}

Author/Source: Allan G. Black

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