//+------------------------------------------------------------------+
//|                                  Copyright © 2011, John Wustrack |
//|                                        john_wustrack@hotmail.com |
//| www.forexfactory.com/showthread.php?t=313360&page=33
//+------------------------------------------------------------------+
#property copyright "Copyright © 2011, John Wustrack"
#property link      "john_wustrack@hotmail.com"

#property indicator_chart_window

#property indicator_buffers 2

#define MR_NONE 0
#define MR_LONG 1
#define MR_SHORT 2
#define MR_RANGE 3
#define MR_CTLONG 4
#define MR_CTSHORT 5
#define MR_NOTAPPLICABLE 6

#define DFT_MARKETREAD 3

#define TLE_MODEOPEN 1
#define TLE_MODECLOSE 9

#define OPEN_BUY 1
#define OPEN_SELL 2
#define OPEN_BUYSTOP 3
#define OPEN_BUYLIMIT 4
#define OPEN_SELLSTOP 5
#define OPEN_SELLLIMIT 6

#define CLOSE_ORDER 9

#define DFT_RETURN -1

extern int MarketRead;
extern int TLEMode;
extern int BasketType;
extern int CPERIOD = 174;

// User Definitions for other indicators etc.

double CB_Action[];
double CB_Price[];

datetime LastAlert;
datetime LastBar;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//----
   IndicatorBuffers(2);
   SetIndexBuffer(0,CB_Action);
   SetIndexBuffer(1,CB_Price);
   IndicatorDigits(Digits);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
//----
   // Reset any close request on subsequent entry
   if (CB_Action[0] == CLOSE_ORDER)
      {
      CB_Action[0] = DFT_RETURN;
      // If an order cannot be opened on the same bar one is closed - comment out this line 
      LastBar = 0;
      }

   // Do nothing if the market read is NONE
   if (MarketRead == MR_NONE) return(0);
      
   // If the mode is not open or close - do nothing
   if (TLEMode != TLE_MODEOPEN && TLEMode != TLE_MODECLOSE) return(0);
   
   // Perform the trade logic
   if (TLEMode == TLE_MODEOPEN) Check_For_Open();
   if (TLEMode == TLE_MODECLOSE) Check_For_Close();
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Check for open of new trade                                      |
//+------------------------------------------------------------------+
int Check_For_Open()
  {
//----
   
   // Decide if the routine is to be run every tick
   // if so, comment out the next if statement
   if (Time[0] == LastBar) return(0);  // Once per bar 
   
   LastBar = Time[0];
   
   if (Time[0] == LastAlert) return(0);

   // Reset the communication buffers
   CB_Action[0] = DFT_RETURN;
   CB_Price[0] = DFT_RETURN;
   
   // Set the default market read if the market read is not applicable
   if (MarketRead == MR_NOTAPPLICABLE) MarketRead = DFT_MARKETREAD;
   
/*

the rest of the code in this routine is the user defined code for the TLE

*/
  // get variables for HAMA 
  //double HAsignal = iCustom(NULL,TimeFrames,Indy1,"",MaMetods,MaPeriods,Steps,6,1);
  //double HAtrend = iCustom(NULL,TimeFramet,Indy1,"",MaMetodt,MaPeriodt,Stept,6,1);
      double HA00=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,0,1);
      double HA10=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,1,1);
      double HA20=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,2,1);
      double HA30=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,3,1);
      double HA01=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,0,2);
      double HA11=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,1,2);
      double HA21=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,2,2);
      double HA31=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,3,2);
      double CC1 = iCCI(NULL,0,CPERIOD,0,PRICE_CLOSE);
      
   // Set up the allowable bands based on the direction
  bool lb_Long, lb_Short;
  
  switch (MarketRead)
      {
      // Long
      case MR_LONG:     if ((HA00 < HA10 && HA20 < HA30) && (HA01 > HA11 || HA21 > HA31)&& CC1 > 5  )
                           lb_Long = true;
                        break;
      // Short 
      case MR_SHORT:    if ((HA00 > HA10 && HA20 > HA30) && (HA01 < HA11 || HA21 < HA31)&& CC1 < -5 )
                           lb_Short = true;
                        break;
      // Range 
      case MR_RANGE:    if ((HA00 < HA10 && HA20 < HA30) && (HA01 > HA11 || HA21 > HA31)/* && VQz20 > 0*/ )                           
                           lb_Long = true;
                            
                        if ((HA00 > HA10 && HA20 > HA30) && (HA01 < HA11 || HA21 < HA31)/* && VQz20 < 0*/ )                           
                           lb_Short = true;
                        break;
      // CT Long 
      case MR_CTLONG:   if ((HA00 < HA10 && HA20 < HA30) && (HA01 > HA11 || HA21 > HA31)/* && VQz20 > 0*/ )
                           lb_Long = true;
                        if ((HA00 > HA10 && HA20 > HA30) && (HA01 < HA11 || HA21 < HA31)/* && VQz20 < 0*/ )                           
                           lb_Short = true;
                        break;
      // CT Short 
      case MR_CTSHORT:  if ((HA00 > HA10 && HA20 > HA30) && (HA01 < HA11 || HA21 < HA31)/* && VQz20 < 0*/ )
                           lb_Short = true;
                        if ((HA00 < HA10 && HA20 < HA30) && (HA01 > HA11 || HA21 > HA31)/* && VQz20 > 0*/ )                           
                           lb_Long = true;
                        break;
      }
  
   // Send any alerts necessary
   if (lb_Short)
      {
      Alert("Possible SHORT opportunity at ",DoubleToStr(Close[0], Digits),TimeToStr(Time[0],TIME_DATE|TIME_MINUTES));
      LastAlert = Time[0];
      CB_Action[0] = OPEN_SELL;
      CB_Price[0] = 0;
      }
   
   if (lb_Long )
      {
      Alert("Possible LONG opportunity at ",DoubleToStr(Close[0], Digits),TimeToStr(Time[0],TIME_DATE|TIME_MINUTES));
      LastAlert = Time[0];
      CB_Action[0] = OPEN_BUY;
      CB_Price[0] = 0;
      }

//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Check for close of a trade                                       |
//+------------------------------------------------------------------+
int Check_For_Close()
  {
//--
   if (BasketType != OPEN_BUY && BasketType != OPEN_SELL) return(0);
   
   // Decide if the routine is to be run every tick
   // if so, comment out the next if statement
   if (Time[0] == LastBar) return(0);  // Once per bar 
   
   LastBar = Time[0];

 //  if (Time[0] == LastAlert) return(0);

   // Reset the communication buffers
   CB_Action[0] = DFT_RETURN; //-1


// the rest of the code in this routine is the user defined code for the TLE

   // Get trend hama
   //double HAsignal = iCustom(NULL,TimeFrames,Indy1,"",MaMetods,MaPeriods,Steps,6,1);
     double HA00=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,0,1);
      double HA10=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,1,1);
      double HA20=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,2,1);
      double HA30=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,3,1);
      double HA01=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,0,2);
      double HA11=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,1,2);
      double HA21=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,2,2);
      double HA31=iCustom(NULL, 0, "Heiken_Ashi_Smoothed",2,15,2,15,3,2);
      //double VQz20=iCustom(NULL, 0, "VQzz2",60,6,2,2,5,false,3,1); 
      
   // If the basket is a buy and we previous closed above the upper
   
   if (BasketType==OPEN_BUY  && (HA00 > HA10 && HA20 > HA30) && (HA01 < HA11 || HA21 < HA31)/* && VQz20 < 0*/ ) 
      {
      Alert("close of long at ",DoubleToStr(Close[0], Digits),TimeToStr(Time[0],TIME_DATE|TIME_MINUTES));
      LastAlert = Time[0];
      CB_Action[0] = CLOSE_ORDER;
      }
      
   // If the basket is a sell and we previous closed below the lower
   
   if (BasketType==OPEN_SELL && (HA00 < HA10 && HA20 < HA30) && (HA01 > HA11 || HA21 > HA31)/* && VQz20 > 0*/ ) 
         {
      Alert("close of short at ",DoubleToStr(Close[0], Digits),TimeToStr(Time[0],TIME_DATE|TIME_MINUTES));
      LastAlert = Time[0];
      CB_Action[0] = CLOSE_ORDER;
      }
      
   // We don't want to send any actions UNLESS the market read is range
   //if (MarketRead != MR_RANGE)
      //CB_Action[0] = DFT_RETURN;
      
//----
   return(0);
  }
//+------------------------------------------------------------------+