//|                                      Bruno StochRSI Expert v4.mq4 |
//|                      Copyright © 2007, MetaQuotes Software Corp. |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, Putz Canada Corp"
#property link      "http://www.Putzfx,com"

extern string     Expert_Name    = "Albatross v4";
extern int        MagicNumber    = 757595;

//---- input parameters
extern double    TakeProfit=0;
extern double    StopLoss = 0;
extern double    MinPips = 25;
extern double    ValHigh=0;
extern double    ValLow=0;
extern double    Lots=0.1;
extern bool      ExitOnCross = true;

extern int       Slippage = 3.0;
extern double    SL1=150;
extern double    Ret1=75;
double TPA = 500;
double SL = 500;
double CurrentLow = 1000;
double CurrentHigh = 0;

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//---- 
   
//----
   return(0);
  }
  
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+

int deinit()
  {
//---- 
   
//----
   return(0);
  }
  
//+------------------------------------------------------------------+
//| expert FreshCross function                                 |
//+------------------------------------------------------------------+

int FreshCross ()
 {     
  double StochRSICurr, StochRSIPrev, Level1, Level2;
         
  StochRSICurr = iCustom(Symbol(),PERIOD_H1,"Stochastic RSI",8,12,9,0,1);
  Level1 = 50;
  StochRSIPrev = iCustom(Symbol(),PERIOD_H1,"Stochastic RSI",8,12,9,0,2);
  Level2 = 50;
        
  if(StochRSICurr > Level1 && StochRSIPrev < Level2)
      return(1); //up
      
  if(StochRSICurr < Level1 && StochRSIPrev > Level2)
    return(2);//down

  return (0); //not changed
 }
   
//+------------------------------------------------------------------+
//| Check Open Position Controls                                     |
//+------------------------------------------------------------------+
  
int CheckOpenTrades()
 {
  int cnt;
  int NumTrades;   // Number of buy and sell trades in this symbol
  
  NumTrades = 0;
  for(cnt=OrdersTotal()-1;cnt>=0;cnt--)
   {
    OrderSelect (cnt, SELECT_BY_POS, MODE_TRADES);
    if ( OrderSymbol() != Symbol()) continue;
    if ( OrderMagicNumber() != MagicNumber)  continue;
     
    if(OrderType() == OP_BUY )  NumTrades++;
    if(OrderType() == OP_SELL ) NumTrades++;      
   }
  return (NumTrades);
 }

//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
 {
  int cnt, ticket, total;
  double TP;
  
  if(Bars<100)
   {
    Print("bars less than 100");
    return(0);  
   }
       
  int isCrossed  = 0; 
  isCrossed = FreshCross ();
   
  total = CheckOpenTrades();
  if(total < 1) 
   {
    if(isCrossed == 1)
     {
      ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-TPA*Point,Ask+TPA*Point,"Albatross_v4",MagicNumber,0,Black);
      if(ticket>0)
       {
        if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY order opened : ",OrderOpenPrice());
       }
      else 
       Print("Error opening BUY order : ",GetLastError()); 
      return(0);
     }
    
    if(isCrossed == 2) //down
     {
      ticket = OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Ask+TPA*Point,Ask-TPA*Point,"Albatross_v4",MagicNumber,0,Black);
      if(ticket > 0)
       {
        if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("SELL order opened : ",OrderOpenPrice());
       }
      else 
       Print("Error opening SELL order : ",GetLastError()); 
      return(0);
     }
   }

    total = OrdersTotal();  
    for(cnt=0;cnt<total;cnt++)
     {
     OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
     if(OrderType()<=OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber)
      {
       if(OrderType()==OP_BUY)   // long position is opened
        {
         if(ExitOnCross && isCrossed == 2)
          {
           OrderClose(OrderTicket(),OrderLots(),Ask,3,Black); // close position
           return(0); // exit
          }
        }
       else
        {
         if(ExitOnCross && isCrossed == 1)
          {
           OrderClose(OrderTicket(),OrderLots(),Bid,3,Black); // close position
           return(0); // exit
          }
        }
      }
    }
   return(0);
  }