/*[[
	Name := TRUE_SCALPER
	Author := 
	Link := .PointForex/
	Notes := long if EMA3>EMA7:::EMA3<EMA7<0 Adapted from Robot Scalper by MC
	         to use EMA and RSI
	Notes := multiple currencies, 
	Lots := 1
	Stop Loss := 15
	Take Profit := 50
	Trailing Stop := 5
]]*/

vars:	bull(0),bear(0),RSIPOS(0),RSINEG(0); 
bull= iMA(3,MODE_EMA,1);
bear= iMA(7,MODE_EMA,1);
RSIPOS=iRSI(2,2)>50;
RSINEG=iRSI(2,2)<50;
define:	slippage(2);

vars:	sl(0),tp(0);
vars:	cnt(0);
vars:   OpenTrades(0);
vars:   i(0);
Define: ProfitMade(2);

 
    OpenTrades = 0;
  For i = 1 to TotalTrades
  {
        if OrderValue(i,VAL_SYMBOL) = Symbol then
             OpenTrades++;
  };

If OpenTrades<1 then
	{
	If bull>bear and RSINEG then
		{
		sl=(ask-(StopLoss*point));
		tp=(bid+(TakeProfit*point));
		SetOrder(OP_BUY,Lots,ask,slippage,sl,tp,blue);
		exit;
		};
	If bull<bear and RSIPOS then
		{
		sl=(bid+(StopLoss*point));
		tp=(ask-(TakeProfit*point));
		SetOrder(OP_SELL,Lots,bid,slippage,sl,tp,red);
		exit;
		};
	};
	
	If OpenTrades<1 then
	{
	
	if bull >bear and RSINEG then 
		{
		sl=(ask-(StopLoss*point));
		tp=(bid+(TakeProfit*point));
		SetOrder(OP_BUY,Lots,ask,slippage,sl,tp,blue);
		exit;
		};
	if bull < bear and RSIPOS then
		{
		sl=(bid+(StopLoss*point));
		tp=(ask-(TakeProfit*point));
		SetOrder(OP_SELL,Lots,bid,slippage,sl,tp,red);
		exit;
		};
	};
	
for cnt=1 to TotalTrades
 {
   If Ord(cnt,VAL_TYPE)=OP_BUY and Ord(cnt,VAL_SYMBOL)=Symbol then
     {
      If (Bid-Ord(cnt,VAL_OPENPRICE))>(ProfitMade*Point) then 
       {
         CloseOrder(OrderValue(cnt,VAL_TICKET),Ord(cnt,VAL_LOTS),Ord(cnt,VAL_CLOSEPRICE),0,BlueViolet);
          Exit;
        };
     };
   If Ord(cnt,VAL_TYPE)=OP_SELL and Ord(cnt,VAL_SYMBOL)=Symbol then    
     {
      If (Ord(cnt,VAL_OPENPRICE)-Ask)>(ProfitMade*Point) then
      {
        CloseOrder(OrderValue(cnt,VAL_TICKET),Ord(cnt,VAL_LOTS),Ord(cnt,VAL_CLOSEPRICE),0,Purple);
         Exit;
      };
    };
 };