//+------------------------------------------------------------------+
//| FractalZigZagNoRepaint.mq4
//| Copyright © Pointzero-indicator.com
//| Shows ZigZag signals without repainting, ever.        
//+------------------------------------------------------------------+
#property copyright "Copyright © Arturo Lopez Perez"

#property indicator_chart_window
#property indicator_buffers 3
#property indicator_color1 Aqua
#property indicator_color2 Aqua

#property indicator_width1 3
#property indicator_width2 3

#define IName          "Fractal ZigZag No-Repaint"
//#define ZZBack         1
int SinyalDurum=0;
string Sinyal="";
extern double RangeBar=1;
extern int    MumSayisi=2;
datetime g_time_132;
extern int TimeFrame=0;
int up =0;
int down =0;
extern bool Alarm=true;
string SonSinyal="";
string SonSinyal3="";
extern bool   SignalAlert    = TRUE;
//-------------------------------
// Input parameters
//-------------------------------
extern bool CalculateOnBarClose    = true;
extern int  ZZDepth                = 115;
extern int  ZZDev                  = 130;
extern int  ZZBack                 =80;


//-------------------------------
// Buffers
//-------------------------------
double ExtMapBuffer1[];
double ExtMapBuffer2[];

double trend[];
//SetIndexBuffer(6,trend);

//-------------------------------
// Internal variables
//-------------------------------

// Fractals value -mine-
double fr_resistance       = 0;
double fr_support          = EMPTY_VALUE;
bool fr_resistance_change  = EMPTY_VALUE;
bool fr_support_change     = EMPTY_VALUE;

// zzvalues
double zzhigh = 0;
double zzlow = 0;

// Offset in chart
int    nShift;   

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
{
    // Arrows
    SetIndexStyle(0, DRAW_ARROW, STYLE_DOT, EMPTY);
    SetIndexArrow(0, 233);
    SetIndexBuffer(0, ExtMapBuffer1);
    SetIndexStyle(1, DRAW_ARROW, STYLE_DOT, EMPTY);
    SetIndexArrow(1, 234);
    SetIndexBuffer(1, ExtMapBuffer2);
    SetIndexBuffer(2,trend);
   
  
    // Data window
    IndicatorShortName("HaskayafxBarla");
    SetIndexLabel(0, "Buy");
    SetIndexLabel(1, "Sell"); 
    Comment("");
    // Copyright
   // Comment("Copyright © http://www.pointzero-indicator.com");
   
    // Chart offset calculation
    switch(Period())
    {
        case     1: nShift = 1;   break;    
        case     5: nShift = 3;   break; 
        case    15: nShift = 5;   break; 
        case    30: nShift = 10;  break; 
        case    60: nShift = 15;  break; 
        case   240: nShift = 20;  break; 
        case  1440: nShift = 80;  break; 
        case 10080: nShift = 100; break; 
        case 43200: nShift = 200; break;               
    }
    nShift = nShift * 2;
    return(0);
}

//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
    return(0);
  }
  
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
    // Start, limit, etc..
    int start = 0;
    int limit;
    int counted_bars = IndicatorCounted();

    // nothing else to do?
  // Print(counted_bars);
    if(counted_bars < 0) 
        return(-1);

    // do not check repeated bars
    limit = Bars - 1 - counted_bars;
    
    // Check if ignore bar 0
    if(CalculateOnBarClose == true) start = 1;
    
    // Check the signal foreach bar from past to present
    for(int i = limit; i >= start; i--)
    {
        // Zig Zag high
        double zzhighn = iCustom(Symbol(), TimeFrame, "ZigZag", ZZDepth, ZZDev, ZZBack, 1, i);
        if(zzhighn != 0) {zzhigh = zzhighn;}
        
        
        // Zig Zag low
        double zzlown  = iCustom(Symbol(), TimeFrame, "ZigZag", ZZDepth, ZZDev, ZZBack, 2, i);
        if(zzlown != 0) {zzlow = zzlown;}
     
        // Last fractals
        double resistance = upper_fractal(i);
        double support = lower_fractal(i);
        
        //--------------------------------------------------------
        // Show signals
        //--------------------------------------------------------
        
        // Show signal if it is a fractal and matches last zigzag high value
        if(fr_support_change == true && fr_support == zzlow && SinyalDurum!=1)
        {
            // Show arrow on fractal and pricetag
           // ExtMapBuffer1[i+2] = fr_support - nShift*Point;
            SinyalDurum=1;
            ExtMapBuffer1[i+MumSayisi] = High[i]+ RangeBar*Point;
            Sinyal="BUY";
            trend[i] =  1;
            
            if (i==2) Alert ("NoRepaint BUY");
        } else 
       
        // Show signal if it is a fractal and matches last zigzag low value
        if(fr_resistance_change == true && fr_resistance == zzhigh && SinyalDurum!=2)
        {
            // Show arrow on fractal and pricetag
            Sinyal="SELL";
            if (i==2) Alert("No Repaint SELL");
            SinyalDurum=2;
            trend[i] =  -1;
            ExtMapBuffer2[i+MumSayisi] = Low[i]- RangeBar*Point;     
            //ExtMapBuffer2[i+2] = fr_resistance + nShift*Point;
        }
        
        
    }
   /* 
     if( ExtMapBuffer2[i+2] != 0 && down ==0)
      {
        if (SignalAlert) Alert("Swing ZZ Down - ",Symbol()," ",Period()," at ",TimeToStr(TimeCurrent(),TIME_SECONDS));
       up = 0;
       down = 1;
      }
      if(ExtMapBuffer1[i+2] != 0 && up ==0)
      {
       if (SignalAlert) Alert("Swing ZZ Up - ",Symbol()," ",Period()," at ",TimeToStr(TimeCurrent(),TIME_SECONDS));
       up = 1;
       down = 0;
      }
      */
      //Comment(ExtMapBuffer1[2],"    ",ExtMapBuffer2[2],"  ",ExtMapBuffer1[0],"    ",ExtMapBuffer2[0]," ",Sinyal);
      
      if(fr_support_change == true && fr_support == zzlow && Alarm && SonSinyal!="BUY")
        { 
            Alert(Symbol()," TF: ",Period()," ZigZag V003 BUY ");
            SonSinyal="BUY";
        } //else 
       
        // Show signal if it is a fractal and matches last zigzag low value
        if(fr_resistance_change == true && fr_resistance == zzhigh && Alarm && SonSinyal!="SELL")
        {
            // Show arrow on fractal and pricetag
             Alert(Symbol()," TF: ",Period()," ZigZag V003 SELL ");
            SonSinyal="SELL";
        }
      if (g_time_132 < Time[0])
      {
       g_time_132 = Time[0];
       if(Alarm && trend[1]==-1 && trend[2]==1 && SonSinyal3!="BUY" ) {SonSinyal3="BUY";Alert(Symbol()," TF: ",Period()," No Repaint Doğru BUY");}
       if(Alarm && trend[1]==1 && trend[2]==-1 && SonSinyal3!="SELL" ) {SonSinyal3="SELL";Alert(Symbol()," TF: ",Period()," No Repaint Doğru SELL");}
      } 
    return(0);
}

//+------------------------------------------------------------------+
//| Custom code ahead
//+------------------------------------------------------------------+

/**
* Returns fractal resistance
* @param int shift
*/

double upper_fractal(int shift = 1)
{
   double middle = iHigh(Symbol(), 0, shift + 2);
   double v1 = iHigh(Symbol(), 0, shift);
   double v2 = iHigh(Symbol(), 0, shift+1);
   double v3 = iHigh(Symbol(), 0, shift + 3);
   double v4 = iHigh(Symbol(), 0, shift + 4);
   if(middle > v1 && middle > v2 && middle > v3 && middle > v4/* && v2 > v1 && v3 > v4*/)
   {
      fr_resistance = middle;
      fr_resistance_change = true;
   } else {
      fr_resistance_change = false;
   }
   return(fr_resistance);
}

/**
* Returns fractal support and stores wether it has changed or not
* @param int shift
*/

double lower_fractal(int shift = 1)
{
   double middle = iLow(Symbol(), 0, shift + 2);
   double v1 = iLow(Symbol(), 0, shift);
   double v2 = iLow(Symbol(), 0, shift+1);
   double v3 = iLow(Symbol(), 0, shift + 3);
   double v4 = iLow(Symbol(), 0, shift + 4);
   if(middle < v1 && middle < v2 && middle < v3 && middle < v4/* && v2 < v1 && v3 < v4*/)
   {
      fr_support = middle;
      fr_support_change = true;
   } else {
      fr_support_change = false;
   }
   return(fr_support);
}

//+------------------------------------------------------------------+