//+------------------------------------------------------------------------------------------------------------------+
#property description                                                                            "[XU-FRACTAL SUPRES]"
#define Version                                                                                  "[XU-FRACTAL SUPRES]"
//+------------------------------------------------------------------------------------------------------------------+
#property link        "https://forex-station.com/viewtopic.php?p=1295409935#p1295409935"
#property description "THIS IS A FREE INDICATOR"
#property description "                                                      "
#property description "Welcome to XARD UNIVERSE"
#property description "Let light shine out of darkness and illuminate your world"
#property description "and with this freedom leave behind your cave of denial"
#property indicator_chart_window
#property indicator_buffers 5
string ID;
extern string Indicator                  = Version;
//+------------------------------------------------------------------------------------------------------------------+
#property indicator_color1 Aqua    //H1
#property indicator_color2 Gold    //H4
#property indicator_color3 Snow    //D1
#property indicator_color4 Lime    //W1
#property indicator_color5 Black   //MN1
//+------------------------------------------------------------------------------------------------------------------+
#property indicator_style1 STYLE_DASH
#property indicator_style2 STYLE_DASH
#property indicator_style3 STYLE_DASH
#property indicator_style4 STYLE_DASH
#property indicator_style5 STYLE_DASH
//+------------------------------------------------------------------------------------------------------------------+
#define PERIODS_NUMBER 5
#define SUPPORT "support"
#define RESISTANCE "resistance"
#define BAR_TO_START_SCAN_FROM 2
//+------------------------------------------------------------------------------------------------------------------+
extern string STR01="H1=Aqua,H4=Gold,D1=Snow",STR02="W1=Lime,MN1=Black";   
     int timeframes[PERIODS_NUMBER]={PERIOD_H1,PERIOD_H4,PERIOD_D1,PERIOD_W1,PERIOD_MN1};
     int styles[PERIODS_NUMBER]={indicator_style1,indicator_style2,indicator_style3,indicator_style4,indicator_style5};
   color colors[PERIODS_NUMBER]={indicator_color1,indicator_color2,indicator_color3,indicator_color4,indicator_color5};
//+------------------------------------------------------------------------------------------------------------------+
   int init(){ID = "XU FSR"; IndicatorShortName(ID);  return(0);}
//+------------------------------------------------------------------------------------------------------------------+
   int deinit(){string object_types[2] = {SUPPORT,RESISTANCE};
	for(int timeframe_index = 0; timeframe_index < ArraySize(timeframes); timeframe_index++)
	for(int object_type_index = 0; object_type_index < ArraySize(object_types); object_type_index++)
		ObjectDelete(getTrendLineName(object_types[object_type_index], timeframes[timeframe_index]));  return(0);}
//+------------------------------------------------------------------------------------------------------------------+
   int start(){
	for(int timeframe_index = 0; timeframe_index < ArraySize(timeframes); timeframe_index++){
	if(Period() <= timeframes[timeframe_index]){
	drawResistance(getUpperFractalBar(timeframes[timeframe_index],BAR_TO_START_SCAN_FROM),timeframe_index);
	drawSupport(getLowerFractalBar(timeframes[timeframe_index],BAR_TO_START_SCAN_FROM),timeframe_index);}} return(0);}
//+------------------------------------------------------------------------------------------------------------------+
   int getUpperFractalBar(int timeframe, int starting_bar){
	for(int bar = starting_bar; bar < Bars; bar++)
	if(isUpperFractal(timeframe, bar)) return(bar);  return(-1);}
//+------------------------------------------------------------------------------------------------------------------+
   bool isUpperFractal(int timeframe, int bar){for(int offset=-2; offset<=2; offset++)
	if((offset!=0) && (iHigh(Symbol(),timeframe,bar+offset)>iHigh(Symbol(),timeframe,bar))) return(false); return(true);}
//+------------------------------------------------------------------------------------------------------------------+
   int getLowerFractalBar(int timeframe,int starting_bar){for(int bar=starting_bar; bar<Bars; bar++)
	if(isLowerFractal(timeframe,bar)) return(bar);  return(-1);}
//+------------------------------------------------------------------------------------------------------------------+
   bool isLowerFractal(int timeframe, int bar){for(int offset=-2; offset<=2; offset++)
	if((offset!=0) && (iLow(Symbol(),timeframe,bar+offset)<iLow(Symbol(),timeframe,bar))) return(false); return(true);}
//+------------------------------------------------------------------------------------------------------------------+
   void drawResistance(int bar_index, int timeframe_index){
	if(bar_index > 0) drawTrendLine(getTrendLineName(RESISTANCE,timeframes[timeframe_index]),iHigh(Symbol(),
	timeframes[timeframe_index],bar_index),colors[timeframe_index],styles[timeframe_index]);}
//+------------------------------------------------------------------------------------------------------------------+
   void drawSupport(int bar_index, int timeframe_index){if(bar_index>0) 
	drawTrendLine(getTrendLineName(SUPPORT,timeframes[timeframe_index]),iLow(Symbol(),timeframes[timeframe_index],
	bar_index),colors[timeframe_index],styles[timeframe_index]);}
//+------------------------------------------------------------------------------------------------------------------+
   void drawTrendLine(string object_name,double price,color line_color,int line_style){
	ObjectDelete(object_name);
	ObjectCreate(object_name,OBJ_HLINE,0,Time[0],price,Time[Bars-1],price);
	   ObjectSet(object_name,OBJPROP_COLOR,line_color);
	   ObjectSet(object_name,OBJPROP_STYLE,line_style);
	   ObjectSet(object_name,OBJPROP_BACK,true);}
//+------------------------------------------------------------------------------------------------------------------+
   string getTrendLineName(string object_type, int timeframe){return(object_type + getTimeframeName(timeframe));}
//+------------------------------------------------------------------------------------------------------------------+
   string getTimeframeName(int timeframe){static int timeframe_periods[]=
	{PERIOD_M1,PERIOD_M5,PERIOD_M15,PERIOD_M30,PERIOD_H1,PERIOD_H4,PERIOD_D1,PERIOD_W1,PERIOD_MN1};
	static string timeframe_names[]={"M1","M5","M15","M30","H1","H4","D1","W1","MN1"};
	for(int i=0; i<ArraySize(timeframe_periods); i++)
	if(timeframe == timeframe_periods[i]) return (timeframe_names[i]);  return("Unknown");}
//+------------------------------------------------------------------------------------------------------------------+