#property copyright "Copyright © 2008, Leurn"
#property link      "leurnforex@mail.ru"

extern string FridayTimeToSet = "22:50";
extern bool WaitNewBarAtStart = TRUE;
extern double Lots = 1.0;
extern int TakeProfit = 150;
extern int StopLoss = 5;
extern int TrailStop = 20;
extern int TrailStep = 5;
extern string OrdersComment = "Cerpiy";
int G_pos_120;
int G_magic_124;
int G_stoplevel_128;
int G_spread_132;
double G_lots_136;
double G_price_144;
double G_price_152;
double Gd_160;
double Gd_168;
double G_lotstep_176;
double G_price_184;
double G_price_192;
string G_comment_200;
bool Gi_208;
bool Gi_212;
bool Gi_216;
bool Gi_220;
bool Gi_224;
bool Gi_228;
int G_datetime_232;
int G_str2time_236;

int init() {
   G_magic_124 = StringGetChar(Symbol(), 0) + 61008 + StringGetChar(Symbol(), 1) * 2 + 3 * StringGetChar(Symbol(), 3) + StringGetChar(Symbol(), 4) * 4;
   Gd_160 = MarketInfo(Symbol(), MODE_MAXLOT);
   Gd_168 = MarketInfo(Symbol(), MODE_MINLOT);
   G_lotstep_176 = MarketInfo(Symbol(), MODE_LOTSTEP);
   G_lots_136 = GlobalVariableGet("SHI_Lots");
   if (G_lots_136 <= 0.0) G_lots_136 = Lots;
   if (G_lots_136 < Gd_168) G_lots_136 = Gd_168;
   else {
      if (G_lots_136 > Gd_160) G_lots_136 = Gd_160;
      else G_lots_136 = NormalizeDouble(G_lots_136 / G_lotstep_176, 0) * G_lotstep_176;
   }
   Gi_212 = FALSE;
   G_datetime_232 = 0;
   G_price_184 = 0;
   G_price_192 = 0;
   G_comment_200 = OrdersComment + " Magic#=" + G_magic_124;
   return (0);
}

int start() {
   if (!IsTesting()) {
      if (!IsExpertEnabled()) {
         Comment("В торговом терминале запрещён запуск экспертов.");
         return (0);
      }
      if (!IsTradeAllowed()) {
         Comment("Торговля запрещена или торговый поток занят.");
         return (0);
      }
      Comment("");
   }
   G_stoplevel_128 = MarketInfo(Symbol(), MODE_STOPLEVEL);
   G_spread_132 = MarketInfo(Symbol(), MODE_SPREAD);
   G_str2time_236 = StrToTime(FridayTimeToSet);
   if (!WaitNewBarAtStart) Gi_208 = TRUE;
   else {
      if (DayOfWeek() == 5) {
         if (G_datetime_232 == 0) G_datetime_232 = iTime(NULL, PERIOD_D1, 0);
         if (G_datetime_232 < iTime(NULL, PERIOD_D1, 0)) Gi_208 = TRUE;
         else {
            if (G_datetime_232 == iTime(NULL, PERIOD_D1, 0) && TimeCurrent() >= G_str2time_236) Gi_208 = TRUE;
            else Gi_208 = FALSE;
         }
      } else {
         if (G_datetime_232 == 0) G_datetime_232 = iTime(NULL, PERIOD_D1, 0);
         if (G_datetime_232 < iTime(NULL, PERIOD_D1, 0)) Gi_208 = TRUE;
         else Gi_208 = FALSE;
      }
   }
   if (Gi_208 && (!Gi_212) && G_price_184 == 0.0 && G_price_192 == 0.0) {
      if (DayOfWeek() == 5 && TimeCurrent() >= G_str2time_236) {
         G_price_184 = NormalizeDouble(iHigh(NULL, PERIOD_D1, 0) + G_spread_132 * Point, Digits);
         G_price_192 = NormalizeDouble(iLow(NULL, PERIOD_D1, 0), Digits);
      } else {
         G_price_184 = NormalizeDouble(iHigh(NULL, PERIOD_D1, 1) + G_spread_132 * Point, Digits);
         G_price_192 = NormalizeDouble(iLow(NULL, PERIOD_D1, 1), Digits);
      }
   }
   if (!Gi_212 && Ask + G_stoplevel_128 * Point > G_price_184 && G_price_184 > 0.0) {
      Comment("УРОВЕНЬ ОРДЕРА BUYSTOP - ", DoubleToStr(G_price_184, Digits), " СЛИШКОМ БЛИЗОК К ТЕКУЩЕЙ ЦЕНЕ!!!");
      return (0);
   }
   if (!Gi_212 && Bid - G_stoplevel_128 * Point < G_price_192 && G_price_192 > 0.0) {
      Comment("УРОВЕНЬ ОРДЕРА SELLSTOP - ", DoubleToStr(G_price_192, Digits), " СЛИШКОМ БЛИЗОК К ТЕКУЩЕЙ ЦЕНЕ!!!");
      return (0);
   }
   Comment("");
   Gi_216 = FALSE;
   Gi_220 = FALSE;
   for (G_pos_120 = OrdersTotal() - 1; G_pos_120 >= 0; G_pos_120--) {
      OrderSelect(G_pos_120, SELECT_BY_POS);
      if (OrderSymbol() != Symbol() || OrderMagicNumber() != G_magic_124 || OrderType() > OP_SELL) continue;
      if (OrderType() == OP_SELL) {
         Gi_220 = TRUE;
         if (TrailStop >= G_stoplevel_128) {
            if (OrderOpenPrice() - Ask > TrailStop * Point && OrderStopLoss() > OrderOpenPrice() || OrderStopLoss() == 0.0) {
               OrderModify(OrderTicket(), OrderOpenPrice(), OrderOpenPrice(), OrderTakeProfit(), 0, CLR_NONE);
               continue;
            }
            if (OrderOpenPrice() - Ask > TrailStop * Point && OrderStopLoss() > Ask + (TrailStop + TrailStep) * Point && OrderStopLoss() <= OrderOpenPrice()) OrderModify(OrderTicket(), OrderOpenPrice(), NormalizeDouble(Ask + TrailStop * Point, Digits), OrderTakeProfit(), 0, CLR_NONE);
         }
      } else {
         if (OrderType() == OP_BUY) {
            Gi_216 = TRUE;
            if (TrailStop >= G_stoplevel_128) {
               if (Bid - OrderOpenPrice() > TrailStop * Point && OrderStopLoss() < OrderOpenPrice()) {
                  OrderModify(OrderTicket(), OrderOpenPrice(), OrderOpenPrice(), OrderTakeProfit(), 0, CLR_NONE);
                  continue;
               }
               if (Bid - OrderOpenPrice() > TrailStop * Point && OrderStopLoss() < Bid - (TrailStop + TrailStep) * Point && OrderStopLoss() >= OrderOpenPrice()) OrderModify(OrderTicket(), OrderOpenPrice(), NormalizeDouble(Bid - TrailStop * Point, Digits), OrderTakeProfit(), 0, CLR_NONE);
            }
         }
      }
   }
   Gi_224 = FALSE;
   Gi_228 = FALSE;
   for (G_pos_120 = OrdersTotal() - 1; G_pos_120 >= 0; G_pos_120--) {
      OrderSelect(G_pos_120, SELECT_BY_POS);
      if (OrderSymbol() != Symbol() || OrderMagicNumber() != G_magic_124 || OrderType() <= OP_SELL) continue;
      if (OrderType() == OP_SELLSTOP) {
         if (Gi_216) {
            OrderDelete(OrderTicket());
            continue;
         }
         Gi_228 = TRUE;
      } else {
         if (OrderType() == OP_BUYSTOP) {
            if (Gi_220) {
               OrderDelete(OrderTicket());
               continue;
            }
            Gi_224 = TRUE;
         }
      }
   }
   if (Gi_228 && Gi_224) {
      Gi_212 = TRUE;
      G_datetime_232 = iTime(NULL, PERIOD_D1, 0);
   }
   if (Gi_212 && (!Gi_220) && (!Gi_228) && (!Gi_216) && (!Gi_224)) {
      Gi_212 = FALSE;
      G_price_184 = 0;
      G_price_192 = 0;
      return (0);
   }
   RefreshRates();
   if ((!Gi_216) && !Gi_224 && Gi_208 && (!Gi_212)) {
      if (StopLoss < G_stoplevel_128 + G_spread_132) G_price_144 = G_price_192;
      else G_price_144 = NormalizeDouble(G_price_184 - StopLoss * Point, Digits);
      if (TakeProfit < G_stoplevel_128 - G_spread_132 || TakeProfit == 0) G_price_152 = 0;
      else G_price_152 = NormalizeDouble(G_price_184 + TakeProfit * Point, Digits);
      OrderSend(Symbol(), OP_BUYSTOP, G_lots_136, G_price_184, 0, G_price_144, G_price_152, G_comment_200, G_magic_124, 0, Red);
   }
   if ((!Gi_220) && !Gi_228 && Gi_208 && (!Gi_212)) {
      if (StopLoss < G_stoplevel_128 + G_spread_132) G_price_144 = G_price_184;
      else G_price_144 = NormalizeDouble(G_price_192 + StopLoss * Point, Digits);
      if (TakeProfit < G_stoplevel_128 - G_spread_132 || TakeProfit == 0) G_price_152 = 0;
      else G_price_152 = NormalizeDouble(G_price_192 - TakeProfit * Point, Digits);
      OrderSend(Symbol(), OP_SELLSTOP, G_lots_136, G_price_192, 0, G_price_144, G_price_152, G_comment_200, G_magic_124, 0, Blue);
   }
   return (0);
}