/*
   G e n e r a t e d  by ex4-to-mq4 decompiler FREEWARE 4.0.509.5
   Website: ht T p: // w wW.m ET A Q uoT e S . Net
   E-mail : S U pp or t @ ME tAqu oTE s.nE t
*/
#property copyright "4X-PREDICTOR Copyright © 2007, 4XFX"
#property link      "http://www.4XFX.biz"

#property indicator_separate_window
#property indicator_buffers 3
#property indicator_color1 Yellow
#property indicator_color2 Red
#property indicator_color3 Green

double Gd_76 = 6.0;
double Gd_84 = 25.0;
double Gd_92 = 200.0;
extern int TriggerLevel = 52;
int Gi_104 = 52;
int Gi_108 = 0;
int G_bars_112 = 31;
double G_ibuf_116[];
double G_ibuf_120[];
double G_ibuf_124[];

int init() {
   ObjectsDeleteAll();
   SetIndexBuffer(2, G_ibuf_116);
   SetIndexBuffer(1, G_ibuf_120);
   SetIndexBuffer(0, G_ibuf_124);
   SetIndexStyle(2, DRAW_HISTOGRAM, STYLE_SOLID, 2);
   SetIndexStyle(1, DRAW_HISTOGRAM, STYLE_SOLID, 2);
   SetIndexStyle(0, DRAW_HISTOGRAM, STYLE_SOLID, 1);
   return (0);
}

int start() {
   double iclose_0;
   double iclose_8;
   double iclose_16;
   double iclose_24;
   double iclose_32;
   double Ld_40;
   double Ld_48;
   double Ld_56;
   double Ld_64;
   double Ld_72;
   double Ld_80;
   double Ld_88;
   double Ld_96;
   double Ld_104;
   double iclose_112;
   double iclose_120;
   double iclose_128;
   double iclose_136;
   double iclose_144;
   double Ld_152;
   double Ld_160;
   double Ld_168;
   double iclose_176;
   double iclose_184;
   double iclose_192;
   double iclose_200;
   double iclose_208;
   double Ld_216;
   double Ld_224;
   double Ld_232;
   double iclose_240;
   double iclose_248;
   double iclose_256;
   double iclose_264;
   double iclose_272;
   double Ld_280;
   double Ld_288;
   double Ld_296;
   double iclose_304;
   double iclose_312;
   double iclose_320;
   double iclose_328;
   double iclose_336;
   double Ld_344;
   double Ld_352;
   double Ld_360;
   double iclose_368;
   double iclose_376;
   double iclose_384;
   double iclose_392;
   double iclose_400;
   double Ld_408;
   double Ld_416;
   double Ld_424;
   double iclose_432;
   double iclose_440;
   double iclose_448;
   double iclose_456;
   double iclose_464;
   double Ld_472;
   double Ld_480;
   double Ld_488;
   double iclose_496;
   double iclose_504;
   double iclose_512;
   double iclose_520;
   double iclose_528;
   double Ld_536;
   double Ld_544;
   double Ld_552;
   int order_total_560;
   int count_564;
   int count_568;
   double Ld_572;
   double Ld_580;
   string Ls_588;
   string Ls_596;
   string Ls_604;
   string Ls_612;
   string Ls_620;
   string Ls_628;
   string Ls_636;
   string Ls_644;
   string Ls_652;
   string Ls_660;
   string Ls_668;
   string text_676;
   string text_684;
   string text_692;
   string text_700;
   string text_708;
   string text_716;
   string text_724;
   string text_732;
   string text_740;
   string text_748;
   string text_756;
   string text_764;
   string text_772;
   string text_780;
   string text_788;
   string text_796;
   string text_804;
   string text_812;
   string text_820;
   string text_828;
   string text_836;
   double Ld_844;
   double Ld_852;
   double ivolume_860;
   double Ld_868;
   double Ld_876;
   double Ld_884;
   double Ld_892;
   ObjectCreate("ObjLabel1", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel1", " 4 ", 8, "Arial", Blue);
   ObjectSet("ObjLabel1", OBJPROP_CORNER, 3);
   ObjectSet("ObjLabel1", OBJPROP_XDISTANCE, 23);
   ObjectSet("ObjLabel1", OBJPROP_YDISTANCE, 20);
   ObjectCreate("ObjLabel2", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel2", " X ", 11, "Arial Bold", White);
   ObjectSet("ObjLabel2", OBJPROP_CORNER, 3);
   ObjectSet("ObjLabel2", OBJPROP_XDISTANCE, 10);
   ObjectSet("ObjLabel2", OBJPROP_YDISTANCE, 20);
   ObjectCreate("ObjLabel3", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel3", " F", 8, "Arial", Red);
   ObjectSet("ObjLabel3", OBJPROP_CORNER, 3);
   ObjectSet("ObjLabel3", OBJPROP_XDISTANCE, 8);
   ObjectSet("ObjLabel3", OBJPROP_YDISTANCE, 20);
   ObjectCreate("ObjLabel4", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel4", "Ù", 8, "Wingdings", LimeGreen);
   ObjectSet("ObjLabel4", OBJPROP_CORNER, 3);
   ObjectSet("ObjLabel4", OBJPROP_XDISTANCE, 14);
   ObjectSet("ObjLabel4", OBJPROP_YDISTANCE, 13);
   ObjectCreate("ObjLabel5", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel5", "Ú", 8, "Wingdings", Red);
   ObjectSet("ObjLabel5", OBJPROP_CORNER, 3);
   ObjectSet("ObjLabel5", OBJPROP_XDISTANCE, 14);
   ObjectSet("ObjLabel5", OBJPROP_YDISTANCE, 30);
   ObjectCreate("ObjLabel6", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel6", "WWW.4XFX.BIZ", 7, "Arial", Silver);
   ObjectSet("ObjLabel6", OBJPROP_CORNER, 3);
   ObjectSet("ObjLabel6", OBJPROP_XDISTANCE, 5);
   ObjectSet("ObjLabel6", OBJPROP_YDISTANCE, 3);
   SetLevelValue(0, TriggerLevel);
   SetLevelStyle(3, 1, Gold);
   IndicatorShortName("FOREX Prediction");
   int Li_900 = IndicatorCounted();
   if (Li_900 > 0) Li_900--;
   int Li_904 = Bars - Li_900;
   int Li_908 = Time[0] + 60 * Period() - TimeCurrent();
   int Li_912 = Li_908 / 60.0;
   int Li_916 = Li_908 % 60;
   Li_908 = (Li_908 - Li_908 % 60) / 60;
   if (G_bars_112 >= Bars) G_bars_112 = Bars;
   SetIndexDrawBegin(0, Bars - G_bars_112 + Gi_108);
   SetIndexDrawBegin(1, Bars - G_bars_112 + Gi_108);
   SetIndexDrawBegin(3, Bars - G_bars_112 + Gi_108);
   if (Bars <= Gi_108 + 1) return (0);
   if (Bars <= Gi_108 + 1) return (0);
   if (Li_900 < Gi_108 + 1) {
      for (Li_912 = 1; Li_912 <= Gi_108; Li_912++) G_ibuf_116[G_bars_112 - Li_912] = 0.0;
      for (Li_912 = 1; Li_912 <= Gi_108; Li_912++) G_ibuf_120[G_bars_112 - Li_912] = 0.0;
      for (Li_912 = 1; Li_912 <= Gi_108; Li_912++) G_ibuf_124[G_bars_112 - Li_912] = 0.0;
   }
   for (Li_912 = G_bars_112 - Gi_108; Li_912 >= 0; Li_912--) {
      Ld_64 = Gd_92 / 100000.0;
      Ld_72 = Gd_84 / 100.0;
      Ld_80 = AccountBalance() / Gd_76;
      if (MarketInfo(Symbol(), MODE_POINT) == 0.01) Ld_88 = Ld_80 * Ld_72 * Ld_64 * (127 / Ask);
      else Ld_88 = Ld_80 * Ld_72 * Ld_64 * (1 / Ask);
      Ld_96 = AccountBalance() * Ld_72 / MarketInfo(Symbol(), MODE_TICKVALUE) * Ld_88;
      Ld_104 = Ld_96 / MarketInfo(Symbol(), MODE_TICKVALUE);
      iclose_0 = iClose(NULL, 0, Li_912);
      iclose_8 = iClose(NULL, 0, Li_912 + 1);
      iclose_16 = iClose(NULL, 0, Li_912 + 2);
      iclose_24 = iClose(NULL, 0, Li_912 + 3);
      iclose_32 = iClose(NULL, 0, Li_912 + 4);
      Ld_40 = (iclose_0 + iclose_8) / 2.0;
      Ld_48 = (iclose_0 + iclose_8 + iclose_16 + iclose_24 + iclose_32) / 5.0;
      Ld_56 = 10000.0 * (125.75 * (MathAbs(Ld_40 - Ld_48) / iclose_0) + 0.54528) / 100.0;
      iclose_112 = iClose(NULL, PERIOD_M1, Li_912);
      iclose_120 = iClose(NULL, PERIOD_M1, Li_912 + 1);
      iclose_128 = iClose(NULL, PERIOD_M1, Li_912 + 2);
      iclose_136 = iClose(NULL, PERIOD_M1, Li_912 + 3);
      iclose_144 = iClose(NULL, PERIOD_M1, Li_912 + 4);
      Ld_152 = (iclose_112 + iclose_120) / 2.0;
      Ld_160 = (iclose_112 + iclose_120 + iclose_128 + iclose_136 + iclose_144) / 5.0;
      Ld_168 = 10000.0 * (125.75 * (MathAbs(Ld_152 - Ld_160) / iclose_112) + 0.54528) / 100.0;
      iclose_176 = iClose(NULL, PERIOD_M5, Li_912);
      iclose_184 = iClose(NULL, PERIOD_M5, Li_912 + 1);
      iclose_192 = iClose(NULL, PERIOD_M5, Li_912 + 2);
      iclose_200 = iClose(NULL, PERIOD_M5, Li_912 + 3);
      iclose_208 = iClose(NULL, PERIOD_M5, Li_912 + 4);
      Ld_216 = (iclose_176 + iclose_184) / 2.0;
      Ld_224 = (iclose_176 + iclose_184 + iclose_192 + iclose_136 + iclose_208) / 5.0;
      Ld_232 = 10000.0 * (125.75 * (MathAbs(Ld_216 - Ld_224) / iclose_208) + 0.54528) / 100.0;
      iclose_240 = iClose(NULL, PERIOD_M15, Li_912);
      iclose_248 = iClose(NULL, PERIOD_M15, Li_912 + 1);
      iclose_256 = iClose(NULL, PERIOD_M15, Li_912 + 2);
      iclose_264 = iClose(NULL, PERIOD_M15, Li_912 + 3);
      iclose_272 = iClose(NULL, PERIOD_M15, Li_912 + 4);
      Ld_280 = (iclose_240 + iclose_248) / 2.0;
      Ld_288 = (iclose_240 + iclose_248 + iclose_256 + iclose_264 + iclose_272) / 5.0;
      Ld_296 = 10000.0 * (125.75 * (MathAbs(Ld_280 - Ld_288) / iclose_240) + 0.54528) / 100.0;
      iclose_304 = iClose(NULL, PERIOD_M30, Li_912);
      iclose_312 = iClose(NULL, PERIOD_M30, Li_912 + 1);
      iclose_320 = iClose(NULL, PERIOD_M30, Li_912 + 2);
      iclose_328 = iClose(NULL, PERIOD_M30, Li_912 + 3);
      iclose_336 = iClose(NULL, PERIOD_M30, Li_912 + 4);
      Ld_344 = (iclose_304 + iclose_312) / 2.0;
      Ld_352 = (iclose_304 + iclose_312 + iclose_320 + iclose_328 + iclose_336) / 5.0;
      Ld_360 = 10000.0 * (125.75 * (MathAbs(Ld_344 - Ld_352) / iclose_304) + 0.54528) / 100.0;
      iclose_368 = iClose(NULL, PERIOD_H1, Li_912);
      iclose_376 = iClose(NULL, PERIOD_H1, Li_912 + 1);
      iclose_384 = iClose(NULL, PERIOD_H1, Li_912 + 2);
      iclose_392 = iClose(NULL, PERIOD_H1, Li_912 + 3);
      iclose_400 = iClose(NULL, PERIOD_H1, Li_912 + 4);
      Ld_408 = (iclose_368 + iclose_376) / 2.0;
      Ld_416 = (iclose_368 + iclose_376 + iclose_384 + iclose_392 + iclose_400) / 5.0;
      Ld_424 = 10000.0 * (125.75 * (MathAbs(Ld_408 - Ld_416) / iclose_368) + 0.54528) / 100.0;
      iclose_432 = iClose(NULL, PERIOD_H4, Li_912);
      iclose_440 = iClose(NULL, PERIOD_H4, Li_912 + 1);
      iclose_448 = iClose(NULL, PERIOD_H4, Li_912 + 2);
      iclose_456 = iClose(NULL, PERIOD_H4, Li_912 + 3);
      iclose_464 = iClose(NULL, PERIOD_H4, Li_912 + 4);
      Ld_472 = (iclose_432 + iclose_440) / 2.0;
      Ld_480 = (iclose_432 + iclose_440 + iclose_448 + iclose_456 + iclose_464) / 5.0;
      Ld_488 = 10000.0 * (125.75 * (MathAbs(Ld_472 - Ld_480) / iclose_432) + 0.54528) / 100.0;
      iclose_496 = iClose(NULL, PERIOD_D1, Li_912);
      iclose_504 = iClose(NULL, PERIOD_D1, Li_912 + 1);
      iclose_512 = iClose(NULL, PERIOD_D1, Li_912 + 2);
      iclose_520 = iClose(NULL, PERIOD_D1, Li_912 + 3);
      iclose_528 = iClose(NULL, PERIOD_D1, Li_912 + 4);
      Ld_536 = (iclose_496 + iclose_504) / 2.0;
      Ld_544 = (iclose_496 + iclose_504 + iclose_512 + iclose_520 + iclose_528) / 5.0;
      Ld_552 = 10000.0 * (125.75 * (MathAbs(Ld_536 - Ld_544) / iclose_496) + 0.54528) / 100.0;
      order_total_560 = OrdersTotal();
      count_564 = 0;
      count_568 = 0;
      for (int pos_920 = order_total_560 - 1; pos_920 >= 0; pos_920--) {
         if (OrderSelect(pos_920, SELECT_BY_POS)) {
            if (OrderSymbol() == Symbol()) {
               if (OrderType() == OP_BUY) count_564++;
               if (OrderType() == OP_SELL) count_568++;
            }
         }
      }
      Ld_572 = 0;
      Ld_580 = 0;
      for (int pos_924 = OrdersTotal() - 1; pos_924 >= 0; pos_924--) {
         if (OrderSelect(pos_924, SELECT_BY_POS, MODE_TRADES)) {
            if (OrderSymbol() == Symbol())
               if (OrderType() == OP_BUY) Ld_572 += OrderProfit();
         }
      }
      for (pos_924 = OrdersTotal() - 1; pos_924 >= 0; pos_924--) {
         if (OrderSelect(pos_924, SELECT_BY_POS, MODE_TRADES)) {
            if (OrderSymbol() == Symbol())
               if (OrderType() == OP_SELL) Ld_580 += OrderProfit();
         }
      }
      G_ibuf_124[Li_912] = Ld_56;
      G_ibuf_120[Li_912] = Ld_56;
      G_ibuf_116[Li_912] = Ld_56;
      Ls_588 = Ld_168;
      Ls_596 = Ld_232;
      Ls_604 = Ld_296;
      Ls_612 = Ld_360;
      Ls_620 = Ld_424;
      Ls_628 = Ld_488;
      Ls_636 = Ld_552;
      ObjectCreate("1M", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("1M", "M1", 9, "Arial Bold ", Silver);
      ObjectSet("1M", OBJPROP_CORNER, 0);
      ObjectSet("1M", OBJPROP_XDISTANCE, 160);
      ObjectSet("1M", OBJPROP_YDISTANCE, 0);
      ObjectCreate("1MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("1MV", StringSubstr(Ls_588, 0, 4), 7, "Arial Bold", White);
      ObjectSet("1MV", OBJPROP_CORNER, 0);
      ObjectSet("1MV", OBJPROP_XDISTANCE, 160);
      ObjectSet("1MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("5M", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("5M", "M5", 9, "Arial Bold ", Silver);
      ObjectSet("5M", OBJPROP_CORNER, 0);
      ObjectSet("5M", OBJPROP_XDISTANCE, 185);
      ObjectSet("5M", OBJPROP_YDISTANCE, 0);
      ObjectCreate("2MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("2MV", StringSubstr(Ls_596, 0, 4), 7, "Arial Bold", White);
      ObjectSet("2MV", OBJPROP_CORNER, 0);
      ObjectSet("2MV", OBJPROP_XDISTANCE, 185);
      ObjectSet("2MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("15M", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("15M", "M15", 9, "Arial Bold ", Silver);
      ObjectSet("15M", OBJPROP_CORNER, 0);
      ObjectSet("15M", OBJPROP_XDISTANCE, 210);
      ObjectSet("15M", OBJPROP_YDISTANCE, 0);
      ObjectCreate("3MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("3MV", StringSubstr(Ls_604, 0, 4), 7, "Arial Bold", White);
      ObjectSet("3MV", OBJPROP_CORNER, 0);
      ObjectSet("3MV", OBJPROP_XDISTANCE, 210);
      ObjectSet("3MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("30M", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("30M", "M30", 9, "Arial Bold ", Silver);
      ObjectSet("30M", OBJPROP_CORNER, 0);
      ObjectSet("30M", OBJPROP_XDISTANCE, 240);
      ObjectSet("30M", OBJPROP_YDISTANCE, 0);
      ObjectCreate("4MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("4MV", StringSubstr(Ls_612, 0, 4), 7, "Arial Bold", White);
      ObjectSet("4MV", OBJPROP_CORNER, 0);
      ObjectSet("4MV", OBJPROP_XDISTANCE, 240);
      ObjectSet("4MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("1HR", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("1HR", "1H", 9, "Arial Bold ", Silver);
      ObjectSet("1R", OBJPROP_CORNER, 0);
      ObjectSet("1HR", OBJPROP_XDISTANCE, 270);
      ObjectSet("1HR", OBJPROP_YDISTANCE, 0);
      ObjectCreate("5MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("5MV", StringSubstr(Ls_620, 0, 4), 7, "Arial Bold", White);
      ObjectSet("5MV", OBJPROP_CORNER, 0);
      ObjectSet("5MV", OBJPROP_XDISTANCE, 270);
      ObjectSet("5MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("4H", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("4H", "4H", 9, "Arial Bold ", Silver);
      ObjectSet("4H", OBJPROP_CORNER, 0);
      ObjectSet("4H", OBJPROP_XDISTANCE, 295);
      ObjectSet("4H", OBJPROP_YDISTANCE, 0);
      ObjectCreate("6MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("6MV", StringSubstr(Ls_628, 0, 4), 7, "Arial Bold", White);
      ObjectSet("6MV", OBJPROP_CORNER, 0);
      ObjectSet("6MV", OBJPROP_XDISTANCE, 295);
      ObjectSet("6MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("1D", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("1D", "1D", 9, "Arial Bold ", Silver);
      ObjectSet("1D", OBJPROP_CORNER, 0);
      ObjectSet("1D", OBJPROP_XDISTANCE, 325);
      ObjectSet("1D", OBJPROP_YDISTANCE, 0);
      ObjectCreate("7MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("7MV", StringSubstr(Ls_636, 0, 4), 7, "Arial Bold", White);
      ObjectSet("7MV", OBJPROP_CORNER, 0);
      ObjectSet("7MV", OBJPROP_XDISTANCE, 325);
      ObjectSet("7MV", OBJPROP_YDISTANCE, 25);
      Ls_644 = Ld_572 + Ld_580;
      Ls_652 = Symbol();
      Ls_660 = count_564;
      Ls_668 = count_568;
      ObjectCreate("1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("1", StringSubstr(Ls_652, 0, 8), 7, "Arial Bold", White);
      ObjectSet("1", OBJPROP_CORNER, 0);
      ObjectSet("1", OBJPROP_XDISTANCE, 660);
      ObjectSet("1", OBJPROP_YDISTANCE, 0);
      ObjectCreate("profit", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("profit", "PROFIT$", 7, "Arial Bold", Silver);
      ObjectSet("profit", OBJPROP_CORNER, 0);
      ObjectSet("profit", OBJPROP_XDISTANCE, 610);
      ObjectSet("profit", OBJPROP_YDISTANCE, 0);
      ObjectCreate("B", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("B", "BUY ORDERS", 7, "Arial Bold", Silver);
      ObjectSet("B", OBJPROP_CORNER, 0);
      ObjectSet("B", OBJPROP_XDISTANCE, 750);
      ObjectSet("B", OBJPROP_YDISTANCE, 0);
      ObjectCreate("B1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("B1", StringSubstr(Ls_660, 0, 8), 7, "Arial Bold", White);
      ObjectSet("B1", OBJPROP_CORNER, 0);
      ObjectSet("B1", OBJPROP_XDISTANCE, 750);
      ObjectSet("B1", OBJPROP_YDISTANCE, 10);
      ObjectCreate("S", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("S", "SELL ORDERS", 7, "Arial Bold", Silver);
      ObjectSet("S", OBJPROP_CORNER, 0);
      ObjectSet("S", OBJPROP_XDISTANCE, 850);
      ObjectSet("S", OBJPROP_YDISTANCE, 0);
      ObjectCreate("S1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("S1", StringSubstr(Ls_668, 0, 8), 7, "Arial Bold", White);
      ObjectSet("S1", OBJPROP_CORNER, 0);
      ObjectSet("S1", OBJPROP_XDISTANCE, 850);
      ObjectSet("S1", OBJPROP_YDISTANCE, 10);
      if (Ld_572 + Ld_580 >= 0.0) {
         ObjectDelete("profitA1a");
         ObjectDelete("profitA1b");
         ObjectCreate("profitA1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("profitA1", StringSubstr(Ls_644, 0, 7), 8, "Arial Bold", Lime);
         ObjectSet("profitA1", OBJPROP_CORNER, 0);
         ObjectSet("profitA1", OBJPROP_XDISTANCE, 610);
         ObjectSet("profitA1", OBJPROP_YDISTANCE, 10);
      }
      if (Ld_572 + Ld_580 < 0.0) {
         ObjectDelete("profitA1");
         ObjectDelete("profitA1b");
         ObjectCreate("profitA1a", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("profitA1a", StringSubstr(Ls_644, 0, 7), 8, "Arial Bold", Red);
         ObjectSet("profitA1a", OBJPROP_CORNER, 0);
         ObjectSet("profitA1a", OBJPROP_XDISTANCE, 610);
         ObjectSet("profitA1a", OBJPROP_YDISTANCE, 10);
      }
      if (Ld_572 + Ld_580 == 0.0) {
         ObjectDelete("profitA1");
         ObjectDelete("profitA1a");
         ObjectCreate("profitA1b", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("profitA1b", "CLOSED", 7, "Arial Bold", Yellow);
         ObjectSet("profitA1b", OBJPROP_CORNER, 0);
         ObjectSet("profitA1b", OBJPROP_XDISTANCE, 610);
         ObjectSet("profitA1b", OBJPROP_YDISTANCE, 10);
      }
      if (Ld_168 > Gi_104 && Ld_152 > Ld_160) {
         text_676 = "Ù";
         ObjectDelete("ADWN1");
         ObjectDelete("Ahold1");
         ObjectCreate("AUP1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP1", text_676, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP1", OBJPROP_CORNER, 0);
         ObjectSet("AUP1", OBJPROP_XDISTANCE, 160);
         ObjectSet("AUP1", OBJPROP_YDISTANCE, 10);
      } else {
         if (Ld_168 > Gi_104 && Ld_152 < Ld_160) {
            text_684 = "Ú";
            ObjectDelete("AUP1");
            ObjectDelete("Ahold1");
            ObjectCreate("ADWN1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN1", text_684, 8, "Wingdings", Red);
            ObjectSet("ADWN1", OBJPROP_CORNER, 0);
            ObjectSet("ADWN1", OBJPROP_XDISTANCE, 160);
            ObjectSet("ADWN1", OBJPROP_YDISTANCE, 10);
         } else {
            text_692 = "Ø";
            ObjectDelete("AUP1");
            ObjectDelete("ADWN1");
            ObjectCreate("Ahold1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold1", text_692, 8, "Wingdings", Yellow);
            ObjectSet("Ahold1", OBJPROP_CORNER, 0);
            ObjectSet("Ahold1", OBJPROP_XDISTANCE, 160);
            ObjectSet("Ahold1", OBJPROP_YDISTANCE, 10);
         }
      }
      if (Ld_232 > TriggerLevel && Ld_216 > Ld_224) {
         text_700 = "Ù";
         ObjectDelete("ADWN2");
         ObjectDelete("Ahold2");
         ObjectCreate("AUP2", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP2", text_700, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP2", OBJPROP_CORNER, 0);
         ObjectSet("AUP2", OBJPROP_XDISTANCE, 185);
         ObjectSet("AUP2", OBJPROP_YDISTANCE, 10);
      } else {
         if (Ld_232 > TriggerLevel && Ld_216 < Ld_224) {
            text_708 = "Ú";
            ObjectDelete("AUP2");
            ObjectDelete("Ahold2");
            ObjectCreate("ADWN2", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN2", text_708, 8, "Wingdings", Red);
            ObjectSet("ADWN2", OBJPROP_CORNER, 0);
            ObjectSet("ADWN2", OBJPROP_XDISTANCE, 185);
            ObjectSet("ADWN2", OBJPROP_YDISTANCE, 10);
         } else {
            text_716 = "Ø";
            ObjectDelete("AUP2");
            ObjectDelete("ADWN2");
            ObjectCreate("Ahold2", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold2", text_716, 8, "Wingdings", Yellow);
            ObjectSet("Ahold2", OBJPROP_CORNER, 0);
            ObjectSet("Ahold2", OBJPROP_XDISTANCE, 185);
            ObjectSet("Ahold2", OBJPROP_YDISTANCE, 10);
         }
      }
      if (Ld_296 > TriggerLevel && Ld_280 > Ld_288) {
         text_724 = "Ù";
         ObjectDelete("ADWN3");
         ObjectDelete("Ahold3");
         ObjectCreate("AUP3", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP3", text_724, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP3", OBJPROP_CORNER, 0);
         ObjectSet("AUP3", OBJPROP_XDISTANCE, 210);
         ObjectSet("AUP3", OBJPROP_YDISTANCE, 10);
      } else {
         if (Ld_296 > TriggerLevel && Ld_280 < Ld_288) {
            text_732 = "Ú";
            ObjectDelete("AUP3");
            ObjectDelete("Ahold3");
            ObjectCreate("ADWN3", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN3", text_732, 8, "Wingdings", Red);
            ObjectSet("ADWN3", OBJPROP_CORNER, 0);
            ObjectSet("ADWN3", OBJPROP_XDISTANCE, 210);
            ObjectSet("ADWN3", OBJPROP_YDISTANCE, 10);
         } else {
            text_740 = "Ø";
            ObjectDelete("AUP3");
            ObjectDelete("ADWN3");
            ObjectCreate("Ahold3", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold3", text_740, 8, "Wingdings", Yellow);
            ObjectSet("Ahold3", OBJPROP_CORNER, 0);
            ObjectSet("Ahold3", OBJPROP_XDISTANCE, 210);
            ObjectSet("Ahold3", OBJPROP_YDISTANCE, 10);
         }
      }
      if (Ld_360 > TriggerLevel && Ld_344 > Ld_352) {
         text_748 = "Ù";
         ObjectDelete("ADWN4");
         ObjectDelete("Ahold4");
         ObjectCreate("AUP4", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP4", text_748, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP4", OBJPROP_CORNER, 0);
         ObjectSet("AUP4", OBJPROP_XDISTANCE, 240);
         ObjectSet("AUP4", OBJPROP_YDISTANCE, 10);
      } else {
         if (Ld_360 > TriggerLevel && Ld_344 < Ld_352) {
            text_756 = "Ú";
            ObjectDelete("AUP4");
            ObjectDelete("Ahold4");
            ObjectCreate("ADWN4", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN4", text_756, 8, "Wingdings", Red);
            ObjectSet("ADWN4", OBJPROP_CORNER, 0);
            ObjectSet("ADWN4", OBJPROP_XDISTANCE, 240);
            ObjectSet("ADWN4", OBJPROP_YDISTANCE, 10);
         } else {
            text_764 = "Ø";
            ObjectDelete("AUP4");
            ObjectDelete("ADWN4");
            ObjectCreate("Ahold4", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold4", text_764, 8, "Wingdings", Yellow);
            ObjectSet("Ahold4", OBJPROP_CORNER, 0);
            ObjectSet("Ahold4", OBJPROP_XDISTANCE, 240);
            ObjectSet("Ahold4", OBJPROP_YDISTANCE, 10);
         }
      }
      if (Ld_424 > TriggerLevel && Ld_408 > Ld_416) {
         text_772 = "Ù";
         ObjectDelete("ADWN5");
         ObjectDelete("Ahold5");
         ObjectCreate("AUP5", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP5", text_772, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP5", OBJPROP_CORNER, 0);
         ObjectSet("AUP5", OBJPROP_XDISTANCE, 270);
         ObjectSet("AUP5", OBJPROP_YDISTANCE, 10);
      } else {
         if (Ld_424 > TriggerLevel && Ld_408 < Ld_416) {
            text_780 = "Ú";
            ObjectDelete("AUP5");
            ObjectDelete("Ahold5");
            ObjectCreate("ADWN5", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN5", text_780, 8, "Wingdings", Red);
            ObjectSet("ADWN5", OBJPROP_CORNER, 0);
            ObjectSet("ADWN5", OBJPROP_XDISTANCE, 270);
            ObjectSet("ADWN5", OBJPROP_YDISTANCE, 10);
         } else {
            text_788 = "Ø";
            ObjectDelete("AUP5");
            ObjectDelete("ADWN5");
            ObjectCreate("Ahold5", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold5", text_788, 8, "Wingdings", Yellow);
            ObjectSet("Ahold5", OBJPROP_CORNER, 0);
            ObjectSet("Ahold5", OBJPROP_XDISTANCE, 270);
            ObjectSet("Ahold5", OBJPROP_YDISTANCE, 10);
         }
      }
      if (Ld_488 > TriggerLevel && Ld_472 > Ld_480) {
         text_796 = "Ù";
         ObjectDelete("ADWN6");
         ObjectDelete("Ahold6");
         ObjectCreate("AUP6", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP6", text_796, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP6", OBJPROP_CORNER, 0);
         ObjectSet("AUP6", OBJPROP_XDISTANCE, 295);
         ObjectSet("AUP6", OBJPROP_YDISTANCE, 10);
      } else {
         if (Ld_488 > TriggerLevel && Ld_472 < Ld_480) {
            text_804 = "Ú";
            ObjectDelete("AUP6");
            ObjectDelete("Ahold6");
            ObjectCreate("ADWN6", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN6", text_804, 8, "Wingdings", Red);
            ObjectSet("ADWN6", OBJPROP_CORNER, 0);
            ObjectSet("ADWN6", OBJPROP_XDISTANCE, 295);
            ObjectSet("ADWN6", OBJPROP_YDISTANCE, 10);
         } else {
            text_812 = "Ø";
            ObjectDelete("AUP6");
            ObjectDelete("ADWN6");
            ObjectCreate("Ahold6", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold6", text_812, 8, "Wingdings", Yellow);
            ObjectSet("Ahold6", OBJPROP_CORNER, 0);
            ObjectSet("Ahold6", OBJPROP_XDISTANCE, 295);
            ObjectSet("Ahold6", OBJPROP_YDISTANCE, 10);
         }
      }
      if (Ld_552 > TriggerLevel && Ld_536 > Ld_544) {
         text_820 = "Ù";
         ObjectDelete("ADWN7");
         ObjectDelete("Ahold7");
         ObjectCreate("AUP7", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP7", text_820, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP7", OBJPROP_CORNER, 0);
         ObjectSet("AUP7", OBJPROP_XDISTANCE, 325);
         ObjectSet("AUP7", OBJPROP_YDISTANCE, 10);
      } else {
         if (Ld_552 > TriggerLevel && Ld_536 < Ld_544) {
            text_828 = "Ú";
            ObjectDelete("AUP7");
            ObjectDelete("Ahold7");
            ObjectCreate("ADWN7", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN7", text_828, 8, "Wingdings", Red);
            ObjectSet("ADWN7", OBJPROP_CORNER, 0);
            ObjectSet("ADWN7", OBJPROP_XDISTANCE, 325);
            ObjectSet("ADWN7", OBJPROP_YDISTANCE, 10);
         } else {
            text_836 = "Ø";
            ObjectDelete("AUP7");
            ObjectDelete("ADWN7");
            ObjectCreate("Ahold7", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold7", text_836, 8, "Wingdings", Yellow);
            ObjectSet("Ahold7", OBJPROP_CORNER, 0);
            ObjectSet("Ahold7", OBJPROP_XDISTANCE, 325);
            ObjectSet("Ahold7", OBJPROP_YDISTANCE, 10);
         }
      }
      Ld_844 = MathAbs(iBullsPower(Symbol(), 0, 12, PRICE_CLOSE, Li_912));
      Ld_852 = MathAbs(iBearsPower(Symbol(), 0, 12, PRICE_CLOSE, Li_912));
      ivolume_860 = iVolume(Symbol(), 0, Li_912);
      Ld_868 = Ld_844 * ivolume_860 / (Ld_844 + Ld_852);
      Ld_876 = Ld_852 * ivolume_860 / (Ld_844 + Ld_852);
      if (Ld_868 == 0.0) Ld_868 = 1;
      if (Ld_876 == 0.0) Ld_876 = 1;
      Ld_884 = MathAbs(100.0 * (Ld_868 / (Ld_868 + Ld_876)));
      Ld_892 = MathAbs(100.0 * (Ld_876 / (Ld_868 + Ld_876)));
      Ld_868 = Ld_884;
      Ld_876 = Ld_892;
      ObjectCreate("PRED", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("PRED", "<---MARKET INFO--->", 8, "Arial Bold ", Gold);
      ObjectSet("PRED", OBJPROP_CORNER, 0);
      ObjectSet("PRED", OBJPROP_XDISTANCE, 405);
      ObjectSet("PRED", OBJPROP_YDISTANCE, 0);
      ObjectCreate("LONG", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("LONG", "BUYERS", 7, "Arial Bold ", LimeGreen);
      ObjectSet("LONG", OBJPROP_CORNER, 0);
      ObjectSet("LONG", OBJPROP_XDISTANCE, 355);
      ObjectSet("LONG", OBJPROP_YDISTANCE, 0);
      ObjectCreate("LONGP", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("LONGP", DoubleToStr(Ld_884, 1) + " % ", 7, "Arial Bold ", White);
      ObjectSet("LONGP", OBJPROP_CORNER, 0);
      ObjectSet("LONGP", OBJPROP_XDISTANCE, 355);
      ObjectSet("LONGP", OBJPROP_YDISTANCE, 10);
      ObjectCreate("SHORT", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("SHORT", "SELLERS", 7, "Arial Bold ", Red);
      ObjectSet("SHORT", OBJPROP_CORNER, 0);
      ObjectSet("SHORT", OBJPROP_XDISTANCE, 545);
      ObjectSet("SHORT", OBJPROP_YDISTANCE, 0);
      ObjectCreate("SHORTP", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("SHORTP", DoubleToStr(Ld_892, 1) + " % ", 7, "Arial Bold ", White);
      ObjectSet("SHORTP", OBJPROP_CORNER, 0);
      ObjectSet("SHORTP", OBJPROP_XDISTANCE, 545);
      ObjectSet("SHORTP", OBJPROP_YDISTANCE, 10);
      if (Ld_56 > TriggerLevel && Ld_40 > Ld_48) {
         ObjectDelete("enterS");
         ObjectCreate("enterB", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("enterB", "ENTER LONG NOW", 7, "Arial Bold ", LimeGreen);
         ObjectSet("enterB", OBJPROP_CORNER, 0);
         ObjectSet("enterB", OBJPROP_XDISTANCE, 415);
         ObjectSet("enterB", OBJPROP_YDISTANCE, 12);
      } else ObjectDelete("enterB");
      if (Ld_56 > TriggerLevel && Ld_40 < Ld_48) {
         ObjectDelete("enterB");
         ObjectCreate("enterS", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("enterS", "ENTER SHORT NOW", 7, "Arial Bold ", Red);
         ObjectSet("enterS", OBJPROP_CORNER, 0);
         ObjectSet("enterS", OBJPROP_XDISTANCE, 415);
         ObjectSet("enterS", OBJPROP_YDISTANCE, 12);
      } else ObjectDelete("enterS");
      if (Ld_56 > TriggerLevel && Ld_40 > Ld_48) {
         G_ibuf_120[Li_912] = EMPTY_VALUE;
         ObjectDelete("SELLINFO");
         ObjectDelete("HOLDINFO");
         ObjectCreate("BUYINFO", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("BUYINFO", DoubleToStr(Ld_56, 2) + " % Prediction for Long Trend for the next " + Li_908 + " min : " + Li_916 + " secs", 8, "Arial ", LimeGreen);
         ObjectSet("BUYINFO", OBJPROP_CORNER, 0);
         ObjectSet("BUYINFO", OBJPROP_XDISTANCE, 2);
         ObjectSet("BUYINFO", OBJPROP_YDISTANCE, 40);
         ObjectDelete("sell");
         ObjectDelete("buy");
         ObjectDelete("hold");
         ObjectDelete("sarrow");
         ObjectDelete("harrow");
         if (ObjectFind("buy") != 0 || ObjectFind("barrow") != 0) {
            ObjectCreate("buy", OBJ_TEXT, 0, Time[0], Bid - 0.0005);
            ObjectSetText("buy", "                      TREND UP ", 8, "Verdana", LimeGreen);
            ObjectCreate("barrow", OBJ_TEXT, 0, Time[0], Bid - 0.002);
            ObjectSetText("barrow", "      ñ ", 12, "Wingdings", LimeGreen);
            continue;
         }
         ObjectMove("buy", 0, Time[0], Bid - 0.0005);
      } else {
         if (Ld_56 > TriggerLevel && Ld_40 < Ld_48) {
            G_ibuf_116[Li_912] = EMPTY_VALUE;
            ObjectDelete("BUYINFO");
            ObjectDelete("HOLDINFO");
            ObjectCreate("SELLINFO", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("SELLINFO", DoubleToStr(Ld_56, 2) + " % Prediction for Short Trend for the next " + Li_908 + " min : " + Li_916 + " secs", 8, "Arial ", Red);
            ObjectSet("SELLINFO", OBJPROP_CORNER, 0);
            ObjectSet("SELLINFO", OBJPROP_XDISTANCE, 2);
            ObjectSet("SELLINFO", OBJPROP_YDISTANCE, 40);
            ObjectDelete("sell");
            ObjectDelete("buy");
            ObjectDelete("hold");
            ObjectDelete("barrow");
            ObjectDelete("harrow");
            if (ObjectFind("sell") != 0 || ObjectFind("sarrow") != 0) {
               ObjectCreate("sell", OBJ_TEXT, 0, Time[0], Ask + 0.0005);
               ObjectSetText("sell", "                       TREND DOWN ", 8, "Verdana", Red);
               ObjectCreate("sarrow", OBJ_TEXT, 0, Time[0], Ask + 0.002);
               ObjectSetText("sarrow", "     ò ", 12, "Wingdings", Red);
               continue;
            }
            ObjectMove("sell", 0, Time[0], Ask + 0.0005);
         } else {
            ObjectDelete("sell");
            ObjectDelete("buy");
            ObjectDelete("hold");
            ObjectDelete("SELLINFO");
            ObjectDelete("BUYINFO");
            ObjectDelete("barrow");
            ObjectDelete("sarrow");
            ObjectCreate("HOLDINFO", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("HOLDINFO", "***CAUTION*** REVERSAL MAYBE IN PLAY. HOLD! ", 8, "Arial ", Yellow);
            ObjectSet("HOLDINFO", OBJPROP_CORNER, 0);
            ObjectSet("HOLDINFO", OBJPROP_XDISTANCE, 0);
            ObjectSet("HOLDINFO", OBJPROP_YDISTANCE, 40);
            if (ObjectFind("hold") != 0) {
               ObjectCreate("hold", OBJ_TEXT, 0, Time[0], Ask + 0.0005);
               ObjectSetText("hold", "                       HOLD! ", 8, "Verdana", Gold);
               ObjectCreate("harrow", OBJ_TEXT, 0, Time[0], Bid - 0.0001);
               ObjectSetText("harrow", "     I ", 18, "Wingdings", Yellow);
               G_ibuf_116[Li_912] = EMPTY_VALUE;
               G_ibuf_120[Li_912] = EMPTY_VALUE;
            } else ObjectMove("hold", 0, Time[0], Ask + 0.0005);
         }
      }
   }
   return (0);
}
