
#property copyright "4X-PREDICTOR Copyright © 2009, 4XFX"
#property link      "http://www.saso.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;
extern int TriggerLevel1 = 52;
int gi_108 = 0;
extern int Bars_show = 70;
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 l_iclose_0;
   double l_iclose_8;
   double l_iclose_16;
   double l_iclose_24;
   double l_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 l_iclose_112;
   double l_iclose_120;
   double l_iclose_128;
   double l_iclose_136;
   double l_iclose_144;
   double ld_152;
   double ld_160;
   double ld_168;
   double l_iclose_176;
   double l_iclose_184;
   double l_iclose_192;
   double l_iclose_200;
   double l_iclose_208;
   double ld_216;
   double ld_224;
   double ld_232;
   double l_iclose_240;
   double l_iclose_248;
   double l_iclose_256;
   double l_iclose_264;
   double l_iclose_272;
   double ld_280;
   double ld_288;
   double ld_296;
   double l_iclose_304;
   double l_iclose_312;
   double l_iclose_320;
   double l_iclose_328;
   double l_iclose_336;
   double ld_344;
   double ld_352;
   double ld_360;
   double l_iclose_368;
   double l_iclose_376;
   double l_iclose_384;
   double l_iclose_392;
   double l_iclose_400;
   double ld_408;
   double ld_416;
   double ld_424;
   double l_iclose_432;
   double l_iclose_440;
   double l_iclose_448;
   double l_iclose_456;
   double l_iclose_464;
   double ld_472;
   double ld_480;
   double ld_488;
   double l_iclose_496;
   double l_iclose_504;
   double l_iclose_512;
   double l_iclose_520;
   double l_iclose_528;
   double ld_536;
   double ld_544;
   double ld_552;
   int l_ord_total_560;
   int l_count_564;
   int l_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 l_text_676;
   string l_text_684;
   string l_text_692;
   string l_text_700;
   string l_text_708;
   string l_text_716;
   string l_text_724;
   string l_text_732;
   string l_text_740;
   string l_text_748;
   string l_text_756;
   string l_text_764;
   string l_text_772;
   string l_text_780;
   string l_text_788;
   string l_text_796;
   string l_text_804;
   string l_text_812;
   string l_text_820;
   string l_text_828;
   string l_text_836;
   double ld_844;
   double ld_852;
   double l_ivolume_860;
   double ld_868;
   double ld_876;
   double ld_884;
   double ld_892;

   ObjectCreate("ObjLabel1", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel1", " 4 ", 0, "Arial", Blue);
   ObjectSet("ObjLabel1", OBJPROP_CORNER, 0);
   ObjectSet("ObjLabel1", OBJPROP_XDISTANCE, 23);
   ObjectSet("ObjLabel1", OBJPROP_YDISTANCE, 20);
   ObjectCreate("ObjLabel2", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel2", " X ", 0, "Arial Bold", White);
   ObjectSet("ObjLabel2", OBJPROP_CORNER, 0);
   ObjectSet("ObjLabel2", OBJPROP_XDISTANCE, 10);
   ObjectSet("ObjLabel2", OBJPROP_YDISTANCE, 20);
   ObjectCreate("ObjLabel3", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel3", " F", 0, "Arial", Red);
   ObjectSet("ObjLabel3", OBJPROP_CORNER, 0);
   ObjectSet("ObjLabel3", OBJPROP_XDISTANCE, 8);
   ObjectSet("ObjLabel3", OBJPROP_YDISTANCE, 20);
   ObjectCreate("ObjLabel4", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel4", "Щ", 0, "Wingdings", LimeGreen);
   ObjectSet("ObjLabel4", OBJPROP_CORNER, 0);
   ObjectSet("ObjLabel4", OBJPROP_XDISTANCE, 14);
   ObjectSet("ObjLabel4", OBJPROP_YDISTANCE, 13);
   ObjectCreate("ObjLabel5", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel5", "Ъ", 0, "Wingdings", Red);
   ObjectSet("ObjLabel5", OBJPROP_CORNER, 0);
   ObjectSet("ObjLabel5", OBJPROP_XDISTANCE, 14);
   ObjectSet("ObjLabel5", OBJPROP_YDISTANCE, 30);
   ObjectCreate("ObjLabel6", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("ObjLabel6", "", 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("russian-trader v2");
   int li_912 = IndicatorCounted();
   if (li_912 > 0) li_912--;
   int li_916 = Bars - li_912;
   int li_920 = Time[0] + 60 * Period() - TimeCurrent();
   int li_924 = li_920 / 60.0;
   int li_928 = li_920 % 60;
   li_920 = (li_920 - li_920 % 60) / 60;
   if (Bars_show >= Bars) Bars_show = Bars;
   SetIndexDrawBegin(0, Bars - Bars_show + gi_108);
   SetIndexDrawBegin(1, Bars - Bars_show + gi_108);
   SetIndexDrawBegin(3, Bars - Bars_show + gi_108);
   if (Bars <= gi_108 + 1) return (0);
   if (Bars <= gi_108 + 1) return (0);
   if (li_912 < gi_108 + 1) {
      for (li_924 = 1; li_924 <= gi_108; li_924++) g_ibuf_116[Bars_show - li_924] = 0.0;
      for (li_924 = 1; li_924 <= gi_108; li_924++) g_ibuf_120[Bars_show - li_924] = 0.0;
      for (li_924 = 1; li_924 <= gi_108; li_924++) g_ibuf_124[Bars_show - li_924] = 0.0;
   }
   for (li_924 = Bars_show - gi_108; li_924 >= 0; li_924--) {
      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);
      l_iclose_0 = iClose(NULL, 0, li_924);
      l_iclose_8 = iClose(NULL, 0, li_924 + 1);
      l_iclose_16 = iClose(NULL, 0, li_924 + 2);
      l_iclose_24 = iClose(NULL, 0, li_924 + 3);
      l_iclose_32 = iClose(NULL, 0, li_924 + 4);
      ld_40 = (l_iclose_0 + l_iclose_8) / 2.0;
      ld_48 = (l_iclose_0 + l_iclose_8 + l_iclose_16 + l_iclose_24 + l_iclose_32) / 5.0;
      ld_56 = 10000.0 * (125.75 * (MathAbs(ld_40 - ld_48) / l_iclose_0) + 0.54528) / 100.0;
      l_iclose_112 = iClose(NULL, PERIOD_M1, li_924);
      l_iclose_120 = iClose(NULL, PERIOD_M1, li_924 + 1);
      l_iclose_128 = iClose(NULL, PERIOD_M1, li_924 + 2);
      l_iclose_136 = iClose(NULL, PERIOD_M1, li_924 + 3);
      l_iclose_144 = iClose(NULL, PERIOD_M1, li_924 + 4);
      ld_152 = (l_iclose_112 + l_iclose_120) / 2.0;
      ld_160 = (l_iclose_112 + l_iclose_120 + l_iclose_128 + l_iclose_136 + l_iclose_144) / 5.0;
      ld_168 = 10000.0 * (125.75 * (MathAbs(ld_152 - ld_160) / l_iclose_112) + 0.54528) / 100.0;
      l_iclose_176 = iClose(NULL, PERIOD_M5, li_924);
      l_iclose_184 = iClose(NULL, PERIOD_M5, li_924 + 1);
      l_iclose_192 = iClose(NULL, PERIOD_M5, li_924 + 2);
      l_iclose_200 = iClose(NULL, PERIOD_M5, li_924 + 3);
      l_iclose_208 = iClose(NULL, PERIOD_M5, li_924 + 4);
      ld_216 = (l_iclose_176 + l_iclose_184) / 2.0;
      ld_224 = (l_iclose_176 + l_iclose_184 + l_iclose_192 + l_iclose_136 + l_iclose_208) / 5.0;
      ld_232 = 10000.0 * (125.75 * (MathAbs(ld_216 - ld_224) / l_iclose_208) + 0.54528) / 100.0;
      l_iclose_240 = iClose(NULL, PERIOD_M15, li_924);
      l_iclose_248 = iClose(NULL, PERIOD_M15, li_924 + 1);
      l_iclose_256 = iClose(NULL, PERIOD_M15, li_924 + 2);
      l_iclose_264 = iClose(NULL, PERIOD_M15, li_924 + 3);
      l_iclose_272 = iClose(NULL, PERIOD_M15, li_924 + 4);
      ld_280 = (l_iclose_240 + l_iclose_248) / 2.0;
      ld_288 = (l_iclose_240 + l_iclose_248 + l_iclose_256 + l_iclose_264 + l_iclose_272) / 5.0;
      ld_296 = 10000.0 * (125.75 * (MathAbs(ld_280 - ld_288) / l_iclose_240) + 0.54528) / 100.0;
      l_iclose_304 = iClose(NULL, PERIOD_M30, li_924);
      l_iclose_312 = iClose(NULL, PERIOD_M30, li_924 + 1);
      l_iclose_320 = iClose(NULL, PERIOD_M30, li_924 + 2);
      l_iclose_328 = iClose(NULL, PERIOD_M30, li_924 + 3);
      l_iclose_336 = iClose(NULL, PERIOD_M30, li_924 + 4);
      ld_344 = (l_iclose_304 + l_iclose_312) / 2.0;
      ld_352 = (l_iclose_304 + l_iclose_312 + l_iclose_320 + l_iclose_328 + l_iclose_336) / 5.0;
      ld_360 = 10000.0 * (125.75 * (MathAbs(ld_344 - ld_352) / l_iclose_304) + 0.54528) / 100.0;
      l_iclose_368 = iClose(NULL, PERIOD_H1, li_924);
      l_iclose_376 = iClose(NULL, PERIOD_H1, li_924 + 1);
      l_iclose_384 = iClose(NULL, PERIOD_H1, li_924 + 2);
      l_iclose_392 = iClose(NULL, PERIOD_H1, li_924 + 3);
      l_iclose_400 = iClose(NULL, PERIOD_H1, li_924 + 4);
      ld_408 = (l_iclose_368 + l_iclose_376) / 2.0;
      ld_416 = (l_iclose_368 + l_iclose_376 + l_iclose_384 + l_iclose_392 + l_iclose_400) / 5.0;
      ld_424 = 10000.0 * (125.75 * (MathAbs(ld_408 - ld_416) / l_iclose_368) + 0.54528) / 100.0;
      l_iclose_432 = iClose(NULL, PERIOD_H4, li_924);
      l_iclose_440 = iClose(NULL, PERIOD_H4, li_924 + 1);
      l_iclose_448 = iClose(NULL, PERIOD_H4, li_924 + 2);
      l_iclose_456 = iClose(NULL, PERIOD_H4, li_924 + 3);
      l_iclose_464 = iClose(NULL, PERIOD_H4, li_924 + 4);
      ld_472 = (l_iclose_432 + l_iclose_440) / 2.0;
      ld_480 = (l_iclose_432 + l_iclose_440 + l_iclose_448 + l_iclose_456 + l_iclose_464) / 5.0;
      ld_488 = 10000.0 * (125.75 * (MathAbs(ld_472 - ld_480) / l_iclose_432) + 0.54528) / 100.0;
      l_iclose_496 = iClose(NULL, PERIOD_D1, li_924);
      l_iclose_504 = iClose(NULL, PERIOD_D1, li_924 + 1);
      l_iclose_512 = iClose(NULL, PERIOD_D1, li_924 + 2);
      l_iclose_520 = iClose(NULL, PERIOD_D1, li_924 + 3);
      l_iclose_528 = iClose(NULL, PERIOD_D1, li_924 + 4);
      ld_536 = (l_iclose_496 + l_iclose_504) / 2.0;
      ld_544 = (l_iclose_496 + l_iclose_504 + l_iclose_512 + l_iclose_520 + l_iclose_528) / 5.0;
      ld_552 = 10000.0 * (125.75 * (MathAbs(ld_536 - ld_544) / l_iclose_496) + 0.54528) / 100.0;
      l_ord_total_560 = OrdersTotal();
      l_count_564 = 0;
      l_count_568 = 0;
      for (int l_pos_932 = l_ord_total_560 - 1; l_pos_932 >= 0; l_pos_932--) {
         if (OrderSelect(l_pos_932, SELECT_BY_POS)) {
            if (OrderSymbol() == Symbol()) {
               if (OrderType() == OP_BUY) l_count_564++;
               if (OrderType() == OP_SELL) l_count_568++;
            }
         }
      }
      ld_572 = 0;
      ld_580 = 0;
      for (int l_pos_936 = OrdersTotal() - 1; l_pos_936 >= 0; l_pos_936--) {
         if (OrderSelect(l_pos_936, SELECT_BY_POS, MODE_TRADES)) {
            if (OrderSymbol() == Symbol())
               if (OrderType() == OP_BUY) ld_572 += OrderProfit();
         }
      }
      for (l_pos_936 = OrdersTotal() - 1; l_pos_936 >= 0; l_pos_936--) {
         if (OrderSelect(l_pos_936, SELECT_BY_POS, MODE_TRADES)) {
            if (OrderSymbol() == Symbol())
               if (OrderType() == OP_SELL) ld_580 += OrderProfit();
         }
      }
      g_ibuf_124[li_924] = ld_56;
      g_ibuf_120[li_924] = ld_56;
      g_ibuf_116[li_924] = 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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 = l_count_564;
      ls_668 = l_count_568;
      ObjectCreate("1", OBJ_LABEL, WindowFind("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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 > TriggerLevel1 && ld_152 > ld_160) {
         l_text_676 = "Щ";
         ObjectDelete("ADWN1");
         ObjectDelete("Ahold1");
         ObjectCreate("AUP1", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
         ObjectSetText("AUP1", l_text_676, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP1", OBJPROP_CORNER, 0);
         ObjectSet("AUP1", OBJPROP_XDISTANCE, 160);
         ObjectSet("AUP1", OBJPROP_YDISTANCE, 10);
      } else {
         if (ld_168 > TriggerLevel1 && ld_152 < ld_160) {
            l_text_684 = "Ъ";
            ObjectDelete("AUP1");
            ObjectDelete("Ahold1");
            ObjectCreate("ADWN1", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("ADWN1", l_text_684, 8, "Wingdings", Red);
            ObjectSet("ADWN1", OBJPROP_CORNER, 0);
            ObjectSet("ADWN1", OBJPROP_XDISTANCE, 160);
            ObjectSet("ADWN1", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_692 = "Ш";
            ObjectDelete("AUP1");
            ObjectDelete("ADWN1");
            ObjectCreate("Ahold1", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("Ahold1", l_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) {
         l_text_700 = "Щ";
         ObjectDelete("ADWN2");
         ObjectDelete("Ahold2");
         ObjectCreate("AUP2", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
         ObjectSetText("AUP2", l_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) {
            l_text_708 = "Ъ";
            ObjectDelete("AUP2");
            ObjectDelete("Ahold2");
            ObjectCreate("ADWN2", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("ADWN2", l_text_708, 8, "Wingdings", Red);
            ObjectSet("ADWN2", OBJPROP_CORNER, 0);
            ObjectSet("ADWN2", OBJPROP_XDISTANCE, 185);
            ObjectSet("ADWN2", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_716 = "Ш";
            ObjectDelete("AUP2");
            ObjectDelete("ADWN2");
            ObjectCreate("Ahold2", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("Ahold2", l_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) {
         l_text_724 = "Щ";
         ObjectDelete("ADWN3");
         ObjectDelete("Ahold3");
         ObjectCreate("AUP3", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
         ObjectSetText("AUP3", l_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) {
            l_text_732 = "Ъ";
            ObjectDelete("AUP3");
            ObjectDelete("Ahold3");
            ObjectCreate("ADWN3", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("ADWN3", l_text_732, 8, "Wingdings", Red);
            ObjectSet("ADWN3", OBJPROP_CORNER, 0);
            ObjectSet("ADWN3", OBJPROP_XDISTANCE, 210);
            ObjectSet("ADWN3", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_740 = "Ш";
            ObjectDelete("AUP3");
            ObjectDelete("ADWN3");
            ObjectCreate("Ahold3", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("Ahold3", l_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) {
         l_text_748 = "Щ";
         ObjectDelete("ADWN4");
         ObjectDelete("Ahold4");
         ObjectCreate("AUP4", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
         ObjectSetText("AUP4", l_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) {
            l_text_756 = "Ъ";
            ObjectDelete("AUP4");
            ObjectDelete("Ahold4");
            ObjectCreate("ADWN4", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("ADWN4", l_text_756, 8, "Wingdings", Red);
            ObjectSet("ADWN4", OBJPROP_CORNER, 0);
            ObjectSet("ADWN4", OBJPROP_XDISTANCE, 240);
            ObjectSet("ADWN4", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_764 = "Ш";
            ObjectDelete("AUP4");
            ObjectDelete("ADWN4");
            ObjectCreate("Ahold4", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("Ahold4", l_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) {
         l_text_772 = "Щ";
         ObjectDelete("ADWN5");
         ObjectDelete("Ahold5");
         ObjectCreate("AUP5", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
         ObjectSetText("AUP5", l_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) {
            l_text_780 = "Ъ";
            ObjectDelete("AUP5");
            ObjectDelete("Ahold5");
            ObjectCreate("ADWN5", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("ADWN5", l_text_780, 8, "Wingdings", Red);
            ObjectSet("ADWN5", OBJPROP_CORNER, 0);
            ObjectSet("ADWN5", OBJPROP_XDISTANCE, 270);
            ObjectSet("ADWN5", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_788 = "Ш";
            ObjectDelete("AUP5");
            ObjectDelete("ADWN5");
            ObjectCreate("Ahold5", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("Ahold5", l_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) {
         l_text_796 = "Щ";
         ObjectDelete("ADWN6");
         ObjectDelete("Ahold6");
         ObjectCreate("AUP6", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
         ObjectSetText("AUP6", l_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) {
            l_text_804 = "Ъ";
            ObjectDelete("AUP6");
            ObjectDelete("Ahold6");
            ObjectCreate("ADWN6", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("ADWN6", l_text_804, 8, "Wingdings", Red);
            ObjectSet("ADWN6", OBJPROP_CORNER, 0);
            ObjectSet("ADWN6", OBJPROP_XDISTANCE, 295);
            ObjectSet("ADWN6", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_812 = "Ш";
            ObjectDelete("AUP6");
            ObjectDelete("ADWN6");
            ObjectCreate("Ahold6", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("Ahold6", l_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) {
         l_text_820 = "Щ";
         ObjectDelete("ADWN7");
         ObjectDelete("Ahold7");
         ObjectCreate("AUP7", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
         ObjectSetText("AUP7", l_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) {
            l_text_828 = "Ъ";
            ObjectDelete("AUP7");
            ObjectDelete("Ahold7");
            ObjectCreate("ADWN7", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("ADWN7", l_text_828, 8, "Wingdings", Red);
            ObjectSet("ADWN7", OBJPROP_CORNER, 0);
            ObjectSet("ADWN7", OBJPROP_XDISTANCE, 325);
            ObjectSet("ADWN7", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_836 = "Ш";
            ObjectDelete("AUP7");
            ObjectDelete("ADWN7");
            ObjectCreate("Ahold7", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("Ahold7", l_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_924));
      ld_852 = MathAbs(iBearsPower(Symbol(), 0, 12, PRICE_CLOSE, li_924));
      l_ivolume_860 = iVolume(Symbol(), 0, li_924);
      ld_868 = ld_844 * l_ivolume_860 / (ld_844 + ld_852);
      ld_876 = ld_852 * l_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("russian-trader v2"), 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("russian-trader v2"), 0, 0);
      ObjectSetText("LONG", "BUY", 7, "Arial Bold ", LimeGreen);
      ObjectSet("LONG", OBJPROP_CORNER, 0);
      ObjectSet("LONG", OBJPROP_XDISTANCE, 355);
      ObjectSet("LONG", OBJPROP_YDISTANCE, 0);
      ObjectCreate("LONGP", OBJ_LABEL, WindowFind("russian-trader v2"), 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("russian-trader v2"), 0, 0);
      ObjectSetText("SHORT", "SELL", 7, "Arial Bold ", Red);
      ObjectSet("SHORT", OBJPROP_CORNER, 0);
      ObjectSet("SHORT", OBJPROP_XDISTANCE, 545);
      ObjectSet("SHORT", OBJPROP_YDISTANCE, 0);
      ObjectCreate("SHORTP", OBJ_LABEL, WindowFind("russian-trader v2"), 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("russian-trader v2"), 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("russian-trader v2"), 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_924] = EMPTY_VALUE;
         ObjectDelete("SELLINFO");
         ObjectDelete("HOLDINFO");
         ObjectCreate("BUYINFO", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
         ObjectSetText("BUYINFO", DoubleToStr(ld_56, 2) + " %  *BUY*  оставшееся время до сл. свечи  " + li_920 + " min : " + li_928 + " secs", 10, "Arial ", LimeGreen);
         ObjectSet("BUYINFO", OBJPROP_CORNER, 0);
         ObjectSet("BUYINFO", OBJPROP_XDISTANCE, 2);
         ObjectSet("BUYINFO", OBJPROP_YDISTANCE, 50);
         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);
         } else ObjectMove("buy", 0, Time[0], Bid - 0.0005);
      } else {
         if (ld_56 > TriggerLevel && ld_40 < ld_48) {
            g_ibuf_116[li_924] = EMPTY_VALUE;
            ObjectDelete("BUYINFO");
            ObjectDelete("HOLDINFO");
            ObjectCreate("SELLINFO", OBJ_LABEL, WindowFind("russian-trader v2"), 0, 0);
            ObjectSetText("SELLINFO", DoubleToStr(ld_56, 2) + " %  *SELL*  оставшееся время до сл. свечи " + li_920 + " min : " + li_928 + " secs", 10, "Arial ", Red);
            ObjectSet("SELLINFO", OBJPROP_CORNER, 0);
            ObjectSet("SELLINFO", OBJPROP_XDISTANCE, 2);
            ObjectSet("SELLINFO", OBJPROP_YDISTANCE, 50);
            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);
            } else 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("russian-trader v2"), 0, 0);
            ObjectSetText("HOLDINFO", " ***STOP***  не открывайте позиций ждите! ", 10, "Arial ", Yellow);
            ObjectSet("HOLDINFO", OBJPROP_CORNER, 0);
            ObjectSet("HOLDINFO", OBJPROP_XDISTANCE, 0);
            ObjectSet("HOLDINFO", OBJPROP_YDISTANCE, 50);
            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_924] = EMPTY_VALUE;
               g_ibuf_120[li_924] = EMPTY_VALUE;
            } else ObjectMove("hold", 0, Time[0], Ask + 0.0005);
         }
      }
   }
   return (0);
}