/*[[
	Name := 2Extreme4U - Awesome Scalper 1.3
	Author := 2Extreme4U
	Link := www.omniscienttrader.com
	Notes := Scalping expert/Trend follower
	Lots := 1.00
	Stop Loss := 25
	Take Profit := 50
	Trailing Stop := 15
]]*/

/////////////////////////////////////////////////////
// Defines
/////////////////////////////////////////////////////
Defines: Slippage(5);			// Slippage
Defines: EMA1(11);				// EMA 10
Defines: PSARStep(0.0150);		// Parabolic SAR Step
Defines: PSARMaximum(0.2000);	// Parabolic SAR Maximum
Defines: PrimaryTarget(29);     // Primary target to close 1 lot
Defines: BreakEvenSL(11);	    // Number of points made before the stop is moved to breakeven
Defines: TradesPerCurrency(1);	// Number of lots to trade

/////////////////////////////////////////////////////
// Variables
/////////////////////////////////////////////////////
var: EMA101(0), EMA102(0);						// EMA 10 Values
var: Psar(0), PsarP(0);							// Parabolic SAR Value
var: Awesome(0), AwesomeP(0), AwesomePP(0);    	// Awesome Occillator Value
var: Accel(0), AccelP(1);						// Accelerator Occillator Value
var: OpenSell(0);								// Sell Trades Counter
var: OpenBuy(0);								// Buy Trades Counter
var: PriceOpen(0);								// Price Open
var: I(0);										// Misc Counter
var: Mode(0);									// Squirl the Mode variable for multiple use

/////////////////////////////////////////////////
//  Main Script Conditions
/////////////////////////////////////////////////
If Curtime - LastTradeTime < 5 then Exit;

If FreeMargin < 500 then Exit;

/////////////////////////////////////////////////////
// Calculations / Setting Values
/////////////////////////////////////////////////////
OpenSell = 0;
OpenBuy = 0;
for I = 1 to TotalTrades
{	
	Mode = ord(I, VAL_TYPE);
	if ord(I, VAL_SYMBOL) == Symbol then
	{
		//Calculates how many Sell we have for the current Symbol
		if Mode == OP_SELL then
		{
			OpenSell++;
		};
		//Calculates how many Buy we have for the current Symbol
		if Mode == OP_BUY then
		{
			OpenBuy++;
		};
	};
};

Awesome = iAO(0);
AwesomeP = iAO(1);
AwesomePP = iAO(2);
Accel = iAC(0);
AccelP = iAC(1);
Psar = iSAR(PSARStep, PSARMaximum, 0);
PsarP = iSAR(PSARStep, PSARMaximum, 1);

/////////////////////////////////////////////////
//  Comment on the chart
/////////////////////////////////////////////////


/////////////////////////////////////////////////
//  Long/Short Trade Opening
/////////////////////////////////////////////////
If OpenBuy < TradesPerCurrency then
{
	// Buy 4 points higher than last candle close
	PriceOpen = Close[1] + 4 * Point;
	If Awesome > 0 and AwesomeP > 0 and Awesome > AwesomeP and AwesomePP < 0 and Accel > AccelP and Psar < Ask then
	{
		if High[0] >= High[1] then
		{
			Alert(Symbol, " BUY ALERT.  Awesome Scalper.  Buy at ", PriceOpen, " or better.");
			if Ask <= PriceOpen then
			{
				SetOrder(OP_BUY, Lots, Ask, Slippage, Psar, Ask + TakeProfit * Point , BLUE);
				Exit;
			};
		};
	};
};

If OpenSell < TradesPerCurrency then
{	
	// Buy 4 points lower than last candle close
	PriceOpen = Close[1] - 4 * Point;
	If Awesome < 0 and AwesomeP < 0 and AwesomePP > 0 and Accel < AccelP and Psar > Bid then 
	{
		If Low[0] <= Low[1] then
		{
			Alert(Symbol, " SELL ALERT.  Awesome Scalper.  Sell at ", PriceOpen, " or better.");
			if Bid >= PriceOpen then
			{
				SetOrder(OP_SELL, Lots, Bid, Slippage, Psar, Bid - TakeProfit * Point, RED);
				Exit;
			};
		};
	};
};

/////////////////////////////////////////////////
//  Trade Management
/////////////////////////////////////////////////
for I = 1 to TotalTrades
{	
	Mode = ord(I, VAL_TYPE);
	if ord(I, VAL_SYMBOL) == Symbol then
	{
		If OpenBuy > 0 then
		{
			//If Primary target is met, close half play and move stop to 0 for other lot.
			if (Bid - ord(I, VAL_OPENPRICE)) >= PrimaryTarget * Point then
			{
				Alert("Primary Target met.  BID = " + Bid + ".  Closing order at market for " + Symbol + " on " + Period + " Period.");
	        	CloseOrder(ord(I, VAL_TICKET), ord(I, VAL_LOTS), Bid, Slippage, Orange);
	        	Exit;
	     	};
			// PSAR Stop
			if Psar > PsarP and ord(I, VAL_STOPLOSS) != Psar and (Bid - Psar >= 4) and (Psar < Bid) then
			{
				ModifyOrder(ord(I, VAL_TICKET), ord(I, VAL_OPENPRICE), Psar, ord(I, VAL_TAKEPROFIT), BlueViolet);
				Exit;
			};
			// If 10 pips profit, move Stop to BreakEven
			if bid - ord(I, VAL_OPENPRICE) >= BreakEvenSL * Point and ord(I, VAL_STOPLOSS) < ord(I, VAL_OPENPRICE)) then
			{
				ModifyOrder(ord(I, VAL_TICKET), ord(I, VAL_OPENPRICE), ord(I, VAL_OPENPRICE), ord(I, VAL_TAKEPROFIT), Cyan);
				Exit;
			};
			/*
			// Psar has changed direction so we want to exit at breakeven
			if psar > Bid and ceil(ord(i, VAL_OPENPRICE)*10000) != ceil(ord(I, VAL_TAKEPROFIT)*10000) then
			{
				ModifyOrder(ord(I, VAL_TICKET), ord(I, VAL_OPENPRICE), ord(I, VAL_OPENPRICE), ord(I, VAL_OPENPRICE), Orange);
				Exit;		
			};
			*/
		};
		If OpenSell > 0 then
		{
			//If Primary target is met, close half play and move stop to 0 for other lot.
	     	if (ord(I, VAL_OPENPRICE) - Ask) >= PrimaryTarget * Point then
	     	{
	     		Alert("Primary Target met.  Ask = " + Ask + ".  Closing order at market for " + Symbol + " on " + Period + " Period.");
	        	CloseOrder(ord(I, VAL_TICKET), ord(I, VAL_LOTS), Ask, Slippage, Orange);
	        	Exit;
	     	};	
			// Psar Stop
			if (Psar < PsarP) and (ord(i, VAL_STOPLOSS) != Psar) and (Psar - Ask >= 4) and (Psar > Ask) then
			{
				ModifyOrder(ord(I, VAL_TICKET), ord(I, VAL_OPENPRICE), Psar, ord(I, VAL_TAKEPROFIT), BlueViolet);
				Exit;
			};
			// If 10 pips profit, move Stop to BreakEven
			if ord(I, VAL_OPENPRICE) - Ask >= BreakEvenSL * Point and ord(I, VAL_STOPLOSS) > ord(I, VAL_OPENPRICE)) then
			{
				ModifyOrder(ord(I, VAL_TICKET), ord(I, VAL_OPENPRICE), ord(I, VAL_OPENPRICE), ord(I, VAL_TAKEPROFIT), Cyan);
				Exit;
			};
			/*
			// Psar has changed direction so we want to exit at breakeven
			if psar < Ask and ceil(ord(i, VAL_OPENPRICE)*10000) != ceil(ord(I, VAL_TAKEPROFIT)*10000) then
			{
				ModifyOrder(ord(I, VAL_TICKET), ord(I, VAL_OPENPRICE), ord(I, VAL_OPENPRICE), ord(I, VAL_OPENPRICE), Orange);
				Exit;		
			};
			*/
		};
	};
};