#property copyright "Copyright © 2008, PipZu"
#property link      "http://www.Pipzu.com"

extern double TakeProfit = 19.0;
extern double StopLoss = 60.0;
extern double Lots = 1.0;
extern double Pullback = 30.0;
extern double MaxTiming = 50.0;
extern double Timing = 6.0;

int start() {
   int li_4;
   Comment("Copyright Pipzu.com support@pipzu.com");
   double ld_12 = 0;
   double ld_20 = 0;
   double ld_28 = 0;
   double ld_36 = 0;
   double ld_44 = 0;
   if (Bars < 100) {
      Print("bars less than 100");
      return (0);
   }
   if (TakeProfit < 8.0) {
      Print("TakeProfit less than 8");
      return (0);
   }
   int li_8 = OrdersTotal();
   for (int li_0 = 0; li_0 < li_8; li_0++) {
      OrderSelect(li_0, SELECT_BY_POS, MODE_TRADES);
      if (OrderType() <= OP_SELL && OrderSymbol() == Symbol()) {
         if (OrderType() == OP_BUY) {
            if (!(li_8 > 0 && Hour() == 22 && Minute() > 45)) continue;
            OrderClose(OrderTicket(), OrderLots(), Bid, 3, Violet);
            return (0);
         }
         if (li_8 > 0 && Hour() == 22 && Minute() > 45) {
            OrderClose(OrderTicket(), OrderLots(), Ask, 3, Violet);
            return (0);
         }
      }
   }
   if (li_8 < 1) {
      ld_12 = Open[24] - Close[1];
      ld_20 = Close[1] - Open[24];
      ld_28 = Close[1] - Low[iLowest(NULL, PERIOD_H1, MODE_LOW, 24, 0)];
      ld_36 = High[iHighest(NULL, PERIOD_H1, MODE_HIGH, 24, 0)] - Close[1];
      ld_44 = Open[0];
      if (AccountFreeMargin() < 1000.0 * Ask * Lots) {
         Print("We have no money. Free Margin = ", AccountFreeMargin());
         return (0);
      }
      if (Hour() == 0 && Minute() <= 3 && DayOfWeek() != 1 && DayOfWeek() != 5 && ld_12 > MaxTiming * Point && ld_28 < (Pullback - Timing) * Point) {
         li_4 = OrderSend(Symbol(), OP_BUY, Lots, ld_44, 10, ld_44 - StopLoss * Point, ld_44 + (TakeProfit + 3.0) * Point, "73_Sys", 16384, 0, LawnGreen);
         if (li_4 > 0) {
            if (OrderSelect(li_4, SELECT_BY_TICKET, MODE_TRADES)) Print("BUY order opened : ", OrderOpenPrice());
         } else Print("Error opening BUY order : ", GetLastError());
         return (0);
      }
      if (Hour() == 0 && Minute() <= 3 && DayOfWeek() != 1 && DayOfWeek() != 5 && ld_20 > MaxTiming * Point && ld_36 > (Pullback + Timing) * Point) {
         li_4 = OrderSend(Symbol(), OP_BUY, Lots, ld_44, 10, ld_44 - StopLoss * Point, ld_44 + (TakeProfit + 3.0) * Point, "73_Sys", 16384, 0, LawnGreen);
         if (li_4 > 0) {
            if (OrderSelect(li_4, SELECT_BY_TICKET, MODE_TRADES)) Print("BUY order opened : ", OrderOpenPrice());
         } else Print("Error opening BUY order : ", GetLastError());
         return (0);
      }
      if (Hour() == 0 && Minute() <= 3 && DayOfWeek() != 1 && DayOfWeek() != 5 && ld_20 > MaxTiming * Point && ld_36 < (Pullback - Timing) * Point) {
         li_4 = OrderSend(Symbol(), OP_SELL, Lots, ld_44, 10, ld_44 + StopLoss * Point, ld_44 - TakeProfit * Point, "73_Sys", 16384, 0, Red);
         if (li_4 > 0) {
            if (OrderSelect(li_4, SELECT_BY_TICKET, MODE_TRADES)) Print("SELL order opened : ", OrderOpenPrice());
         } else Print("Error opening SELL order : ", GetLastError());
         return (0);
      }
      if (Hour() == 0 && Minute() <= 3 && DayOfWeek() != 1 && DayOfWeek() != 5 && ld_12 > MaxTiming * Point && ld_28 > (Pullback + Timing) * Point) {
         li_4 = OrderSend(Symbol(), OP_SELL, Lots, ld_44, 10, ld_44 + StopLoss * Point, ld_44 - TakeProfit * Point, "73_Sys", 16384, 0, Red);
         if (li_4 > 0) {
            if (OrderSelect(li_4, SELECT_BY_TICKET, MODE_TRADES)) Print("SELL order opened : ", OrderOpenPrice());
         } else Print("Error opening SELL order : ", GetLastError());
         return (0);
      }
      return (0);
   }
   return (0);
}