#property copyright "‚³‚Æ‚µ‚¡"
#property link      "http://fxdreamer.blog.shinobi.jp/"

#include <FXRfunction.mqh>

int gi_76 = 0;
int gi_80;
string gs_satoc_84 = "satoc";
int g_count_92;
int g_count_96;
int gi_100;

int init() {
   CheckInit(1020, 0, 0, 0);
   gi_80 = GetMagicNumber(1020, 0, 0, 0);
   Print("Magic Number:", gi_80);
   return (0);
}

int deinit() {
   return (0);
}

int start() {
   string ls_28;
   string ls_44;
   gi_76 = CheckStart(1020, gi_76, 0, 0, 0);
   int li_0 = IndHandShack(gs_satoc_84);
   HideTestIndicators(TRUE);
   if (Volume[0] > 1.0 || IsTradeAllowed() == FALSE) return (0);
   string l_dbl2str_12 = DoubleToStr(AccountBalance(), 0);
   string l_dbl2str_20 = DoubleToStr(AccountEquity(), 0);
   double ld_unused_52 = 0;
   double ld_unused_60 = 0;
   g_count_92 = 0;
   g_count_96 = 0;
   double ld_68 = 0;
   double ld_unused_76 = 0;
   int l_datetime_84 = 0;
   string ls_88 = "\\";
   int li_96 = 0;
   for (int l_pos_100 = 0; l_pos_100 < OrdersTotal(); l_pos_100++) {
      if (OrderSelect(l_pos_100, SELECT_BY_POS, MODE_TRADES) == FALSE) break;
      l_datetime_84 = OrderOpenTime();
      ls_44 = DoubleToStr(TimeYear(l_datetime_84), 0) + "/" + DoubleToStr(TimeMonth(l_datetime_84), 0) + "/" + DoubleToStr(TimeDay(l_datetime_84), 0) + "/" + DoubleToStr(TimeHour(l_datetime_84), 0) + ":" + DoubleToStr(TimeMinute(l_datetime_84), 0);
      if (OrderType() == OP_BUY) {
         switch (MarketInfo(OrderSymbol(), MODE_POINT)) {
         case 0.00001:
            li_96 = 5;
            break;
         case 0.0001:
            li_96 = 4;
            break;
         case 0.001:
            li_96 = 3;
            break;
         case 0.01:
            li_96 = 2;
            break;
         default:
            li_96 = 5;
         }
         ls_28 = ls_28 + "MagicNumber = " + OrderMagicNumber() + "\r\n";
         ls_28 = ls_28 + "Symbol = " + OrderSymbol() + "\r\n";
         ls_28 = ls_28 + "Position = BUY" + "\r\n";
         ls_28 = ls_28 + "Lots = " + DoubleToStr(OrderLots(), 2) + "\r\n";
         ld_68 = MarketInfo(OrderSymbol(), MODE_ASK) - OrderOpenPrice();
         ld_68 /= MarketInfo(OrderSymbol(), MODE_POINT);
         if (AccountCurrency() == "JPY") {
            ld_68 = 100.0 * ld_68;
            ls_88 = "\\";
         }
         if (AccountCurrency() == "USD") ls_88 = "$";
         ls_28 = ls_28 + "NowProfit or Loss = " + ls_88 + DoubleToStr(ld_68, 0) + "\r\n";
         ls_28 = ls_28 + "OrderOpenTime = " + ls_44 + "\r\n";
         ls_28 = ls_28 + "OrderOpenPrice = " + DoubleToStr(OrderOpenPrice(), li_96) + "\r\n";
         ls_28 = ls_28 + "OrderStopLoss = " + DoubleToStr(OrderStopLoss(), li_96) + "\r\n";
         ls_28 = ls_28 + "OrderProfitTarget = " + DoubleToStr(OrderTakeProfit(), li_96) + "\r\n";
         g_count_92++;
      } else {
         if (OrderType() == OP_SELL) {
            switch (MarketInfo(OrderSymbol(), MODE_POINT)) {
            case 0.00001:
               li_96 = 5;
               break;
            case 0.0001:
               li_96 = 4;
               break;
            case 0.001:
               li_96 = 3;
               break;
            case 0.01:
               li_96 = 2;
               break;
            default:
               li_96 = 5;
            }
            ls_28 = ls_28 + "MagicNumber = " + OrderMagicNumber() + "\r\n";
            ls_28 = ls_28 + "Symbol = " + OrderSymbol() + "\r\n";
            ls_28 = ls_28 + "Position = SELL" + "\r\n";
            ls_28 = ls_28 + "Lots = " + DoubleToStr(OrderLots(), 2) + "\r\n";
            ld_68 = OrderOpenPrice() - MarketInfo(OrderSymbol(), MODE_BID);
            ld_68 /= MarketInfo(OrderSymbol(), MODE_POINT);
            if (AccountCurrency() == "JPY") {
               ld_68 = 100.0 * ld_68;
               ls_88 = "\\";
            }
            if (AccountCurrency() == "USD") ls_88 = "$";
            ls_28 = ls_28 + "NowProfit or Loss = " + ls_88 + DoubleToStr(ld_68, 0) + "\r\n";
            ls_28 = ls_28 + "OrderOpenTime = " + ls_44 + "\r\n";
            ls_28 = ls_28 + "OrderOpenPrice = " + DoubleToStr(OrderOpenPrice(), li_96) + "\r\n";
            ls_28 = ls_28 + "OrderStopLoss = " + DoubleToStr(OrderStopLoss(), li_96) + "\r\n";
            ls_28 = ls_28 + "OrderProfitTarget = " + DoubleToStr(OrderTakeProfit(), li_96) + "\r\n";
            g_count_96++;
         }
      }
      if (g_count_96 > 0 || g_count_92 > 0) ls_28 = ls_28 + "\r\n";
   }
   gi_100 = g_count_92 + g_count_96;
   string l_dbl2str_36 = DoubleToStr(gi_100, 0);
   string ls_4 = "Account Balance = " + ls_88;
   ls_4 = ls_4 + l_dbl2str_12 + "\r\n";
   ls_4 = ls_4 + "Account Equity = " + ls_88;
   ls_4 = ls_4 + l_dbl2str_20 + "\r\n";
   if (AccountCurrency() == "JPY") ls_4 = ls_4 + "OrderTotalPL = " + ls_88 + DoubleToStr(AccountProfit(), 0) + "\r\n";
   if (AccountCurrency() == "USD") ls_4 = ls_4 + "OrderTotalPL = " + ls_88 + DoubleToStr(AccountProfit(), 0) + "\r\n";
   ls_4 = ls_4 + "PositionList = ";
   ls_4 = ls_4 + l_dbl2str_36 + "\r\n" + "\r\n";
   ls_4 = ls_4 + "[PositionInfo]" + "\r\n";
   ls_4 = ls_4 + ls_28 + "\r\n";
   SendMail("Account Information " + TimeHour(Time[0]) + ":00", ls_4);
   return (0);
}