#property copyright "Dan Davidson"
#property link      "Dan@fxtradepro.com"

#property indicator_separate_window

extern int SpreadThreshold = 6;
extern bool Show_D1_ADX = TRUE;

int init() {
   IndicatorShortName("FXTradepro T or R (" + Symbol() + ")");
   return (0);
}

int deinit() {
   ObjectsDeleteAll(0, OBJ_LABEL);
   ObjectDelete("FXTradepro T or R-1");
   ObjectDelete("FXTradepro T or R-2");
   ObjectDelete("FXTradepro T or R-3");
   ObjectDelete("FXTradepro T or R-4");
   ObjectDelete("FXTradepro T or R-5");
   ObjectDelete("FXTradepro T or R-6");
   ObjectDelete("FXTradepro T or R-7");
   ObjectDelete("FXTradepro T or R-8");
   ObjectDelete("FXTradepro T or R-9");
   ObjectDelete("FXTradepro T or R-10");
   ObjectDelete("FXTradepro T or R-11");
   ObjectDelete("FXTradepro T or R-12");
   ObjectDelete("FXTradepro T or R-2a");
   ObjectDelete("FXTradepro T or R-4a");
   ObjectDelete("FXTradepro T or R-6a");
   ObjectDelete("FXTradepro T or R-8a");
   ObjectDelete("FXTradepro T or R-10a");
   ObjectDelete("FXTradepro T or R-12a");
   return (0);
}

int start() {
   color l_color_144;
   color l_color_148;
   color l_color_152;
   color l_color_156;
   color l_color_160;
   color l_color_164;
   string l_text_168;
   string l_text_176;
   string l_text_184;
   string l_text_192;
   string l_text_200;
   string l_text_208;
   double l_iadx_0 = iADX(NULL, PERIOD_M5, 14, PRICE_CLOSE, MODE_MAIN, 0);
   double l_iadx_8 = iADX(NULL, PERIOD_M5, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
   double l_iadx_16 = iADX(NULL, PERIOD_M5, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
   double l_iadx_24 = iADX(NULL, PERIOD_M15, 14, PRICE_CLOSE, MODE_MAIN, 0);
   double l_iadx_32 = iADX(NULL, PERIOD_M15, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
   double l_iadx_40 = iADX(NULL, PERIOD_M15, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
   double l_iadx_48 = iADX(NULL, PERIOD_M30, 14, PRICE_CLOSE, MODE_MAIN, 0);
   double l_iadx_56 = iADX(NULL, PERIOD_M30, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
   double l_iadx_64 = iADX(NULL, PERIOD_M30, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
   double l_iadx_72 = iADX(NULL, PERIOD_H1, 14, PRICE_CLOSE, MODE_MAIN, 0);
   double l_iadx_80 = iADX(NULL, PERIOD_H1, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
   double l_iadx_88 = iADX(NULL, PERIOD_H1, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
   double l_iadx_96 = iADX(NULL, PERIOD_H4, 14, PRICE_CLOSE, MODE_MAIN, 0);
   double l_iadx_104 = iADX(NULL, PERIOD_H4, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
   double l_iadx_112 = iADX(NULL, PERIOD_H4, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
   double l_iadx_120 = iADX(NULL, PERIOD_D1, 14, PRICE_CLOSE, MODE_MAIN, 0);
   double l_iadx_128 = iADX(NULL, PERIOD_D1, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
   double l_iadx_136 = iADX(NULL, PERIOD_D1, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
   if (l_iadx_0 < 23.0 && l_iadx_0 != 0.0) l_color_144 = LightSkyBlue;
   if (l_iadx_0 >= 23.0 && l_iadx_8 > l_iadx_16) l_color_144 = Lime;
   if (l_iadx_0 >= 23.0 && l_iadx_8 < l_iadx_16) l_color_144 = Red;
   if (l_iadx_24 < 23.0 && l_iadx_24 != 0.0) l_color_148 = LightSkyBlue;
   if (l_iadx_24 >= 23.0 && l_iadx_32 > l_iadx_40) l_color_148 = Lime;
   if (l_iadx_24 >= 23.0 && l_iadx_32 < l_iadx_40) l_color_148 = Red;
   if (l_iadx_48 < 23.0 && l_iadx_48 != 0.0) l_color_152 = LightSkyBlue;
   if (l_iadx_48 >= 23.0 && l_iadx_56 > l_iadx_64) l_color_152 = Lime;
   if (l_iadx_48 >= 23.0 && l_iadx_56 < l_iadx_64) l_color_152 = Red;
   if (l_iadx_72 < 23.0 && l_iadx_72 != 0.0) l_color_156 = LightSkyBlue;
   if (l_iadx_72 >= 23.0 && l_iadx_80 > l_iadx_88) l_color_156 = Lime;
   if (l_iadx_72 >= 23.0 && l_iadx_80 < l_iadx_88) l_color_156 = Red;
   if (l_iadx_96 < 23.0 && l_iadx_96 != 0.0) l_color_160 = LightSkyBlue;
   if (l_iadx_96 >= 23.0 && l_iadx_104 > l_iadx_112) l_color_160 = Lime;
   if (l_iadx_96 >= 23.0 && l_iadx_104 < l_iadx_112) l_color_160 = Red;
   if (l_iadx_120 < 23.0 && l_iadx_120 != 0.0) l_color_164 = LightSkyBlue;
   if (l_iadx_120 >= 23.0 && l_iadx_128 > l_iadx_136) l_color_164 = Lime;
   if (l_iadx_120 >= 23.0 && l_iadx_128 < l_iadx_136) l_color_164 = Red;
   string l_iadx_216 = l_iadx_0;
   string l_iadx_224 = l_iadx_24;
   string l_iadx_232 = l_iadx_48;
   string l_iadx_240 = l_iadx_72;
   string l_iadx_248 = l_iadx_96;
   string l_iadx_256 = l_iadx_120;
   if (l_iadx_0 < 23.0 && l_iadx_0 != 0.0) l_text_168 = "h";
   if (l_iadx_0 >= 23.0 && l_iadx_0 < 28.0 && l_iadx_8 > l_iadx_16) l_text_168 = "ì";
   if (l_iadx_0 >= 23.0 && l_iadx_0 < 28.0 && l_iadx_8 < l_iadx_16) l_text_168 = "î";
   if (l_iadx_0 >= 28.0 && l_iadx_8 > l_iadx_16) l_text_168 = "é";
   if (l_iadx_0 >= 28.0 && l_iadx_8 < l_iadx_16) l_text_168 = "ê";
   if (l_iadx_24 < 23.0 && l_iadx_24 != 0.0) l_text_176 = "h";
   if (l_iadx_24 >= 23.0 && l_iadx_24 < 28.0 && l_iadx_32 > l_iadx_40) l_text_176 = "ì";
   if (l_iadx_24 >= 23.0 && l_iadx_24 < 28.0 && l_iadx_32 < l_iadx_40) l_text_176 = "î";
   if (l_iadx_24 >= 28.0 && l_iadx_32 > l_iadx_40) l_text_176 = "é";
   if (l_iadx_24 >= 28.0 && l_iadx_32 < l_iadx_40) l_text_176 = "ê";
   if (l_iadx_48 < 23.0 && l_iadx_48 != 0.0) l_text_184 = "h";
   if (l_iadx_48 >= 23.0 && l_iadx_48 < 28.0 && l_iadx_56 > l_iadx_64) l_text_184 = "ì";
   if (l_iadx_48 >= 23.0 && l_iadx_48 < 28.0 && l_iadx_56 < l_iadx_64) l_text_184 = "î";
   if (l_iadx_48 >= 28.0 && l_iadx_56 > l_iadx_64) l_text_184 = "é";
   if (l_iadx_48 >= 28.0 && l_iadx_56 < l_iadx_64) l_text_184 = "ê";
   if (l_iadx_72 < 23.0 && l_iadx_72 != 0.0) l_text_192 = "h";
   if (l_iadx_72 >= 23.0 && l_iadx_72 < 28.0 && l_iadx_80 > l_iadx_88) l_text_192 = "ì";
   if (l_iadx_72 >= 23.0 && l_iadx_72 < 28.0 && l_iadx_80 < l_iadx_88) l_text_192 = "î";
   if (l_iadx_72 >= 28.0 && l_iadx_80 > l_iadx_88) l_text_192 = "é";
   if (l_iadx_72 >= 28.0 && l_iadx_80 < l_iadx_88) l_text_192 = "ê";
   if (l_iadx_96 < 23.0 && l_iadx_96 != 0.0) l_text_200 = "h";
   if (l_iadx_96 >= 23.0 && l_iadx_96 < 28.0 && l_iadx_104 > l_iadx_112) l_text_200 = "ì";
   if (l_iadx_96 >= 23.0 && l_iadx_96 < 28.0 && l_iadx_104 < l_iadx_112) l_text_200 = "î";
   if (l_iadx_96 >= 28.0 && l_iadx_104 > l_iadx_112) l_text_200 = "é";
   if (l_iadx_96 >= 28.0 && l_iadx_104 < l_iadx_112) l_text_200 = "ê";
   if (l_iadx_120 < 23.0 && l_iadx_120 != 0.0) l_text_208 = "h";
   if (l_iadx_120 >= 23.0 && l_iadx_120 < 28.0 && l_iadx_128 > l_iadx_136) l_text_208 = "ì";
   if (l_iadx_120 >= 23.0 && l_iadx_120 < 28.0 && l_iadx_128 < l_iadx_136) l_text_208 = "î";
   if (l_iadx_120 >= 28.0 && l_iadx_128 > l_iadx_136) l_text_208 = "é";
   if (l_iadx_120 >= 28.0 && l_iadx_128 < l_iadx_136) l_text_208 = "ê";
   ObjectCreate("FXTradepro T or R-1", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-1", "5 Min:", 9, "Lucida Sans Regular", LightSteelBlue);
   ObjectSet("FXTradepro T or R-1", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-1", OBJPROP_XDISTANCE, 145);
   ObjectSet("FXTradepro T or R-1", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-2", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-2", " ADX " + StringSubstr(l_iadx_216, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_144);
   ObjectSet("FXTradepro T or R-2", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-2", OBJPROP_XDISTANCE, 185);
   ObjectSet("FXTradepro T or R-2", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-2a", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-2a", l_text_168, 9, "Wingdings", l_color_144);
   ObjectSet("FXTradepro T or R-2a", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-2a", OBJPROP_XDISTANCE, 248);
   ObjectSet("FXTradepro T or R-2a", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-3", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-3", "15 Min:", 9, "Lucida Sans Regular", LightSteelBlue);
   ObjectSet("FXTradepro T or R-3", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-3", OBJPROP_XDISTANCE, 278);
   ObjectSet("FXTradepro T or R-3", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-4", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-4", " ADX " + StringSubstr(l_iadx_224, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_148);
   ObjectSet("FXTradepro T or R-4", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-4", OBJPROP_XDISTANCE, 323);
   ObjectSet("FXTradepro T or R-4", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-4a", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-4a", l_text_176, 9, "Wingdings", l_color_148);
   ObjectSet("FXTradepro T or R-4a", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-4a", OBJPROP_XDISTANCE, 386);
   ObjectSet("FXTradepro T or R-4a", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-5", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-5", "M30:", 9, "Lucida Sans Regular", LightSteelBlue);
   ObjectSet("FXTradepro T or R-5", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-5", OBJPROP_XDISTANCE, 416);
   ObjectSet("FXTradepro T or R-5", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-6", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-6", " ADX " + StringSubstr(l_iadx_232, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_152);
   ObjectSet("FXTradepro T or R-6", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-6", OBJPROP_XDISTANCE, 450);
   ObjectSet("FXTradepro T or R-6", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-6a", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-6a", l_text_184, 9, "Wingdings", l_color_152);
   ObjectSet("FXTradepro T or R-6a", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-6a", OBJPROP_XDISTANCE, 513);
   ObjectSet("FXTradepro T or R-6a", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-7", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-7", "1 Hr:", 9, "Lucida Sans Regular", LightSteelBlue);
   ObjectSet("FXTradepro T or R-7", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-7", OBJPROP_XDISTANCE, 540);
   ObjectSet("FXTradepro T or R-7", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-8", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-8", " ADX " + StringSubstr(l_iadx_240, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_156);
   ObjectSet("FXTradepro T or R-8", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-8", OBJPROP_XDISTANCE, 570);
   ObjectSet("FXTradepro T or R-8", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-8a", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-8a", l_text_192, 9, "Wingdings", l_color_156);
   ObjectSet("FXTradepro T or R-8a", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-8a", OBJPROP_XDISTANCE, 632);
   ObjectSet("FXTradepro T or R-8a", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-9", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-9", "4 Hr:", 9, "Lucida Sans Regular", LightSteelBlue);
   ObjectSet("FXTradepro T or R-9", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-9", OBJPROP_XDISTANCE, 662);
   ObjectSet("FXTradepro T or R-9", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-10", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-10", " ADX " + StringSubstr(l_iadx_248, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_160);
   ObjectSet("FXTradepro T or R-10", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-10", OBJPROP_XDISTANCE, 692);
   ObjectSet("FXTradepro T or R-10", OBJPROP_YDISTANCE, 2);
   ObjectCreate("FXTradepro T or R-10a", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
   ObjectSetText("FXTradepro T or R-10a", l_text_200, 9, "Wingdings", l_color_160);
   ObjectSet("FXTradepro T or R-10a", OBJPROP_CORNER, 0);
   ObjectSet("FXTradepro T or R-10a", OBJPROP_XDISTANCE, 753);
   ObjectSet("FXTradepro T or R-10a", OBJPROP_YDISTANCE, 2);
   if (Show_D1_ADX == TRUE) {
      ObjectCreate("FXTradepro T or R-11", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
      ObjectSetText("FXTradepro T or R-11", "1 Day:", 9, "Lucida Sans Regular", LightSteelBlue);
      ObjectSet("FXTradepro T or R-11", OBJPROP_CORNER, 0);
      ObjectSet("FXTradepro T or R-11", OBJPROP_XDISTANCE, 783);
      ObjectSet("FXTradepro T or R-11", OBJPROP_YDISTANCE, 2);
      ObjectCreate("FXTradepro T or R-12", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
      ObjectSetText("FXTradepro T or R-12", " ADX " + StringSubstr(l_iadx_256, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_164);
      ObjectSet("FXTradepro T or R-12", OBJPROP_CORNER, 0);
      ObjectSet("FXTradepro T or R-12", OBJPROP_XDISTANCE, 823);
      ObjectSet("FXTradepro T or R-12", OBJPROP_YDISTANCE, 2);
      ObjectCreate("FXTradepro T or R-12a", OBJ_LABEL, WindowFind("FXTradepro T or R (" + Symbol() + ")"), 0, 0);
      ObjectSetText("FXTradepro T or R-12a", l_text_208, 9, "Wingdings", l_color_164);
      ObjectSet("FXTradepro T or R-12a", OBJPROP_CORNER, 0);
      ObjectSet("FXTradepro T or R-12a", OBJPROP_XDISTANCE, 883);
      ObjectSet("FXTradepro T or R-12a", OBJPROP_YDISTANCE, 2);
   }
   return (0);
}