//+------------------------------------------------------------------+
//|                                                   TrpRptLong.mq4 |
//|                      Copyright ｩ 2011, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright ｩ 2011, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

//////////
// USDHKD
//////////


// 修正履歴
// 2011.10.06 トラリピショートと同期を併せる
// 2011.10.11 エラー処理をメソッド化(err=134対応)
// 　　　　　 ポジションコメントのレート桁数を４に
// 2011.10.17 新規時のメール2件を1件に変更
// 2011.11.11 エラー時のメールは、同じエラーコードの場合、1件のみ送信する メッセージも付加

#include <stdlib.mqh>


// パラメータ入力
   extern string PosiMaxL= "↓再起動時、必須入力　現ポジ内の最高値の建値";
   extern double PosiMax=7.775;
   extern string PosiMimL= "↓再起動時、必須入力　現ポジ内の最安値の建値";
   extern double PosiMim=7.770;

   extern string SouteiMaxL= "↓想定する最高値を指定";
   extern double SouteiMax =7.799;
   extern string SouteiMimL= "↓想定する最安値を指定";
   extern double SouteiMim =7.750;

   extern string TrapHabaL= "↓トラップ幅";
   extern double TrapHaba =0.001;
   extern string RikakuHabaL= "↓利確幅";
   extern double RikakuHaba =0.006;
   extern string LotsL= "↓ロット数(1=10万通貨）";
   extern double Lots =0.1;

   extern string SlippageL= "↓スリッページ";
   extern double Slippage =10;
   extern string TousiGakuL= "↓投資額（開始時の金額）";
   extern int TousiGaku =500000; // 
   
   //↓マジックナンバーには、建値を設定する（スリップを含まない値）
   int MAGICNO;

   //↓Alarm用のフラグ
   int MaxMsgFlg = 0;
   int MimMsgFlg = 0;
   int PosMsgFlg = 0;

   int err;

   //　ポジションのコメント
   string PosCom;
   // 成り行き新規リミット指定不可対応
   int  MdfyTcktNo = 0;
   double  RmtRate = 0;

   string MailMsg=""; //メール用メッセージ
   int LastErr=0;  // 直前のエラーを退避

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
//↓初期処理開始
int init()
  {
//----開始メッセージ出力
//   Alert("");
//   Alert("*** start ***");
//   Alert("PosiMax:",PosiMax);
//   Alert("PosiMim:",PosiMim);
//   Alert("SouteiMax:",SouteiMax);
//   Alert("SouteiMim:",SouteiMim);

// メッセージを複数回ださないためのフラグ
   MaxMsgFlg = 0;
   MimMsgFlg = 0;
   PosMsgFlg = 0;
   
   Comment("                         PosiMax:",PosiMax," PosiMim:",PosiMim);

   //　グローバル変数　EndFlg　==　9だったら０に再設定
   int EndFlg = GlobalVariableGet("EndFlg");
   if ( EndFlg == 9 )
   {
      int SetOK = 0;
      while ( SetOK  == 0 )
      {
            if (GlobalVariableSet("EndFlg",0) > 0)
            {
               SetOK = 1;
            }
            else
            {
               Alert("glbPosiMax NG err:" + GetLastError());
            }
      }
   }
//----
   return(0);
  }

//↑初期処理終了

//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
//↓通常処理開始
int start()
{

//　グローバル変数　EndFlg　==　9だったら抜ける
      int EndFlg = GlobalVariableGet("EndFlg");
      if ( EndFlg == 9 )
      {
         return(0);
      }

// 　更新のタイミング
//    PosiMax　：　１．1本目のポジ建て　２．決済時に更新なし　３．上昇注文時にup　　　４．下降注文時更新なし
//    PosiMim　：　１．1本目のポジ建て　２．決済時にup　　　　３．上昇注文時更新なし　４．下降注文時down

   //　１本目のポジ建て処理
   if(PosiMax == 0)
   {
      // Ask が　SouteiMim　に達したら新規
      if ( Ask >= SouteiMim )
      { 
         // 新規注文
         double FirstRate = Ask;
         MAGICNO = FirstRate * 100;
         PosCom = "Rate = " + DoubleToStr(FirstRate,4);
         //if(OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,0,FirstRate + RikakuHaba,PosCom,MAGICNO,0,CLR_NONE) > 0)
         MdfyTcktNo = OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,0,0,PosCom,MAGICNO,0,CLR_NONE);
         RmtRate = FirstRate + RikakuHaba;

         if(MdfyTcktNo > 0)
         {
            // 1本目成行注文OKのとき、PosiMaxとPosiMinを設定
            PosiMax = FirstRate;
            PosiMim = FirstRate;
            mail("long first ok");
            Comment("                         PosiMax:",PosiMax," PosiMim:",PosiMim);
//            Alert("-----first nariyuki OK FirstRate:",FirstRate);
//            Alert("PosiMax:",PosiMax);
//            Alert("PosiMim:",PosiMim);
         }
         else
         {
            // 1本目成行注文NGのとき、メッセージのみ出力。（再度、1本目のポジ建て処理を行う）
            err = GetLastError();
            Alert("");
            Alert("TrpReptLong NG first sinki FirstRate:",FirstRate," err:" ,err);
            mail("long first ng err" + err);
         }
      }
   }
   
   ///////////////////////////////////////////
   //  １本目のポジ建て完了後、2本目以降の処理
   ///////////////////////////////////////////
   else
   {
      //////////////////////////////////////////////////
      //１．最安値ポジが、決済されたら、PosiMimを上げる
      /////////////////////////////////////////////////
      if(Bid >= PosiMim + RikakuHaba)
      {
         if(PosiMax >= PosiMim)
         {
            //Alert("-----kessai Bid: ",Bid);
            //Alert("PosiMax: ",PosiMax);
            //Alert("PosiMim: ",PosiMim," --> ",PosiMim + TrapHaba);
            mail("kessai ok");
            PosiMim = PosiMim + TrapHaba;
            PosMsgFlg = 0;
            Comment("                         PosiMax:",PosiMax," PosiMim:",PosiMim);
         }
         // 全決済された場合、PosiMax < PosiMim　となる。
         else
         {
            if (PosMsgFlg == 0)
            {
               Alert("-----posi zero");
               Alert("PosiMax: ",PosiMax);
               Alert("PosiMim: ",PosiMim);
               PosMsgFlg = 1;
            }
         }
      }

      ///////////////////////////////////////////////
      //　２．Askが保有ポジ最高値を更新したら注文する
      ///////////////////////////////////////////////
      if(Ask >= PosiMax + TrapHaba)
      {
         
         //想定最高値以下なら注文する
         if(Ask <= SouteiMax)
         {
            //　窓明けで上に開いていた場合、PosiMaxを上方修正
            //double RateSa = Ask - PosiMax;
            //double RateSaInt = RateSa * 100;
            //double TrapHabaInt = TrapHaba * 100;
            //while(RateSaInt > TrapHabaInt  + Slippage)
            //{
              // PosiMax = PosiMax + TrapHaba;
               //RateSa = Ask - PosiMax;
               //RateSaInt = RateSa * 100;
            //}
            
            //成行注文の実行　OKのとき、PosiMaxを上げる
            MAGICNO = (PosiMax + TrapHaba) * 100;
            PosCom = "Rate = " + DoubleToStr(PosiMax + TrapHaba,4);
//            if(OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,0,PosiMax + TrapHaba + RikakuHaba,PosCom,MAGICNO,0,CLR_NONE) > 0)
            MdfyTcktNo = OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,0,0,PosCom,MAGICNO,0,CLR_NONE);
            RmtRate = PosiMax + TrapHaba + RikakuHaba;

            if(MdfyTcktNo > 0)
            {
               //Alert("-----up sinki OK Ask: ",Ask);
               //Alert("PosiMax:",PosiMax," -->> ",PosiMax + TrapHaba);
               //Alert("PosiMim:",PosiMim);
               PosiMax = PosiMax + TrapHaba;
               MaxMsgFlg = 0;
               Comment("                         PosiMax:",PosiMax," PosiMim:",PosiMim);
               //mail("up sinki ok");
               MailMsg = "up sinki";

            }
            //成行注文の実行　NGのとき
            else
            {
               err("Up Sinki NG");
            }
         }
         //想定最高値を超えていたら、注文しない
         else
         {
            if ( MaxMsgFlg == 0 )
            {
               Alert("-----SouteiMax Ask: ",Ask);
               Alert("SouteiMax:",SouteiMax);
               MaxMsgFlg = 1;
            }
         }
      }

      ///////////////////////////////////////////////
      //　３．Askが保有ポジ最安値を更新したら注文する
      ///////////////////////////////////////////////
      if(Ask <= PosiMim - TrapHaba)
      {
         //想定最安値以上なら注文する
         if(Ask >= SouteiMim)
         {
            //成行注文の実行　OKのとき、PosiMimを下げる
            MAGICNO = (PosiMim - TrapHaba) * 100;
            PosCom = "Rate = " + DoubleToStr(PosiMim - TrapHaba,4);
//            if(OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,0,PosiMim - TrapHaba + RikakuHaba,PosCom,MAGICNO,0,CLR_NONE) > 0)
            MdfyTcktNo = OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,0,0,PosCom,MAGICNO,0,CLR_NONE);
            RmtRate = PosiMim - TrapHaba + RikakuHaba;

            if(MdfyTcktNo > 0)
            {
               //Alert("-----down sinki OK Ask: ",Ask);
               //Alert("PosiMax: ",PosiMax);
               //Alert("PosiMim: ",PosiMim," -->> ",PosiMim - TrapHaba);
               PosiMim = PosiMim - TrapHaba;
               MimMsgFlg = 0;
               Comment("                         PosiMax:",PosiMax," PosiMim:",PosiMim);
               //mail("down sinki ok");
               MailMsg = "down sinki";
            }
            //成行注文の実行　NGのとき
            else
            {
               err("Down Sinki NG");
            }
         }
         //想定最安値を下回っていたら、注文しない
         else
         {
            if ( MimMsgFlg == 0 )
            {
               Alert("-----SouteiMim Ask: ",Ask);
               Alert("SouteiMim:",SouteiMim);
               MimMsgFlg = 1;
            }
         }//if(Ask >= SouteiMim)
      } //  if(Ask <= PosiMim - TrapHaba)
      
      /////////////////////
      //　リミット値指定処理
      /////////////////////
      // 成り行き新規がなされた場合、リミット値を指定する。

      if ( MdfyTcktNo > 0)
      {
         if (OrderSelect(MdfyTcktNo,SELECT_BY_TICKET) == true)
         {
            // リミット値変更
            if (OrderModify(OrderTicket(),OrderOpenPrice(),0,RmtRate,0,CLR_NONE) > 0 )
            {
                  //mail("OrderModify OK");
                  MailMsg = MailMsg + " Modify OK";
                  mail(MailMsg);
                  MdfyTcktNo = 0;
            }
            else
            {
               err("OrderModify NG");
            }
         }
         else
         {
               err("OrderSelect NG");
         }      
      }  // if ( MdfyTcktNo > 0)

   }
   return(0);
}
//↑通常処理終了
  
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
//
// 再始動に備えて、終了時にアラーム出力を行う。

int deinit()
  {
//----
   Alert("");
   Alert("*** stop ***");
   Alert("PosiMax:",PosiMax);
   Alert("PosiMim:",PosiMim);
//----
   return(0);
  }


//+------------------------------------------------------------------+
// メール内容を別メソッド化
//+------------------------------------------------------------------+
//
int mail(string word)
   {
   
         int KakuteiSoneki = AccountBalance() - TousiGaku;
         SendMail(WindowExpertName(),  AccountServer()                      + "\r\n" +
                                       Symbol()                             + "\r\n" + 
                                       " Bid: "          + Bid              + "\r\n" + 
                                       " Ask: "          + Ask              + "\r\n" +
                                       " PosiMax:"       + PosiMax          + "\r\n" +
                                       " PosiMim:"       + PosiMim          + "\r\n" +
                                       " kouzazan:"      + AccountBalance() + "\r\n" +
                                       " KakuteiSoneki:" + KakuteiSoneki    + "\r\n" +
                                       " hukumisoneki:"  + AccountProfit()  + "\r\n" +
                                       " word:"          + word                           );
   return(0);
   }
//+------------------------------------------------------------------+
//| エラー処理
//+------------------------------------------------------------------+
//
// 

int err(string msg)
  {
//----

         int ErrCode = GetLastError();
         
         // 134 資金不足。 のときは、グローバル変数を9（終了）に。
         if (ErrCode == 134 )
         {
            int SetOK = 0;
            while ( SetOK  == 0 )
            {
                  if (GlobalVariableSet("EndFlg",9) > 0)
                  {
                     SetOK = 1;
                  }
                  else
                  {
                     Alert("GlobalVariableSet NG err:" + GetLastError());
                  }
            }
         }

         if ( LastErr != ErrCode )
         {
            mail(msg + " err=" + ErrCode + "\r\n" + "  " + ErrorDescription(ErrCode));
            Alert(msg + " err=" + ErrCode);
            LastErr = ErrCode;
         }
//----
   return(0);
  }