#property copyright "Copyright ｩ 2009, Kikousi."
#property link      "http://kikousiroom.web.fc2.com/KikousiRoom.html"

#property indicator_chart_window

#include <WinUser32.mqh>
#include <MC1_syslib.mqh>

extern int STOP_PIPS = 100;
extern int LIMIT_PIPS = 100;
extern string Text0 = "***** 最初のエントリー *****";
extern double LOTS0 = 0.1;
extern string Text0_1 = "---- 0.リミット設定 ----";
extern int KyouseiLIMIT_PIPS0 = 20;
extern bool K_LIMIT_TRAIL_ON0 = FALSE;
extern int K_LIMIT_STEP_PIPS0 = 0;
extern int K_LIMIT_POSITION0 = 0;
extern bool K_LIMIT_BACK0 = FALSE;
extern string Text0_2 = "---- 0.ストップ設定 ----";
extern int KyouseiSTOP_PIPS0 = 15;
extern bool TRAIL_ON0 = FALSE;
extern int STEP_PIPS0 = 0;
extern string Text1 = "***** １回目のナンピン *****";
extern int Nanpin1_pips = 8;
extern double LOTS1 = 0.2;
extern string Text1_1 = "---- 1.リミット設定 ----";
extern int KyouseiLIMIT_PIPS1 = 20;
extern bool K_LIMIT_TRAIL_ON1 = FALSE;
extern int K_LIMIT_STEP_PIPS1 = 0;
extern int K_LIMIT_POSITION1 = 0;
extern bool K_LIMIT_BACK1 = FALSE;
extern string Text1_2 = "---- 1.ストップ設定 ----";
extern int KyouseiSTOP_PIPS1 = 15;
extern bool TRAIL_ON1 = FALSE;
extern int STEP_PIPS1 = 0;
extern string Text2 = "***** ２回目のナンピン *****";
extern int Nanpin2_pips = 8;
extern double LOTS2 = 0.3;
extern string Text2_1 = "---- 2.リミット設定 ----";
extern int KyouseiLIMIT_PIPS2 = 20;
extern bool K_LIMIT_TRAIL_ON2 = FALSE;
extern int K_LIMIT_STEP_PIPS2 = 0;
extern int K_LIMIT_POSITION2 = 0;
extern bool K_LIMIT_BACK2 = FALSE;
extern string Text2_2 = "---- 2.ストップ設定 ----";
extern int KyouseiSTOP_PIPS2 = 15;
extern bool TRAIL_ON2 = FALSE;
extern int STEP_PIPS2 = 0;
extern string Text3 = "***** ３回目のナンピン *****";
extern int Nanpin3_pips = 0;
extern double LOTS3 = 0.0;
extern string Text3_1 = "---- 3.リミット設定 ----";
extern int KyouseiLIMIT_PIPS3 = 0;
extern bool K_LIMIT_TRAIL_ON3 = FALSE;
extern int K_LIMIT_STEP_PIPS3 = 0;
extern int K_LIMIT_POSITION3 = 0;
extern bool K_LIMIT_BACK3 = FALSE;
extern string Text3_2 = "---- 3.ストップ設定 ----";
extern int KyouseiSTOP_PIPS3 = 0;
extern bool TRAIL_ON3 = FALSE;
extern int STEP_PIPS3 = 0;
extern string Text4 = "***** ４回目のナンピン *****";
extern int Nanpin4_pips = 0;
extern double LOTS4 = 0.0;
extern string Text4_1 = "---- 4.リミット設定 ----";
extern int KyouseiLIMIT_PIPS4 = 0;
extern bool K_LIMIT_TRAIL_ON4 = FALSE;
extern int K_LIMIT_STEP_PIPS4 = 0;
extern int K_LIMIT_POSITION4 = 0;
extern bool K_LIMIT_BACK4 = FALSE;
extern string Text4_2 = "---- 4.ストップ設定 ----";
extern int KyouseiSTOP_PIPS4 = 0;
extern bool TRAIL_ON4 = FALSE;
extern int STEP_PIPS4 = 0;
extern string Text5 = "***** ５回目のナンピン *****";
extern int Nanpin5_pips = 0;
extern double LOTS5 = 0.0;
extern string Text5_1 = "---- 5.リミット設定 ----";
extern int KyouseiLIMIT_PIPS5 = 0;
extern bool K_LIMIT_TRAIL_ON5 = FALSE;
extern int K_LIMIT_STEP_PIPS5 = 0;
extern int K_LIMIT_POSITION5 = 0;
extern bool K_LIMIT_BACK5 = FALSE;
extern string Text5_2 = "---- 5.ストップ設定 ----";
extern int KyouseiSTOP_PIPS5 = 0;
extern bool TRAIL_ON5 = FALSE;
extern int STEP_PIPS5 = 0;
int gia_unused_532[];
int gia_unused_536[];
int gi_540;
double gd_564;
double gd_580;
double gd_588;
double gd_596;
double gd_604;
bool gba_unused_632[];
bool gba_unused_636[];
bool gba_unused_640[];
int gia_unused_644[];
int g_count_648;
int gi_652;
int gi_656;
bool gi_660;
bool gi_664;
bool gi_668;
bool gi_672;
bool gi_676;

int init() {
   if (MarketInfo("USDJPY", MODE_DIGITS) == 3.0) LS_settei();
   gi_540 = mc1_MagicNumber();
   ObjectCreate("name", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("name", "for_Nanpin", 9, "Araial", DimGray);
   ObjectSet("name", OBJPROP_CORNER, 2);
   ObjectSet("name", OBJPROP_XDISTANCE, 3);
   ObjectSet("name", OBJPROP_YDISTANCE, 15);
   return (0);
}

int deinit() {
   ObjectDelete("name");
   return (0);
}

int start() {
   gi_540 = mc1_MagicNumber();
   gi_652 = mc1_Position(gi_540);
   switch (gi_652) {
   case 0:
      gi_660 = TRUE;
      gi_664 = TRUE;
      gi_668 = TRUE;
      gi_672 = TRUE;
      gi_676 = TRUE;
      settei1();
      break;
   case 1:
      positionjoukyou(0);
      gi_656 = mc1_Pos_BS(gi_540, 0);
      mc1_pos_setlot(gi_540, 0, gd_564);
      if (Nanpin1_pips > 0) {
         settei2();
         if (gi_660 && Nanpin1_pips + gd_588 <= 0.0) {
            entry(gi_656);
            gi_660 = FALSE;
         }
      }
      break;
   case 2:
      positionjoukyou(1);
      kssettei(2);
      mc1_pos_setlot(gi_540, 1, gd_564);
      if (Nanpin2_pips > 0) {
         settei3();
         if (gi_664 && Nanpin2_pips + gd_588 <= 0.0) {
            entry(gi_656);
            gi_664 = FALSE;
         }
      }
      break;
   case 3:
      positionjoukyou(2);
      kssettei(3);
      mc1_pos_setlot(gi_540, 2, gd_564);
      if (Nanpin3_pips > 0) {
         settei4();
         if (gi_668 && Nanpin3_pips + gd_588 <= 0.0) {
            entry(gi_656);
            gi_668 = FALSE;
         }
      }
      break;
   case 4:
      positionjoukyou(3);
      kssettei(4);
      mc1_pos_setlot(gi_540, 3, gd_564);
      if (Nanpin4_pips > 0) {
         settei5();
         if (gi_672 && Nanpin4_pips + gd_588 <= 0.0) {
            entry(gi_656);
            gi_672 = FALSE;
         }
      }
      break;
   case 5:
      positionjoukyou(4);
      kssettei(5);
      mc1_pos_setlot(gi_540, 4, gd_564);
      if (Nanpin5_pips > 0) {
         settei6();
         if (gi_676 && Nanpin5_pips + gd_588 <= 0.0) {
            entry(gi_656);
            gi_676 = FALSE;
         }
      }
      break;
   case 6:
      positionjoukyou(5);
      kssettei(6);
      mc1_pos_setlot(gi_540, 5, gd_564);
   }
   return (0);
}

void kssettei(int ai_0) {
   for (g_count_648 = 0; g_count_648 < ai_0; g_count_648++) {
      if (gi_656 == 0) {
         mc1_mov_klimit(gi_540, g_count_648, gd_604);
         mc1_mov_kstop(gi_540, g_count_648, gd_596);
      } else {
         if (gi_656 == 1) {
            mc1_mov_klimit(gi_540, g_count_648, gd_604);
            mc1_mov_kstop(gi_540, g_count_648, gd_596);
         }
      }
   }
}

void positionjoukyou(int ai_0) {
   gd_564 = mc1_pos_lots(gi_540, ai_0);
   gd_580 = mc1_pos_open(gi_540, ai_0);
   gd_588 = mc1_pos_soneki(gi_540, ai_0);
   gd_596 = mc1_pos_kstop(gi_540, ai_0);
   gd_604 = mc1_pos_klimit(gi_540, ai_0);
}

void settei1() {
   mc1_torihiki(gi_540, LOTS0, STOP_PIPS, LIMIT_PIPS);
   mc1_k_limit(gi_540, KyouseiLIMIT_PIPS0, K_LIMIT_TRAIL_ON0, K_LIMIT_STEP_PIPS0, K_LIMIT_POSITION0, K_LIMIT_BACK0);
   mc1_k_stop(gi_540, KyouseiSTOP_PIPS0, TRAIL_ON0, STEP_PIPS0);
   mc1_max_pos(gi_540, 1);
}

void settei2() {
   mc1_torihiki(gi_540, LOTS1, STOP_PIPS, LIMIT_PIPS);
   mc1_k_limit(gi_540, KyouseiLIMIT_PIPS1, K_LIMIT_TRAIL_ON1, K_LIMIT_STEP_PIPS1, K_LIMIT_POSITION1, K_LIMIT_BACK1);
   mc1_k_stop(gi_540, KyouseiSTOP_PIPS1, TRAIL_ON1, STEP_PIPS1);
   mc1_max_pos(gi_540, 2);
}

void settei3() {
   mc1_torihiki(gi_540, LOTS2, STOP_PIPS, LIMIT_PIPS);
   mc1_k_limit(gi_540, KyouseiLIMIT_PIPS2, K_LIMIT_TRAIL_ON2, K_LIMIT_STEP_PIPS2, K_LIMIT_POSITION2, K_LIMIT_BACK2);
   mc1_k_stop(gi_540, KyouseiSTOP_PIPS2, TRAIL_ON2, STEP_PIPS2);
   mc1_max_pos(gi_540, 3);
}

void settei4() {
   mc1_torihiki(gi_540, LOTS3, STOP_PIPS, LIMIT_PIPS);
   mc1_k_limit(gi_540, KyouseiLIMIT_PIPS3, K_LIMIT_TRAIL_ON3, K_LIMIT_STEP_PIPS3, K_LIMIT_POSITION3, K_LIMIT_BACK3);
   mc1_k_stop(gi_540, KyouseiSTOP_PIPS3, TRAIL_ON3, STEP_PIPS3);
   mc1_max_pos(gi_540, 4);
}

void settei5() {
   mc1_torihiki(gi_540, LOTS4, STOP_PIPS, LIMIT_PIPS);
   mc1_k_limit(gi_540, KyouseiLIMIT_PIPS4, K_LIMIT_TRAIL_ON4, K_LIMIT_STEP_PIPS4, K_LIMIT_POSITION4, K_LIMIT_BACK4);
   mc1_k_stop(gi_540, KyouseiSTOP_PIPS4, TRAIL_ON4, STEP_PIPS4);
   mc1_max_pos(gi_540, 5);
}

void settei6() {
   mc1_torihiki(gi_540, LOTS5, STOP_PIPS, LIMIT_PIPS);
   mc1_k_limit(gi_540, KyouseiLIMIT_PIPS5, K_LIMIT_TRAIL_ON5, K_LIMIT_STEP_PIPS5, K_LIMIT_POSITION5, K_LIMIT_BACK5);
   mc1_k_stop(gi_540, KyouseiSTOP_PIPS5, TRAIL_ON5, STEP_PIPS5);
   mc1_max_pos(gi_540, 6);
}

void entry(int ai_0) {
   if (ai_0 == 0) {
      mc1_buy(gi_540);
      return;
   }
   mc1_sell(gi_540);
}

void LS_settei() {
   string ls_0 = "こちらの業者は小数点以下が１桁多く表\示されています" 
      + "\n" 
      + "　現在のストップ設定値：" + DoubleToStr(STOP_PIPS, 0) 
      + "\n" 
      + "　現在のリミット設定値：" + DoubleToStr(LIMIT_PIPS, 0) 
      + "\n" 
      + "　現在の強制ストップ値：" + DoubleToStr(KyouseiSTOP_PIPS0, 0) 
      + "\n" 
      + "　現在の強制リミット値：" + DoubleToStr(KyouseiLIMIT_PIPS0, 0) 
      + "\n" 
   + "などとなっていますが各設定値を×１０に変更しますか？";
   int li_8 = MessageBoxA(0, ls_0, "ストップ・リミット設定値確認", 131124);
   if (li_8 == 6) {
      STOP_PIPS = 10 * STOP_PIPS;
      LIMIT_PIPS = 10 * LIMIT_PIPS;
      KyouseiSTOP_PIPS0 = 10 * KyouseiSTOP_PIPS0;
      STEP_PIPS0 = 10 * STEP_PIPS0;
      KyouseiLIMIT_PIPS0 = 10 * KyouseiLIMIT_PIPS0;
      K_LIMIT_STEP_PIPS0 = 10 * K_LIMIT_STEP_PIPS0;
      K_LIMIT_POSITION0 = 10 * K_LIMIT_POSITION0;
      Nanpin1_pips = 10 * Nanpin1_pips;
      KyouseiSTOP_PIPS1 = 10 * KyouseiSTOP_PIPS1;
      STEP_PIPS1 = 10 * STEP_PIPS1;
      KyouseiLIMIT_PIPS1 = 10 * KyouseiLIMIT_PIPS1;
      K_LIMIT_STEP_PIPS1 = 10 * K_LIMIT_STEP_PIPS1;
      K_LIMIT_POSITION1 = 10 * K_LIMIT_POSITION1;
      Nanpin2_pips = 10 * Nanpin2_pips;
      KyouseiSTOP_PIPS2 = 10 * KyouseiSTOP_PIPS2;
      STEP_PIPS2 = 10 * STEP_PIPS2;
      KyouseiLIMIT_PIPS2 = 10 * KyouseiLIMIT_PIPS2;
      K_LIMIT_STEP_PIPS2 = 10 * K_LIMIT_STEP_PIPS2;
      K_LIMIT_POSITION2 = 10 * K_LIMIT_POSITION2;
      Nanpin3_pips = 10 * Nanpin3_pips;
      KyouseiSTOP_PIPS3 = 10 * KyouseiSTOP_PIPS3;
      STEP_PIPS3 = 10 * STEP_PIPS3;
      KyouseiLIMIT_PIPS3 = 10 * KyouseiLIMIT_PIPS3;
      K_LIMIT_STEP_PIPS3 = 10 * K_LIMIT_STEP_PIPS3;
      K_LIMIT_POSITION3 = 10 * K_LIMIT_POSITION3;
      Nanpin4_pips = 10 * Nanpin4_pips;
      KyouseiSTOP_PIPS4 = 10 * KyouseiSTOP_PIPS4;
      STEP_PIPS4 = 10 * STEP_PIPS4;
      KyouseiLIMIT_PIPS4 = 10 * KyouseiLIMIT_PIPS4;
      K_LIMIT_STEP_PIPS4 = 10 * K_LIMIT_STEP_PIPS4;
      K_LIMIT_POSITION4 = 10 * K_LIMIT_POSITION4;
      Nanpin5_pips = 10 * Nanpin5_pips;
      KyouseiSTOP_PIPS5 = 10 * KyouseiSTOP_PIPS5;
      STEP_PIPS5 = 10 * STEP_PIPS5;
      KyouseiLIMIT_PIPS5 = 10 * KyouseiLIMIT_PIPS5;
      K_LIMIT_STEP_PIPS5 = 10 * K_LIMIT_STEP_PIPS5;
      K_LIMIT_POSITION5 = 10 * K_LIMIT_POSITION5;
      PlaySound("connect");
   }
}