heikinashism

//+------------------------------------------------------------------+
//|                                                 heikinashism.mq4 |
//|                                      Copyright 2008, FX scalper  |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright "Copyright  2008, FXscalper"
#property link      ""



// “ü—̓pƒ‰ƒ[ƒ^’è‹`
extern double Lots = 1.0;
extern int SlipPage = 3;
extern  int Profit = 1000;
extern int StopLoss =1000;






// ƒ}ƒWƒbƒNƒiƒ“ƒo[’è‹`
int MagicNumber = 111111;

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
  
  
  
  
//----
   // ‹¤’ʕϐ”’è‹`
   int ticket, i;
  
      
   
// •½‹Ï‘«‚̎擾
 double hasmopen,hasmclose;
   hasmopen=iCustom(NULL,0,"Heiken_Ashi_Smoothed",4,1);
   hasmclose=iCustom(NULL,0,"Heiken_Ashi_Smoothed",5,1);
    
 
 
  
   
   // ƒ|ƒWƒVƒ‡ƒ“‚̃`ƒFƒbƒN
   int buyTicket = -1; int sellTicket = -1;
   for (i = 0; i < OrdersTotal(); i++) {
      if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES) == true) {
         if(OrderSymbol() == Symbol() && OrderMagicNumber()==MagicNumber) {
            if (OrderType() == OP_BUY) buyTicket = OrderTicket();
            else if (OrderType() == OP_SELL) sellTicket = OrderTicket();
         }
      }
   }


   if (buyTicket == -1  ) {
   
   //ƒo[‚ÌŽn’l‚Å‚È‚¯‚ê‚Ώˆ—–³‚µ
    if(Volume[0] > 1 || IsTradeAllowed() == false) return(0);
    
      if (  hasmopen<hasmclose) {
      
         // ”ƒ‚¢’•¶‚ð”­’‚·‚é
         ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, SlipPage, 
                                    Ask-StopLoss*Point,Ask+Profit*Point, NULL, MagicNumber, 0, Blue);
         
      } 
      }
      
      if( sellTicket == -1 ){
    //ƒo[‚ÌŽn’l‚Å‚È‚¯‚ê‚Ώˆ—–³‚µ
   if(Volume[0] > 1 || IsTradeAllowed() == false) return(0);
      
      if (hasmopen>hasmclose) {
         // ”„‚蒍•¶‚ð”­’‚·‚é
         ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, SlipPage, 
                                    Bid+StopLoss*Point,Bid-Profit*Point, NULL, MagicNumber,0 , Red);
         
      }
   }


   // ƒNƒ[ƒYðŒ
   if (buyTicket != -1 && hasmopen>=hasmclose  ) {
      // ”ƒ‚¢’•¶‚ðŒˆÏ‚·‚é
      if (OrderClose(buyTicket, OrderLots(), Bid, SlipPage, Blue) == false) {
         
      }
   } else if (sellTicket != -1 && hasmopen<=hasmclose) {
      // ”„‚蒍•¶‚ðŒˆÏ‚·‚é
      if (OrderClose(sellTicket, OrderLots(), Ask, SlipPage, Red) == false) {
        
      }
   }

//----
   return(0);
  }
//+------------------------------------------------------------------+