拆彈部隊

X Bomb(BUY_1%).mq4

//+------------------------------------------------------------------+
//|                                                  AllNewXBOMB.mq4 |
//|                                                APP Wargame-Hydra |
//|                     http://www.facebook.com/groups/moneywargame/ |
//+------------------------------------------------------------------+


#property strict

#include <WarGameDLL.mqh>
#include <WinUser32.mqh>
#import "User32.dll"
int GetDC(int);
int ReleaseDC(int,int);
#import "Gdi32.dll"
int GetDeviceCaps(int,int);
#import "stdlib.ex4"
string ErrorDescription(int error_code);
#import "kernel32.dll"
ulong GetVersion(void);
#import

#define CHT	1
//#define ENG	1

#define ZERO 0.000001
#define MODE_BUY 1
//#define MODE_SELL 1
//#define MODE_DEMO 1
//#define MODE_AREA51 1

#define MODE_AGET 0
#define MODE_FGET 1
#define MODE_CHECKTIMEIN 0
#define MODE_TIMESTP 1
#define MODE_TIMESSL 2
#define MODE_DAILYTP 3
#define MODE_INIT 3
#define MODE_TICK 4
#define MODE_FIRSTTRADE  	 99
#define MODE_MARTIN  		100
#define OP_ALL       101
#define MODE_SLTP_BYPOINT 102
#define MODE_SLTP_BYPRICE 103
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+


int id_1 = 3333333;

int ErrorCode = 0;
int DownloadHour = 6;
int DownloadMin = 0;
int BarTime = 0;

double NextTime=0.5;
double point = 0.0;
double iLots = 0.0;
double Start_Balance = 0;
double iPending;

datetime H1BarTime = 0;
datetime FirstTradeBar = 0;
datetime Start_P = 0;
datetime EARunTime = 0;
datetime AvoidTime[1] = {0};
datetime EGStartTime = TimeCurrent();
bool EGFlag = true;

bool NewGetSW = false;
bool AuthorGetSW = false;
bool TradeSW = true;

int Last_Time[1]={0};
int Status[1]={0};
double Last_Price[1]={-1.0};
double MinPriceShot = 0.0;

string AvoidSymbol[1] = {""};
string LogText[4] = {"小虧為贏" , "次止盈" , "次止損" , "日止盈"};
string Label_arr[6] = 
{
   "TimesProfitPer",
   "Start_Balance",
   "TimePast",
   "Orders",
   "TodayProfitPer",
   "MaxLoss"
};
   
string Label_arr1[6] = 
{
   "TimesProfitPer0",
   "Start_Balance0",
   "TimePast0",
   "Orders0",
   "TodayProfitPer0",
   "MaxLoss0"
};

string Start_P_str = "Start_P";
string Start_Balance_str = "Start_Balance";
string MaxEquity_str = "MaxEquity";
string NextSW_str = "NextSW";
string EARUNTIME_str = "EARUNTIME";

string Light = "LightStatus";
string Run = "RunStatus";
string Margin = "Margin";
string FloatLoss = "Float";
string NewsInfo[2] = {"NewsInfo0", "NewsInfo1"};
string Light_str[2] = {"Light","Light2"};
#ifdef CHT
string NewsEngage = "狂派情資已接收完全.....全面開戰！";
#endif
#ifdef ENG
string NewsEngage = "News retrieval completed .....automated system initiated";
#endif
//+------------------------------------------------------------------+
//|Ender's Game Par                                                  |
//+------------------------------------------------------------------+
datetime ticket_time = 0;

int OutCntTemp = 0;

#ifdef CHT
input bool AutoRepairSW = false; //自動回復停損停利
#ifdef MODE_AREA51
input bool BrakeSystem=true; //ESP戰艦穩定煞車系統
int pSeconds=14;
input double Energy=4; //能量偵測靈敏度
input int SleepTime=15; //能量引擎啟動時間(分鐘)
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //預警雷達控制模組
input int MinBefore = 30; //前幾分鐘閃避
input int MinAfter = 30; //後幾分鐘閃避
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //保證金比例控制模組
input double MarginLimit = 2000; //保證金低於％數暫停
input bool FloatEq = false; //浮虧控制模組
input double FloatAm = -4000; //虧損(-金額)暫停
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //開始時間，格式為HH
input int DayStopHour = 00; //結束時間，格式為HH
input string WeekDay="12345"; //週一執行，鍵入1;週一週二鍵入12
input bool WeekStartOverSW = true; //一個禮拜頭尾不間斷
input int WeekStartHour = 8; //第一天幾點開始
input int WeekStopHour = 17; //最後一天幾點結束
input string a5 = "-------------------"; //
input double iBalance = 0; //止盈計算本金基準
input bool TakeProfitPercentSW = true; //次止盈開關
input double TakeProfitPercent = 5; //次止盈,每次最多獲利％,立即平倉歸零重啟新局
input bool TakeProfitPercentDaySW = true; //日止盈開關
input double TakeProfitPercentDay = 1000; //日止盈,每日最多獲利％,立即停止交易,隔日重新啟動
input bool StopLossPercentSW = true; //浮虧止損開關
input double StopLossPercent = 1000; //現時帳戶浮虧止損,止損基準值:帳戶餘額
input bool SleepLoss = true; //止損後當日不再出兵
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //小虧為贏開關
input int MaxTime = 150; //每局最長時間(分鐘)
input int MaxIn = 10; //每局最多兵力
input double MaxP = 0.5; //達成以上條件小虧為贏
input string c = "-------------------"; //　
input double Pending = 0.0;  //掛單價格 
input bool SingleOut = false; //單進單出
#endif
input bool MartinSW = true; //馬丁開關
#ifdef MODE_AREA51
input int MartinMStart = 2; //第幾張馬丁開始加倍
#endif
input double LotMultiplikator = 1.382; //馬丁倍率
input double Step = 30; //馬丁間距
input int MaxTrades = 5; //最多單數
input double MM = 1.0; //資金管理％數
input double Lots = 0.01; //手數
input double TakeProfit = 10.0; //獲利點數
input double StopLoss = 10.0; //停損點數
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
#ifdef ENG
input bool AutoRepairSW = false; //Auto Repair SL&TP
#ifdef MODE_AREA51
input bool BrakeSystem=true; //BrakeSystem
int pSeconds=14;
input double Energy=4; //Braking System Sensitivity Control
input int SleepTime=15; //Braking System Sleeping Time
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //Braking System Sleeping Time
input int MinBefore = 30; //Stop trading few minutes before news alert
input int MinAfter = 30; //Stop trading few minutes after news alert
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //Margin Level Control Module
input double MarginLimit = 2000; //Margin level % limit to stop trading
input bool FloatEq = false; //Floating Loss Control Module
input double FloatAm = -4000; //Floating loss (-$amount) limit to stop trading
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //Starting Time, in HH format
input int DayStopHour = 00; //Ending Time, in HH format
input string WeekDay="12345"; //Star on Monday=1, Monday and Tuesday=12
input bool WeekStartOverSW = true; //Trade everyday without stop
input int WeekStartHour = 8; //First Day Staring Time
input int WeekStopHour = 17; //Last Day Ending Time
input string a5 = "-------------------"; //
input double iBalance = 0; //Capital setting for Profit/Loss termination
input bool TakeProfitPercentSW = true; //Switch of Secondary Take Profit
input double TakeProfitPercent = 1; //Secondary Take Profit, max. % of profit to close trade, and reset
input bool TakeProfitPercentDaySW = true; //Switch of Daily Take Profit 
input double TakeProfitPercentDay = 1000; //Daily Take Profit, max. % of profit to close trade, reset on the next day
input bool StopLossPercentSW = true; //Switch of stopping Floating Loss
input double StopLossPercent = 1000; //Stop Loss of Current Account Max. Floating Loss (Based on Balance)
input bool SleepLoss = true; //Stop trading when reaching stop loss the same day
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //Switch of Small Loss To Win
input int MaxTime = 150; //Max. Time Per Set (Minutes)
input int MaxIn = 10; //Max. Trades Per Set
input double MaxP = 0.5; //Criteria of Small Loss for Win
input string c = "-------------------"; //　
input double Pending = 0.0;  //Pending Order at Price 
input bool SingleOut = false; //Take Profit Single Out
#endif
input bool MartinSW = true; //Start Martingale
#ifdef MODE_AREA51
input int MartinMStart = 2; //Number to start martingale multiplication 
#endif
input double LotMultiplikator = 1.382; //Martingale Multiplier
input double Step = 30; //Martingale Distance
input int MaxTrades = 5; //Max. Number of Orders
input double MM = 5.0; //Fund Management %
input double Lots = 0.01; //Order Size_lot
input double TakeProfit = 10.0; //Take Profit 
input double StopLoss = 10.0; //Stop Loss
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
string Newsfile = "ffcal_week_this.xml";
string EventFile = "NewsEvent.csv";
string AuthorFile = "58426f6d625f313530333235";

int newverMT4=1;
int accountMode=1;
string accountID="307383675471044242004002478351777461355442714470680287367714305481330815525625712384844860686545066036787326516602236575060168253182382223384704564023840278267055768862740384331027464044486413846161126644733334767107807263270163337825300231566058026024280";
string EndDate="773007153340217643304083503643662664135084287337732519558536277033134667745660522246521343428004006023880442472680006145250813282575063624287537184878081645870548647881741716731701678285887276610110026947142762324384327364030733857683026770853863520111866";

int OnInit()
{
//---
	CheckOSVersion();
	//+------------------------------------------------------------------+
	//|Get Point By Symbol                                               |
	//+------------------------------------------------------------------+
   if (Digits==5 || Digits==3)
   {
      point=Point*10;
   }
   else
   {
      point=Point;
   }
   //+------------------------------------------------------------------+
   //|                                                                  |
   //+------------------------------------------------------------------+
   iLots = OpLots();
   ticket_time = TimeCurrent();

   //+------------------------------------------------------------------+
   //|Random Minute                                                     |
   //+------------------------------------------------------------------+
   MathSrand(GetTickCount());
   DownloadMin = 1 + ((59 * MathRand()) / 32768);
#ifdef MODE_AREA51
   TimesStopConfig();
   //+------------------------------------------------------------------+
   //|Update Files                                                      |
   //+------------------------------------------------------------------+
   iPending = Pending;
#endif
   UpdateFiles(MODE_INIT);
//---
   return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
	GlobalVariableSet("DNSW",0);
   DeleteObjects();
}
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{

   #ifdef MODE_BUY
if (NonStop==false) EndersGameModule(Symbol(),OP_BUY,id_1,EGFlag);
#endif

#ifdef MODE_SELL
if (NonStop==false) EndersGameModule(Symbol(),OP_SELL,id_1,EGFlag);
#endif
   UpdateFiles(MODE_TICK);
	 if (!EAControl_Enders()) return;
#ifdef MODE_AREA51   
   double TimesProfit = 0.0;
   double TodayProfit = 0.0;
   if (!CloseAllTrades()) return;
   if (!TimesStop(TimesProfit,TodayProfit)) return;
   Displayprofit(TimesProfit,TodayProfit);
	CheckTimeIn(TimesProfit);
   //+------------------------------------------------------------------+
   //|Shutdown EA                                                       |
   //+------------------------------------------------------------------+
   if (!EAControl()) return;
   BrakeSystemFun();
#endif
   
#ifdef MODE_BUY
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_BUY,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{
		FirstTrade(OP_BUY);
		Martin(OP_BUY);
	}
#endif
#ifdef MODE_SELL
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_SELL,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{	
		FirstTrade(OP_SELL);
   	Martin(OP_SELL);
   }
#endif
	
}
//+------------------------------------------------------------------+
//|Determine Martingale TakeProfi                                    |
//+------------------------------------------------------------------+
double Cal_TP(int Type,double iPrice,double TPPoint)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double AllOrderLots = 0.0;
   double TP_Goal;
   double FirstOrderLots = 0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderType() == Type && OrderMagicNumber() == id_1 && OrderSymbol() == Symbol())
      {
         FirstOrderLots = OrderLots();
         TotalLots += OrderLots();
         if (Type == OP_SELL)
         	TotalDisProduct += (iPrice - OrderOpenPrice()) / point * OrderLots();
        	if (Type == OP_BUY)
        		TotalDisProduct += (OrderOpenPrice() - iPrice) / point * OrderLots();
      }
   }
   if (EqualZero(TotalLots)) return(0.0);
   TP_Goal = ((TPPoint * FirstOrderLots) + TotalDisProduct) / TotalLots;
   if (Type == OP_SELL)
   	return(iPrice - (TP_Goal * point));
  	if (Type == OP_BUY)
   	return(iPrice + (TP_Goal * point));
   return(0.0);
}
//+------------------------------------------------------------------+
//|OrderSend Function                                                |
//+------------------------------------------------------------------+
int SendOrders(const int Type ,const string iComment)
{
   double TP = 0.0;
   double SL = 0.0;
   double InPrice = 0.0;
   switch (Type)
   {
      case OP_BUY:
      InPrice = Ask;
      break;
      
      case OP_SELL:
      InPrice = Bid;
      break;
   }
   double SendOrders_Lots = MartinLots(Type);
   if (!Lots_Valid(SendOrders_Lots)) 
   {
   	Alert("No Money");
   	return(-1);
   }
   int Ticket = OrderSend(Symbol(),Type,SendOrders_Lots,InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,Type == OP_BUY ? clrLime : clrRed);
   if (Ticket < 0)
   {   
      ErrorCode = GetLastError();
      if (ErrorCode != 4109)
         Alert("Send " + iComment + " Order Error: " + ErrorDescription(ErrorCode));
   }
   return(Ticket);
}

void Set_SL_TP(const int Mode,const int Type,double iSL,double iTP)
{
   double SL = 0.0;
   double TP = 0.0;
   for (int z=0;z<OrdersTotal();z++)//執行N次篩選(N=訂單總數)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)//挑選出同貨幣對 && BUY單 && MagicNumber=本程式 的訂單
      {
         if (Mode == MODE_SLTP_BYPOINT)
         {
           	if (Type == OP_BUY || Type == OP_BUYSTOP || Type == OP_BUYLIMIT)
           	{
           		TP = OrderOpenPrice() + iTP * point;
           		SL = OrderOpenPrice() - iSL * point;
           	}
           	if (Type == OP_SELL || Type == OP_SELLSTOP || Type == OP_SELLLIMIT)
           	{
           		TP = OrderOpenPrice() - iTP * point;
           		SL = OrderOpenPrice() + iSL * point;
           	}
           	if (EqualZero(iTP)) TP = 0;
           	if (EqualZero(iSL)) SL = 0;
         }else
         {
           	SL = iSL;
         	TP = iTP;
         }
         if (iTP < 0)
         {
            TP = OrderTakeProfit();
         }
         if (iSL < 0)
         {
            SL = OrderStopLoss();
         }
         if ((CompareDouble(OrderStopLoss(),NormalizeDouble(SL,Digits))) && (CompareDouble(OrderTakeProfit(),NormalizeDouble(TP,Digits))))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,White))
            {
               Alert("Set_SL_TP " + IntegerToString(OrderTicket()) + "  Error: " + ErrorDescription(GetLastError()));
            }
         }
      }
   }
}

bool CompareDouble(const double A,const double B)
{
   if (MathAbs(A - B) <= ZERO) return(true);
   return(false);
}

bool EqualZero(const double A)
{
   if (A <= ZERO && A >= -ZERO) return(true);
   return(false);
}

void Martin(const int Type)
{
	double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (MartinSW)
	{
		GetLastTciketINFO(Type,MaxPrice,MinPrice);
		if (BarTime == Bars && MyOrderTotal(Type) < MaxTrades)
		{
			if (SendOrders(Type,"XBOMB" + IntegerToString(MyOrderTotal(Type) + 1)) > 0)
			{
				AutoRepairSLTP(true,Type,MODE_MARTIN);
				BarTime = 0;
			}
		}
		if (Type == OP_BUY && MyOrderTotal(OP_BUY) > 0)
		{
			if (Ask <= MinPrice - Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (Type == OP_SELL && MyOrderTotal(OP_SELL) > 0)
		{
			if (Bid >= MaxPrice + Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (MyOrderTotal(Type) > 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_MARTIN);
	}
}

void FirstTrade(const int Type)
{
	int Cnt = MyOrderTotal(Type);
	if (Type == OP_BUY && (MyOrderTotal(OP_BUYSTOP) > 0 || MyOrderTotal(OP_BUYLIMIT) > 0)) return;
	if (Type == OP_SELL && (MyOrderTotal(OP_SELLSTOP) > 0 || MyOrderTotal(OP_SELLLIMIT) > 0)) return;
	if (Cnt == 0 && FirstTradeBar != Time[0])
	{
		if (SendOrders(Type,"XBOMB(" + IntegerToString(Type) + ")." + IntegerToString(Cnt + 1)) > 0)
		{
			AutoRepairSLTP(true,Type,MODE_FIRSTTRADE);
			FirstTradeBar = Time[0];
		}
	}
	if (Cnt == 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_FIRSTTRADE);
}

double GetLastTciketINFO(const int Type,double &MaxPrice,double &MinPrice)
{
	double iMaxPrice = 0.0;
	double iMinPrice = 5000.0;
	for (int i=0;i<OrdersTotal();i++)
	{
		if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
		if (OrderMagicNumber() == id_1 && OrderSymbol() == Symbol() && OrderType() == Type)
		{
			if (OrderOpenPrice() >= iMaxPrice)
				iMaxPrice = OrderOpenPrice();
			if (OrderOpenPrice() <= iMinPrice && !EqualZero(iMinPrice))
				iMinPrice = OrderOpenPrice();
		}
	}
	MaxPrice = iMaxPrice;
	MinPrice = iMinPrice;
	return(0.0);
}

int MyOrderTotal(int Type)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL)
		{
		   x++;
		   continue;
		}
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)
		{
			x++;
		}
	}
	return(x);
}

void iCloseOrders(int type)
{
	int C0_cnt;
	if (type == OP_BUYSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) 
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUYSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}

	if (type == OP_SELLSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELLSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_BUY) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUY && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrLime))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_SELL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELL && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_ALL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--)
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
   		if (OrderType() == OP_BUYSTOP || OrderType() == OP_SELLSTOP || OrderType() == OP_BUYLIMIT || OrderType() == OP_SELLLIMIT)
   		{
   		   if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
   		}else {
   		   if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
			   {
   			   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
   			}
         }
		}
	}
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selecttickets()
{
   int cnt_tickets = 0;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT))
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT))
#endif
         {
            ticket_time=OrderOpenTime();
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selectticketsfrhistory()
{
   int cnt_tickets = 0;
   for (int i=0;i<OrdersHistoryTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT) && ticket_time<=OrderOpenTime())
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT) && ticket_time<=OrderOpenTime())
#endif
         {
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double MartinLots(const int Type)
{
	int Cnt = MyOrderTotal(Type);
#ifdef MODE_AREA51
	int StartM = MartinMStart;
	if (StartM <= 0) StartM = 2;
#else
	int StartM = 2;
#endif
	if (Cnt <= 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,0),2));
	if (Cnt > 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,(double)(Cnt - 1) - (StartM - 2)),2));
	return(0.0);
}
//+------------------------------------------------------------------+
//|Optimize Lots                                                     |
//+------------------------------------------------------------------+
double OpLots()
{
	double Out = Lots;
	if (!EqualZero(MM) && MM > 0)
	{
		Out = (AccountBalance() * MM ) / (1000 * TakeProfit);
	}
	return(Out);
}
#ifdef MODE_AREA51
void PendingTrade(const int Type,const string iComment)
{
	double InPrice = Pending;
	int Ticket = 0;
	int iType = -1;
	if (Type == OP_BUY)
	{
		if (InPrice > Ask)
			iType = OP_BUYSTOP;
   	if (InPrice < Ask)
			iType = OP_BUYLIMIT;
		if (MyOrderTotal(OP_BUYSTOP) >= 1 || MyOrderTotal(OP_BUYLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
		   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrLime);
		if (Ticket < 0)
		{
 	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
     	}
     	else
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
     	}
  	}
  	
  	if (Type == OP_SELL)
	{
		if (InPrice < Bid)
			iType = OP_SELLSTOP;
   	if (InPrice > Bid)
			iType = OP_SELLLIMIT;
   	if (MyOrderTotal(OP_SELLSTOP) >= 1 || MyOrderTotal(OP_SELLLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrRed);
		if (Ticket < 0)
		{
  	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
	   {
	     	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
	   }
	   else
	   {
	   	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
	   }
  	}
  	return;
}

bool CloseAllTrades()
{
   if (GlobalVariableGet(NextSW_str) == 1) 
   {
#ifdef MODE_BUY
      iCloseOrders(OP_BUY);
#endif
#ifdef MODE_SELL
		iCloseOrders(OP_SELL);
#endif
		Sleep(10000);
      if (MyOrderTotal(OP_ALL) > 0)
      {
#ifdef CHT
         Alert("水雷未掃除成功");
#endif
#ifdef ENG
			Alert("Submarine mine sweeper not completed");
#endif
         return(false);
      }else 
      {
      	Sleep((int)(NextTime * 1000 * 60));
      }
   }
   return(true);
}

void CheckTimeIn(const double TimesProfit)
{
	datetime RunTime = (TimeCurrent() - Start_P) / 60;
	if (SmallLossWinSW && RunTime >= MaxTime && OrdersTotal() >= MaxIn && TimesProfit >= MaxP)
	{
		//Close all Trades
		GlobalVariableSet(NextSW_str,1);
		WriteLog(MODE_CHECKTIMEIN,"");
	}
}

void WriteLog(const int Mode,const string in)
{
	double TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
	string str = WindowExpertName() + "," + Symbol() + "," + TimeToString(TimeCurrent(),TIME_DATE|TIME_DATE|TIME_SECONDS) +
					 ": " + LogText[Mode] + " , " + in + 
					 "," + Start_Balance_str + ": " + DoubleToString(Start_Balance,2) +
					 "," + Start_P_str + ": " + IntegerToString(Start_P) +
					 ",TimeProfit: " + DoubleToString(TimesProfit,2) +
					 "| Set: 餘:" + DoubleToString(iBalance,2) +
					 ",次:" + DoubleToString(TakeProfitPercent,2) + 
					 ",日:" + DoubleToString(TakeProfitPercentDay,2) +
					 ",損:" + DoubleToStr(StopLossPercent ,2) +
					 ",時:" + DoubleToString(MaxTime,2) +
					 ",單:" + DoubleToString(MaxIn,2) +
					 ",虧:" + DoubleToString(MaxP,2) +
					 "\n" 
					 ;
	int h1 = FileOpen("Logs.txt",FILE_READ|FILE_WRITE|FILE_TXT);
	if (h1 < 0) Print("Open Log Failed");
	FileSeek(h1,0,SEEK_END);
	int byte = FileWriteString(h1,str,StringLen(str));
	if (byte <= 0) Print("Write Log Failed");
	FileClose(h1);
}

double GetProfitPeriod(datetime today)
{
   double profit=0;
   int total =OrdersHistoryTotal();
   for (int i=0; i<total; i++)
   {
      if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
      {
         if (OrderType() == OP_BUY || OrderType() == OP_SELL)
         {
            if (today < OrderCloseTime())
               profit += OrderProfit() + OrderCommission() + OrderSwap();
         }
      }
   }
   return (profit);
}

void Displayprofit(const double TimesProfit, const double TodayProfit)
{
   int Pos = 50;
   string Label_Text = ""; 
   string Label_Text1 = ""; 
   
   if (ObjectFind(Run) < 0) ObjectCreate(0,Run,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Run, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Run, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Run, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Run, OBJPROP_YDISTANCE, Pos);
   ObjectSetInteger(0,Run, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Run, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetString(0,Run, OBJPROP_FONT, "微軟正黑體");
   
   for (int i=0;i<6;i++)
   {
      if(ObjectFind(Label_arr[i]) < 0) ObjectCreate(0,Label_arr[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_XDISTANCE,120);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr[i],OBJPROP_FONT,"微軟正黑體");
      
      if(ObjectFind(Label_arr1[i]) < 0) ObjectCreate(0,Label_arr1[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_XDISTANCE,20);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr1[i],OBJPROP_FONT,"微軟正黑體");
      
      switch(i)
      {
#ifdef CHT
         case 0:
         Label_Text = "單次擄獲狂派戰俘: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "進場起始兵力: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "進場經過時間: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " 分鐘";
         break;
         
         case 3:
         Label_Text = "戰場兵力: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "今日擄獲狂派戰俘累積至: " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "最大暫時被擄穫兵力: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
#ifdef ENG
			case 0:
         Label_Text = "Profit/Loss: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "Start Balance: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "Time Elapsed: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " Minutes";
         break;
         
         case 3:
         Label_Text = "Orders: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "Profit/Loss (Today): " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "Maximum Floating Loss: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
      }
      ObjectSetString(0,Label_arr[i],OBJPROP_TEXT,Label_Text);
      ObjectSetString(0,Label_arr1[i],OBJPROP_TEXT,Label_Text1);
   }
   
   for (int i=0;i<ArraySize(NewsInfo);i++)
   {	
   	if (ObjectFind(NewsInfo[i]) < 0) ObjectCreate(0,NewsInfo[i],OBJ_LABEL,0,0,0);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_CORNER, 1);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_COLOR, clrGold);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_XDISTANCE, 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_YDISTANCE, Pos + 150 + i * 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_FONTSIZE, 10);
	   ObjectSetString(0,NewsInfo[i], OBJPROP_FONT, "微軟正黑體");
   }
   
   ObjectCreate(0,Margin,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Margin, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Margin, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Margin, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Margin, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Margin, OBJPROP_YDISTANCE, Pos+195);
   ObjectSetInteger(0,Margin, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,Margin, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,Margin,OBJPROP_TEXT,"");
	
	ObjectCreate(0,FloatLoss,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,FloatLoss, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,FloatLoss, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,FloatLoss, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,FloatLoss, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,FloatLoss, OBJPROP_YDISTANCE, Pos+215);
   ObjectSetInteger(0,FloatLoss, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,FloatLoss, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
	
	if (ObjectFind(Light) < 0)
     	ObjectCreate(0,Light,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Light,OBJPROP_CORNER,1);
   ObjectSetInteger(0,Light, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Light,OBJPROP_COLOR,clrGold);
   ObjectSetInteger(0,Light, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Light,OBJPROP_XDISTANCE,20);
   ObjectSetInteger(0,Light,OBJPROP_YDISTANCE,Pos+235);
   ObjectSetString(0,Light, OBJPROP_FONT, "微軟正黑體");
   ObjectSetString(0,Light,OBJPROP_TEXT,"");
}

bool EAControl()
{
	bool Out = true;
	string str ="";
	if (!Margin()) 
	{
		str = "Margin";
		Out = false;
	}
	if (!Float()) 
	{
		str = "Float";
		Out = false;
	}
	if (TimeCurrent() <= EARunTime) 
	{
		str = "SLSLeep";
		Out = false;
	}
	if (!WeekStartOver())
	 {
		str = "Time";
		Out = false;
	}
	if (!AvoidNews()) 
	{
		str = "News";
		Out = false;
	}
	
	/*if (!Margin() || !Float() || TimeCurrent() <= EARunTime || !WeekStartOver() || !AvoidNews()) 
	{
		Comment("EAControl 1");
		return(false);
	}*/
	Comment(str);
	return(Out);
}

bool iTimeControl()
{
	bool EA_Valid = false;
   if (DayStopHour == DayStartHour) EA_Valid = true;
   if (DayStopHour < DayStartHour) 
   {
		if (TimeHour(TimeLocal()) >= DayStartHour || TimeHour(TimeLocal()) < DayStopHour) 
			EA_Valid = true;
   }
    
    if (DayStopHour > DayStartHour) 
    {
    	if ((TimeHour(TimeLocal()) >= DayStartHour && TimeHour(TimeLocal()) < DayStopHour)) 
    		EA_Valid = true;
    }
    return(EA_Valid);
}   

bool WeekStartOver()
{
   bool EA_Valid = true;
   int Dayweek = TimeDayOfWeek(TimeLocal());
   
   if (WeekStartOverSW)
   {
   	if (
   		Dayweek < StrToInteger(StringSubstr(WeekDay,0,1)) || 
   		(Dayweek == StrToInteger(StringSubstr(WeekDay,0,1)) && TimeHour(TimeLocal()) < WeekStartHour) || 
     		(Dayweek == StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1)) && TimeHour(TimeLocal()) >= WeekStopHour ) || 
     		Dayweek > StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1))
     		)
     	{
     		EA_Valid = false;
     	}
   }else
   {
   	if (iTimeControl()) 
   	{
         if (StringFind(WeekDay,DoubleToStr(Dayweek,0),0) >= 0) 
         {
            EA_Valid = true;
         }else
         {
         	EA_Valid = false;
         }
      }else
      {
      	EA_Valid = false;
      }
   }
   
#ifdef CHT
   if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"未在設定時區內，現有戰役達成後將離開戰場"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"已進入作戰時區內,全面啟動執行..."); 
   	return(true);
   }
#endif 
#ifdef ENG
	if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Not in trading time zone, stop trading after current set"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Entered trading time zone, automated system initiated"); 
   	return(true);
   }
#endif
}

int NewsConvert()
{ 
   string maindata[][7];
   string sBuffer = "";
   if (!FileIsExist(Newsfile)) 
   {
      return(0);
   }
   int h1=FileOpen(Newsfile,FILE_SHARE_READ|FILE_CSV);
   int i = 0 , j = 0;
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(sBuffer,"<title>") >= 0)
      {
         ArrayResize(maindata,j+1);
         maindata[j][0] = sBuffer;
         for (i=1;i<7;i++)
         {
            maindata[j][i] = FileReadString(h1);
         }
         j++;
      }
   }
   FileClose(h1);
   int count = ArrayRange(maindata,0);
   
   string sTags[7] = { "<title>", "<country>", "<date><![CDATA[", "<time><![CDATA[", "<impact><![CDATA[", "<forecast><![CDATA[", "<previous><![CDATA[" };
   string eTags[7] = { "</title>", "</country>", "]]></date>", "]]></time>", "]]></impact>", "]]></forecast>", "]]></previous>" };
   for (i=0;i<count;i++)
   {
      for (j=0;j<7;j++)
      {
         maindata[i][j]=StringSubstr(maindata[i][j],StringFind(maindata[i][j],sTags[j],0)+StringLen(sTags[j]),StringFind(maindata[i][j],eTags[j],0)-StringFind(maindata[i][j],sTags[j],0)-StringLen(sTags[j]));
      }
   }
   int h2 = FileOpen("NewsEvent.csv",FILE_SHARE_READ|FILE_WRITE|FILE_CSV,';');
   int GMT = 0;
   string time_str = "";
   string prev_time_str = "";
   for (i=0;i<count;i++)
   {
      if (maindata[i][4] == "High")
      {
         GMT = -1 * (TimeGMTOffset()/3600);
         time_str = TimeToString(
                                   StringToTime(MakeDateTime(maindata[i][2],maindata[i][3])) + GMT * 3600,
                                   TIME_DATE|TIME_MINUTES|TIME_SECONDS
                                );
         if (time_str == prev_time_str) continue;
         FileWrite(h2,maindata[i][1],time_str);
         prev_time_str = time_str;
      }
   }
   FileClose(h2);
   return(count);
}

string MakeDateTime(string strDate, string strTime)
{
	// Print("Converting Forex Factory Time into Metatrader time..."); //added by MN
	// Converts forexfactory time & date into yyyy.mm.dd hh:mm
	int n1stDash = StringFind(strDate, "-");
	int n2ndDash = StringFind(strDate, "-", n1stDash+1);

	string strMonth = StringSubstr(strDate, 0, 2);
	string strDay = StringSubstr(strDate, 3, 2);
	string strYear = StringSubstr(strDate, 6, 4); 
//	strYear = "20" + strYear;
	
	int nTimeColonPos = StringFind(strTime, ":");
	string strHour = StringSubstr(strTime, 0, nTimeColonPos);
	string strMinute = StringSubstr(strTime, nTimeColonPos+1, 2);
	string strAM_PM = StringSubstr(strTime, StringLen(strTime)-2);

	int nHour24 = StrToInteger(strHour);
	if ((strAM_PM == "pm" || strAM_PM == "PM") && nHour24 != 12)
	{
		nHour24 += 12;
	}
	if ((strAM_PM == "am" || strAM_PM == "AM") && nHour24 == 12)
	{
		nHour24 = 0;
	}
 	string strHourPad = "";
	if (nHour24 < 10) 
		strHourPad = "0";

	return(StringConcatenate(strYear, ".", strMonth, ".", strDay, " ", strHourPad, nHour24, ":", strMinute));
}

void RebuildNewsArray()
{
   NewsConvert();
   string sBuffer = "";
   
   int i = 0;
   int h1 = FileOpen(EventFile,FILE_SHARE_READ|FILE_CSV);
   if (h1 < 0)
   {
   	ArrayResize(AvoidTime,1);
   	ArrayResize(AvoidSymbol,1);
   	return;
   }
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(Symbol(),sBuffer) >= 0) 
      {
         ArrayResize(AvoidSymbol,i+2);
         AvoidSymbol[i+1] = sBuffer;
         ArrayResize(AvoidTime,i+2);
         sBuffer = FileReadString(h1);
         AvoidTime[i+1] = StrToTime(sBuffer);
         i++;
      }
   }
   FileClose(h1);
}

bool AvoidNews()
{
#ifdef CHT
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{
				str[0] = "預警雷達已偵測到 " + AvoidSymbol[i] + " 戰場於 " + StringSubstr(TimeToStr(AvoidTime[i]),11,5) + " 可能將有大量狂派埋伏";
        		str[1] = "超級達摩戰艦於 " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5) + " 啟動防禦系統進入一級警戒";
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "正在接收狂派情資...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "最後狂派活動時間: " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "已無其他狂派活動或情資已過期,即將休兵......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
#ifdef ENG
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{

				str[0] = "News Alert on " + AvoidSymbol[i] + " at time " + StringSubstr(TimeToStr(AvoidTime[i]),11,5);
        		str[1] = "Red alert! Braking System Standing By at  " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5);
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "News retrieving...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "Latest News at : " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "No trading info available......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
}

bool Margin()
{
	if (MarginSleep)   
	{
		double Margin_R = AccountInfoDouble(ACCOUNT_MARGIN_LEVEL);
		if (EqualZero(Margin_R)) return(true);
  		if (MarginLimit >= Margin_R)  
  		{
         ObjectSetString(0,Margin,OBJPROP_TEXT,"Margin level lower than " + DoubleToString(MarginLimit,2) + "  automated system suspended");
         return(false);
  		}else
  		{
  			ObjectSetString(0,Margin,OBJPROP_TEXT,"");
  		}
  	}
	return(true);
}

bool Float()
{
	if (FloatEq)   
	{
      double Profit = AccountProfit();
      if (Profit <= FloatAm)  
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"Floating loss greater than "+DoubleToString(FloatAm,2)+" automated system suspended");
         return(0);
      }else 
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
      }
	}
	return(true);
}

bool TimesStopConfig()
{
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	GlobalVariableSet(NextSW_str,0);
#ifdef GLOBAL_FILE
	if (!GlobalFileRead()) 
	{
		GlobalVars.G_EARunTime = 0;
		GlobalVars.G_MaxEquity = (AccountProfit() / AccountBalance()) * 100;
		GlobalVars.G_Start_P = TimeCurrent();
		GlobalVars.G_Start_Balance = AccountBalance();
		GlobalFileWrite();
		GlobalFileRead();
	}
	Print("EARuntime: " + TimeToString(GlobalVars.G_EARunTime,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("MaxLossEquity: " + DoubleToString(GlobalVars.G_MaxEquity,2));
	Print("Start_P: " + TimeToString(GlobalVars.G_Start_P,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("Start_Balance: " + DoubleToString(GlobalVars.G_Start_Balance,2));
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	
#endif
	return(true);
}

bool TimesStop(double &TimesProfit, double &TodayProfit)
{
#ifdef GLOBAL_FILE
   if (OrdersTotal()==0) 
   {
      GlobalVars.G_Start_Balance = AccountBalance();
      GlobalVars.G_Start_P = TimeCurrent();
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Status                                                       |
   //+------------------------------------------------------------------+
   if(EqualZero(iBalance))
   	Start_Balance = GlobalVars.G_Start_Balance;  
   else
      Start_Balance = iBalance;
   Start_P = GlobalVars.G_Start_P;
   EARunTime = GlobalVars.G_EARunTime;
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVars.G_MaxEquity) 
   {
      GlobalVars.G_MaxEquity = (AccountProfit() / Start_Balance) * 100;
   }
   //+------------------------------------------------------------------+
   //|Check Balance                                                     |
   //+------------------------------------------------------------------+
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return(false);
	}
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Status                                                      |
   //+------------------------------------------------------------------+
   GlobalVars.G_EARunTime = EARunTime;
   GlobalVars.G_Start_Balance = Start_Balance;
   GlobalVars.G_Start_P = Start_P;
   GlobalFileWrite();
#else
	if (OrdersTotal()==0) 
   {
      GlobalVariableSet(Start_Balance_str,AccountBalance());
      GlobalVariableSet(Start_P_str,TimeCurrent());
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Balance                                                      | 
   //+------------------------------------------------------------------+
   if (GlobalVariableCheck(Start_Balance_str))
   {
   	if(EqualZero(iBalance))
	   	Start_Balance = GlobalVariableGet(Start_Balance_str);  
   	else
      	Start_Balance = iBalance;
	}else 
	{
		Start_Balance = AccountBalance();
	}
   
   if (GlobalVariableCheck(Start_P_str))
   {
   	Start_P = (datetime)GlobalVariableGet(Start_P_str);
	}else
	{
		Start_P = TimeCurrent();
	}
	
	if (GlobalVariableCheck(EARUNTIME_str))
	{
		EARunTime = (datetime)GlobalVariableGet(EARUNTIME_str);
	}
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVariableGet(MaxEquity_str)) 
   {
      GlobalVariableSet(MaxEquity_str,(AccountProfit() / Start_Balance)*100);
   }
   //+------------------------------------------------------------------+
   //|Check Balance                                                     |
   //+------------------------------------------------------------------+
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return(false);
	}
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Balnace                                                     |
   //+------------------------------------------------------------------+
   GlobalVariableSet(EARUNTIME_str,EARunTime);
   GlobalVariableSet(Start_P_str,(double)Start_P);
   GlobalVariableSet(Start_Balance_str,Start_Balance);
#endif
	return(true);
}
#endif

void DeleteObjects()
{
	for (int i=5;i>=0;i--)
   {
      if(ObjectFind(Label_arr[i]) >= 0) ObjectDelete(0,Label_arr[i]);
      if(ObjectFind(Label_arr1[i]) >= 0) ObjectDelete(0,Label_arr1[i]);
      if (i < 2) 
      {
      	if (ObjectFind(NewsInfo[i]) >= 0) ObjectDelete(0,NewsInfo[i]);
      	if (ObjectFind(Light_str[i]) >= 0) ObjectDelete(0,Light_str[i]);
      }
   }
   if(ObjectFind(Run) >= 0) ObjectDelete(0,Run);
   if(ObjectFind(FloatLoss) >= 0) ObjectDelete(FloatLoss);
   if(ObjectFind(Margin) >= 0) ObjectDelete(Margin);
   if(ObjectFind(Light) >= 0) ObjectDelete(Light);
   //if (FileIsExist(EventFile)) FileDelete(EventFile);
}

void UpdateFiles(const int Mode)
{
	if (Mode == MODE_INIT)
	{
		if (!GlobalVariableCheck("DNSW")) GlobalVariableSet("DNSW",0);
	   if (GlobalVariableSetOnCondition("DNSW",1,0))
   	{
#ifdef MODE_AREA51
      	RebuildNewsArray();	
#endif
      	if (UninitializeReason() != 3)
      	{
#ifdef MODE_AREA51      	
         	if (ArraySize(AvoidTime) <= 1) NewGetSW = true;
         	else
         	{
         		if (TimeLocal() >= AvoidTime[ArraySize(AvoidTime)-1] + MinAfter)
					{
						NewGetSW = true;
					}
				}
#endif
         	Sleep(1000);
      	}
   	}
	}
	if (Mode == MODE_TICK)
	{
		if (
			(TimeHour(TimeLocal()) == DownloadHour && TimeMinute(TimeLocal()) == DownloadMin && H1BarTime != iTime(Symbol(),PERIOD_H1,0)) ||
			NewGetSW
			) 
		{
			if (!GlobalVariableCheck("DNSW0")) GlobalVariableSet("DNSW0",0); 
			if (GlobalVariableSetOnCondition("DNSW0",1,0))
			{
				if (!NewGetSW) 
				{
        			Sleep(1000);
        		}
        		Sleep(1000);
#ifdef MODE_AREA51
        		RebuildNewsArray();
#endif
        		GlobalVariableSet("DNSW0",0); 
        		NewGetSW = false;
        	}
        	H1BarTime = iTime(Symbol(),PERIOD_H1,0);
		}
	}
}



void AutoRepairSLTP(const bool flag,const int Type,const int Mode)
{
	double TP = 0.0;
   double SL = 0.0;
   double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (!flag) return;
	
	int Cnt = MyOrderTotal(Type);
	GetLastTciketINFO(Type,MaxPrice,MinPrice);
   if (Mode == MODE_FIRSTTRADE)
   {
      TP = TakeProfit;
      SL = StopLoss;
      if (MartinSW)
      	SL = 0.0;
      Set_SL_TP(MODE_SLTP_BYPOINT,Type,SL,TP);
   }
   
   if (Mode == MODE_MARTIN)
   {
   	switch (Type)
      {
         case OP_BUY:
            TP = Cal_TP(OP_BUY,MinPrice,TakeProfit);
            SL = 0;
            break;
         case OP_SELL:
            TP = Cal_TP(OP_SELL,MaxPrice,TakeProfit);
            SL = 0;
            break;
      }
      if (Cnt > 1)
      {
#ifdef MODE_AREA51
      	if (SingleOut)
      		Set_SL_TP(MODE_SLTP_BYPOINT,Type,0,TakeProfit);
      	else
      		Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#else
			Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#endif
      }
   }
}

string FileCharArrayToString(const string str_temp)
{
	uchar End_arr[];
	int j = 0;
	for(int i=0;i<StringLen(str_temp);i+=2)
	{
		ArrayResize(End_arr,j+1);
		End_arr[j] = (char)StringToInteger(StringSubstr(str_temp,i,2));
		j++;
	}
	return(CharArrayToString(End_arr,0,WHOLE_ARRAY,CP_ACP));
}

void CheckOSVersion()
{
	ulong dwVersion = GetVersion();
   uint dwMajorVersion = (uchar)(((ushort)(dwVersion & 0xffff)) & 0xff);
   printf("Major Version Of OS: %d",dwMajorVersion);
   if (dwMajorVersion < 6) 
   {
#ifdef CHT
      Alert("請注意！使用Windows XP(Server 2003)之系統將無法保證交易能正常執行！");
#endif
#ifdef ENG
		Alert("Attention!  Not guarantee to run well in Windows XP(Server 2003)");
#endif
   }
}

void SetKbar(double& Kbar[])
{
   Kbar[0] = (double)iTime(Symbol(),1,0);
   Kbar[1] = iOpen(Symbol(),1,0);
   Kbar[2] = iHigh(Symbol(),1,0);
   Kbar[3] = iLow(Symbol(),1,0);
   Kbar[4] = iClose(Symbol(),1,0);
   Kbar[5] = (double)iVolume(Symbol(),1,0);
}
#ifdef MODE_AREA51
void BrakeSystemFun()
{
   int Light_Arrow[2] = {108,161};
	if (BrakeSystem)
   {
      int Pos = 50;
      double Position=20;
#ifdef CHT
      string Active = "煞車系統啟動中";
      string Deactive = "煞車系統待命中";
#endif
#ifdef ENG
		string Active = "Braking System Initiating";
      string Deactive = "Braking System Stand By";
#endif
      double Position_L = Bid + Position * point;
      for (int i=0;i<ArraySize(Light_str);i++)
      {
      	if (ObjectFind(Light_str[i]) < 0)
         	ObjectCreate(0,Light_str[i],OBJ_ARROW,0,0,0);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_ARROWCODE,Light_Arrow[i]);
      	if (i == 0) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLime);
      	if (i == 1) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLawnGreen);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_WIDTH,5);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_TIME1,TimeCurrent()+300);
      	ObjectSetDouble(0,Light_str[i],OBJPROP_PRICE1,Position_L);
      }
      
      int EnergyBall=Ball(Status,SleepStop,Last_Time,Last_Price,SleepTime,(int)TimeCurrent(),point,Energy,Close[0]);
      if (EnergyBall<0)
      {
         Alert("Energy Brake Error");
         TradeSW = false;
         return;
      }

      if (TimeCurrent()<=SleepStop[0])
      {
         TradeSW = false;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrRed);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrCrimson);
#ifdef CHT
         ObjectSetString(0,Light,OBJPROP_TEXT,Active+", "+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" 分鐘後啟動");
#endif
#ifdef ENG
			ObjectSetString(0,Light,OBJPROP_TEXT,Active+", initiate after"+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" minutes");
#endif
      }
      else
      {
         TradeSW = true;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrLime);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrLawnGreen);
         ObjectSetString(0,Light,OBJPROP_TEXT,Deactive);
      }
   }
   else
   {
      TradeSW = true;
      ObjectDelete(Light_str[0]);
      ObjectDelete(Light_str[1]);
   }
}
#endif

bool Lots_Valid(const double iLot)
{
	double ValuePerLot = SymbolInfoDouble(NULL,SYMBOL_TRADE_CONTRACT_SIZE) / AccountInfoInteger(ACCOUNT_LEVERAGE);
	if ((iLot * ValuePerLot) > AccountInfoDouble(ACCOUNT_FREEMARGIN)) return(false);
	return(true);
}

int GetTicket(int &Ticket_arr[])
{
	int Cnt = 0;
	for (int i=0;i<ArraySize(Ticket_arr);i++)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (Ticket_arr[i] == OrderTicket())
			{
				Cnt++;
				break;
			}
		}
	}
	return(Cnt);
}

int MyOrderTotal_Enders(const string symbol,const int Type,const int ID)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL && OrderSymbol() == symbol && OrderMagicNumber() == ID)
		{
		   x++;
		   continue;
		}
		if ((Type == OP_BUY && ((OrderType() & 1) == 1 ? false : true)) || (Type == OP_SELL && ((OrderType() & 1) == 1 ? true : false)))
	   {  
	   	if (OrderSymbol() == symbol && OrderMagicNumber() == ID)
			{
				x++;
			}
		}
	}
	return(x);
}

bool EAControl_Enders()
{
	bool Out = true;
	string str ="";
		
	if (!EGFlag) 
	{
		str = "Ender";
		Out = false;
	}
	Comment(str);
	return(Out);
}
int EndersGamgeCnt = 0;
void EndersGameModule(const string symbol, const int Type, int id, bool &flag)
{
	if (MyOrderTotal_Enders(symbol,Type,id) == 0)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (OrderCloseTime() > EGStartTime)
			{
				EndersGamgeCnt++;
				Alert(Symbol() + " 戰場已完成第" + IntegerToString(EndersGamgeCnt) + " 次戰役");
				EGStartTime = TimeCurrent();
				break;
			}
		}
	}
	if (EndersGamgeCnt >= OutCnt)
	{
		Alert("已達成設定局數，即將離開 " + Symbol() + " 戰場");
		flag = false;
		ExpertRemove();
	}
}

X Bomb(BUY_5%).mq4

//+------------------------------------------------------------------+
//|                                                  AllNewXBOMB.mq4 |
//|                                                APP Wargame-Hydra |
//|                     http://www.facebook.com/groups/moneywargame/ |
//+------------------------------------------------------------------+


#property strict

#include <WarGameDLL.mqh>
#include <WinUser32.mqh>
#import "User32.dll"
int GetDC(int);
int ReleaseDC(int,int);
#import "Gdi32.dll"
int GetDeviceCaps(int,int);
#import "stdlib.ex4"
string ErrorDescription(int error_code);
#import "kernel32.dll"
ulong GetVersion(void);
#import

#define CHT	1
//#define ENG	1

#define ZERO 0.000001
#define MODE_BUY 1
//#define MODE_SELL 1
//#define MODE_DEMO 1
//#define MODE_AREA51 1

#define MODE_AGET 0
#define MODE_FGET 1
#define MODE_CHECKTIMEIN 0
#define MODE_TIMESTP 1
#define MODE_TIMESSL 2
#define MODE_DAILYTP 3
#define MODE_INIT 3
#define MODE_TICK 4
#define MODE_FIRSTTRADE  	 99
#define MODE_MARTIN  		100
#define OP_ALL       101
#define MODE_SLTP_BYPOINT 102
#define MODE_SLTP_BYPRICE 103
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+


int id_1 = 3333333;

int ErrorCode = 0;
int DownloadHour = 6;
int DownloadMin = 0;
int BarTime = 0;

double NextTime=0.5;
double point = 0.0;
double iLots = 0.0;
double Start_Balance = 0;
double iPending;

datetime H1BarTime = 0;
datetime FirstTradeBar = 0;
datetime Start_P = 0;
datetime EARunTime = 0;
datetime AvoidTime[1] = {0};
datetime EGStartTime = TimeCurrent();
bool EGFlag = true;

bool NewGetSW = false;
bool AuthorGetSW = false;
bool TradeSW = true;

int Last_Time[1]={0};
int Status[1]={0};
double Last_Price[1]={-1.0};
double MinPriceShot = 0.0;

string AvoidSymbol[1] = {""};
string LogText[4] = {"小虧為贏" , "次止盈" , "次止損" , "日止盈"};
string Label_arr[6] = 
{
   "TimesProfitPer",
   "Start_Balance",
   "TimePast",
   "Orders",
   "TodayProfitPer",
   "MaxLoss"
};
   
string Label_arr1[6] = 
{
   "TimesProfitPer0",
   "Start_Balance0",
   "TimePast0",
   "Orders0",
   "TodayProfitPer0",
   "MaxLoss0"
};

string Start_P_str = "Start_P";
string Start_Balance_str = "Start_Balance";
string MaxEquity_str = "MaxEquity";
string NextSW_str = "NextSW";
string EARUNTIME_str = "EARUNTIME";

string Light = "LightStatus";
string Run = "RunStatus";
string Margin = "Margin";
string FloatLoss = "Float";
string NewsInfo[2] = {"NewsInfo0", "NewsInfo1"};
string Light_str[2] = {"Light","Light2"};
#ifdef CHT
string NewsEngage = "狂派情資已接收完全.....全面開戰！";
#endif
#ifdef ENG
string NewsEngage = "News retrieval completed .....automated system initiated";
#endif
//+------------------------------------------------------------------+
//|Ender's Game Par                                                  |
//+------------------------------------------------------------------+
datetime ticket_time = 0;

int OutCntTemp = 0;

#ifdef CHT
input bool AutoRepairSW = false; //自動回復停損停利
#ifdef MODE_AREA51
input bool BrakeSystem=true; //ESP戰艦穩定煞車系統
int pSeconds=14;
input double Energy=4; //能量偵測靈敏度
input int SleepTime=15; //能量引擎啟動時間(分鐘)
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //預警雷達控制模組
input int MinBefore = 30; //前幾分鐘閃避
input int MinAfter = 30; //後幾分鐘閃避
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //保證金比例控制模組
input double MarginLimit = 2000; //保證金低於％數暫停
input bool FloatEq = false; //浮虧控制模組
input double FloatAm = -4000; //虧損(-金額)暫停
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //開始時間，格式為HH
input int DayStopHour = 00; //結束時間，格式為HH
input string WeekDay="12345"; //週一執行，鍵入1;週一週二鍵入12
input bool WeekStartOverSW = true; //一個禮拜頭尾不間斷
input int WeekStartHour = 8; //第一天幾點開始
input int WeekStopHour = 17; //最後一天幾點結束
input string a5 = "-------------------"; //
input double iBalance = 0; //止盈計算本金基準
input bool TakeProfitPercentSW = true; //次止盈開關
input double TakeProfitPercent = 5; //次止盈,每次最多獲利％,立即平倉歸零重啟新局
input bool TakeProfitPercentDaySW = true; //日止盈開關
input double TakeProfitPercentDay = 1000; //日止盈,每日最多獲利％,立即停止交易,隔日重新啟動
input bool StopLossPercentSW = true; //浮虧止損開關
input double StopLossPercent = 1000; //現時帳戶浮虧止損,止損基準值:帳戶餘額
input bool SleepLoss = true; //止損後當日不再出兵
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //小虧為贏開關
input int MaxTime = 150; //每局最長時間(分鐘)
input int MaxIn = 10; //每局最多兵力
input double MaxP = 0.5; //達成以上條件小虧為贏
input string c = "-------------------"; //　
input double Pending = 0.0;  //掛單價格 
input bool SingleOut = false; //單進單出
#endif
input bool MartinSW = true; //馬丁開關
#ifdef MODE_AREA51
input int MartinMStart = 2; //第幾張馬丁開始加倍
#endif
input double LotMultiplikator = 1.382; //馬丁倍率
input double Step = 30; //馬丁間距
input int MaxTrades = 5; //最多單數
input double MM = 5.0; //資金管理％數
input double Lots = 0.01; //手數
input double TakeProfit = 10.0; //獲利點數
input double StopLoss = 10.0; //停損點數
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
#ifdef ENG
input bool AutoRepairSW = false; //Auto Repair SL&TP
#ifdef MODE_AREA51
input bool BrakeSystem=true; //BrakeSystem
int pSeconds=14;
input double Energy=4; //Braking System Sensitivity Control
input int SleepTime=15; //Braking System Sleeping Time
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //Braking System Sleeping Time
input int MinBefore = 30; //Stop trading few minutes before news alert
input int MinAfter = 30; //Stop trading few minutes after news alert
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //Margin Level Control Module
input double MarginLimit = 2000; //Margin level % limit to stop trading
input bool FloatEq = false; //Floating Loss Control Module
input double FloatAm = -4000; //Floating loss (-$amount) limit to stop trading
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //Starting Time, in HH format
input int DayStopHour = 00; //Ending Time, in HH format
input string WeekDay="12345"; //Star on Monday=1, Monday and Tuesday=12
input bool WeekStartOverSW = true; //Trade everyday without stop
input int WeekStartHour = 8; //First Day Staring Time
input int WeekStopHour = 17; //Last Day Ending Time
input string a5 = "-------------------"; //
input double iBalance = 0; //Capital setting for Profit/Loss termination
input bool TakeProfitPercentSW = true; //Switch of Secondary Take Profit
input double TakeProfitPercent = 1; //Secondary Take Profit, max. % of profit to close trade, and reset
input bool TakeProfitPercentDaySW = true; //Switch of Daily Take Profit 
input double TakeProfitPercentDay = 1000; //Daily Take Profit, max. % of profit to close trade, reset on the next day
input bool StopLossPercentSW = true; //Switch of stopping Floating Loss
input double StopLossPercent = 1000; //Stop Loss of Current Account Max. Floating Loss (Based on Balance)
input bool SleepLoss = true; //Stop trading when reaching stop loss the same day
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //Switch of Small Loss To Win
input int MaxTime = 150; //Max. Time Per Set (Minutes)
input int MaxIn = 10; //Max. Trades Per Set
input double MaxP = 0.5; //Criteria of Small Loss for Win
input string c = "-------------------"; //　
input double Pending = 0.0;  //Pending Order at Price 
input bool SingleOut = false; //Take Profit Single Out
#endif
input bool MartinSW = true; //Start Martingale
#ifdef MODE_AREA51
input int MartinMStart = 2; //Number to start martingale multiplication 
#endif
input double LotMultiplikator = 1.382; //Martingale Multiplier
input double Step = 30; //Martingale Distance
input int MaxTrades = 5; //Max. Number of Orders
input double MM = 5.0; //Fund Management %
input double Lots = 0.01; //Order Size_lot
input double TakeProfit = 10.0; //Take Profit 
input double StopLoss = 10.0; //Stop Loss
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
string Newsfile = "ffcal_week_this.xml";
string EventFile = "NewsEvent.csv";
string AuthorFile = "58426f6d625f313530333235";

int newverMT4=1;
int accountMode=1;
string accountID="307383675471044242004002478351777461355442714470680287367714305481330815525625712384844860686545066036787326516602236575060168253182382223384704564023840278267055768862740384331027464044486413846161126644733334767107807263270163337825300231566058026024280";
string EndDate="773007153340217643304083503643662664135084287337732519558536277033134667745660522246521343428004006023880442472680006145250813282575063624287537184878081645870548647881741716731701678285887276610110026947142762324384327364030733857683026770853863520111866";

int OnInit()
{
//---
	CheckOSVersion();
	//+------------------------------------------------------------------+
	//|Get Point By Symbol                                               |
	//+------------------------------------------------------------------+
   if (Digits==5 || Digits==3)
   {
      point=Point*10;
   }
   else
   {
      point=Point;
   }
   //+------------------------------------------------------------------+
   //|                                                                  |
   //+------------------------------------------------------------------+
   iLots = OpLots();
   ticket_time = TimeCurrent();

   //+------------------------------------------------------------------+
   //|Random Minute                                                     |
   //+------------------------------------------------------------------+
   MathSrand(GetTickCount());
   DownloadMin = 1 + ((59 * MathRand()) / 32768);
#ifdef MODE_AREA51
   TimesStopConfig();
   //+------------------------------------------------------------------+
   //|Update Files                                                      |
   //+------------------------------------------------------------------+
   iPending = Pending;
#endif
   UpdateFiles(MODE_INIT);
//---
   return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
	GlobalVariableSet("DNSW",0);
   DeleteObjects();
}
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{

   #ifdef MODE_BUY
if (NonStop==false) EndersGameModule(Symbol(),OP_BUY,id_1,EGFlag);
#endif

#ifdef MODE_SELL
if (NonStop==false) EndersGameModule(Symbol(),OP_SELL,id_1,EGFlag);
#endif
   UpdateFiles(MODE_TICK);
	 if (!EAControl_Enders()) return;
#ifdef MODE_AREA51   
   double TimesProfit = 0.0;
   double TodayProfit = 0.0;
   if (!CloseAllTrades()) return;
   if (!TimesStop(TimesProfit,TodayProfit)) return;
   Displayprofit(TimesProfit,TodayProfit);
	CheckTimeIn(TimesProfit);
   //+------------------------------------------------------------------+
   //|Shutdown EA                                                       |
   //+------------------------------------------------------------------+
   if (!EAControl()) return;
   BrakeSystemFun();
#endif
   
#ifdef MODE_BUY
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_BUY,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{
		FirstTrade(OP_BUY);
		Martin(OP_BUY);
	}
#endif
#ifdef MODE_SELL
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_SELL,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{	
		FirstTrade(OP_SELL);
   	Martin(OP_SELL);
   }
#endif
	
}
//+------------------------------------------------------------------+
//|Determine Martingale TakeProfi                                    |
//+------------------------------------------------------------------+
double Cal_TP(int Type,double iPrice,double TPPoint)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double AllOrderLots = 0.0;
   double TP_Goal;
   double FirstOrderLots = 0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderType() == Type && OrderMagicNumber() == id_1 && OrderSymbol() == Symbol())
      {
         FirstOrderLots = OrderLots();
         TotalLots += OrderLots();
         if (Type == OP_SELL)
         	TotalDisProduct += (iPrice - OrderOpenPrice()) / point * OrderLots();
        	if (Type == OP_BUY)
        		TotalDisProduct += (OrderOpenPrice() - iPrice) / point * OrderLots();
      }
   }
   if (EqualZero(TotalLots)) return(0.0);
   TP_Goal = ((TPPoint * FirstOrderLots) + TotalDisProduct) / TotalLots;
   if (Type == OP_SELL)
   	return(iPrice - (TP_Goal * point));
  	if (Type == OP_BUY)
   	return(iPrice + (TP_Goal * point));
   return(0.0);
}
//+------------------------------------------------------------------+
//|OrderSend Function                                                |
//+------------------------------------------------------------------+
int SendOrders(const int Type ,const string iComment)
{
   double TP = 0.0;
   double SL = 0.0;
   double InPrice = 0.0;
   switch (Type)
   {
      case OP_BUY:
      InPrice = Ask;
      break;
      
      case OP_SELL:
      InPrice = Bid;
      break;
   }
   double SendOrders_Lots = MartinLots(Type);
   if (!Lots_Valid(SendOrders_Lots)) 
   {
   	Alert("No Money");
   	return(-1);
   }
   int Ticket = OrderSend(Symbol(),Type,SendOrders_Lots,InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,Type == OP_BUY ? clrLime : clrRed);
   if (Ticket < 0)
   {   
      ErrorCode = GetLastError();
      if (ErrorCode != 4109)
         Alert("Send " + iComment + " Order Error: " + ErrorDescription(ErrorCode));
   }
   return(Ticket);
}

void Set_SL_TP(const int Mode,const int Type,double iSL,double iTP)
{
   double SL = 0.0;
   double TP = 0.0;
   for (int z=0;z<OrdersTotal();z++)//執行N次篩選(N=訂單總數)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)//挑選出同貨幣對 && BUY單 && MagicNumber=本程式 的訂單
      {
         if (Mode == MODE_SLTP_BYPOINT)
         {
           	if (Type == OP_BUY || Type == OP_BUYSTOP || Type == OP_BUYLIMIT)
           	{
           		TP = OrderOpenPrice() + iTP * point;
           		SL = OrderOpenPrice() - iSL * point;
           	}
           	if (Type == OP_SELL || Type == OP_SELLSTOP || Type == OP_SELLLIMIT)
           	{
           		TP = OrderOpenPrice() - iTP * point;
           		SL = OrderOpenPrice() + iSL * point;
           	}
           	if (EqualZero(iTP)) TP = 0;
           	if (EqualZero(iSL)) SL = 0;
         }else
         {
           	SL = iSL;
         	TP = iTP;
         }
         if (iTP < 0)
         {
            TP = OrderTakeProfit();
         }
         if (iSL < 0)
         {
            SL = OrderStopLoss();
         }
         if ((CompareDouble(OrderStopLoss(),NormalizeDouble(SL,Digits))) && (CompareDouble(OrderTakeProfit(),NormalizeDouble(TP,Digits))))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,White))
            {
               Alert("Set_SL_TP " + IntegerToString(OrderTicket()) + "  Error: " + ErrorDescription(GetLastError()));
            }
         }
      }
   }
}

bool CompareDouble(const double A,const double B)
{
   if (MathAbs(A - B) <= ZERO) return(true);
   return(false);
}

bool EqualZero(const double A)
{
   if (A <= ZERO && A >= -ZERO) return(true);
   return(false);
}

void Martin(const int Type)
{
	double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (MartinSW)
	{
		GetLastTciketINFO(Type,MaxPrice,MinPrice);
		if (BarTime == Bars && MyOrderTotal(Type) < MaxTrades)
		{
			if (SendOrders(Type,"XBOMB" + IntegerToString(MyOrderTotal(Type) + 1)) > 0)
			{
				AutoRepairSLTP(true,Type,MODE_MARTIN);
				BarTime = 0;
			}
		}
		if (Type == OP_BUY && MyOrderTotal(OP_BUY) > 0)
		{
			if (Ask <= MinPrice - Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (Type == OP_SELL && MyOrderTotal(OP_SELL) > 0)
		{
			if (Bid >= MaxPrice + Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (MyOrderTotal(Type) > 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_MARTIN);
	}
}

void FirstTrade(const int Type)
{
	int Cnt = MyOrderTotal(Type);
	if (Type == OP_BUY && (MyOrderTotal(OP_BUYSTOP) > 0 || MyOrderTotal(OP_BUYLIMIT) > 0)) return;
	if (Type == OP_SELL && (MyOrderTotal(OP_SELLSTOP) > 0 || MyOrderTotal(OP_SELLLIMIT) > 0)) return;
	if (Cnt == 0 && FirstTradeBar != Time[0])
	{
		if (SendOrders(Type,"XBOMB(" + IntegerToString(Type) + ")." + IntegerToString(Cnt + 1)) > 0)
		{
			AutoRepairSLTP(true,Type,MODE_FIRSTTRADE);
			FirstTradeBar = Time[0];
		}
	}
	if (Cnt == 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_FIRSTTRADE);
}

double GetLastTciketINFO(const int Type,double &MaxPrice,double &MinPrice)
{
	double iMaxPrice = 0.0;
	double iMinPrice = 5000.0;
	for (int i=0;i<OrdersTotal();i++)
	{
		if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
		if (OrderMagicNumber() == id_1 && OrderSymbol() == Symbol() && OrderType() == Type)
		{
			if (OrderOpenPrice() >= iMaxPrice)
				iMaxPrice = OrderOpenPrice();
			if (OrderOpenPrice() <= iMinPrice && !EqualZero(iMinPrice))
				iMinPrice = OrderOpenPrice();
		}
	}
	MaxPrice = iMaxPrice;
	MinPrice = iMinPrice;
	return(0.0);
}

int MyOrderTotal(int Type)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL)
		{
		   x++;
		   continue;
		}
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)
		{
			x++;
		}
	}
	return(x);
}

void iCloseOrders(int type)
{
	int C0_cnt;
	if (type == OP_BUYSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) 
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUYSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}

	if (type == OP_SELLSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELLSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_BUY) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUY && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrLime))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_SELL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELL && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_ALL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--)
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
   		if (OrderType() == OP_BUYSTOP || OrderType() == OP_SELLSTOP || OrderType() == OP_BUYLIMIT || OrderType() == OP_SELLLIMIT)
   		{
   		   if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
   		}else {
   		   if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
			   {
   			   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
   			}
         }
		}
	}
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selecttickets()
{
   int cnt_tickets = 0;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT))
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT))
#endif
         {
            ticket_time=OrderOpenTime();
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selectticketsfrhistory()
{
   int cnt_tickets = 0;
   for (int i=0;i<OrdersHistoryTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT) && ticket_time<=OrderOpenTime())
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT) && ticket_time<=OrderOpenTime())
#endif
         {
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double MartinLots(const int Type)
{
	int Cnt = MyOrderTotal(Type);
#ifdef MODE_AREA51
	int StartM = MartinMStart;
	if (StartM <= 0) StartM = 2;
#else
	int StartM = 2;
#endif
	if (Cnt <= 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,0),2));
	if (Cnt > 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,(double)(Cnt - 1) - (StartM - 2)),2));
	return(0.0);
}
//+------------------------------------------------------------------+
//|Optimize Lots                                                     |
//+------------------------------------------------------------------+
double OpLots()
{
	double Out = Lots;
	if (!EqualZero(MM) && MM > 0)
	{
		Out = (AccountBalance() * MM ) / (1000 * TakeProfit);
	}
	return(Out);
}
#ifdef MODE_AREA51
void PendingTrade(const int Type,const string iComment)
{
	double InPrice = Pending;
	int Ticket = 0;
	int iType = -1;
	if (Type == OP_BUY)
	{
		if (InPrice > Ask)
			iType = OP_BUYSTOP;
   	if (InPrice < Ask)
			iType = OP_BUYLIMIT;
		if (MyOrderTotal(OP_BUYSTOP) >= 1 || MyOrderTotal(OP_BUYLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
		   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrLime);
		if (Ticket < 0)
		{
 	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
     	}
     	else
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
     	}
  	}
  	
  	if (Type == OP_SELL)
	{
		if (InPrice < Bid)
			iType = OP_SELLSTOP;
   	if (InPrice > Bid)
			iType = OP_SELLLIMIT;
   	if (MyOrderTotal(OP_SELLSTOP) >= 1 || MyOrderTotal(OP_SELLLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrRed);
		if (Ticket < 0)
		{
  	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
	   {
	     	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
	   }
	   else
	   {
	   	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
	   }
  	}
  	return;
}

bool CloseAllTrades()
{
   if (GlobalVariableGet(NextSW_str) == 1) 
   {
#ifdef MODE_BUY
      iCloseOrders(OP_BUY);
#endif
#ifdef MODE_SELL
		iCloseOrders(OP_SELL);
#endif
		Sleep(10000);
      if (MyOrderTotal(OP_ALL) > 0)
      {
#ifdef CHT
         Alert("水雷未掃除成功");
#endif
#ifdef ENG
			Alert("Submarine mine sweeper not completed");
#endif
         return(false);
      }else 
      {
      	Sleep((int)(NextTime * 1000 * 60));
      }
   }
   return(true);
}

void CheckTimeIn(const double TimesProfit)
{
	datetime RunTime = (TimeCurrent() - Start_P) / 60;
	if (SmallLossWinSW && RunTime >= MaxTime && OrdersTotal() >= MaxIn && TimesProfit >= MaxP)
	{
		//Close all Trades
		GlobalVariableSet(NextSW_str,1);
		WriteLog(MODE_CHECKTIMEIN,"");
	}
}

void WriteLog(const int Mode,const string in)
{
	double TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
	string str = WindowExpertName() + "," + Symbol() + "," + TimeToString(TimeCurrent(),TIME_DATE|TIME_DATE|TIME_SECONDS) +
					 ": " + LogText[Mode] + " , " + in + 
					 "," + Start_Balance_str + ": " + DoubleToString(Start_Balance,2) +
					 "," + Start_P_str + ": " + IntegerToString(Start_P) +
					 ",TimeProfit: " + DoubleToString(TimesProfit,2) +
					 "| Set: 餘:" + DoubleToString(iBalance,2) +
					 ",次:" + DoubleToString(TakeProfitPercent,2) + 
					 ",日:" + DoubleToString(TakeProfitPercentDay,2) +
					 ",損:" + DoubleToStr(StopLossPercent ,2) +
					 ",時:" + DoubleToString(MaxTime,2) +
					 ",單:" + DoubleToString(MaxIn,2) +
					 ",虧:" + DoubleToString(MaxP,2) +
					 "\n" 
					 ;
	int h1 = FileOpen("Logs.txt",FILE_READ|FILE_WRITE|FILE_TXT);
	if (h1 < 0) Print("Open Log Failed");
	FileSeek(h1,0,SEEK_END);
	int byte = FileWriteString(h1,str,StringLen(str));
	if (byte <= 0) Print("Write Log Failed");
	FileClose(h1);
}

double GetProfitPeriod(datetime today)
{
   double profit=0;
   int total =OrdersHistoryTotal();
   for (int i=0; i<total; i++)
   {
      if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
      {
         if (OrderType() == OP_BUY || OrderType() == OP_SELL)
         {
            if (today < OrderCloseTime())
               profit += OrderProfit() + OrderCommission() + OrderSwap();
         }
      }
   }
   return (profit);
}

void Displayprofit(const double TimesProfit, const double TodayProfit)
{
   int Pos = 50;
   string Label_Text = ""; 
   string Label_Text1 = ""; 
   
   if (ObjectFind(Run) < 0) ObjectCreate(0,Run,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Run, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Run, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Run, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Run, OBJPROP_YDISTANCE, Pos);
   ObjectSetInteger(0,Run, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Run, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetString(0,Run, OBJPROP_FONT, "微軟正黑體");
   
   for (int i=0;i<6;i++)
   {
      if(ObjectFind(Label_arr[i]) < 0) ObjectCreate(0,Label_arr[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_XDISTANCE,120);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr[i],OBJPROP_FONT,"微軟正黑體");
      
      if(ObjectFind(Label_arr1[i]) < 0) ObjectCreate(0,Label_arr1[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_XDISTANCE,20);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr1[i],OBJPROP_FONT,"微軟正黑體");
      
      switch(i)
      {
#ifdef CHT
         case 0:
         Label_Text = "單次擄獲狂派戰俘: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "進場起始兵力: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "進場經過時間: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " 分鐘";
         break;
         
         case 3:
         Label_Text = "戰場兵力: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "今日擄獲狂派戰俘累積至: " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "最大暫時被擄穫兵力: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
#ifdef ENG
			case 0:
         Label_Text = "Profit/Loss: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "Start Balance: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "Time Elapsed: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " Minutes";
         break;
         
         case 3:
         Label_Text = "Orders: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "Profit/Loss (Today): " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "Maximum Floating Loss: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
      }
      ObjectSetString(0,Label_arr[i],OBJPROP_TEXT,Label_Text);
      ObjectSetString(0,Label_arr1[i],OBJPROP_TEXT,Label_Text1);
   }
   
   for (int i=0;i<ArraySize(NewsInfo);i++)
   {	
   	if (ObjectFind(NewsInfo[i]) < 0) ObjectCreate(0,NewsInfo[i],OBJ_LABEL,0,0,0);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_CORNER, 1);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_COLOR, clrGold);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_XDISTANCE, 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_YDISTANCE, Pos + 150 + i * 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_FONTSIZE, 10);
	   ObjectSetString(0,NewsInfo[i], OBJPROP_FONT, "微軟正黑體");
   }
   
   ObjectCreate(0,Margin,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Margin, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Margin, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Margin, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Margin, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Margin, OBJPROP_YDISTANCE, Pos+195);
   ObjectSetInteger(0,Margin, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,Margin, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,Margin,OBJPROP_TEXT,"");
	
	ObjectCreate(0,FloatLoss,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,FloatLoss, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,FloatLoss, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,FloatLoss, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,FloatLoss, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,FloatLoss, OBJPROP_YDISTANCE, Pos+215);
   ObjectSetInteger(0,FloatLoss, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,FloatLoss, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
	
	if (ObjectFind(Light) < 0)
     	ObjectCreate(0,Light,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Light,OBJPROP_CORNER,1);
   ObjectSetInteger(0,Light, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Light,OBJPROP_COLOR,clrGold);
   ObjectSetInteger(0,Light, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Light,OBJPROP_XDISTANCE,20);
   ObjectSetInteger(0,Light,OBJPROP_YDISTANCE,Pos+235);
   ObjectSetString(0,Light, OBJPROP_FONT, "微軟正黑體");
   ObjectSetString(0,Light,OBJPROP_TEXT,"");
}

bool EAControl()
{
	bool Out = true;
	string str ="";
	if (!Margin()) 
	{
		str = "Margin";
		Out = false;
	}
	if (!Float()) 
	{
		str = "Float";
		Out = false;
	}
	if (TimeCurrent() <= EARunTime) 
	{
		str = "SLSLeep";
		Out = false;
	}
	if (!WeekStartOver())
	 {
		str = "Time";
		Out = false;
	}
	if (!AvoidNews()) 
	{
		str = "News";
		Out = false;
	}
	
	/*if (!Margin() || !Float() || TimeCurrent() <= EARunTime || !WeekStartOver() || !AvoidNews()) 
	{
		Comment("EAControl 1");
		return(false);
	}*/
	Comment(str);
	return(Out);
}

bool iTimeControl()
{
	bool EA_Valid = false;
   if (DayStopHour == DayStartHour) EA_Valid = true;
   if (DayStopHour < DayStartHour) 
   {
		if (TimeHour(TimeLocal()) >= DayStartHour || TimeHour(TimeLocal()) < DayStopHour) 
			EA_Valid = true;
   }
    
    if (DayStopHour > DayStartHour) 
    {
    	if ((TimeHour(TimeLocal()) >= DayStartHour && TimeHour(TimeLocal()) < DayStopHour)) 
    		EA_Valid = true;
    }
    return(EA_Valid);
}   

bool WeekStartOver()
{
   bool EA_Valid = true;
   int Dayweek = TimeDayOfWeek(TimeLocal());
   
   if (WeekStartOverSW)
   {
   	if (
   		Dayweek < StrToInteger(StringSubstr(WeekDay,0,1)) || 
   		(Dayweek == StrToInteger(StringSubstr(WeekDay,0,1)) && TimeHour(TimeLocal()) < WeekStartHour) || 
     		(Dayweek == StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1)) && TimeHour(TimeLocal()) >= WeekStopHour ) || 
     		Dayweek > StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1))
     		)
     	{
     		EA_Valid = false;
     	}
   }else
   {
   	if (iTimeControl()) 
   	{
         if (StringFind(WeekDay,DoubleToStr(Dayweek,0),0) >= 0) 
         {
            EA_Valid = true;
         }else
         {
         	EA_Valid = false;
         }
      }else
      {
      	EA_Valid = false;
      }
   }
   
#ifdef CHT
   if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"未在設定時區內，現有戰役達成後將離開戰場"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"已進入作戰時區內,全面啟動執行..."); 
   	return(true);
   }
#endif 
#ifdef ENG
	if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Not in trading time zone, stop trading after current set"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Entered trading time zone, automated system initiated"); 
   	return(true);
   }
#endif
}

int NewsConvert()
{ 
   string maindata[][7];
   string sBuffer = "";
   if (!FileIsExist(Newsfile)) 
   {
      return(0);
   }
   int h1=FileOpen(Newsfile,FILE_SHARE_READ|FILE_CSV);
   int i = 0 , j = 0;
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(sBuffer,"<title>") >= 0)
      {
         ArrayResize(maindata,j+1);
         maindata[j][0] = sBuffer;
         for (i=1;i<7;i++)
         {
            maindata[j][i] = FileReadString(h1);
         }
         j++;
      }
   }
   FileClose(h1);
   int count = ArrayRange(maindata,0);
   
   string sTags[7] = { "<title>", "<country>", "<date><![CDATA[", "<time><![CDATA[", "<impact><![CDATA[", "<forecast><![CDATA[", "<previous><![CDATA[" };
   string eTags[7] = { "</title>", "</country>", "]]></date>", "]]></time>", "]]></impact>", "]]></forecast>", "]]></previous>" };
   for (i=0;i<count;i++)
   {
      for (j=0;j<7;j++)
      {
         maindata[i][j]=StringSubstr(maindata[i][j],StringFind(maindata[i][j],sTags[j],0)+StringLen(sTags[j]),StringFind(maindata[i][j],eTags[j],0)-StringFind(maindata[i][j],sTags[j],0)-StringLen(sTags[j]));
      }
   }
   int h2 = FileOpen("NewsEvent.csv",FILE_SHARE_READ|FILE_WRITE|FILE_CSV,';');
   int GMT = 0;
   string time_str = "";
   string prev_time_str = "";
   for (i=0;i<count;i++)
   {
      if (maindata[i][4] == "High")
      {
         GMT = -1 * (TimeGMTOffset()/3600);
         time_str = TimeToString(
                                   StringToTime(MakeDateTime(maindata[i][2],maindata[i][3])) + GMT * 3600,
                                   TIME_DATE|TIME_MINUTES|TIME_SECONDS
                                );
         if (time_str == prev_time_str) continue;
         FileWrite(h2,maindata[i][1],time_str);
         prev_time_str = time_str;
      }
   }
   FileClose(h2);
   return(count);
}

string MakeDateTime(string strDate, string strTime)
{
	// Print("Converting Forex Factory Time into Metatrader time..."); //added by MN
	// Converts forexfactory time & date into yyyy.mm.dd hh:mm
	int n1stDash = StringFind(strDate, "-");
	int n2ndDash = StringFind(strDate, "-", n1stDash+1);

	string strMonth = StringSubstr(strDate, 0, 2);
	string strDay = StringSubstr(strDate, 3, 2);
	string strYear = StringSubstr(strDate, 6, 4); 
//	strYear = "20" + strYear;
	
	int nTimeColonPos = StringFind(strTime, ":");
	string strHour = StringSubstr(strTime, 0, nTimeColonPos);
	string strMinute = StringSubstr(strTime, nTimeColonPos+1, 2);
	string strAM_PM = StringSubstr(strTime, StringLen(strTime)-2);

	int nHour24 = StrToInteger(strHour);
	if ((strAM_PM == "pm" || strAM_PM == "PM") && nHour24 != 12)
	{
		nHour24 += 12;
	}
	if ((strAM_PM == "am" || strAM_PM == "AM") && nHour24 == 12)
	{
		nHour24 = 0;
	}
 	string strHourPad = "";
	if (nHour24 < 10) 
		strHourPad = "0";

	return(StringConcatenate(strYear, ".", strMonth, ".", strDay, " ", strHourPad, nHour24, ":", strMinute));
}

void RebuildNewsArray()
{
   NewsConvert();
   string sBuffer = "";
   
   int i = 0;
   int h1 = FileOpen(EventFile,FILE_SHARE_READ|FILE_CSV);
   if (h1 < 0)
   {
   	ArrayResize(AvoidTime,1);
   	ArrayResize(AvoidSymbol,1);
   	return;
   }
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(Symbol(),sBuffer) >= 0) 
      {
         ArrayResize(AvoidSymbol,i+2);
         AvoidSymbol[i+1] = sBuffer;
         ArrayResize(AvoidTime,i+2);
         sBuffer = FileReadString(h1);
         AvoidTime[i+1] = StrToTime(sBuffer);
         i++;
      }
   }
   FileClose(h1);
}

bool AvoidNews()
{
#ifdef CHT
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{
				str[0] = "預警雷達已偵測到 " + AvoidSymbol[i] + " 戰場於 " + StringSubstr(TimeToStr(AvoidTime[i]),11,5) + " 可能將有大量狂派埋伏";
        		str[1] = "超級達摩戰艦於 " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5) + " 啟動防禦系統進入一級警戒";
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "正在接收狂派情資...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "最後狂派活動時間: " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "已無其他狂派活動或情資已過期,即將休兵......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
#ifdef ENG
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{

				str[0] = "News Alert on " + AvoidSymbol[i] + " at time " + StringSubstr(TimeToStr(AvoidTime[i]),11,5);
        		str[1] = "Red alert! Braking System Standing By at  " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5);
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "News retrieving...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "Latest News at : " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "No trading info available......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
}

bool Margin()
{
	if (MarginSleep)   
	{
		double Margin_R = AccountInfoDouble(ACCOUNT_MARGIN_LEVEL);
		if (EqualZero(Margin_R)) return(true);
  		if (MarginLimit >= Margin_R)  
  		{
         ObjectSetString(0,Margin,OBJPROP_TEXT,"Margin level lower than " + DoubleToString(MarginLimit,2) + "  automated system suspended");
         return(false);
  		}else
  		{
  			ObjectSetString(0,Margin,OBJPROP_TEXT,"");
  		}
  	}
	return(true);
}

bool Float()
{
	if (FloatEq)   
	{
      double Profit = AccountProfit();
      if (Profit <= FloatAm)  
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"Floating loss greater than "+DoubleToString(FloatAm,2)+" automated system suspended");
         return(0);
      }else 
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
      }
	}
	return(true);
}

bool TimesStopConfig()
{
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	GlobalVariableSet(NextSW_str,0);
#ifdef GLOBAL_FILE
	if (!GlobalFileRead()) 
	{
		GlobalVars.G_EARunTime = 0;
		GlobalVars.G_MaxEquity = (AccountProfit() / AccountBalance()) * 100;
		GlobalVars.G_Start_P = TimeCurrent();
		GlobalVars.G_Start_Balance = AccountBalance();
		GlobalFileWrite();
		GlobalFileRead();
	}
	Print("EARuntime: " + TimeToString(GlobalVars.G_EARunTime,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("MaxLossEquity: " + DoubleToString(GlobalVars.G_MaxEquity,2));
	Print("Start_P: " + TimeToString(GlobalVars.G_Start_P,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("Start_Balance: " + DoubleToString(GlobalVars.G_Start_Balance,2));
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	
#endif
	return(true);
}

bool TimesStop(double &TimesProfit, double &TodayProfit)
{
#ifdef GLOBAL_FILE
   if (OrdersTotal()==0) 
   {
      GlobalVars.G_Start_Balance = AccountBalance();
      GlobalVars.G_Start_P = TimeCurrent();
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Status                                                       |
   //+------------------------------------------------------------------+
   if(EqualZero(iBalance))
   	Start_Balance = GlobalVars.G_Start_Balance;  
   else
      Start_Balance = iBalance;
   Start_P = GlobalVars.G_Start_P;
   EARunTime = GlobalVars.G_EARunTime;
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVars.G_MaxEquity) 
   {
      GlobalVars.G_MaxEquity = (AccountProfit() / Start_Balance) * 100;
   }
   //+------------------------------------------------------------------+
   //|Check Balance                                                     |
   //+------------------------------------------------------------------+
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return(false);
	}
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Status                                                      |
   //+------------------------------------------------------------------+
   GlobalVars.G_EARunTime = EARunTime;
   GlobalVars.G_Start_Balance = Start_Balance;
   GlobalVars.G_Start_P = Start_P;
   GlobalFileWrite();
#else
	if (OrdersTotal()==0) 
   {
      GlobalVariableSet(Start_Balance_str,AccountBalance());
      GlobalVariableSet(Start_P_str,TimeCurrent());
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Balance                                                      | 
   //+------------------------------------------------------------------+
   if (GlobalVariableCheck(Start_Balance_str))
   {
   	if(EqualZero(iBalance))
	   	Start_Balance = GlobalVariableGet(Start_Balance_str);  
   	else
      	Start_Balance = iBalance;
	}else 
	{
		Start_Balance = AccountBalance();
	}
   
   if (GlobalVariableCheck(Start_P_str))
   {
   	Start_P = (datetime)GlobalVariableGet(Start_P_str);
	}else
	{
		Start_P = TimeCurrent();
	}
	
	if (GlobalVariableCheck(EARUNTIME_str))
	{
		EARunTime = (datetime)GlobalVariableGet(EARUNTIME_str);
	}
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVariableGet(MaxEquity_str)) 
   {
      GlobalVariableSet(MaxEquity_str,(AccountProfit() / Start_Balance)*100);
   }
   //+------------------------------------------------------------------+
   //|Check Balance                                                     |
   //+------------------------------------------------------------------+
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return(false);
	}
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Balnace                                                     |
   //+------------------------------------------------------------------+
   GlobalVariableSet(EARUNTIME_str,EARunTime);
   GlobalVariableSet(Start_P_str,(double)Start_P);
   GlobalVariableSet(Start_Balance_str,Start_Balance);
#endif
	return(true);
}
#endif

void DeleteObjects()
{
	for (int i=5;i>=0;i--)
   {
      if(ObjectFind(Label_arr[i]) >= 0) ObjectDelete(0,Label_arr[i]);
      if(ObjectFind(Label_arr1[i]) >= 0) ObjectDelete(0,Label_arr1[i]);
      if (i < 2) 
      {
      	if (ObjectFind(NewsInfo[i]) >= 0) ObjectDelete(0,NewsInfo[i]);
      	if (ObjectFind(Light_str[i]) >= 0) ObjectDelete(0,Light_str[i]);
      }
   }
   if(ObjectFind(Run) >= 0) ObjectDelete(0,Run);
   if(ObjectFind(FloatLoss) >= 0) ObjectDelete(FloatLoss);
   if(ObjectFind(Margin) >= 0) ObjectDelete(Margin);
   if(ObjectFind(Light) >= 0) ObjectDelete(Light);
   //if (FileIsExist(EventFile)) FileDelete(EventFile);
}

void UpdateFiles(const int Mode)
{
	if (Mode == MODE_INIT)
	{
		if (!GlobalVariableCheck("DNSW")) GlobalVariableSet("DNSW",0);
	   if (GlobalVariableSetOnCondition("DNSW",1,0))
   	{
#ifdef MODE_AREA51
      	RebuildNewsArray();	
#endif
      	if (UninitializeReason() != 3)
      	{
#ifdef MODE_AREA51      	
         	if (ArraySize(AvoidTime) <= 1) NewGetSW = true;
         	else
         	{
         		if (TimeLocal() >= AvoidTime[ArraySize(AvoidTime)-1] + MinAfter)
					{
						NewGetSW = true;
					}
				}
#endif
         	Sleep(1000);
      	}
   	}
	}
	if (Mode == MODE_TICK)
	{
		if (
			(TimeHour(TimeLocal()) == DownloadHour && TimeMinute(TimeLocal()) == DownloadMin && H1BarTime != iTime(Symbol(),PERIOD_H1,0)) ||
			NewGetSW
			) 
		{
			if (!GlobalVariableCheck("DNSW0")) GlobalVariableSet("DNSW0",0); 
			if (GlobalVariableSetOnCondition("DNSW0",1,0))
			{
				if (!NewGetSW) 
				{
        			Sleep(1000);
        		}
        		Sleep(1000);
#ifdef MODE_AREA51
        		RebuildNewsArray();
#endif
        		GlobalVariableSet("DNSW0",0); 
        		NewGetSW = false;
        	}
        	H1BarTime = iTime(Symbol(),PERIOD_H1,0);
		}
	}
}



void AutoRepairSLTP(const bool flag,const int Type,const int Mode)
{
	double TP = 0.0;
   double SL = 0.0;
   double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (!flag) return;
	
	int Cnt = MyOrderTotal(Type);
	GetLastTciketINFO(Type,MaxPrice,MinPrice);
   if (Mode == MODE_FIRSTTRADE)
   {
      TP = TakeProfit;
      SL = StopLoss;
      if (MartinSW)
      	SL = 0.0;
      Set_SL_TP(MODE_SLTP_BYPOINT,Type,SL,TP);
   }
   
   if (Mode == MODE_MARTIN)
   {
   	switch (Type)
      {
         case OP_BUY:
            TP = Cal_TP(OP_BUY,MinPrice,TakeProfit);
            SL = 0;
            break;
         case OP_SELL:
            TP = Cal_TP(OP_SELL,MaxPrice,TakeProfit);
            SL = 0;
            break;
      }
      if (Cnt > 1)
      {
#ifdef MODE_AREA51
      	if (SingleOut)
      		Set_SL_TP(MODE_SLTP_BYPOINT,Type,0,TakeProfit);
      	else
      		Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#else
			Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#endif
      }
   }
}

string FileCharArrayToString(const string str_temp)
{
	uchar End_arr[];
	int j = 0;
	for(int i=0;i<StringLen(str_temp);i+=2)
	{
		ArrayResize(End_arr,j+1);
		End_arr[j] = (char)StringToInteger(StringSubstr(str_temp,i,2));
		j++;
	}
	return(CharArrayToString(End_arr,0,WHOLE_ARRAY,CP_ACP));
}

void CheckOSVersion()
{
	ulong dwVersion = GetVersion();
   uint dwMajorVersion = (uchar)(((ushort)(dwVersion & 0xffff)) & 0xff);
   printf("Major Version Of OS: %d",dwMajorVersion);
   if (dwMajorVersion < 6) 
   {
#ifdef CHT
      Alert("請注意！使用Windows XP(Server 2003)之系統將無法保證交易能正常執行！");
#endif
#ifdef ENG
		Alert("Attention!  Not guarantee to run well in Windows XP(Server 2003)");
#endif
   }
}

void SetKbar(double& Kbar[])
{
   Kbar[0] = (double)iTime(Symbol(),1,0);
   Kbar[1] = iOpen(Symbol(),1,0);
   Kbar[2] = iHigh(Symbol(),1,0);
   Kbar[3] = iLow(Symbol(),1,0);
   Kbar[4] = iClose(Symbol(),1,0);
   Kbar[5] = (double)iVolume(Symbol(),1,0);
}
#ifdef MODE_AREA51
void BrakeSystemFun()
{
   int Light_Arrow[2] = {108,161};
	if (BrakeSystem)
   {
      int Pos = 50;
      double Position=20;
#ifdef CHT
      string Active = "煞車系統啟動中";
      string Deactive = "煞車系統待命中";
#endif
#ifdef ENG
		string Active = "Braking System Initiating";
      string Deactive = "Braking System Stand By";
#endif
      double Position_L = Bid + Position * point;
      for (int i=0;i<ArraySize(Light_str);i++)
      {
      	if (ObjectFind(Light_str[i]) < 0)
         	ObjectCreate(0,Light_str[i],OBJ_ARROW,0,0,0);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_ARROWCODE,Light_Arrow[i]);
      	if (i == 0) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLime);
      	if (i == 1) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLawnGreen);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_WIDTH,5);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_TIME1,TimeCurrent()+300);
      	ObjectSetDouble(0,Light_str[i],OBJPROP_PRICE1,Position_L);
      }
      
      int EnergyBall=Ball(Status,SleepStop,Last_Time,Last_Price,SleepTime,(int)TimeCurrent(),point,Energy,Close[0]);
      if (EnergyBall<0)
      {
         Alert("Energy Brake Error");
         TradeSW = false;
         return;
      }

      if (TimeCurrent()<=SleepStop[0])
      {
         TradeSW = false;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrRed);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrCrimson);
#ifdef CHT
         ObjectSetString(0,Light,OBJPROP_TEXT,Active+", "+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" 分鐘後啟動");
#endif
#ifdef ENG
			ObjectSetString(0,Light,OBJPROP_TEXT,Active+", initiate after"+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" minutes");
#endif
      }
      else
      {
         TradeSW = true;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrLime);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrLawnGreen);
         ObjectSetString(0,Light,OBJPROP_TEXT,Deactive);
      }
   }
   else
   {
      TradeSW = true;
      ObjectDelete(Light_str[0]);
      ObjectDelete(Light_str[1]);
   }
}
#endif

bool Lots_Valid(const double iLot)
{
	double ValuePerLot = SymbolInfoDouble(NULL,SYMBOL_TRADE_CONTRACT_SIZE) / AccountInfoInteger(ACCOUNT_LEVERAGE);
	if ((iLot * ValuePerLot) > AccountInfoDouble(ACCOUNT_FREEMARGIN)) return(false);
	return(true);
}

int GetTicket(int &Ticket_arr[])
{
	int Cnt = 0;
	for (int i=0;i<ArraySize(Ticket_arr);i++)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (Ticket_arr[i] == OrderTicket())
			{
				Cnt++;
				break;
			}
		}
	}
	return(Cnt);
}

int MyOrderTotal_Enders(const string symbol,const int Type,const int ID)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL && OrderSymbol() == symbol && OrderMagicNumber() == ID)
		{
		   x++;
		   continue;
		}
		if ((Type == OP_BUY && ((OrderType() & 1) == 1 ? false : true)) || (Type == OP_SELL && ((OrderType() & 1) == 1 ? true : false)))
	   {  
	   	if (OrderSymbol() == symbol && OrderMagicNumber() == ID)
			{
				x++;
			}
		}
	}
	return(x);
}

bool EAControl_Enders()
{
	bool Out = true;
	string str ="";
		
	if (!EGFlag) 
	{
		str = "Ender";
		Out = false;
	}
	Comment(str);
	return(Out);
}
int EndersGamgeCnt = 0;
void EndersGameModule(const string symbol, const int Type, int id, bool &flag)
{
	if (MyOrderTotal_Enders(symbol,Type,id) == 0)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (OrderCloseTime() > EGStartTime)
			{
				EndersGamgeCnt++;
				Alert(Symbol() + " 戰場已完成第" + IntegerToString(EndersGamgeCnt) + " 次戰役");
				EGStartTime = TimeCurrent();
				break;
			}
		}
	}
	if (EndersGamgeCnt >= OutCnt)
	{
		Alert("已達成設定局數，即將離開 " + Symbol() + " 戰場");
		flag = false;
		ExpertRemove();
	}
}

X Bomb(BUY_Dhamar Module).mq4

//+------------------------------------------------------------------+
//|                                                  AllNewXBOMB.mq4 |
//|                                                APP Wargame-Hydra |
//|                     http://www.facebook.com/groups/moneywargame/ |
//+------------------------------------------------------------------+


#property strict

#include <WarGameDLL.mqh>
#include <WinUser32.mqh>
#import "User32.dll"
int GetDC(int);
int ReleaseDC(int,int);
#import "Gdi32.dll"
int GetDeviceCaps(int,int);
#import "stdlib.ex4"
string ErrorDescription(int error_code);
#import "kernel32.dll"
ulong GetVersion(void);
#import

#define CHT	1
//#define ENG	1

#define ZERO 0.000001
#define MODE_BUY 1
//#define MODE_SELL 1
#define MODE_AREA51 1

#define MODE_AGET 0
#define MODE_FGET 1
#define MODE_CHECKTIMEIN 0
#define MODE_TIMESTP 1
#define MODE_TIMESSL 2
#define MODE_DAILYTP 3
#define MODE_INIT 3
#define MODE_TICK 4
#define MODE_FIRSTTRADE  	 99
#define MODE_MARTIN  		100
#define OP_ALL       101
#define MODE_SLTP_BYPOINT 102
#define MODE_SLTP_BYPRICE 103
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+


int id_1 = 3333333;

int ErrorCode = 0;
int DownloadHour = 6;
int DownloadMin = 0;
int BarTime = 0;

double NextTime=0.5;
double point = 0.0;
double iLots = 0.0;
double Start_Balance = 0;
double iPending;

datetime H1BarTime = 0;
datetime FirstTradeBar = 0;
datetime Start_P = 0;
datetime EARunTime = 0;
datetime AvoidTime[1] = {0};
datetime EGStartTime = TimeCurrent();
bool EGFlag = true;

bool NewGetSW = false;
bool AuthorGetSW = false;
bool TradeSW = true;

int Last_Time[1]={0};
int Status[1]={0};
double Last_Price[1]={-1.0};
double MinPriceShot = 0.0;

string AvoidSymbol[1] = {""};
string LogText[4] = {"小虧為贏" , "次止盈" , "次止損" , "日止盈"};
string Label_arr[6] = 
{
   "TimesProfitPer",
   "Start_Balance",
   "TimePast",
   "Orders",
   "TodayProfitPer",
   "MaxLoss"
};
   
string Label_arr1[6] = 
{
   "TimesProfitPer0",
   "Start_Balance0",
   "TimePast0",
   "Orders0",
   "TodayProfitPer0",
   "MaxLoss0"
};

string Start_P_str = "Start_P";
string Start_Balance_str = "Start_Balance";
string MaxEquity_str = "MaxEquity";
string NextSW_str = "NextSW";
string EARUNTIME_str = "EARUNTIME";

string Light = "LightStatus";
string Run = "RunStatus";
string Margin = "Margin";
string FloatLoss = "Float";
string NewsInfo[2] = {"NewsInfo0", "NewsInfo1"};
string Light_str[2] = {"Light","Light2"};
#ifdef CHT
string NewsEngage = "狂派情資已接收完全.....全面開戰！";
#endif
#ifdef ENG
string NewsEngage = "News retrieval completed .....automated system initiated";
#endif
//+------------------------------------------------------------------+
//|Ender's Game Par                                                  |
//+------------------------------------------------------------------+
datetime ticket_time = 0;
int OutCntTemp = 0;
#ifdef CHT
input bool AutoRepairSW = false; //自動回復停損停利
#ifdef MODE_AREA51
input bool BrakeSystem=true; //ESP戰艦穩定煞車系統
int pSeconds=14;
input double Energy=4; //能量偵測靈敏度
input int SleepTime=15; //能量引擎啟動時間(分鐘)
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //預警雷達控制模組
input int MinBefore = 30; //前幾分鐘閃避
input int MinAfter = 30; //後幾分鐘閃避
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //保證金比例控制模組
input double MarginLimit = 2000; //保證金低於％數暫停
input bool FloatEq = false; //浮虧控制模組
input double FloatAm = -4000; //虧損(-金額)暫停
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //開始時間，格式為HH
input int DayStopHour = 00; //結束時間，格式為HH
input string WeekDay="12345"; //週一執行，鍵入1;週一週二鍵入12
input bool WeekStartOverSW = true; //一個禮拜頭尾不間斷
input int WeekStartHour = 8; //第一天幾點開始
input int WeekStopHour = 17; //最後一天幾點結束
input string a5 = "-------------------"; //
input double iBalance = 0; //止盈計算本金基準
input bool TakeProfitPercentSW = true; //次止盈開關
input double TakeProfitPercent = 1; //次止盈,每次最多獲利％,立即平倉歸零重啟新局
input bool TakeProfitPercentDaySW = true; //日止盈開關
input double TakeProfitPercentDay = 1000; //日止盈,每日最多獲利％,立即停止交易,隔日重新啟動
input bool StopLossPercentSW = true; //浮虧止損開關
input double StopLossPercent = 1000; //現時帳戶浮虧止損,止損基準值:帳戶餘額
input bool SleepLoss = true; //止損後當日不再出兵
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //小虧為贏開關
input int MaxTime = 150; //每局最長時間(分鐘)
input int MaxIn = 10; //每局最多兵力
input double MaxP = 0.5; //達成以上條件小虧為贏
input string c = "-------------------"; //　
input double Pending = 0.0;  //掛單價格 
input bool SingleOut = false; //單進單出
#endif
input bool MartinSW = true; //馬丁開關
#ifdef MODE_AREA51
input int MartinMStart = 2; //第幾張馬丁開始加倍
#endif
input double LotMultiplikator = 1.382; //馬丁倍率
input double Step = 30; //馬丁間距
input int MaxTrades = 5; //最多單數
input double MM = 0.0; //資金管理％數
input double Lots = 0.01; //手數
input double TakeProfit = 10.0; //獲利點數
input double StopLoss = 10.0; //停損點數
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
#ifdef ENG
input bool AutoRepairSW = false; //Auto Repair SL&TP
#ifdef MODE_AREA51
input bool BrakeSystem=true; //BrakeSystem
int pSeconds=14;
input double Energy=4; //Braking System Sensitivity Control
input int SleepTime=15; //Braking System Sleeping Time
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //Braking System Sleeping Time
input int MinBefore = 30; //Stop trading few minutes before news alert
input int MinAfter = 30; //Stop trading few minutes after news alert
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //Margin Level Control Module
input double MarginLimit = 2000; //Margin level % limit to stop trading
input bool FloatEq = false; //Floating Loss Control Module
input double FloatAm = -4000; //Floating loss (-$amount) limit to stop trading
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //Starting Time, in HH format
input int DayStopHour = 00; //Ending Time, in HH format
input string WeekDay="12345"; //Star on Monday=1, Monday and Tuesday=12
input bool WeekStartOverSW = true; //Trade everyday without stop
input int WeekStartHour = 8; //First Day Staring Time
input int WeekStopHour = 17; //Last Day Ending Time
input string a5 = "-------------------"; //
input double iBalance = 0; //Capital setting for Profit/Loss termination
input bool TakeProfitPercentSW = true; //Switch of Secondary Take Profit
input double TakeProfitPercent = 1; //Secondary Take Profit, max. % of profit to close trade, and reset
input bool TakeProfitPercentDaySW = true; //Switch of Daily Take Profit 
input double TakeProfitPercentDay = 1000; //Daily Take Profit, max. % of profit to close trade, reset on the next day
input bool StopLossPercentSW = true; //Switch of stopping Floating Loss
input double StopLossPercent = 1000; //Stop Loss of Current Account Max. Floating Loss (Based on Balance)
input bool SleepLoss = true; //Stop trading when reaching stop loss the same day
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //Switch of Small Loss To Win
input int MaxTime = 150; //Max. Time Per Set (Minutes)
input int MaxIn = 10; //Max. Trades Per Set
input double MaxP = 0.5; //Criteria of Small Loss for Win
input string c = "-------------------"; //　
input double Pending = 0.0;  //Pending Order at Price 
input bool SingleOut = false; //Take Profit Single Out
#endif
input bool MartinSW = true; //Start Martingale
#ifdef MODE_AREA51
input int MartinMStart = 2; //Number to start martingale multiplication 
#endif
input double LotMultiplikator = 1.382; //Martingale Multiplier
input double Step = 30; //Martingale Distance
input int MaxTrades = 5; //Max. Number of Orders
input double MM = 0.0; //Fund Management %
input double Lots = 0.01; //Order Size_lot
input double TakeProfit = 10.0; //Take Profit 
input double StopLoss = 10.0; //Stop Loss
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
string Newsfile = "ffcal_week_this.xml";
string EventFile = "NewsEvent.csv";

int OnInit()
{
//---
	CheckOSVersion();
	//+------------------------------------------------------------------+
	//|Get Point By Symbol                                               |
	//+------------------------------------------------------------------+
   if (Digits==5 || Digits==3)
   {
      point=Point*10;
   }
   else
   {
      point=Point;
   }
   //+------------------------------------------------------------------+
   //|                                                                  |
   //+------------------------------------------------------------------+
   iLots = OpLots();
   ticket_time = TimeCurrent();
   
   //+------------------------------------------------------------------+
   //|Random Minute                                                     |
   //+------------------------------------------------------------------+
   MathSrand(GetTickCount());
   DownloadMin = 1 + ((59 * MathRand()) / 32768);
#ifdef MODE_AREA51
   TimesStopConfig();
   //+------------------------------------------------------------------+
   //|Update Files                                                      |
   //+------------------------------------------------------------------+
   iPending = Pending;
#endif
   UpdateFiles(MODE_INIT);
//---
   return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
	GlobalVariableSet("DNSW",0);
   DeleteObjects();
}
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{

   UpdateFiles(MODE_TICK);
	 
#ifdef MODE_AREA51   
   double TimesProfit = 0.0;
   double TodayProfit = 0.0;
   if (!CloseAllTrades()) return;
   if (!TimesStop(TimesProfit,TodayProfit)) return;
   Displayprofit(TimesProfit,TodayProfit);
	CheckTimeIn(TimesProfit);
#endif

	#ifdef MODE_BUY
if (NonStop==false) EndersGameModule(Symbol(),OP_BUY,id_1,EGFlag);
#endif

#ifdef MODE_SELL
if (NonStop==false) EndersGameModule(Symbol(),OP_SELL,id_1,EGFlag);
#endif

#ifdef MODE_AREA51  
   //+------------------------------------------------------------------+
   //|Shutdown EA                                                       |
   //+------------------------------------------------------------------+
   if (!EAControl()) return;
   BrakeSystemFun();
#endif
   
#ifdef MODE_BUY
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_BUY,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{
		FirstTrade(OP_BUY);
		Martin(OP_BUY);
	}
#endif
#ifdef MODE_SELL
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_SELL,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{	
		FirstTrade(OP_SELL);
   	Martin(OP_SELL);
   }
#endif
	
}
//+------------------------------------------------------------------+
//|Determine Martingale TakeProfi                                    |
//+------------------------------------------------------------------+
double Cal_TP(int Type,double iPrice,double TPPoint)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double AllOrderLots = 0.0;
   double TP_Goal;
   double FirstOrderLots = 0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderType() == Type && OrderMagicNumber() == id_1 && OrderSymbol() == Symbol())
      {
         FirstOrderLots = OrderLots();
         TotalLots += OrderLots();
         if (Type == OP_SELL)
         	TotalDisProduct += (iPrice - OrderOpenPrice()) / point * OrderLots();
        	if (Type == OP_BUY)
        		TotalDisProduct += (OrderOpenPrice() - iPrice) / point * OrderLots();
      }
   }
   if (EqualZero(TotalLots)) return(0.0);
   TP_Goal = ((TPPoint * FirstOrderLots) + TotalDisProduct) / TotalLots;
   if (Type == OP_SELL)
   	return(iPrice - (TP_Goal * point));
  	if (Type == OP_BUY)
   	return(iPrice + (TP_Goal * point));
   return(0.0);
}
//+------------------------------------------------------------------+
//|OrderSend Function                                                |
//+------------------------------------------------------------------+
int SendOrders(const int Type ,const string iComment)
{
   double TP = 0.0;
   double SL = 0.0;
   double InPrice = 0.0;
   switch (Type)
   {
      case OP_BUY:
      InPrice = Ask;
      break;
      
      case OP_SELL:
      InPrice = Bid;
      break;
   }
   double SendOrders_Lots = MartinLots(Type);
   if (!Lots_Valid(SendOrders_Lots)) 
   {
   	Alert("No Money");
   	return(-1);
   }
   int Ticket = OrderSend(Symbol(),Type,SendOrders_Lots,InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,Type == OP_BUY ? clrLime : clrRed);
   if (Ticket < 0)
   {   
      ErrorCode = GetLastError();
      if (ErrorCode != 4109)
         Alert("Send " + iComment + " Order Error: " + ErrorDescription(ErrorCode));
   }
   return(Ticket);
}

void Set_SL_TP(const int Mode,const int Type,double iSL,double iTP)
{
   double SL = 0.0;
   double TP = 0.0;
   for (int z=0;z<OrdersTotal();z++)//執行N次篩選(N=訂單總數)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)//挑選出同貨幣對 && BUY單 && MagicNumber=本程式 的訂單
      {
         if (Mode == MODE_SLTP_BYPOINT)
         {
           	if (Type == OP_BUY || Type == OP_BUYSTOP || Type == OP_BUYLIMIT)
           	{
           		TP = OrderOpenPrice() + iTP * point;
           		SL = OrderOpenPrice() - iSL * point;
           	}
           	if (Type == OP_SELL || Type == OP_SELLSTOP || Type == OP_SELLLIMIT)
           	{
           		TP = OrderOpenPrice() - iTP * point;
           		SL = OrderOpenPrice() + iSL * point;
           	}
           	if (EqualZero(iTP)) TP = 0;
           	if (EqualZero(iSL)) SL = 0;
         }else
         {
           	SL = iSL;
         	TP = iTP;
         }
         if (iTP < 0)
         {
            TP = OrderTakeProfit();
         }
         if (iSL < 0)
         {
            SL = OrderStopLoss();
         }
         if ((CompareDouble(OrderStopLoss(),NormalizeDouble(SL,Digits))) && (CompareDouble(OrderTakeProfit(),NormalizeDouble(TP,Digits))))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,White))
            {
               Alert("Set_SL_TP " + IntegerToString(OrderTicket()) + "  Error: " + ErrorDescription(GetLastError()));
            }
         }
      }
   }
}

bool CompareDouble(const double A,const double B)
{
   if (MathAbs(A - B) <= ZERO) return(true);
   return(false);
}

bool EqualZero(const double A)
{
   if (A <= ZERO && A >= -ZERO) return(true);
   return(false);
}

void Martin(const int Type)
{
	double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (MartinSW)
	{
		GetLastTciketINFO(Type,MaxPrice,MinPrice);
		if (BarTime == Bars && MyOrderTotal(Type) < MaxTrades)
		{
			if (SendOrders(Type,"XBOMB" + IntegerToString(MyOrderTotal(Type) + 1)) > 0)
			{
				AutoRepairSLTP(true,Type,MODE_MARTIN);
				BarTime = 0;
			}
		}
		if (Type == OP_BUY && MyOrderTotal(OP_BUY) > 0)
		{
			if (Ask <= MinPrice - Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (Type == OP_SELL && MyOrderTotal(OP_SELL) > 0)
		{
			if (Bid >= MaxPrice + Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (MyOrderTotal(Type) > 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_MARTIN);
	}
}

void FirstTrade(const int Type)
{
	int Cnt = MyOrderTotal(Type);
	if (Type == OP_BUY && (MyOrderTotal(OP_BUYSTOP) > 0 || MyOrderTotal(OP_BUYLIMIT) > 0)) return;
	if (Type == OP_SELL && (MyOrderTotal(OP_SELLSTOP) > 0 || MyOrderTotal(OP_SELLLIMIT) > 0)) return;
	if (Cnt == 0 && FirstTradeBar != Time[0])
	{
		if (SendOrders(Type,"XBOMB(" + IntegerToString(Type) + ")." + IntegerToString(Cnt + 1)) > 0)
		{
			AutoRepairSLTP(true,Type,MODE_FIRSTTRADE);
			FirstTradeBar = Time[0];
		}
	}
	if (Cnt == 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_FIRSTTRADE);
}

double GetLastTciketINFO(const int Type,double &MaxPrice,double &MinPrice)
{
	double iMaxPrice = 0.0;
	double iMinPrice = 5000.0;
	for (int i=0;i<OrdersTotal();i++)
	{
		if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
		if (OrderMagicNumber() == id_1 && OrderSymbol() == Symbol() && OrderType() == Type)
		{
			if (OrderOpenPrice() >= iMaxPrice)
				iMaxPrice = OrderOpenPrice();
			if (OrderOpenPrice() <= iMinPrice && !EqualZero(iMinPrice))
				iMinPrice = OrderOpenPrice();
		}
	}
	MaxPrice = iMaxPrice;
	MinPrice = iMinPrice;
	return(0.0);
}

int MyOrderTotal(int Type)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL)
		{
		   x++;
		   continue;
		}
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)
		{
			x++;
		}
	}
	return(x);
}

void iCloseOrders(int type)
{
	int C0_cnt;
	if (type == OP_BUYSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) 
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUYSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}

	if (type == OP_SELLSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELLSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_BUY) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUY && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrLime))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_SELL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELL && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_ALL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--)
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
   		if (OrderType() == OP_BUYSTOP || OrderType() == OP_SELLSTOP || OrderType() == OP_BUYLIMIT || OrderType() == OP_SELLLIMIT)
   		{
   		   if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
   		}else {
   		   if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
			   {
   			   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
   			}
         }
		}
	}
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selecttickets()
{
   int cnt_tickets = 0;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT))
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT))
#endif
         {
            ticket_time=OrderOpenTime();
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selectticketsfrhistory()
{
   int cnt_tickets = 0;
   for (int i=0;i<OrdersHistoryTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT) && ticket_time<=OrderOpenTime())
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT) && ticket_time<=OrderOpenTime())
#endif
         {
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double MartinLots(const int Type)
{
	int Cnt = MyOrderTotal(Type);
#ifdef MODE_AREA51
	int StartM = MartinMStart;
	if (StartM <= 0) StartM = 2;
#else
	int StartM = 2;
#endif
	if (Cnt <= 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,0),2));
	if (Cnt > 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,(double)(Cnt - 1) - (StartM - 2)),2));
	return(0.0);
}
//+------------------------------------------------------------------+
//|Optimize Lots                                                     |
//+------------------------------------------------------------------+
double OpLots()
{
	double Out = Lots;
	if (!EqualZero(MM) && MM > 0)
	{
		Out = (AccountBalance() * MM ) / (1000 * TakeProfit);
	}
	return(Out);
}
#ifdef MODE_AREA51
void PendingTrade(const int Type,const string iComment)
{
	double InPrice = Pending;
	int Ticket = 0;
	int iType = -1;
	if (Type == OP_BUY)
	{
		if (InPrice > Ask)
			iType = OP_BUYSTOP;
   	if (InPrice < Ask)
			iType = OP_BUYLIMIT;
		if (MyOrderTotal(OP_BUYSTOP) >= 1 || MyOrderTotal(OP_BUYLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
		   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrLime);
		if (Ticket < 0)
		{
 	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
     	}
     	else
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
     	}
  	}
  	
  	if (Type == OP_SELL)
	{
		if (InPrice < Bid)
			iType = OP_SELLSTOP;
   	if (InPrice > Bid)
			iType = OP_SELLLIMIT;
   	if (MyOrderTotal(OP_SELLSTOP) >= 1 || MyOrderTotal(OP_SELLLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrRed);
		if (Ticket < 0)
		{
  	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
	   {
	     	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
	   }
	   else
	   {
	   	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
	   }
  	}
  	return;
}

bool CloseAllTrades()
{
   if (GlobalVariableGet(NextSW_str) == 1) 
   {
#ifdef MODE_BUY
      iCloseOrders(OP_BUY);
#endif
#ifdef MODE_SELL
		iCloseOrders(OP_SELL);
#endif
		Sleep(10000);
      if (MyOrderTotal(OP_ALL) > 0)
      {
#ifdef CHT
         Alert("水雷未掃除成功");
#endif
#ifdef ENG
			Alert("Submarine mine sweeper not completed");
#endif
         return(false);
      }else 
      {
      	Sleep((int)(NextTime * 1000 * 60));
      }
   }
   return(true);
}

void CheckTimeIn(const double TimesProfit)
{
	datetime RunTime = (TimeCurrent() - Start_P) / 60;
	if (SmallLossWinSW && RunTime >= MaxTime && OrdersTotal() >= MaxIn && TimesProfit >= MaxP)
	{
		//Close all Trades
		GlobalVariableSet(NextSW_str,1);
		WriteLog(MODE_CHECKTIMEIN,"");
	}
}

void WriteLog(const int Mode,const string in)
{
	double TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
	string str = WindowExpertName() + "," + Symbol() + "," + TimeToString(TimeCurrent(),TIME_DATE|TIME_DATE|TIME_SECONDS) +
					 ": " + LogText[Mode] + " , " + in + 
					 "," + Start_Balance_str + ": " + DoubleToString(Start_Balance,2) +
					 "," + Start_P_str + ": " + IntegerToString(Start_P) +
					 ",TimeProfit: " + DoubleToString(TimesProfit,2) +
					 "| Set: 餘:" + DoubleToString(iBalance,2) +
					 ",次:" + DoubleToString(TakeProfitPercent,2) + 
					 ",日:" + DoubleToString(TakeProfitPercentDay,2) +
					 ",損:" + DoubleToStr(StopLossPercent ,2) +
					 ",時:" + DoubleToString(MaxTime,2) +
					 ",單:" + DoubleToString(MaxIn,2) +
					 ",虧:" + DoubleToString(MaxP,2) +
					 "\n" 
					 ;
	int h1 = FileOpen("Logs.txt",FILE_READ|FILE_WRITE|FILE_TXT);
	if (h1 < 0) Print("Open Log Failed");
	FileSeek(h1,0,SEEK_END);
	int byte = FileWriteString(h1,str,StringLen(str));
	if (byte <= 0) Print("Write Log Failed");
	FileClose(h1);
}

double GetProfitPeriod(datetime today)
{
   double profit=0;
   int total =OrdersHistoryTotal();
   for (int i=0; i<total; i++)
   {
      if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
      {
         if (OrderType() == OP_BUY || OrderType() == OP_SELL)
         {
            if (today < OrderCloseTime())
               profit += OrderProfit() + OrderCommission() + OrderSwap();
         }
      }
   }
   return (profit);
}

void Displayprofit(const double TimesProfit, const double TodayProfit)
{
   int Pos = 50;
   string Label_Text = ""; 
   string Label_Text1 = ""; 
   
   if (ObjectFind(Run) < 0) ObjectCreate(0,Run,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Run, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Run, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Run, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Run, OBJPROP_YDISTANCE, Pos);
   ObjectSetInteger(0,Run, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Run, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetString(0,Run, OBJPROP_FONT, "微軟正黑體");
   
   for (int i=0;i<6;i++)
   {
      if(ObjectFind(Label_arr[i]) < 0) ObjectCreate(0,Label_arr[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_XDISTANCE,120);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr[i],OBJPROP_FONT,"微軟正黑體");
      
      if(ObjectFind(Label_arr1[i]) < 0) ObjectCreate(0,Label_arr1[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_XDISTANCE,20);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr1[i],OBJPROP_FONT,"微軟正黑體");
      
      switch(i)
      {
#ifdef CHT
         case 0:
         Label_Text = "單次擄獲狂派戰俘: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "進場起始兵力: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "進場經過時間: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " 分鐘";
         break;
         
         case 3:
         Label_Text = "戰場兵力: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "今日擄獲狂派戰俘累積至: " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "最大暫時被擄穫兵力: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
#ifdef ENG
			case 0:
         Label_Text = "Profit/Loss: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "Start Balance: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "Time Elapsed: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " Minutes";
         break;
         
         case 3:
         Label_Text = "Orders: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "Profit/Loss (Today): " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "Maximum Floating Loss: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
      }
      ObjectSetString(0,Label_arr[i],OBJPROP_TEXT,Label_Text);
      ObjectSetString(0,Label_arr1[i],OBJPROP_TEXT,Label_Text1);
   }
   
   for (int i=0;i<ArraySize(NewsInfo);i++)
   {	
   	if (ObjectFind(NewsInfo[i]) < 0) ObjectCreate(0,NewsInfo[i],OBJ_LABEL,0,0,0);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_CORNER, 1);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_COLOR, clrGold);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_XDISTANCE, 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_YDISTANCE, Pos + 150 + i * 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_FONTSIZE, 10);
	   ObjectSetString(0,NewsInfo[i], OBJPROP_FONT, "微軟正黑體");
   }
   
   ObjectCreate(0,Margin,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Margin, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Margin, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Margin, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Margin, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Margin, OBJPROP_YDISTANCE, Pos+195);
   ObjectSetInteger(0,Margin, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,Margin, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,Margin,OBJPROP_TEXT,"");
	
	ObjectCreate(0,FloatLoss,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,FloatLoss, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,FloatLoss, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,FloatLoss, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,FloatLoss, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,FloatLoss, OBJPROP_YDISTANCE, Pos+215);
   ObjectSetInteger(0,FloatLoss, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,FloatLoss, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
	
	if (ObjectFind(Light) < 0)
     	ObjectCreate(0,Light,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Light,OBJPROP_CORNER,1);
   ObjectSetInteger(0,Light, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Light,OBJPROP_COLOR,clrGold);
   ObjectSetInteger(0,Light, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Light,OBJPROP_XDISTANCE,20);
   ObjectSetInteger(0,Light,OBJPROP_YDISTANCE,Pos+235);
   ObjectSetString(0,Light, OBJPROP_FONT, "微軟正黑體");
   ObjectSetString(0,Light,OBJPROP_TEXT,"");
}

bool EAControl()
{
	bool Out = true;
	string str ="";
	if (!Margin()) 
	{
		str = "Margin";
		Out = false;
	}
	if (!Float()) 
	{
		str = "Float";
		Out = false;
	}
	if (TimeCurrent() <= EARunTime) 
	{
		str = "SLSLeep";
		Out = false;
	}
	if (!WeekStartOver())
	 {
		str = "Time";
		Out = false;
	}
	if (!AvoidNews()) 
	{
		str = "News";
		Out = false;
	}
	if (!EGFlag) 
	{
		str = "Ender";
		Out = false;
	}
	/*if (!Margin() || !Float() || TimeCurrent() <= EARunTime || !WeekStartOver() || !AvoidNews()) 
	{
		Comment("EAControl 1");
		return(false);
	}*/
	Comment(str);
	return(Out);
}

bool iTimeControl()
{
	bool EA_Valid = false;
   if (DayStopHour == DayStartHour) EA_Valid = true;
   if (DayStopHour < DayStartHour) 
   {
		if (TimeHour(TimeLocal()) >= DayStartHour || TimeHour(TimeLocal()) < DayStopHour) 
			EA_Valid = true;
   }
    
    if (DayStopHour > DayStartHour) 
    {
    	if ((TimeHour(TimeLocal()) >= DayStartHour && TimeHour(TimeLocal()) < DayStopHour)) 
    		EA_Valid = true;
    }
    return(EA_Valid);
}   

bool WeekStartOver()
{
   bool EA_Valid = true;
   int Dayweek = TimeDayOfWeek(TimeLocal());
   
   if (WeekStartOverSW)
   {
   	if (
   		Dayweek < StrToInteger(StringSubstr(WeekDay,0,1)) || 
   		(Dayweek == StrToInteger(StringSubstr(WeekDay,0,1)) && TimeHour(TimeLocal()) < WeekStartHour) || 
     		(Dayweek == StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1)) && TimeHour(TimeLocal()) >= WeekStopHour ) || 
     		Dayweek > StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1))
     		)
     	{
     		EA_Valid = false;
     	}
   }else
   {
   	if (iTimeControl()) 
   	{
         if (StringFind(WeekDay,DoubleToStr(Dayweek,0),0) >= 0) 
         {
            EA_Valid = true;
         }else
         {
         	EA_Valid = false;
         }
      }else
      {
      	EA_Valid = false;
      }
   }
   
#ifdef CHT
   if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"未在設定時區內，現有戰役達成後將離開戰場"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"已進入作戰時區內,全面啟動執行..."); 
   	return(true);
   }
#endif 
#ifdef ENG
	if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Not in trading time zone, stop trading after current set"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Entered trading time zone, automated system initiated"); 
   	return(true);
   }
#endif
}

int NewsConvert()
{ 
   string maindata[][7];
   string sBuffer = "";
   if (!FileIsExist(Newsfile)) 
   {
      return(0);
   }
   int h1=FileOpen(Newsfile,FILE_SHARE_READ|FILE_CSV);
   int i = 0 , j = 0;
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(sBuffer,"<title>") >= 0)
      {
         ArrayResize(maindata,j+1);
         maindata[j][0] = sBuffer;
         for (i=1;i<7;i++)
         {
            maindata[j][i] = FileReadString(h1);
         }
         j++;
      }
   }
   FileClose(h1);
   int count = ArrayRange(maindata,0);
   
   string sTags[7] = { "<title>", "<country>", "<date><![CDATA[", "<time><![CDATA[", "<impact><![CDATA[", "<forecast><![CDATA[", "<previous><![CDATA[" };
   string eTags[7] = { "</title>", "</country>", "]]></date>", "]]></time>", "]]></impact>", "]]></forecast>", "]]></previous>" };
   for (i=0;i<count;i++)
   {
      for (j=0;j<7;j++)
      {
         maindata[i][j]=StringSubstr(maindata[i][j],StringFind(maindata[i][j],sTags[j],0)+StringLen(sTags[j]),StringFind(maindata[i][j],eTags[j],0)-StringFind(maindata[i][j],sTags[j],0)-StringLen(sTags[j]));
      }
   }
   int h2 = FileOpen("NewsEvent.csv",FILE_SHARE_READ|FILE_WRITE|FILE_CSV,';');
   int GMT = 0;
   string time_str = "";
   string prev_time_str = "";
   for (i=0;i<count;i++)
   {
      if (maindata[i][4] == "High")
      {
         GMT = -1 * (TimeGMTOffset()/3600);
         time_str = TimeToString(
                                   StringToTime(MakeDateTime(maindata[i][2],maindata[i][3])) + GMT * 3600,
                                   TIME_DATE|TIME_MINUTES|TIME_SECONDS
                                );
         if (time_str == prev_time_str) continue;
         FileWrite(h2,maindata[i][1],time_str);
         prev_time_str = time_str;
      }
   }
   FileClose(h2);
   return(count);
}

string MakeDateTime(string strDate, string strTime)
{
	// Print("Converting Forex Factory Time into Metatrader time..."); //added by MN
	// Converts forexfactory time & date into yyyy.mm.dd hh:mm
	int n1stDash = StringFind(strDate, "-");
	int n2ndDash = StringFind(strDate, "-", n1stDash+1);

	string strMonth = StringSubstr(strDate, 0, 2);
	string strDay = StringSubstr(strDate, 3, 2);
	string strYear = StringSubstr(strDate, 6, 4); 
//	strYear = "20" + strYear;
	
	int nTimeColonPos = StringFind(strTime, ":");
	string strHour = StringSubstr(strTime, 0, nTimeColonPos);
	string strMinute = StringSubstr(strTime, nTimeColonPos+1, 2);
	string strAM_PM = StringSubstr(strTime, StringLen(strTime)-2);

	int nHour24 = StrToInteger(strHour);
	if ((strAM_PM == "pm" || strAM_PM == "PM") && nHour24 != 12)
	{
		nHour24 += 12;
	}
	if ((strAM_PM == "am" || strAM_PM == "AM") && nHour24 == 12)
	{
		nHour24 = 0;
	}
 	string strHourPad = "";
	if (nHour24 < 10) 
		strHourPad = "0";

	return(StringConcatenate(strYear, ".", strMonth, ".", strDay, " ", strHourPad, nHour24, ":", strMinute));
}

void RebuildNewsArray()
{
   NewsConvert();
   string sBuffer = "";
   
   int i = 0;
   int h1 = FileOpen(EventFile,FILE_SHARE_READ|FILE_CSV);
   if (h1 < 0)
   {
   	ArrayResize(AvoidTime,1);
   	ArrayResize(AvoidSymbol,1);
   	return;
   }
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(Symbol(),sBuffer) >= 0) 
      {
         ArrayResize(AvoidSymbol,i+2);
         AvoidSymbol[i+1] = sBuffer;
         ArrayResize(AvoidTime,i+2);
         sBuffer = FileReadString(h1);
         AvoidTime[i+1] = StrToTime(sBuffer);
         i++;
      }
   }
   FileClose(h1);
}

bool AvoidNews()
{
#ifdef CHT
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{
				str[0] = "預警雷達已偵測到 " + AvoidSymbol[i] + " 戰場於 " + StringSubstr(TimeToStr(AvoidTime[i]),11,5) + " 可能將有大量狂派埋伏";
        		str[1] = "超級達摩戰艦於 " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5) + " 啟動防禦系統進入一級警戒";
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "正在接收狂派情資...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "最後狂派活動時間: " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "已無其他狂派活動或情資已過期,即將休兵......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
#ifdef ENG
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{

				str[0] = "News Alert on " + AvoidSymbol[i] + " at time " + StringSubstr(TimeToStr(AvoidTime[i]),11,5);
        		str[1] = "Red alert! Braking System Standing By at  " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5);
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "News retrieving...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "Latest News at : " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "No trading info available......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
}

bool Margin()
{
	if (MarginSleep)   
	{
		double Margin_R = AccountInfoDouble(ACCOUNT_MARGIN_LEVEL);
		if (EqualZero(Margin_R)) return(true);
  		if (MarginLimit >= Margin_R)  
  		{
         ObjectSetString(0,Margin,OBJPROP_TEXT,"Margin level lower than " + DoubleToString(MarginLimit,2) + "  automated system suspended");
         return(false);
  		}else
  		{
  			ObjectSetString(0,Margin,OBJPROP_TEXT,"");
  		}
  	}
	return(true);
}

bool Float()
{
	if (FloatEq)   
	{
      double Profit = AccountProfit();
      if (Profit <= FloatAm)  
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"Floating loss greater than "+DoubleToString(FloatAm,2)+" automated system suspended");
         return(0);
      }else 
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
      }
	}
	return(true);
}

bool TimesStopConfig()
{
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	GlobalVariableSet(NextSW_str,0);
#ifdef GLOBAL_FILE
	if (!GlobalFileRead()) 
	{
		GlobalVars.G_EARunTime = 0;
		GlobalVars.G_MaxEquity = (AccountProfit() / AccountBalance()) * 100;
		GlobalVars.G_Start_P = TimeCurrent();
		GlobalVars.G_Start_Balance = AccountBalance();
		GlobalFileWrite();
		GlobalFileRead();
	}
	Print("EARuntime: " + TimeToString(GlobalVars.G_EARunTime,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("MaxLossEquity: " + DoubleToString(GlobalVars.G_MaxEquity,2));
	Print("Start_P: " + TimeToString(GlobalVars.G_Start_P,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("Start_Balance: " + DoubleToString(GlobalVars.G_Start_Balance,2));
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	
#endif
	return(true);
}

bool TimesStop(double &TimesProfit, double &TodayProfit)
{
#ifdef GLOBAL_FILE
   if (OrdersTotal()==0) 
   {
      GlobalVars.G_Start_Balance = AccountBalance();
      GlobalVars.G_Start_P = TimeCurrent();
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Status                                                       |
   //+------------------------------------------------------------------+
   if(EqualZero(iBalance))
   	Start_Balance = GlobalVars.G_Start_Balance;  
   else
      Start_Balance = iBalance;
   Start_P = GlobalVars.G_Start_P;
   EARunTime = GlobalVars.G_EARunTime;
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVars.G_MaxEquity) 
   {
      GlobalVars.G_MaxEquity = (AccountProfit() / Start_Balance) * 100;
   }
   //+------------------------------------------------------------------+
   //|Check Balance                                                     |
   //+------------------------------------------------------------------+
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return(false);
	}
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Status                                                      |
   //+------------------------------------------------------------------+
   GlobalVars.G_EARunTime = EARunTime;
   GlobalVars.G_Start_Balance = Start_Balance;
   GlobalVars.G_Start_P = Start_P;
   GlobalFileWrite();
#else
	if (OrdersTotal()==0) 
   {
      GlobalVariableSet(Start_Balance_str,AccountBalance());
      GlobalVariableSet(Start_P_str,TimeCurrent());
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Balance                                                      | 
   //+------------------------------------------------------------------+
   if (GlobalVariableCheck(Start_Balance_str))
   {
   	if(EqualZero(iBalance))
	   	Start_Balance = GlobalVariableGet(Start_Balance_str);  
   	else
      	Start_Balance = iBalance;
	}else 
	{
		Start_Balance = AccountBalance();
	}
   
   if (GlobalVariableCheck(Start_P_str))
   {
   	Start_P = (datetime)GlobalVariableGet(Start_P_str);
	}else
	{
		Start_P = TimeCurrent();
	}
	
	if (GlobalVariableCheck(EARUNTIME_str))
	{
		EARunTime = (datetime)GlobalVariableGet(EARUNTIME_str);
	}
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVariableGet(MaxEquity_str)) 
   {
      GlobalVariableSet(MaxEquity_str,(AccountProfit() / Start_Balance)*100);
   }
   //+------------------------------------------------------------------+
   //|Check Balance                                                     |
   //+------------------------------------------------------------------+
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return(false);
	}
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Balnace                                                     |
   //+------------------------------------------------------------------+
   GlobalVariableSet(EARUNTIME_str,EARunTime);
   GlobalVariableSet(Start_P_str,(double)Start_P);
   GlobalVariableSet(Start_Balance_str,Start_Balance);
#endif
	return(true);
}
#endif

void DeleteObjects()
{
	for (int i=5;i>=0;i--)
   {
      if(ObjectFind(Label_arr[i]) >= 0) ObjectDelete(0,Label_arr[i]);
      if(ObjectFind(Label_arr1[i]) >= 0) ObjectDelete(0,Label_arr1[i]);
      if (i < 2) 
      {
      	if (ObjectFind(NewsInfo[i]) >= 0) ObjectDelete(0,NewsInfo[i]);
      	if (ObjectFind(Light_str[i]) >= 0) ObjectDelete(0,Light_str[i]);
      }
   }
   if(ObjectFind(Run) >= 0) ObjectDelete(0,Run);
   if(ObjectFind(FloatLoss) >= 0) ObjectDelete(FloatLoss);
   if(ObjectFind(Margin) >= 0) ObjectDelete(Margin);
   if(ObjectFind(Light) >= 0) ObjectDelete(Light);
   //if (FileIsExist(EventFile)) FileDelete(EventFile);
}

void UpdateFiles(const int Mode)
{
	if (Mode == MODE_INIT)
	{
		if (!GlobalVariableCheck("DNSW")) GlobalVariableSet("DNSW",0);
	   if (GlobalVariableSetOnCondition("DNSW",1,0))
   	{
#ifdef MODE_AREA51
      	RebuildNewsArray();	
#endif
      	if (UninitializeReason() != 3)
      	{
#ifdef MODE_AREA51      	
         	if (ArraySize(AvoidTime) <= 1) NewGetSW = true;
         	else
         	{
         		if (TimeLocal() >= AvoidTime[ArraySize(AvoidTime)-1] + MinAfter)
					{
						NewGetSW = true;
					}
				}
#endif		
         	Sleep(1000);
      	}
   	}
	}
	if (Mode == MODE_TICK)
	{
		if (
			(TimeHour(TimeLocal()) == DownloadHour && TimeMinute(TimeLocal()) == DownloadMin && H1BarTime != iTime(Symbol(),PERIOD_H1,0)) ||
			NewGetSW
			) 
		{
			if (!GlobalVariableCheck("DNSW0")) GlobalVariableSet("DNSW0",0); 
			if (GlobalVariableSetOnCondition("DNSW0",1,0))
			{
				if (!NewGetSW) 
				{			
        			Sleep(1000);
        		}   		
        		Sleep(1000);
#ifdef MODE_AREA51
        		RebuildNewsArray();
#endif
        		GlobalVariableSet("DNSW0",0); 
        		NewGetSW = false;
        	}
        	H1BarTime = iTime(Symbol(),PERIOD_H1,0);
		}
	}
}



void AutoRepairSLTP(const bool flag,const int Type,const int Mode)
{
	double TP = 0.0;
   double SL = 0.0;
   double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (!flag) return;
	
	int Cnt = MyOrderTotal(Type);
	GetLastTciketINFO(Type,MaxPrice,MinPrice);
   if (Mode == MODE_FIRSTTRADE)
   {
      TP = TakeProfit;
      SL = StopLoss;
      if (MartinSW)
      	SL = 0.0;
      Set_SL_TP(MODE_SLTP_BYPOINT,Type,SL,TP);
   }
   
   if (Mode == MODE_MARTIN)
   {
   	switch (Type)
      {
         case OP_BUY:
            TP = Cal_TP(OP_BUY,MinPrice,TakeProfit);
            SL = 0;
            break;
         case OP_SELL:
            TP = Cal_TP(OP_SELL,MaxPrice,TakeProfit);
            SL = 0;
            break;
      }
      if (Cnt > 1)
      {
#ifdef MODE_AREA51
      	if (SingleOut)
      		Set_SL_TP(MODE_SLTP_BYPOINT,Type,0,TakeProfit);
      	else
      		Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#else
			Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#endif
      }
   }
}

string FileCharArrayToString(const string str_temp)
{
	uchar End_arr[];
	int j = 0;
	for(int i=0;i<StringLen(str_temp);i+=2)
	{
		ArrayResize(End_arr,j+1);
		End_arr[j] = (char)StringToInteger(StringSubstr(str_temp,i,2));
		j++;
	}
	return(CharArrayToString(End_arr,0,WHOLE_ARRAY,CP_ACP));
}

void CheckOSVersion()
{
	ulong dwVersion = GetVersion();
   uint dwMajorVersion = (uchar)(((ushort)(dwVersion & 0xffff)) & 0xff);
   printf("Major Version Of OS: %d",dwMajorVersion);
   if (dwMajorVersion < 6) 
   {
#ifdef CHT
      Alert("請注意！使用Windows XP(Server 2003)之系統將無法保證交易能正常執行！");
#endif
#ifdef ENG
		Alert("Attention!  Not guarantee to run well in Windows XP(Server 2003)");
#endif
   }
}

void SetKbar(double& Kbar[])
{
   Kbar[0] = (double)iTime(Symbol(),1,0);
   Kbar[1] = iOpen(Symbol(),1,0);
   Kbar[2] = iHigh(Symbol(),1,0);
   Kbar[3] = iLow(Symbol(),1,0);
   Kbar[4] = iClose(Symbol(),1,0);
   Kbar[5] = (double)iVolume(Symbol(),1,0);
}
#ifdef MODE_AREA51
void BrakeSystemFun()
{
   int Light_Arrow[2] = {108,161};
	if (BrakeSystem)
   {
      int Pos = 50;
      double Position=20;
#ifdef CHT
      string Active = "煞車系統啟動中";
      string Deactive = "煞車系統待命中";
#endif
#ifdef ENG
		string Active = "Braking System Initiating";
      string Deactive = "Braking System Stand By";
#endif
      double Position_L = Bid + Position * point;
      for (int i=0;i<ArraySize(Light_str);i++)
      {
      	if (ObjectFind(Light_str[i]) < 0)
         	ObjectCreate(0,Light_str[i],OBJ_ARROW,0,0,0);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_ARROWCODE,Light_Arrow[i]);
      	if (i == 0) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLime);
      	if (i == 1) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLawnGreen);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_WIDTH,5);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_TIME1,TimeCurrent()+300);
      	ObjectSetDouble(0,Light_str[i],OBJPROP_PRICE1,Position_L);
      }
      
      int EnergyBall=Ball(Status,SleepStop,Last_Time,Last_Price,SleepTime,(int)TimeCurrent(),point,Energy,Close[0]);
      if (EnergyBall<0)
      {
         Alert("Energy Brake Error");
         TradeSW = false;
         return;
      }

      if (TimeCurrent()<=SleepStop[0])
      {
         TradeSW = false;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrRed);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrCrimson);
#ifdef CHT
         ObjectSetString(0,Light,OBJPROP_TEXT,Active+", "+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" 分鐘後啟動");
#endif
#ifdef ENG
			ObjectSetString(0,Light,OBJPROP_TEXT,Active+", initiate after"+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" minutes");
#endif
      }
      else
      {
         TradeSW = true;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrLime);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrLawnGreen);
         ObjectSetString(0,Light,OBJPROP_TEXT,Deactive);
      }
   }
   else
   {
      TradeSW = true;
      ObjectDelete(Light_str[0]);
      ObjectDelete(Light_str[1]);
   }
}
#endif

bool Lots_Valid(const double iLot)
{
	double ValuePerLot = SymbolInfoDouble(NULL,SYMBOL_TRADE_CONTRACT_SIZE) / AccountInfoInteger(ACCOUNT_LEVERAGE);
	if ((iLot * ValuePerLot) > AccountInfoDouble(ACCOUNT_FREEMARGIN)) return(false);
	return(true);
}

int GetTicket(int &Ticket_arr[])
{
	int Cnt = 0;
	for (int i=0;i<ArraySize(Ticket_arr);i++)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (Ticket_arr[i] == OrderTicket())
			{
				Cnt++;
				break;
			}
		}
	}
	return(Cnt);
}

int MyOrderTotal_Enders(const string symbol,const int Type,const int ID)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL && OrderSymbol() == symbol && OrderMagicNumber() == ID)
		{
		   x++;
		   continue;
		}
		if ((Type == OP_BUY && ((OrderType() & 1) == 1 ? false : true)) || (Type == OP_SELL && ((OrderType() & 1) == 1 ? true : false)))
	   {  
	   	if (OrderSymbol() == symbol && OrderMagicNumber() == ID)
			{
				x++;
			}
		}
	}
	return(x);
}

bool EAControl_Enders()
{
	bool Out = true;
	string str ="";
		
	if (!EGFlag) 
	{
		str = "Ender";
		Out = false;
	}
	Comment(str);
	return(Out);
}
int EndersGamgeCnt = 0;
void EndersGameModule(const string symbol, const int Type, int id, bool &flag)
{
	if (MyOrderTotal_Enders(symbol,Type,id) == 0)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (OrderCloseTime() > EGStartTime)
			{
				EndersGamgeCnt++;
				Alert(Symbol() + " 戰場已完成第" + IntegerToString(EndersGamgeCnt) + " 次戰役");
				EGStartTime = TimeCurrent();
				break;
			}
		}
	}
	if (EndersGamgeCnt >= OutCnt)
	{
		Alert("已達成設定局數，即將離開 " + Symbol() + " 戰場");
		flag = false;
		ExpertRemove();
	}
}

X Bomb(BUY_Everest Warrior).mq4

//+------------------------------------------------------------------+
//|                                                      ProjectName |
//|                                      Copyright 2012, CompanyName |
//|                                       http://www.companyname.net |
//+------------------------------------------------------------------+
#property strict

#include <WarGameDLL.mqh>
#include <WinUser32.mqh>

#import "User32.dll"
int GetDC(int);
int ReleaseDC(int,int);
#import "Gdi32.dll"
int GetDeviceCaps(int,int);
#import "stdlib.ex4"
string ErrorDescription(int error_code);
#import

//#define ENG 1
#define CHT 1
#define MODE_BUY 1
//#define MODE_SELL 1
#define TOLERANCE 0.000001
#define OP_ALL       101
#define MODE_AGET 0
#define MODE_FGET 1
#define MODE_INIT 3
#define MODE_TICK 4
#define MODE_CHECKTIMEIN 0
#define MODE_TIMESTP 1
#define MODE_TIMESSL 2
#define MODE_DAILYTP 3

#ifdef CHT
string t1="";
input bool AutoRepairSLTP = false; //自動回復停損停利
input double Pending = 0.0;  //掛單價格 
string T21="-------------------------------------------";
input double MM = 1; //資金管理％數
input double Lots = 0.01; //手數
input double TakeProfit = 10.0; //獲利點數
input double StopLoss = 10.0; //停損點數
input string T0="-------------ESP戰艦穩定煞車系統------------";
input bool BrakeSystem=true;
int pSeconds=14;
input double Energy=4; //能量偵測靈敏度
input int SleepTime=15; //能量引擎啟動時間(分鐘)
int SleepStop[1]={0};
input string T00="-------------------------------------------";
input double iBalance = 0; //止盈計算本金基準
input bool TakeProfitPercentSW = true; //次止盈開關
input double TakeProfitPercent = 1; //次止盈,每次最多獲利％,立即平倉歸零重啟新局
input bool TakeProfitPercentDaySW = true; //日止盈開關
input double TakeProfitPercentDay = 1000; //日止盈,每日最多獲利％,立即停止交易,隔日重新啟動
input bool StopLossPercentSW = true; //浮虧止損開關
input double StopLossPercent = 1000; //現時帳戶浮虧止損,止損基準值:帳戶餘額
input bool SleepLoss = true; //止損後當日不再出兵
double NextTime=0.5;
input string T9_="-------------------小虧為贏模組-------------";
input bool SmallLossWinSW = true; //小虧為贏開關
input int MaxTime=150; //每局最長時間(分鐘)
input int MaxIn=20; //每局最多兵力
input double MaxP=0.5; //達成以上條件小虧為贏
input string T20="-------------------------------------------";
input bool SingleOut=false; //單獨出場
input double i_Multiple=1.382; //馬丁倍率
input int i_MaxMartin=5; //馬丁張數
input string K="馬丁距離";
input double i_MartinStep_0=30;
input double i_MartinStep_1=40;
input double i_MartinStep_2=50;
input double i_MartinStep_3=60;
input double i_MartinStep_4=60;
input double i_MartinStep_5=60;
input double i_MartinStep_6=60;
input double i_MartinStep_7=60;
input double i_MartinStep_8=60;
input double i_MartinStep_9=60;
input bool MartinCalLots=true; //馬丁計算獲利手數開關,T:第一張手數 | F:總手數
input double i_TPPoint=10; //馬丁計算獲利點數
input int MOrders=2; //馬丁第幾張開始調整手數
input bool MartinSW = true; //逆勢攤平馬丁
input int M_Period = 60; //攤平馬丁時區
input string Q0="-------------------------------------------";
input int AutoSWAntiMartin=0; //不出場自動控制
input int AntiMartinTrades=2; //不出場單數
input double AntiMartinMultiple=0.5; //反馬丁倍率
input double AntiMartinStep=20; //反馬丁間距
input double Ai_TPPoint=0; //反馬丁獲利點設定為第一張的獲利點數
input string Q5="-------------------------------------------";
input bool MartinAntiMSW=true; //Counter Strike模式
input double CSMultiple=0.5; //Counter Strike倍率
input double CSStep=20; //Counter Strike間距
input double CSTPPoint=0; //Counter Strike獲利點數
input bool CSProtect = true; //Counter Strike保護裝置
input string Q11="-------------------------------------------";
bool NoMartininAttck=false; //執行Attack模式後，反向不下單"
input bool Non_Stop=false; //Enders Game
double Position=20;
input int OutCnt=1;
#endif 

#ifdef ENG
string t1="";
input bool AutoRepairSLTP = false; //Auto Repair SL&TP
input double Pending = 0.0;  //Pending Order at Price
string T21="-------------------------------------------";
input double MM = 1; //Fund Management %
input double Lots = 0.01; //Order Size_lot
input double TakeProfit = 10.0; //Take Profit 
input double StopLoss = 10.0; //Stop Loss
input string T0="-------------BrakeSystem------------";
input bool BrakeSystem=true;
int pSeconds=14;
input double Energy=4; //Braking System Sensitivity Control
input int SleepTime=15; //Braking System Sleeping Time
int SleepStop[1]={0};
input string T00="-------------------------------------------";
input double iBalance = 0; //Capital setting for Profit/Loss termination
input bool TakeProfitPercentSW = true; //Switch of Secondary Take Profit
input double TakeProfitPercent = 1; //Secondary Take Profit, max. % of profit to close trade, and reset
input bool TakeProfitPercentDaySW = true; //Switch of Daily Take Profit 
input double TakeProfitPercentDay = 1000; //Daily Take Profit, max. % of profit to close trade, reset on the next day
input bool StopLossPercentSW = true; //Switch of stopping Floating Loss
input double StopLossPercent = 1000; //
input bool SleepLoss = true; //Stop trading when reaching stop loss the same day
double NextTime=0.5;
input string T9_="-------------------Small Loss for Win-------------";
input bool SmallLossWinSW = true; //Switch of Small Loss To Win
input int MaxTime=150; //Max. Time Per Set (Minutes)
input int MaxIn=20; //Max. Trades Per Set
input double MaxP=0.5; //Criteria of Small Loss for Win
input string T20="-------------------------------------------";
input bool SingleOut=false; //Take Profit Single Out
input double i_Multiple=1.382; //Martingale Multiplier
input int i_MaxMartin=5; //Martingale Order No.
input string K="Martingale Distance";
input double i_MartinStep_0=30;
input double i_MartinStep_1=40;
input double i_MartinStep_2=50;
input double i_MartinStep_3=60;
input double i_MartinStep_4=60;
input double i_MartinStep_5=60;
input double i_MartinStep_6=60;
input double i_MartinStep_7=60;
input double i_MartinStep_8=60;
input double i_MartinStep_9=60;
input bool MartinCalLots=true; //Martingale Lots Profit Calculation. T: First Order Lot | F: Total Order Lot
input double i_TPPoint=10; //Martin Profit Calculation in Pips
input int MOrders=2; //Number to start martingale multiplication 
input bool MartinSW = true; //Against Trend Martin
input int M_Period = 60; //Martin Order Time Frame
input string Q0="-------------------------------------------";
input int AutoSWAntiMartin=0; //Mode Selector
input int AntiMartinTrades=2; //Retaining Order No.
input double AntiMartinMultiple=0.5; //Anti-Martingale Multiplier
input double AntiMartinStep=20; //Anti-Martingale Distance
input double Ai_TPPoint=0; //First Anti-Martingale order take profit
input string Q5="-------------------------------------------";
input bool MartinAntiMSW=true; //Counter Strike Mode
input double CSMultiple=0.5; //Counter Strike Multiplier
input double CSStep=20; //Counter Strike Distance
input double CSTPPoint=0; //Counter Strike Take Profit
input bool CSProtect = true; //Counter Strike Protection System
input string Q11="-------------------------------------------";
bool NoMartininAttck=false; //Stop placing opposite trend order after Attack Mode
input bool Non_Stop=false; //Enders Game
double Position=20;
input int OutCnt=1;
#endif

datetime ticket_time=0;

int Last_Time[1]={0};
int OutCntTemp=0;
int MartinBuyBar,MartinSellBar;
int id_1=3333333;
int Status[1]={0};
int DownloadHour = 6;
int DownloadMin = 0;
int ErrorCode = 0;

bool NewGetSW = false;

datetime H1BarTime = 0;
datetime Start_P = 0;
datetime EARunTime = 0;
datetime EGStartTime = TimeCurrent();
bool EGFlag = true;


double point;
double Last_Price[1]={-1.0};
double FontDPI=96;
double MinPriceShot;
double iPending = 0.0;
double Start_Balance = 0;
double iLots = 0.0;

string Start_P_str = "Start_P";
string Start_Balance_str = "Start_Balance";
string MaxEquity_str = "MaxEquity";
string NextSW_str = "NextSW";
string EARUNTIME_str = "EARUNTIME";
string B_Status,S_Status;
string Run = "RunStatus";
string LogText[4] = {"小虧為贏" , "次止盈" , "次止損" , "日止盈"};
string Label_arr[6] = 
{
   "TimesProfitPer",
   "Start_Balance",
   "TimePast",
   "Orders",
   "TodayProfitPer",
   "MaxLoss"
};
   
string Label_arr1[6] = 
{
   "TimesProfitPer0",
   "Start_Balance0",
   "TimePast0",
   "Orders0",
   "TodayProfitPer0",
   "MaxLoss0"
};

bool NewsgetSW=false;
bool GetAuthorSW=true;
bool FirstNotOut=false;
bool FirstIn = true;
bool MartinIn = true;

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OnInit()
{

   int dc=GetDC(0);
   FontDPI=GetDeviceCaps(dc,88);
   if (FontDPI==0)
      FontDPI=96;
   ReleaseDC(0,dc);
   
//+------------------------------------------------------------------+
	iLots = OpLots();
   ticket_time=TimeCurrent();
   MinPriceShot=Energy;
//+------------------------------------------------------------------+
   if (Digits==5 || Digits==3)
   {
      point=Point*10;
   }
   else
   {
      point=Point;
   }
   TimesStopConfig();
   
   UpdateFiles(MODE_INIT);
   
   iPending = Pending;
   return;
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
   ObjectDelete("Lable");
   ObjectDelete("Lable1");
   ObjectDelete("percent");
   ObjectDelete("start_p");
   ObjectDelete("takepercent_day");
   ObjectDelete("percent0");
   ObjectDelete("start_p0");
   ObjectDelete("takepercent_day0");
   ObjectDelete("percent.1");
   ObjectDelete("start_p.1");
   ObjectDelete("takepercent_day.1");
   ObjectDelete("percent0.1");
   ObjectDelete("start_p0.1");
   ObjectDelete("takepercent_day0.1");
   ObjectDelete("run");
   ObjectDelete("Newsinfo");
   ObjectDelete("Newsinfo2");
   ObjectDelete("ERR");
   ObjectDelete("ERR2");
   ObjectDelete("Expert");
   ObjectDelete("Light");
   ObjectDelete("Light2");
   ObjectDelete("lightstatus");
   ObjectDelete("Margin");
   ObjectDelete("Float");
   ObjectDelete("LOGO");
   ObjectDelete("LOGO0");
   ObjectDelete("NAME");
   ObjectDelete("MSG0");
   ObjectDelete("MSG0.0");
   ObjectDelete("MSG1");
   ObjectDelete("MSG1.0");
   ObjectDelete("MSG2");
   ObjectDelete("MSG2.0");
   ObjectDelete("MSG3");
   GlobalVariableSet("DNSW",0);
   DeleteObjects();
   return;
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OnTick()
{
   string tComment="ERTYUUI";
   string tMComment="Martin";

	UpdateFiles(MODE_TICK);
	double TimesProfit = 0.0;
   double TodayProfit = 0.0;
   if (!CloseAllTrades()) return;
   if (!TimesStop(TimesProfit,TodayProfit)) return;
   Displayprofit(TimesProfit,TodayProfit);
	CheckTimeIn(TimesProfit);
	
	  
//--------------------------------------------------------------海卓拉加入的片段
   #ifdef MODE_BUY
if (Non_Stop==false) EndersGameModule(Symbol(),OP_BUY,id_1,EGFlag);
#endif

#ifdef MODE_SELL
if (Non_Stop==false) EndersGameModule(Symbol(),OP_SELL,id_1,EGFlag);
#endif
   
//--------------------------------------------------------------海卓拉加入的片段


   //+------------------------------------------------------------------+
   //|Shutdown EA                                                       |
   //+------------------------------------------------------------------+
   if (!EAControl()) return;
   
//+------------------------------------------------Brake_System---------------------------------------------------------------------+
   if (BrakeSystem)
   {
      int Pos = 50;
#ifdef CHT      
      string Active="煞車系統啟動中";
      string Deactive="煞車系統待命中";
#endif
#ifdef ENG
		string Active="Braking System Initiating";
      string Deactive="Braking System Stand By";
#endif
      color Light_status=Gold;
      double Position_L=Bid+Position*point;
      if (ObjectFind("Light")==-1)
         ObjectCreate("Light",OBJ_ARROW,0,0,0);
      ObjectSet("Light",OBJPROP_ARROWCODE,108);
      ObjectSet("Light",OBJPROP_CORNER,1);
      ObjectSet("Light",OBJPROP_COLOR,Lime);
      ObjectSet("Light",OBJPROP_WIDTH,5);
      
      if (ObjectFind("Light2")==-1)
         ObjectCreate("Light2",OBJ_ARROW,0,0,0);
      ObjectSet("Light2",OBJPROP_ARROWCODE,161);
      ObjectSet("Light2",OBJPROP_CORNER,1);
      ObjectSet("Light2",OBJPROP_COLOR,LawnGreen);
      ObjectSet("Light2",OBJPROP_WIDTH,5);
      
      if (ObjectFind("lightstatus")==-1)
         ObjectCreate("lightstatus",OBJ_LABEL,0,0,0);
      ObjectSet("lightstatus",OBJPROP_CORNER,1);
      ObjectSet("lightstatus",OBJPROP_COLOR,Gold);
      ObjectSet("lightstatus",OBJPROP_XDISTANCE,20);
      ObjectSet("lightstatus",OBJPROP_YDISTANCE,Pos+155);
      
      ObjectSet("Light",OBJPROP_TIME1,TimeCurrent()+300);
      ObjectSet("Light",OBJPROP_PRICE1,Position_L);
      ObjectSet("Light2",OBJPROP_TIME1,TimeCurrent()+300);
      ObjectSet("Light2",OBJPROP_PRICE1,Position_L);
      
      int EnergyBall=Ball(Status,SleepStop,Last_Time,Last_Price,SleepTime,(int)TimeCurrent(),point,MinPriceShot,Close[0]);
      if (EnergyBall<0)
      {
         Alert("Energy Brake Error");
         return;
      }
      
      if (TimeCurrent()<=SleepStop[0])
      {
         FirstNotOut=true;
         MartinIn=false;
         ObjectSet("Light",OBJPROP_COLOR,Red);
         ObjectSet("Light2",OBJPROP_COLOR,Crimson);
         #ifdef CHT
         ObjectSetText("lightstatus",Active+", "+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" 分鐘後啟動",10,"微軟正黑體",Light_status);
         #endif
         #ifdef ENG
         ObjectSetText("lightstatus",Active+", initiate after "+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" minutes",10,"微軟正黑體",Light_status);
         #endif}
      else
      {
         FirstNotOut=false;
         MartinIn=true;
         ObjectSet("Light",OBJPROP_COLOR,Lime);
         ObjectSet("Light2",OBJPROP_COLOR,LawnGreen);
         ObjectSetText("lightstatus",Deactive,10,"微軟正黑體",Light_status);
      }
   }
   else
   {
      FirstNotOut=false;
      MartinIn=true;
      ObjectDelete("Light");
      ObjectDelete("Light2");
      ObjectDelete("lightstatus");
   }
//+------------------------------------------------Brake_System---------------------------------------------------------------------+
   
   if (iLots<0.01 && iLots != 0.0)
   {
#ifdef CHT
      Alert(Symbol()+" 已達最小手數(<0.01)，無法下單");
#endif
#ifdef ENG
		Alert(Symbol()+" Minimum lot size (<0.01), trading not available");
#endif      
      return;
   }
#ifdef MODE_BUY
   BuyModule();
#endif
#ifdef MODE_SELL
   SellModule();
#endif
  
   ShowMSG();
   return;
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool profit_control(datetime i_0,double takepercent_)
{
   double today_profit;
   today_profit=((GetProfitFromDateInCurrency(i_0)+AccountProfit())/Start_Balance)*100;
   
   if (today_profit>=takepercent_)
   {
      GlobalVariableSet("LastProfit",today_profit);
      return(false);
   }
   return(true);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double GetProfitFromDateInCurrency(datetime today)
{
   double profit=0;
   int total =OrdersHistoryTotal();
   for (int i=0; i<total; i++)
   {
      if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
      {
         if (OrderType()==OP_BUY || OrderType()==OP_SELL)
         {
            if (today<OrderCloseTime())
               profit+=OrderProfit()+OrderCommission()+OrderSwap();
         }
      }
   }
   return (profit);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void iCloseOrders(int type)
{
	int C0_cnt;
	if (type == OP_BUYSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUYSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}

	if (type == OP_SELLSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELLSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_BUY) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUY && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrLime))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_SELL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELL && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_ALL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--)
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
   		if (OrderType() == OP_BUYSTOP || OrderType() == OP_SELLSTOP || OrderType() == OP_BUYLIMIT || OrderType() == OP_SELLLIMIT)
   		{
   		   if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
   		}else {
   		   if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
			   {
   			   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
   			}
         }
		}
	}
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selecttickets()
{
   int cnt_tickets = 0;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT))
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT))
#endif
         {
            ticket_time=OrderOpenTime();
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selectticketsfrhistory()
{
   int cnt_tickets = 0;
   for (int i=0;i<OrdersHistoryTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT) && ticket_time<=OrderOpenTime())
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT) && ticket_time<=OrderOpenTime())
#endif
         {
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int OrderSendF(int type,double inLots,double SL,double TP,string Comm)
{
   int Ertemp=0;
   double SendOrders_Lots = inLots;
   if (!Lots_Valid(SendOrders_Lots)) 
   {
   	Alert("No Money");
   	return(-1);
   }
   switch (type)
   {
   case OP_BUY:
      Ertemp=OrderSend(Symbol(),OP_BUY,inLots,Ask,20,0,0,Comm,id_1,0,Lime);
      if (Ertemp<0)
      {
         return(-99);
      }
      Set_sl_tp_buy(Symbol(),TP,SL);
      break;
      
   case OP_SELL:
      Ertemp=OrderSend(Symbol(),OP_SELL,inLots,Bid,20,0,0,Comm,id_1,0,Red);
      if (Ertemp<0)
      {
         return(-99);
      }
      Set_sl_tp_sell(Symbol(),TP,SL);
      break;
   }
   return(0);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double NormPoint(double in)
{
   return(in * point);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Set_sl_tp_sell(string symbol,double tp_m,double sl_m)
{
   double stoploss_m,takeprofit_m;
   for (int z=0;z<OrdersTotal();z++)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderSymbol()==symbol && OrderType()==OP_SELL && OrderMagicNumber()==id_1)
      {
      
         if (sl_m>0)
         {
            stoploss_m=OrderOpenPrice()+sl_m*point;
         }
         else
            if (sl_m==0)
            {
               stoploss_m=0;
            }
            else
            {
               stoploss_m=OrderStopLoss();
            }
            
         if (tp_m>0)
         {
            takeprofit_m=OrderOpenPrice()-tp_m*point;//宣告一個takeprofit放停利"價位"
         }
         else
            if (tp_m==0)
            {
               takeprofit_m=0;
            }
            else
            {
               takeprofit_m=OrderTakeProfit();
            }
            
         if (CompareDouble(stoploss_m,OrderStopLoss()) && CompareDouble(takeprofit_m,OrderTakeProfit()))
         {
            continue;
         }
         RefreshRates();
         if (!OrderModify(OrderTicket(),OrderOpenPrice(),stoploss_m,takeprofit_m,0,White))
         {
         	Alert("Set_sl_tp_sell" + IntegerToString(GetLastError()));
         }
      }
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void GetAllOrders(int type,int &b_Ticket[],int &s_Ticket[])
{
   int x=0,y=0;
   
   if (type==OP_BUY)
   {
      for (int i=0;i<OrdersTotal();i++)
      {
         if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
            continue;
         if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
         {
            b_Ticket[x]=OrderTicket();
            x++;
         }
      }
   }
   
   if (type==OP_SELL)
   {
      for (int j=0;j<OrdersTotal();j++)
      {
         if (!OrderSelect(j,SELECT_BY_POS,MODE_TRADES))
            continue;
         if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
         {
            s_Ticket[y]=OrderTicket();
            y++;
         }
      }
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int MyOrderTotal(int Type)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL)
		{
		   x++;
		   continue;
		}
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)
		{
			x++;
		}
	}
	return(x);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Set_sl_tp(int type,double tp_m,double sl_m)
{
   for (int z=0;z<OrdersTotal();z++)//執行N次篩選(N=訂單總數)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES))
         continue;//用"流水號"找訂單
      if (OrderSymbol()==Symbol() && OrderType()==type && OrderMagicNumber()==id_1)//挑選出同貨幣對 && BUY單 && MagicNumber=本程式 的訂單
      {
         if (DoubleCutDigis(OrderStopLoss())==DoubleCutDigis(sl_m) && DoubleCutDigis(OrderTakeProfit())==DoubleCutDigis(tp_m))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (tp_m == -1)
            {
               tp_m = OrderTakeProfit();
            }
            if (sl_m == -1)
            {
               sl_m = OrderStopLoss();
            }
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),DoubleCutDigis(sl_m),DoubleCutDigis(tp_m),0,White))
            {
               Alert("Set_sl_tp "+IntegerToString(OrderTicket())+"  error : "+ErrorDescription(GetLastError()));
            }
         }
      }
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Set_sl_tp_Quota(int type,double tp_m0,double tp_m1,int WithOut)
{
   int QQ=0;
   double SL = 0.0;
   double TP = 0.0;
   for (int z=0;z<OrdersTotal();z++)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderSymbol()==Symbol() &&  OrderType()==type  &&  OrderMagicNumber()==id_1)
      {
         QQ++;
         if (QQ <= WithOut) continue;
         if (QQ <= AntiMartinTrades)
         {
            if (DoubleCutDigis(OrderStopLoss())==DoubleCutDigis(tp_m0) && DoubleCutDigis(OrderTakeProfit())==0)
            {
               continue;
            }
            else
            {
               RefreshRates();
               if (!OrderModify(OrderTicket(),OrderOpenPrice(),DoubleCutDigis(tp_m0),0,0,White))
               {
                  Alert("Set_sl_tp Q0 "+IntegerToString(OrderTicket())+"  error : "+ErrorDescription(GetLastError()));
               }
            }
         }
         else
         {
            if (DoubleCutDigis(OrderStopLoss()) == DoubleCutDigis(tp_m0) && DoubleCutDigis(OrderTakeProfit())==DoubleCutDigis(tp_m1))
            {
               continue;
            }
            else
            {
               RefreshRates();
               if (!OrderModify(OrderTicket(),OrderOpenPrice(),DoubleCutDigis(tp_m0),DoubleCutDigis(tp_m1),0,White))
               {
                  Alert("Set_sl_tp Q1 "+IntegerToString(OrderTicket())+"  error : "+ErrorDescription(GetLastError()));
               }
            }
         }
      }
   }
}

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Set_sl_tp_CS(int type,double tp_m,double sl_m,int MaxTicket_s)
{
   for (int z=0;z<OrdersTotal();z++)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES))
         continue;
      if ((OrderSymbol()==Symbol() && OrderType()==type && OrderMagicNumber()==id_1 && StringFind(OrderComment(),"CS")>=0) || OrderTicket()==MaxTicket_s)
      {
         if (DoubleCutDigis(OrderStopLoss())==DoubleCutDigis(sl_m) && DoubleCutDigis(OrderTakeProfit())==DoubleCutDigis(tp_m))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (tp_m == -1)
            {
               tp_m = OrderTakeProfit();
            }
            if (sl_m == -1)
            {
               sl_m = OrderStopLoss();
            }
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),DoubleCutDigis(sl_m),DoubleCutDigis(tp_m),0,White))
            {
               Alert("Set_sl_tp CS.0 "+IntegerToString(OrderTicket())+"|"+DoubleToStr(sl_m,Digits)+"|"+DoubleToStr(Ask,Digits)+"|"+DoubleToStr(Bid,Digits)+"  error : "+ErrorDescription(GetLastError()));
            }
         }
      }
      if (OrderSymbol()==Symbol() && OrderType()==type && OrderMagicNumber()==id_1 && StringFind(OrderComment(),"CS")<0 && OrderTicket()!=MaxTicket_s)
      {
         if (/*DoubleCutDigis(OrderStopLoss()) == DoubleCutDigis(sl_m)*/OrderStopLoss()==0 && DoubleCutDigis(OrderTakeProfit())==DoubleCutDigis(tp_m))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),DoubleCutDigis(OrderStopLoss()),DoubleCutDigis(tp_m),0,White))
            {
               Alert("Set_sl_tp CS.0 "+IntegerToString(OrderTicket())+"|"+DoubleToStr(sl_m,Digits)+"|"+DoubleToStr(Ask,Digits)+"|"+DoubleToStr(Bid,Digits)+"  error : "+ErrorDescription(GetLastError()));
            }
         }
      }
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double NormPrice(double in,int dd)
{
   in=NormalizeDouble(in,dd);
   return(in);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Cal_TP_Sell(bool Mode,int type,double MaxPrice_s,double TPPoint,int WithOut)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double TP_Goal;
   int x = 0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
      {
         x++;
         if (x <= WithOut) continue;
         TotalLots+=OrderLots();
         TotalDisProduct+= (MaxPrice_s - OrderOpenPrice())/point * OrderLots();
      }
   }
   if (Mode)
   {
      TP_Goal= (TPPoint * fGetFirstLots(OP_SELL) + TotalDisProduct) / TotalLots;
   }
   else
   {
      TP_Goal= (TPPoint * GetAllLots(OP_SELL) + TotalDisProduct) / TotalLots;
   }
   return(TP_Goal);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Cal_TP_CS_SELL(int type,double MaxPrice_s,int MaxTicket_s,double TPPoint)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double TP_Goal;
   
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol() && StringFind(OrderComment(),"CS")>=0)
      {
         TotalLots+=OrderLots();
         TotalDisProduct+=(MaxPrice_s-OrderOpenPrice())/point*OrderLots();
      }
      if (OrderTicket()==MaxTicket_s)
      {
         if (OrderSelect(MaxTicket_s,SELECT_BY_TICKET,MODE_TRADES))
         {
            TotalLots+=OrderLots();
            TotalDisProduct+=(MaxPrice_s-OrderOpenPrice())/point*OrderLots();
         }
      }
   }
   TP_Goal=(TPPoint*fGetFirstLots(type)+TotalDisProduct)/TotalLots;
   return(TP_Goal);
}

double Cal_TP_CS_BUY(int type,double MinPrice_b,int MinTicket_b,double TPPoint)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double TP_Goal;
   
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if ((OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol() && StringFind(OrderComment(),"CS")>=0) || OrderTicket()==MinTicket_b)
      {
         TotalLots+=OrderLots();
         TotalDisProduct+=(OrderOpenPrice()-MinPrice_b)/point*OrderLots();
      }
   }
   TP_Goal=(TPPoint*fGetFirstLots(1)+TotalDisProduct)/TotalLots;
   return(TP_Goal);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int OrderSendA(int type,double price,color tColor,string tSymbol,double inLots,double SL,double TP,string tComment)
{
   RefreshRates();
   double SendOrders_Lots = inLots;
   if (!Lots_Valid(SendOrders_Lots)) 
   {
   	Alert("No Money");
   	return(-1);
   }
   int ticket_c=OrderSend(tSymbol,type,inLots,price,(int)(2*(point/Point)),0,0,tComment,id_1,0,tColor);   //if yes send order
   if (ticket_c < 0)
   {
      Alert("OrderSend (OrderSendA) Error: "+ErrorDescription(GetLastError()));
      return(-1);
   }
   if (TP == 0 && SL ==0) return(1);
   if (!OrderModify(ticket_c,price,SL,TP,0,tColor))
   {
      Alert("OrderModify SL TP (OrderSendA) Error: "+ErrorDescription(GetLastError()));
      return(1);
   }
   return(0);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double fGetFirstLots(int type)
{
   double fLot = 0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderMagicNumber()==id_1 && OrderType()==type && OrderSymbol()==Symbol())
      {
         fLot=OrderLots();
         break;
      }
   }
   fLot=NormPrice(fLot,2);
   return(fLot);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double GetProfit()
{
   double Profit=0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderMagicNumber()==id_1 && OrderType()==OP_SELL && OrderSymbol()==Symbol())
      {
         Profit+=OrderProfit()+OrderSwap()+OrderCommission();
      }
   }
   return(Profit);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double DoubleCutDigis(double in)
{
   return(StrToDouble(DoubleToStr(in,Digits)));
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void TicketInfo_SELL(int &b_Ticket[],double &b_Price[],int &s_Ticket[],double &s_Price[],double &MaxPrice_s,int &MaxTicket_s,double &MinPrice_s,int &MinTicket_s)
{
   if (MyOrderTotal(OP_SELL)!=0)
   {
      ArrayResize(s_Ticket,MyOrderTotal(OP_SELL));
      ArrayResize(s_Price,MyOrderTotal(OP_SELL));
      GetAllOrders(OP_SELL,b_Ticket,s_Ticket);
      
      for (int j=0;j<ArraySize(s_Ticket);j++)
      {
         if (!OrderSelect(s_Ticket[j],SELECT_BY_TICKET,MODE_TRADES)) continue;
         s_Price[j]=OrderOpenPrice();
      }
      
      MaxPrice_s=s_Price[ArrayMaximum(s_Price)];
      MaxTicket_s= s_Ticket[ArrayMaximum(s_Price)];
      MinPrice_s = s_Price[ArrayMinimum(s_Price)];
      MinTicket_s= s_Ticket[ArrayMinimum(s_Price)];
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool CheckQuota_SELL()
{
   bool Sig=false;
   double Price[2] = {0};
   int x=0;
   
   for (int i=0;i<OrdersTotal();i++)
   {
      if (x==2)
         break;
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderType()==OP_SELL && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
      {
         Price[x]=OrderOpenPrice();
         x++;
      }
   }
   
   if (x < 2)
      return(false);
   if (Price[0] < Price[1])
      Sig = false;
   if (Price[0] > Price[1])
      Sig = true;
      
   return(Sig);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int GetLastOrder(int type)
{
   int Ticket=0;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
      {
         Ticket=OrderTicket();
         break;
      }
   }
   return(Ticket);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void ShowMSG()
{
   double Scale=StrToDouble(DoubleToStr(FontDPI/96,2));
   double Start=55;
   Start=(Start * Scale);
   double Y=20;
   Y=(Y*Scale);
   if (ObjectFind("LOGO")==-1)
   {
      //ObjectCreate("LOGO",OBJ_LABEL,0,0,0);
      ObjectCreate(0,"LOGO",OBJ_BITMAP_LABEL,0,0,0);
   }
   ObjectSetString(0,"LOGO",OBJPROP_BMPFILE,"\\Images\\Axe.bmp");
   ObjectSetInteger(0,"LOGO",OBJPROP_XDISTANCE,8);
   ObjectSetInteger(0,"LOGO",OBJPROP_YDISTANCE,15);
   
   if (ObjectFind("LOGO0")==-1)
   {
      ObjectCreate("LOGO0",OBJ_LABEL,0,0,0);
   }
   ObjectSet("LOGO0",OBJPROP_CORNER,0);
   ObjectSet("LOGO0",OBJPROP_XDISTANCE,60*Scale);
   ObjectSet("LOGO0",OBJPROP_YDISTANCE,10*Scale);
   ObjectSetText("LOGO0","登峰戰士",30,"標楷體",White);
   
   if (ObjectFind("NAME")==-1)
   {
      ObjectCreate("NAME",OBJ_LABEL,0,0,0);
   }
   ObjectSet("NAME",OBJPROP_CORNER,0);
   ObjectSet("NAME",OBJPROP_XDISTANCE,65*Scale);
   ObjectSet("NAME",OBJPROP_YDISTANCE,50*Scale+Y*0);
#ifdef MODE_BUY
   ObjectSetText("NAME","EVEREST WARRIOR BUY",14,"Impact",GreenYellow);
#endif
#ifdef MODE_SELL
   ObjectSetText("NAME","EVEREST WARRIOR SELL",14,"Impact",Red);
#endif
   
   if (ObjectFind("MSG0")==-1)
   {
      ObjectCreate("MSG0",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG0",OBJPROP_CORNER,0);
   ObjectSet("MSG0",OBJPROP_XDISTANCE,10*Scale);
   ObjectSet("MSG0",OBJPROP_YDISTANCE,Start+Y*1);
   ObjectSetText("MSG0","Martingale Multiple: ",14,"Impact",Gold);
   
   if (ObjectFind("MSG0.0")==-1)
   {
      ObjectCreate("MSG0.0",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG0.0",OBJPROP_CORNER,0);
   ObjectSet("MSG0.0",OBJPROP_XDISTANCE,185*Scale);
   ObjectSet("MSG0.0",OBJPROP_YDISTANCE,Start+Y*1);
   ObjectSetText("MSG0.0",DoubleToStr(i_Multiple,3),14,"Impact",Gold);
   
   if (ObjectFind("MSG1")==-1)
   {
      ObjectCreate("MSG1",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG1",OBJPROP_CORNER,0);
   ObjectSet("MSG1",OBJPROP_XDISTANCE,10*Scale);
   ObjectSet("MSG1",OBJPROP_YDISTANCE,Start+Y*2);
   ObjectSetText("MSG1","Max Martingale Trades: ",14,"Impact",White);
   
   if (ObjectFind("MSG1.0")==-1)
   {
      ObjectCreate("MSG1.0",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG1.0",OBJPROP_CORNER,0);
   ObjectSet("MSG1.0",OBJPROP_XDISTANCE,210*Scale);
   ObjectSet("MSG1.0",OBJPROP_YDISTANCE,Start+Y*2);
   ObjectSetText("MSG1.0",DoubleToStr(i_MaxMartin,0),14,"Impact",White);
   
   if (ObjectFind("MSG2")==-1)
   {
      ObjectCreate("MSG2",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG2",OBJPROP_CORNER,0);
   ObjectSet("MSG2",OBJPROP_XDISTANCE,10*Scale);
   ObjectSet("MSG2",OBJPROP_YDISTANCE,Start+Y*3);
   ObjectSetText("MSG2","Martingale Range: ",14,"Impact",CornflowerBlue);
   
   if (ObjectFind("MSG2.0")==-1)
   {
      ObjectCreate("MSG2.0",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG2.0",OBJPROP_CORNER,0);
   ObjectSet("MSG2.0",OBJPROP_XDISTANCE,170*Scale);
   ObjectSet("MSG2.0",OBJPROP_YDISTANCE,Start+Y*3);
   ObjectSetText("MSG2.0",DoubleToStr(i_MartinStep_0,0)+" | "+DoubleToStr(i_MartinStep_1,0)+" | "+DoubleToStr(i_MartinStep_2,0)+" | "+DoubleToStr(i_MartinStep_3,0)+".....",14,"Impact",CornflowerBlue);
   
   if (ObjectFind("MSG3")==-1)
   {
      ObjectCreate("MSG3",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG3",OBJPROP_CORNER,0);
   ObjectSet("MSG3",OBJPROP_XDISTANCE,10*Scale);
   ObjectSet("MSG3",OBJPROP_YDISTANCE,Start+Y*4);
   if (FirstNotOut)
   {
      ObjectSetText("MSG3","Mode:   "+"ATTACK",14,"Impact",CornflowerBlue);
   }
   else
   {
      ObjectSetText("MSG3","Mode:   "+"FLAT",14,"Impact",CornflowerBlue);
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void SetKbar(double &Kbar[])
{
   Kbar[0] = (double)iTime(Symbol(),1,0);
   Kbar[1] = iOpen(Symbol(),1,0);
   Kbar[2] = iHigh(Symbol(),1,0);
   Kbar[3] = iLow(Symbol(),1,0);
   Kbar[4] = iClose(Symbol(),1,0);
   Kbar[5] = (double)iVolume(Symbol(),1,0);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool AnyCS(int type)
{
   bool Sig = false;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol() && StringFind(OrderComment(),"CS")>=0)
      {
         Sig=true;
         break;
      }
   }
   return(Sig);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double GetAllLots(int type)
{
   double inLots=0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderMagicNumber()==id_1 && OrderType()==type && OrderSymbol()==Symbol())
      {
         inLots+=OrderLots();
      }
   }
   return(inLots);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool F_CSProtect(int type,int MaxTicket_s,double in_SL)
{
   bool Out = false;
   string OutPrint = "";
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if ((OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol() && StringFind(OrderComment(),"CS")>=0) || OrderTicket() == MaxTicket_s)
      {
         if (OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),(int)(2*(point/Point)),White))
         {
            Out = true;
            OutPrint = OutPrint + DoubleToStr(OrderTicket(),0) + ",";
         }
      } 
   }
   if (Out) Alert("CS Protect Active: " + OutPrint + "Ask:" +DoubleToStr(Ask,Digits) + ",SL:" + DoubleToStr(in_SL,Digits));
   return(Out);
}
//+------------------------------------------------------------------+
bool CompareDouble(const double A,const double B)
{
   if (MathAbs(A - B) <= TOLERANCE) return(true);
   return(false);
}

bool EqualZero(const double A)
{
   if (A <= TOLERANCE && A >= -TOLERANCE) return(true);
   return(false);
}

void PendingTrade(const int Type,const string iComment,const double iSL,const double iTP)
{
	double InPrice = Pending;
	int Ticket = 0;
	int iType = -1;
	double SL = 0.0;
	double TP = 0.0;
	if (Type == OP_BUY)
	{
		if (InPrice > Ask)
			iType = OP_BUYSTOP;
   	if (InPrice < Ask)
			iType = OP_BUYLIMIT;
		if (MyOrderTotal(OP_BUYSTOP) >= 1 || MyOrderTotal(OP_BUYLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
		   	
   	Ticket = OrderSend(Symbol(),iType,iLots,InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrLime);
		if (Ticket < 0)
		{
			Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}else 
     	{
    		if (!OrderSelect(Ticket,SELECT_BY_TICKET,MODE_TRADES)) return;
    		SL = OrderOpenPrice() - iSL * point;
    		TP = OrderOpenPrice() + iTP * point;
    		if (iSL == 0 || MartinSW) SL = 0;
    		if (iTP == 0) TP = 0;
    		if (!OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,White))
         {
            Alert("Set_sl_tp "+IntegerToString(OrderTicket())+"  error : "+ErrorDescription(GetLastError()));
         }
     	}
  	}
  	
  	if (Type == OP_SELL)
	{
		if (InPrice < Bid)
			iType = OP_SELLSTOP;
   	if (InPrice > Bid)
			iType = OP_SELLLIMIT;
   	if (MyOrderTotal(OP_SELLSTOP) >= 1 || MyOrderTotal(OP_SELLLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
   	
   	Ticket = OrderSend(Symbol(),iType,iLots,InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrRed);
		if (Ticket < 0)
		{
   	   Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}else 
     	{
    		if (!OrderSelect(Ticket,SELECT_BY_TICKET,MODE_TRADES)) return;
    		SL = OrderOpenPrice() + iSL * point;
    		TP = OrderOpenPrice() - iTP * point;
    		if (iSL == 0 || MartinSW) SL = 0;
    		if (iTP == 0) TP = 0;
    		if (!OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,White))
         {
            Alert("Set_sl_tp "+IntegerToString(OrderTicket())+"  error : "+ErrorDescription(GetLastError()));
         }
     	}
  	}
}

bool CloseAllTrades()
{
   if (GlobalVariableGet(NextSW_str) == 1) 
   {
#ifdef MODE_BUY
      iCloseOrders(OP_BUY);
#endif
#ifdef MODE_SELL
		iCloseOrders(OP_SELL);
#endif
		if (MyOrderTotal(OP_ALL) > 0) 
      {
#ifdef CHT
         Alert("水雷未掃除成功");
#endif
#ifdef ENG
			Alert("Submarine mine sweeper not completed");
#endif
         return(false);
      }else 
      {
      	Sleep((int)(NextTime * 1000 * 60));
      }
   }
   return(true);
}

void Displayprofit(const double TimesProfit, const double TodayProfit)
{
   int Pos = 50;
   string Label_Text = ""; 
   string Label_Text1 = ""; 
   
   if (ObjectFind(Run) < 0) ObjectCreate(0,Run,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Run, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Run, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Run, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Run, OBJPROP_YDISTANCE, Pos);
   ObjectSetInteger(0,Run, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Run, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetString(0,Run, OBJPROP_FONT, "微軟正黑體");
   
   for (int i=0;i<6;i++)
   {
      if(ObjectFind(Label_arr[i]) < 0) ObjectCreate(0,Label_arr[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_XDISTANCE,120);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr[i],OBJPROP_FONT,"微軟正黑體");
      
      if(ObjectFind(Label_arr1[i]) < 0) ObjectCreate(0,Label_arr1[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_XDISTANCE,20);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr1[i],OBJPROP_FONT,"微軟正黑體");
      
      switch(i)
      {
#ifdef CHT
         case 0:
         Label_Text = "單次擄獲狂派戰俘: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "進場起始兵力: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "進場經過時間: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " 分鐘";
         break;
         
         case 3:
         Label_Text = "戰場兵力: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "今日擄獲狂派戰俘累積至: " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "最大暫時被擄穫兵力: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
#ifdef ENG
			case 0:
         Label_Text = "Profit/Loss: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "Start Balance: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "Time Elapsed: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " Minutes";
         break;
         
         case 3:
         Label_Text = "Orders: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "Profit/Loss (Today): " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "Maximum Floating Loss: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
      }
      ObjectSetString(0,Label_arr[i],OBJPROP_TEXT,Label_Text);
      ObjectSetString(0,Label_arr1[i],OBJPROP_TEXT,Label_Text1);
   }
}

void CheckTimeIn(const double TimesProfit)
{
	datetime RunTime = (TimeCurrent() - Start_P) / 60;
	if (SmallLossWinSW && RunTime >= MaxTime && OrdersTotal() >= MaxIn && TimesProfit >= MaxP)
	{
		//Close all Trades
		GlobalVariableSet(NextSW_str,1);
		WriteLog(MODE_CHECKTIMEIN,"");
	}
}

bool EAControl()
{
	bool Out = true;
	string str ="";
	if (TimeCurrent() <= EARunTime) 
	{
		str = "SLSLeep";
		Out = false;
	}
	
	if (!EGFlag) 
	{
		str = "Ender";
		Out = false;
	}
	Comment(str);
	return(Out);
}

double OpLots()
{
	double Out = Lots;
	if (!EqualZero(MM) && MM > 0)
	{
		Out = (AccountBalance() * MM ) / (1000 * TakeProfit);
	}
	return(Out);
}

double GetProfitPeriod(datetime today)
{
   double profit=0;
   int total =OrdersHistoryTotal();
   for (int i=0; i<total; i++)
   {
      if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
      {
         if (OrderType() == OP_BUY || OrderType() == OP_SELL)
         {
            if (today < OrderCloseTime())
               profit += OrderProfit() + OrderCommission() + OrderSwap();
         }
      }
   }
   return (profit);
}

void WriteLog(const int Mode,const string in)
{
	double TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
	string str = WindowExpertName() + "," + Symbol() + "," + TimeToString(TimeCurrent(),TIME_DATE|TIME_DATE|TIME_SECONDS) +
					 ": " + LogText[Mode] + " , " + in + 
					 "," + Start_Balance_str + ": " + DoubleToString(Start_Balance,2) +
					 "," + Start_P_str + ": " + IntegerToString(Start_P) +
					 ",TimeProfit: " + DoubleToString(TimesProfit,2) +
					 "| Set: 餘:" + DoubleToString(iBalance,2) +
					 ",次:" + DoubleToString(TakeProfitPercent,2) + 
					 ",日:" + DoubleToString(TakeProfitPercentDay,2) +
					 ",損:" + DoubleToStr(StopLossPercent ,2) +
					 ",時:" + DoubleToString(MaxTime,2) +
					 ",單:" + DoubleToString(MaxIn,2) +
					 ",虧:" + DoubleToString(MaxP,2) +
					 "\n" 
					 ;
	int h1 = FileOpen("Logs.txt",FILE_READ|FILE_WRITE|FILE_TXT);
	if (h1 < 0) Print("Open Log Failed");
	FileSeek(h1,0,SEEK_END);
	int byte = FileWriteString(h1,str,StringLen(str));
	if (byte <= 0) Print("Write Log Failed");
	FileClose(h1);
}

void SellModule()
{
	string tMComment="Martin";
	// EveryTrade Modify
   bool SellModifySLTP = false;
   
   // Mode Selection & Determine SL TP Lots
   double SellLots = 0.0;
   double FirstSellTP = 0.0;
   double FirstSellSL = 0.0;
   double FirstSellLots = 0.0;
   
   SellLots = iLots;
   FirstSellLots = iLots;
   
   FirstSellTP = TakeProfit;
   FirstSellSL = StopLoss;
   
   switch (AutoSWAntiMartin)
   {
   case -1:
      FirstNotOut=false;
      break;
   
   case 0:
      if (MyOrderTotal(OP_SELL) > 1) 
      {
         if (CheckQuota_SELL()) 
         {
            FirstNotOut = true;
         }
      }
      break;
      
   case 1:
      FirstNotOut=true;
      break;
   }
   
   if (FirstNotOut)
   {
      FirstSellTP = 0;
   }
   // Mode Selection & Determine SL TP Lots End
   
   if (AutoRepairSLTP)
   {
      if (MyOrderTotal(OP_SELL) == 1)
      {
         if (MartinSW)
         	Set_sl_tp_sell(Symbol(),FirstSellTP,0);
         else
         	Set_sl_tp_sell(Symbol(),FirstSellTP,FirstSellSL);
      }
   }
      
   if (MyOrderTotal(OP_SELL)==0)
   {
      if (!EqualZero(iPending))
      {
      	PendingTrade(OP_SELL,"Pending" + IntegerToString(MyOrderTotal(OP_SELL)),FirstSellSL,FirstSellTP);
      	iPending = 0;
      }
      if (MyOrderTotal(OP_SELLSTOP) == 0 && MyOrderTotal(OP_SELLLIMIT) == 0)
      {
      	if (FirstIn)
         {
         	if (MartinSW)	
         		OrderSendF(OP_SELL,iLots,0,FirstSellTP,Symbol());
         	else
         		OrderSendF(OP_SELL,iLots,FirstSellSL,FirstSellTP,Symbol());
         }
      }
   }
   
   double MartinStep[];
   ArrayResize(MartinStep,10);
   MartinStep[0]=i_MartinStep_0;
   MartinStep[1]=i_MartinStep_1;
   MartinStep[2]=i_MartinStep_2;
   MartinStep[3]=i_MartinStep_3;
   MartinStep[4]=i_MartinStep_4;
   MartinStep[5]=i_MartinStep_5;
   MartinStep[6]=i_MartinStep_6;
   MartinStep[7]=i_MartinStep_7;
   MartinStep[8]=i_MartinStep_8;
   MartinStep[9]=i_MartinStep_9;
   
   int b_Ticket[],s_Ticket[];
   double b_Price[];
   double s_Price[];
   double MaxPrice_s,MinPrice_s;
   int MaxTicket_s,MinTicket_s;
   
   // FirstNotOut
   TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
   double AntiMartinLots = 0.0;
   int ti = 0;
   double in_TP = 0.0;
   double in_SL = 0.0;
   
   string CommentADD="";
   
   if (FirstNotOut)
   {
      if (MyOrderTotal(OP_SELL) >= 1 && MyOrderTotal(OP_SELL) < AntiMartinTrades + 1)
      {
         if ( (MinPrice_s - Bid) / point > AntiMartinStep)
         {
            AntiMartinLots = NormalizeDouble(SellLots * MathPow(AntiMartinMultiple,MyOrderTotal(OP_SELL)),2);
            if (AntiMartinLots < 0.01) AntiMartinLots = 0.01;
            if (!Lots_Valid(AntiMartinLots)) return;
            ti = OrderSend(Symbol(),OP_SELL,AntiMartinLots,Bid,20,0,0,"FNO"+tMComment+DoubleToStr(MyOrderTotal(OP_SELL),0),id_1,0,Red) ;
            if (ti < 0)
            {
               Alert("OrderSnend Buy FNO Error: " + ErrorDescription(GetLastError()));
            }
            else
            {
               SellModifySLTP = true;
            }
         }
      }
      
      TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
      
      if (AutoRepairSLTP || SellModifySLTP)
      {
         if (CheckQuota_SELL())
         {
            in_TP = MinPrice_s - (TakeProfit * point);
            if (in_TP > Ask && in_TP != 0) in_TP = 0;
            in_SL = MaxPrice_s - Cal_TP_Sell(true,OP_SELL,MaxPrice_s,Ai_TPPoint,0) * point;
            if (in_SL < Ask && in_SL != 0) in_SL = 0;
            Set_sl_tp_Quota(OP_SELL,in_SL,in_TP,0);
            SellModifySLTP = false;
         }
      }
   }
   
   
   
//+------------------------------------------------Martin Start---------------------------------------------------------------------+

   TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
   
   double SellMartinLots_Temp = 0.0;
   double SellMartinLots = 0.0;
   double Step_S = 0.0;
   
   if (MartinSW)
   {
      if (MartinIn)
      {
         if (MyOrderTotal(OP_SELL) > 0)
         {
            SellMartinLots_Temp = MyOrderTotal(OP_SELL)-(MOrders-1);
            if (SellMartinLots_Temp < 0) SellMartinLots_Temp = 0;
            SellMartinLots=NormalizeDouble(SellLots * MathPow(i_Multiple,SellMartinLots_Temp),2);
            if (MyOrderTotal(OP_SELL)-1 > ArraySize(MartinStep)-1) 
            {
               Step_S=MartinStep[ArrayMaximum(MartinStep)];
            }else
            {
               Step_S=MartinStep[MyOrderTotal(OP_SELL)-1];
            }
            if (Step_S == 0) Step_S=MartinStep[ArrayMaximum(MartinStep)];
            if ( (Bid - MaxPrice_s) / point > Step_S && MyOrderTotal(OP_SELL) < i_MaxMartin)
            {
               if (MartinSellBar != iBars(Symbol(),M_Period))
               {
                  MartinSellBar = iBars(Symbol(),M_Period) + 1;
               }
               else if (MartinSellBar == iBars(Symbol(),M_Period))
               {
                  if (OrderSendA(OP_SELL,Bid,Red,Symbol(),SellMartinLots,0,0,Symbol()+"_"+tMComment+DoubleToStr(MyOrderTotal(OP_SELL),0)) > 0)
                  {
                     SellModifySLTP = true;
                     MartinSellBar=0;
                  }
               }
            }
            else
            {
               MartinSellBar=0;
            }
         }
         else
         {
            MartinSellBar=0;
         }
      }
      
      TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
      
      if (AutoRepairSLTP || SellModifySLTP)
      {
         if (!AnyCS(OP_SELL))
         {
            if (!CheckQuota_SELL() && MyOrderTotal(OP_SELL) > 1)
            {
               if (SingleOut)
               {
                  Set_sl_tp_sell(Symbol(),i_TPPoint,0);
               }
               else
               {
                  in_TP = MaxPrice_s - Cal_TP_Sell(MartinCalLots,OP_SELL,MaxPrice_s,i_TPPoint,0) * point;
                  if (in_TP > Ask && in_TP != 0) in_TP = 0;
                  in_SL = 0;
                  if (in_SL < Ask && in_SL != 0) in_SL = 0;
                  Set_sl_tp(OP_SELL,in_TP,in_SL);
               }
               SellModifySLTP = false;
            }
         }
      }
   }
   
   TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
   
   double CSLots=0.0;
   double LastPrice=0.0;
   if (MartinAntiMSW && !SingleOut)
   {
      if (MyOrderTotal(OP_SELL)>1)
      {
         if (!CheckQuota_SELL())
         {
            if (OrderSelect(GetLastOrder(OP_SELL),SELECT_BY_TICKET,MODE_TRADES))
            {
               CSLots=NormalizeDouble(OrderLots()*CSMultiple,2);
               if (CSLots<0.01)
               {
                  CSLots=0.01;
               }
               LastPrice=OrderOpenPrice();
            }
            if ((LastPrice-Bid)/point>=CSStep /*&& (MarketInfo(Symbol(),MODE_SPREAD)) * (Point/point) <= CSStep / 2*/)
            {
               if (Lots_Valid(CSLots) && OrderSend(Symbol(),OP_SELL,CSLots,Bid,20,0,0,Symbol()+"_CS_"+DoubleToStr(MyOrderTotal(OP_SELL),0),id_1,0,Red)>0)
               {
                  SellModifySLTP = true;
               }
               else
               {
                  Alert("CS Error: "+ErrorDescription(GetLastError()));
               }
            }
         }
      }
      
      TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
      
      if (AutoRepairSLTP || SellModifySLTP) {
         if (AnyCS(OP_SELL))
         {
            in_TP = MaxPrice_s - Cal_TP_Sell(MartinCalLots,OP_SELL,MaxPrice_s,i_TPPoint,0) * point;
            if (in_TP > Ask && in_TP != 0) in_TP = 0;
            in_SL = MaxPrice_s - Cal_TP_CS_SELL(OP_SELL,MaxPrice_s,MaxTicket_s,CSTPPoint) * point;
            if (in_SL < Ask && in_SL != 0) 
            {
               if (CSProtect) 
               {
                  if (AnyCS(OP_SELL))
                  {
                     if (F_CSProtect(OP_SELL,MaxTicket_s,in_SL))
                     {   
                        return;
                        TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
                     }
                  }
               }
               in_SL = 0;
            }
            Set_sl_tp_CS(OP_SELL,in_TP,in_SL,MaxTicket_s);
            SellModifySLTP = false;
         }
      }
   }
}

void DeleteObjects()
{
	for (int i=5;i>=0;i--)
   {
      if(ObjectFind(Label_arr[i]) >= 0) ObjectDelete(0,Label_arr[i]);
      if(ObjectFind(Label_arr1[i]) >= 0) ObjectDelete(0,Label_arr1[i]);
   }
   if(ObjectFind(Run) >= 0) ObjectDelete(0,Run);
}

void BuyModule()
{
	string tMComment="Martin";
	// EveryTrade Modify
   bool BuyModifySLTP = false;
   
   // Mode Selection & Determine SL TP Lots
   double BuyLots = 0.0;
   double FirstBuyTP = 0.0;
   double FirstBuySL = 0.0;
   double FirstBuyLots = 0.0;
   
   BuyLots = iLots;
   FirstBuyLots = iLots;
   
   FirstBuyTP = TakeProfit;
   FirstBuySL = StopLoss;
   
   switch (AutoSWAntiMartin)
   {
   case -1:
      FirstNotOut=false;
      break;
   
   case 0:
      if (MyOrderTotal(OP_BUY) > 1) 
      {
         if (CheckQuota_BUY()) 
         {
            FirstNotOut = true;
         }
      }
      break;
      
   case 1:
      FirstNotOut=true;
      break;
   }
   
   if (FirstNotOut)
   {
      FirstBuyTP = 0;
   }
   // Mode Selection & Determine SL TP Lots End
   
   if (AutoRepairSLTP)
   {
      if (MyOrderTotal(OP_BUY) == 1)
      {
         if (MartinSW)
         	Set_sl_tp_buy(Symbol(),FirstBuyTP,0);
         else
         	Set_sl_tp_buy(Symbol(),FirstBuyTP,FirstBuySL);
      }
   }
   
   if (MyOrderTotal(OP_BUY)==0)
   {
      if (!EqualZero(iPending))
      {
      	PendingTrade(OP_BUY,"Pending" + IntegerToString(MyOrderTotal(OP_BUY)),FirstBuySL,FirstBuyTP);
      	iPending = 0;
      }
      if (MyOrderTotal(OP_BUYSTOP) == 0 && MyOrderTotal(OP_BUYLIMIT) == 0)
      {
      	if (FirstIn)
         {	
         	if (MartinSW)
         		OrderSendF(OP_BUY,iLots,0,FirstBuyTP,Symbol());
         	else 
         		OrderSendF(OP_BUY,iLots,FirstBuySL,FirstBuyTP,Symbol());
         }
      }
   }
   
   double MartinStep[];
   ArrayResize(MartinStep,10);
   MartinStep[0]=i_MartinStep_0;
   MartinStep[1]=i_MartinStep_1;
   MartinStep[2]=i_MartinStep_2;
   MartinStep[3]=i_MartinStep_3;
   MartinStep[4]=i_MartinStep_4;
   MartinStep[5]=i_MartinStep_5;
   MartinStep[6]=i_MartinStep_6;
   MartinStep[7]=i_MartinStep_7;
   MartinStep[8]=i_MartinStep_8;
   MartinStep[9]=i_MartinStep_9;
   
   int b_Ticket[],s_Ticket[];
   double b_Price[];
   double s_Price[];
   double MaxPrice_b,MinPrice_b;
   int MaxTicket_b,MinTicket_b;
   
   // FirstNotOut
   TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
   double AntiMartinLots = 0.0;
   int ti = 0.0;
   double in_TP = 0.0;
   double in_SL = 0.0;
   
   string CommentADD="";
   if (FirstNotOut)
   {
      if (MyOrderTotal(OP_BUY) >= 1 && MyOrderTotal(OP_BUY) < AntiMartinTrades + 1 )
      {
         if ( (Ask - MaxPrice_b) / point > AntiMartinStep)
         {
            AntiMartinLots = NormalizeDouble(BuyLots * MathPow(AntiMartinMultiple,MyOrderTotal(OP_BUY)),2);
            if (AntiMartinLots < 0.01) AntiMartinLots = 0.01;
            if (!Lots_Valid(AntiMartinLots)) return;
            ti = OrderSend(Symbol(),OP_BUY,AntiMartinLots,Ask,20,0,0,"FNO"+tMComment+DoubleToStr(MyOrderTotal(OP_BUY),0),id_1,0,Lime) ;
            if (ti < 0)
            {
               Alert("OrderSnend Buy FNO Error: " + ErrorDescription(GetLastError()));
            }
            else
            {
               BuyModifySLTP = true;
            }
         }
      }
      
      TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
      
      if (AutoRepairSLTP || BuyModifySLTP)
      {
         if (CheckQuota_BUY())
         {
            in_TP = MaxPrice_b + (TakeProfit * point);
            if (in_TP < Bid && in_TP != 0) in_TP = 0;
            in_SL = MinPrice_b + Cal_TP_Buy(true,OP_BUY,MinPrice_b,Ai_TPPoint,0) * point;
            if (in_SL > Bid && in_SL != 0) in_SL = 0;
            Set_sl_tp_Quota(OP_BUY,in_SL,in_TP,0);
            BuyModifySLTP = false;
         }
      }
   }
   
   
   
//+------------------------------------------------Martin Start---------------------------------------------------------------------+

   TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
   
   double BuyMartinLots_Temp = 0.0;
   double BuyMartinLots = 0.0;
   double Step_B = 0.0;
   
   if (MartinSW)
   {
      if (MartinIn)
      {
         if (MyOrderTotal(OP_BUY) > 0)
         {
            BuyMartinLots_Temp = MyOrderTotal(OP_BUY)-(MOrders-1);
            if (BuyMartinLots_Temp < 0) BuyMartinLots_Temp = 0;
            BuyMartinLots = NormalizeDouble(BuyLots * MathPow(i_Multiple,BuyMartinLots_Temp),2);
            if (MyOrderTotal(OP_BUY)-1 > ArraySize(MartinStep)-1) 
            {
               Step_B=MartinStep[ArrayMaximum(MartinStep)];
            }else
            {
               Step_B=MartinStep[MyOrderTotal(OP_BUY)-1];
            }
            if ( (MinPrice_b - Ask) / point > Step_B && MyOrderTotal(OP_BUY) < i_MaxMartin)
            {
               if (MartinBuyBar != iBars(Symbol(),M_Period))
               {
                  MartinBuyBar = iBars(Symbol(),M_Period) + 1;
               }
               else if (MartinBuyBar == iBars(Symbol(),M_Period))
               {
                  if (OrderSendA(OP_BUY,Ask,Lime,Symbol(),BuyMartinLots,0,0,Symbol()+"_"+tMComment+DoubleToStr(MyOrderTotal(OP_BUY),0)) > 0)
                  {
                     BuyModifySLTP = true;
                     MartinBuyBar=0;
                  }
               }
            }
            else
            {
               MartinBuyBar=0;
            }
         }
         else
         {
            MartinBuyBar=0;
         }
      }
      
      TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
      
      if (AutoRepairSLTP || BuyModifySLTP) 
      {
         if (!AnyCS(OP_BUY)) 
         {
            if (!CheckQuota_BUY() && MyOrderTotal(OP_BUY) > 1) 
            {
               if (SingleOut) 
               {
                  Set_sl_tp_buy(Symbol(),i_TPPoint,0);
               }
               else 
               {
                  in_TP = MinPrice_b + Cal_TP_Buy(MartinCalLots,OP_BUY,MinPrice_b,i_TPPoint,0) * point;
                  if (in_TP < Bid && in_TP != 0) in_TP = 0;
                  in_SL = 0;
                  if (in_SL > Bid && in_SL != 0) in_SL = 0;
                  Set_sl_tp(OP_BUY,in_TP,in_SL);
               }
               BuyModifySLTP = false;
            }
         }
      }
   }
   
   TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
   
   double CSLots=0.0;
   double LastPrice=0.0;
   if (MartinAntiMSW && !SingleOut)
   {
      if (MyOrderTotal(OP_BUY)>1)
      {
         if (!CheckQuota_BUY())
         {
            if (OrderSelect(GetLastOrder(OP_BUY),SELECT_BY_TICKET,MODE_TRADES))
            {
               CSLots=NormalizeDouble(OrderLots()*CSMultiple,2);
               if (CSLots<0.01)
               {
                  CSLots=0.01;
               }
               LastPrice=OrderOpenPrice();
            }
            if ((Ask-LastPrice)/point>=CSStep /*&& (MarketInfo(Symbol(),MODE_SPREAD)) * (Point/point) <= CSStep / 2*/)
            {
               if (Lots_Valid(CSLots) && OrderSend(Symbol(),OP_BUY,CSLots,Ask,20,0,0,Symbol()+"_CS_"+DoubleToStr(MyOrderTotal(OP_BUY),0),id_1,0,Lime)>0)
               {
                  BuyModifySLTP = true;
               }
               else
               {
                  Alert("CS Error: "+ErrorDescription(GetLastError()));
               }
            }
         }
      }
      
      TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
      
      if (AutoRepairSLTP || BuyModifySLTP) 
      {
         if (AnyCS(OP_BUY))
         {
            in_TP = MinPrice_b + Cal_TP_Buy(MartinCalLots,OP_BUY,MinPrice_b,i_TPPoint,0) * point;
            if (in_TP < Bid && in_TP != 0) in_TP = 0;
            in_SL = MinPrice_b + Cal_TP_CS_BUY(OP_BUY,MinPrice_b,MinTicket_b,CSTPPoint) * point;
            if (in_SL > Bid && in_SL != 0) 
            {
               if (CSProtect) 
               {
                  if (AnyCS(OP_BUY))
                  {
                     if (F_CSProtect(OP_BUY,MinTicket_b,in_SL))
                     {   
                        return;
                        TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
                     }
                  }
               }
               in_SL = 0;
            }
            Set_sl_tp_CS(OP_BUY,in_TP,in_SL,MinTicket_b);
            BuyModifySLTP = false;
         }
      }
   }
}

bool CheckQuota_BUY()
{
   bool Sig=false;
   double Price[2] = {0};
   int x=0;
   
   for (int i=0;i<OrdersTotal();i++)
   {
      if (x==2)
         break;
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderType()==OP_BUY && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
      {
         Price[x]=OrderOpenPrice();
         x++;
      }
   }
   
   if (x < 2)
      return(false);
   if (Price[0] > Price[1])
      Sig = false;
   if (Price[0] < Price[1])
      Sig = true;
      
   return(Sig);
}

void Set_sl_tp_buy(string symbol,double tp_m,double sl_m)
{

   double stoploss_m,takeprofit_m;
   for (int z=0;z<OrdersTotal();z++)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderSymbol()==symbol && OrderType()==OP_BUY && OrderMagicNumber()==id_1)
      {
         if (sl_m>0)
         {
            stoploss_m=OrderOpenPrice()-sl_m*point;
         }
         else
            if (sl_m==0)
            {
               stoploss_m=0;
            }
            else
            {
               stoploss_m=OrderStopLoss();
            }
            
         if (tp_m>0)
         {
            takeprofit_m=OrderOpenPrice()+tp_m*point;//宣告一個takeprofit放停利"價位"
         }
         else
            if (tp_m==0)
            {
               takeprofit_m= 0;
            }
            else
            {
               takeprofit_m=OrderTakeProfit();
            }
            
         if (CompareDouble(stoploss_m,OrderStopLoss()) && CompareDouble(takeprofit_m,OrderTakeProfit()))
         {
            continue;
         }
         RefreshRates();
         if (!OrderModify(OrderTicket(),OrderOpenPrice(),stoploss_m,takeprofit_m,0,White))
         {
         	Alert("Set_sl_tp_buy" + IntegerToString(GetLastError()));
         }
      }
   }
}

void TicketInfo_BUY(int &b_Ticket[],double &b_Price[],int &s_Ticket[],double &s_Price[],double &MaxPrice_b,int &MaxTicket_b,double &MinPrice_b,int &MinTicket_b)
{
   if (MyOrderTotal(OP_BUY)!=0)
   {
      ArrayResize(b_Ticket,MyOrderTotal(OP_BUY));
      ArrayResize(b_Price,MyOrderTotal(OP_BUY));
      GetAllOrders(OP_BUY,b_Ticket,s_Ticket);
      
      for (int i=0;i<ArraySize(b_Ticket);i++)
      {
         if (!OrderSelect(b_Ticket[i],SELECT_BY_TICKET,MODE_TRADES)) continue;
         b_Price[i]=OrderOpenPrice();
      }
      
      MaxPrice_b=b_Price[ArrayMaximum(b_Price)];
      MaxTicket_b= b_Ticket[ArrayMaximum(b_Price)];
      MinPrice_b = b_Price[ArrayMinimum(b_Price)];
      MinTicket_b= b_Ticket[ArrayMinimum(b_Price)];
   }
}

double Cal_TP_Buy(bool Mode,int type,double MinPrice_b,double TPPoint,int WithOut) 
{
	double TotalLots=0.0;
	double TotalDisProduct=0.0;
	double TP_Goal;
   int x = 0;
	for (int i=0;i<OrdersTotal();i++)
	{
		if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
		if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
		{
			x++;
			if (x <= WithOut) continue;
			TotalLots+=OrderLots();
			TotalDisProduct+= (OrderOpenPrice() - MinPrice_b)/point * OrderLots();
		}
	}
	if (Mode) {
	   TP_Goal= (TPPoint * fGetFirstLots(OP_BUY) + TotalDisProduct) / TotalLots;
	}else {
	   TP_Goal= (TPPoint * GetAllLots(OP_BUY) + TotalDisProduct) / TotalLots;
	}


	return(TP_Goal);
}

void UpdateFiles(const int Mode)
{
	if (Mode == MODE_INIT)
	{
		if (!GlobalVariableCheck("DNSW")) GlobalVariableSet("DNSW",0); 
	   if (GlobalVariableSetOnCondition("DNSW",1,0))
   	{
      	if (UninitializeReason() != 3)
      	{	
         	Sleep(1000);
      	}
   	}
	}
	if (Mode == MODE_TICK)
	{
		if (
			(TimeHour(TimeLocal()) == DownloadHour && TimeMinute(TimeLocal()) == DownloadMin && H1BarTime != iTime(Symbol(),PERIOD_H1,0))
			) 
		{
			if (!GlobalVariableCheck("DNSW0")) GlobalVariableSet("DNSW0",0); 
			if (GlobalVariableSetOnCondition("DNSW0",1,0))
			{			
    			Sleep(1000);
        		GlobalVariableSet("DNSW0",0); 
        	}
        	H1BarTime = iTime(Symbol(),PERIOD_H1,0);
		}
	}
}



bool TimesStopConfig()
{
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	GlobalVariableSet(NextSW_str,0);
#ifdef GLOBAL_FILE
	if (!GlobalFileRead()) 
	{
		GlobalVars.G_EARunTime = 0;
		GlobalVars.G_MaxEquity = (AccountProfit() / AccountBalance()) * 100;
		GlobalVars.G_Start_P = TimeCurrent();
		GlobalVars.G_Start_Balance = AccountBalance();
		GlobalFileWrite();
		GlobalFileRead();
	}
	Print("EARuntime: " + TimeToString(GlobalVars.G_EARunTime,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("MaxLossEquity: " + DoubleToString(GlobalVars.G_MaxEquity,2));
	Print("Start_P: " + TimeToString(GlobalVars.G_Start_P,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("Start_Balance: " + DoubleToString(GlobalVars.G_Start_Balance,2));
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	
#else
	return(true);
}

bool TimesStop(double &TimesProfit, double &TodayProfit)
{
#ifdef GLOBAL_FILE
   if (OrdersTotal()==0) 
   {
      GlobalVars.G_Start_Balance = AccountBalance();
      GlobalVars.G_Start_P = TimeCurrent();
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Status                                                       |
   //+------------------------------------------------------------------+
   if(EqualZero(iBalance))
   	Start_Balance = GlobalVars.G_Start_Balance;  
   else
      Start_Balance = iBalance;
   Start_P = GlobalVars.G_Start_P;
   EARunTime = GlobalVars.G_EARunTime;
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVars.G_MaxEquity) 
   {
      GlobalVars.G_MaxEquity = (AccountProfit() / Start_Balance) * 100;
   }
   //+------------------------------------------------------------------+
   //|Check Balance                                                     |
   //+------------------------------------------------------------------+
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return(false);
	}
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Status                                                      |
   //+------------------------------------------------------------------+
   GlobalVars.G_EARunTime = EARunTime;
   GlobalVars.G_Start_Balance = Start_Balance;
   GlobalVars.G_Start_P = Start_P;
   GlobalFileWrite();
#else
	if (OrdersTotal()==0) 
   {
      GlobalVariableSet(Start_Balance_str,AccountBalance());
      GlobalVariableSet(Start_P_str,TimeCurrent());
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Balance                                                      | 
   //+------------------------------------------------------------------+
   if (GlobalVariableCheck(Start_Balance_str))
   {
   	if(EqualZero(iBalance))
	   	Start_Balance = GlobalVariableGet(Start_Balance_str);  
   	else
      	Start_Balance = iBalance;
	}else 
	{
		Start_Balance = AccountBalance();
	}
   
   if (GlobalVariableCheck(Start_P_str))
   {
   	Start_P = (datetime)GlobalVariableGet(Start_P_str);
	}else
	{
		Start_P = TimeCurrent();
	}
	
	if (GlobalVariableCheck(EARUNTIME_str))
	{
		EARunTime = (datetime)GlobalVariableGet(EARUNTIME_str);
	}
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVariableGet(MaxEquity_str)) 
   {
      GlobalVariableSet(MaxEquity_str,(AccountProfit() / Start_Balance)*100);
   }
   //+------------------------------------------------------------------+
   //|Check Balance                                                     |
   //+------------------------------------------------------------------+
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return(false);
	}
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Balnace                                                     |
   //+------------------------------------------------------------------+
   GlobalVariableSet(EARUNTIME_str,EARunTime);
   GlobalVariableSet(Start_P_str,(double)Start_P);
   GlobalVariableSet(Start_Balance_str,Start_Balance);
#endif
	return(true);
}

bool Lots_Valid(const double iLot)
{
	double ValuePerLot = SymbolInfoDouble(NULL,SYMBOL_TRADE_CONTRACT_SIZE) / AccountInfoInteger(ACCOUNT_LEVERAGE);
	if ((iLot * ValuePerLot) > AccountInfoDouble(ACCOUNT_FREEMARGIN)) 
	{
		Alert("No Money");
		return(false);
	}
	return(true);
}
int EndersGamgeCnt = 0;
void EndersGameModule(const string symbol, const int Type, int id, bool &flag)
{
	if (MyOrderTotal_Enders(symbol,Type,id) == 0)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (OrderCloseTime() > EGStartTime)
			{
				EndersGamgeCnt++;
				Alert(Symbol() + " 戰場已完成第" + IntegerToString(EndersGamgeCnt) + " 次戰役");
				EGStartTime = TimeCurrent();
				break;
			}
		}
	}
	if (EndersGamgeCnt >= OutCnt)
	{
		Alert("已達成設定局數，即將離開 " + Symbol() + " 戰場");
		flag = false;
		ExpertRemove();
	}
}

int MyOrderTotal_Enders(const string symbol,const int Type,const int ID)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL && OrderSymbol() == symbol && OrderMagicNumber() == ID)
		{
		   x++;
		   continue;
		}
		if ((Type == OP_BUY && ((OrderType() & 1) == 1 ? false : true)) || (Type == OP_SELL && ((OrderType() & 1) == 1 ? true : false)))
	   {  
	   	if (OrderSymbol() == symbol && OrderMagicNumber() == ID)
			{
				x++;
			}
		}
	}
	return(x);
}

X Bomb(SELL_1%).mq4

//+------------------------------------------------------------------+
//|                                                  AllNewXBOMB.mq4 |
//|                                                APP Wargame-Hydra |
//|                     http://www.facebook.com/groups/moneywargame/ |
//+------------------------------------------------------------------+


#property strict

#include <WarGameDLL.mqh>
#include <WinUser32.mqh>
#import "User32.dll"
int GetDC(int);
int ReleaseDC(int,int);
#import "Gdi32.dll"
int GetDeviceCaps(int,int);
#import "stdlib.ex4"
string ErrorDescription(int error_code);
#import "kernel32.dll"
ulong GetVersion(void);
#import

#define CHT	1
//#define ENG	1
#define ZERO 0.000001
//#define MODE_BUY 1
#define MODE_SELL 1

#define MODE_AGET 0
#define MODE_FGET 1
#define MODE_CHECKTIMEIN 0
#define MODE_TIMESTP 1
#define MODE_TIMESSL 2
#define MODE_DAILYTP 3
#define MODE_INIT 3
#define MODE_TICK 4
#define MODE_FIRSTTRADE  	 99
#define MODE_MARTIN  		100
#define OP_ALL       101
#define MODE_SLTP_BYPOINT 102
#define MODE_SLTP_BYPRICE 103
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+


int id_1 = 3333333;

int ErrorCode = 0;
int DownloadHour = 6;
int DownloadMin = 0;
int BarTime = 0;

double NextTime=0.5;
double point = 0.0;
double iLots = 0.0;
double Start_Balance = 0;
double iPending;

datetime H1BarTime = 0;
datetime FirstTradeBar = 0;
datetime Start_P = 0;
datetime EARunTime = 0;
datetime AvoidTime[1] = {0};
datetime EGStartTime = TimeCurrent();
bool EGFlag = true;

bool NewGetSW = false;
bool AuthorGetSW = false;
bool TradeSW = true;

int Last_Time[1]={0};
int Status[1]={0};
double Last_Price[1]={-1.0};
double MinPriceShot = 0.0;

string AvoidSymbol[1] = {""};
string LogText[4] = {"小虧為贏" , "次止盈" , "次止損" , "日止盈"};
string Label_arr[6] = 
{
   "TimesProfitPer",
   "Start_Balance",
   "TimePast",
   "Orders",
   "TodayProfitPer",
   "MaxLoss"
};
   
string Label_arr1[6] = 
{
   "TimesProfitPer0",
   "Start_Balance0",
   "TimePast0",
   "Orders0",
   "TodayProfitPer0",
   "MaxLoss0"
};

string Start_P_str = "Start_P";
string Start_Balance_str = "Start_Balance";
string MaxEquity_str = "MaxEquity";
string NextSW_str = "NextSW";
string EARUNTIME_str = "EARUNTIME";

string Light = "LightStatus";
string Run = "RunStatus";
string Margin = "Margin";
string FloatLoss = "Float";
string NewsInfo[2] = {"NewsInfo0", "NewsInfo1"};
string Light_str[2] = {"Light","Light2"};
#ifdef CHT
string NewsEngage = "狂派情資已接收完全.....全面開戰！";
#endif
#ifdef ENG
string NewsEngage = "News retrieval completed .....automated system initiated";
#endif
//+------------------------------------------------------------------+
//|Ender's Game Par                                                  |
//+------------------------------------------------------------------+
datetime ticket_time = 0;
int OutCntTemp = 0;
#ifdef CHT
input bool AutoRepairSW = false; //自動回復停損停利
#ifdef MODE_AREA51
input bool BrakeSystem=true; //ESP戰艦穩定煞車系統
int pSeconds=14;
input double Energy=4; //能量偵測靈敏度
input int SleepTime=15; //能量引擎啟動時間(分鐘)
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //預警雷達控制模組
input int MinBefore = 30; //前幾分鐘閃避
input int MinAfter = 30; //後幾分鐘閃避
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //保證金比例控制模組
input double MarginLimit = 2000; //保證金低於％數暫停
input bool FloatEq = false; //浮虧控制模組
input double FloatAm = -4000; //虧損(-金額)暫停
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //開始時間，格式為HH
input int DayStopHour = 00; //結束時間，格式為HH
input string WeekDay="12345"; //週一執行，鍵入1;週一週二鍵入12
input bool WeekStartOverSW = true; //一個禮拜頭尾不間斷
input int WeekStartHour = 8; //第一天幾點開始
input int WeekStopHour = 17; //最後一天幾點結束
input string a5 = "-------------------"; //
input double iBalance = 0; //止盈計算本金基準
input bool TakeProfitPercentSW = true; //次止盈開關
input double TakeProfitPercent = 1; //次止盈,每次最多獲利％,立即平倉歸零重啟新局
input bool TakeProfitPercentDaySW = true; //日止盈開關
input double TakeProfitPercentDay = 1000; //日止盈,每日最多獲利％,立即停止交易,隔日重新啟動
input bool StopLossPercentSW = true; //浮虧止損開關
input double StopLossPercent = 1000; //現時帳戶浮虧止損,止損基準值:帳戶餘額
input bool SleepLoss = true; //止損後當日不再出兵
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //小虧為贏開關
input int MaxTime = 150; //每局最長時間(分鐘)
input int MaxIn = 10; //每局最多兵力
input double MaxP = 0.5; //達成以上條件小虧為贏
input string c = "-------------------"; //　
input double Pending = 0.0;  //掛單價格 
input bool SingleOut = false; //單進單出
#endif
input bool MartinSW = true; //馬丁開關
#ifdef MODE_AREA51
input int MartinMStart = 2; //第幾張馬丁開始加倍
#endif
input double LotMultiplikator = 1.382; //馬丁倍率
input double Step = 30; //馬丁間距
input int MaxTrades = 5; //最多單數
input double MM = 1.0; //資金管理％數
input double Lots = 0.01; //手數
input double TakeProfit = 10.0; //獲利點數
input double StopLoss = 10.0; //停損點數
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
#ifdef ENG
input bool AutoRepairSW = false; //Auto Repair SL&TP
#ifdef MODE_AREA51
input bool BrakeSystem=true; //BrakeSystem
int pSeconds=14;
input double Energy=4; //Braking System Sensitivity Control
input int SleepTime=15; //Braking System Sleeping Time
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //Braking System Sleeping Time
input int MinBefore = 30; //Stop trading few minutes before news alert
input int MinAfter = 30; //Stop trading few minutes after news alert
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //Margin Level Control Module
input double MarginLimit = 2000; //Margin level % limit to stop trading
input bool FloatEq = false; //Floating Loss Control Module
input double FloatAm = -4000; //Floating loss (-$amount) limit to stop trading
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //Starting Time, in HH format
input int DayStopHour = 00; //Ending Time, in HH format
input string WeekDay="12345"; //Star on Monday=1, Monday and Tuesday=12
input bool WeekStartOverSW = true; //Trade everyday without stop
input int WeekStartHour = 8; //First Day Staring Time
input int WeekStopHour = 17; //Last Day Ending Time
input string a5 = "-------------------"; //
input double iBalance = 0; //Capital setting for Profit/Loss termination
input bool TakeProfitPercentSW = true; //Switch of Secondary Take Profit
input double TakeProfitPercent = 1; //Secondary Take Profit, max. % of profit to close trade, and reset
input bool TakeProfitPercentDaySW = true; //Switch of Daily Take Profit 
input double TakeProfitPercentDay = 1000; //Daily Take Profit, max. % of profit to close trade, reset on the next day
input bool StopLossPercentSW = true; //Switch of stopping Floating Loss
input double StopLossPercent = 1000; //Stop Loss of Current Account Max. Floating Loss (Based on Balance)
input bool SleepLoss = true; //Stop trading when reaching stop loss the same day
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //Switch of Small Loss To Win
input int MaxTime = 150; //Max. Time Per Set (Minutes)
input int MaxIn = 10; //Max. Trades Per Set
input double MaxP = 0.5; //Criteria of Small Loss for Win
input string c = "-------------------"; //　
input double Pending = 0.0;  //Pending Order at Price 
input bool SingleOut = false; //Take Profit Single Out
#endif
input bool MartinSW = true; //Start Martingale
#ifdef MODE_AREA51
input int MartinMStart = 2; //Number to start martingale multiplication 
#endif
input double LotMultiplikator = 1.382; //Martingale Multiplier
input double Step = 30; //Martingale Distance
input int MaxTrades = 5; //Max. Number of Orders
input double MM = 1.0; //Fund Management %
input double Lots = 0.01; //Order Size_lot
input double TakeProfit = 10.0; //Take Profit 
input double StopLoss = 10.0; //Stop Loss
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
string Newsfile = "ffcal_week_this.xml";
string EventFile = "NewsEvent.csv";

int OnInit()
{
//---
	CheckOSVersion();
	//+------------------------------------------------------------------+
	//|Get Point By Symbol                                               |
	//+------------------------------------------------------------------+
   if (Digits==5 || Digits==3)
   {
      point=Point*10;
   }
   else
   {
      point=Point;
   }
   //+------------------------------------------------------------------+
   //|                                                                  |
   //+------------------------------------------------------------------+
   iLots = OpLots();
   ticket_time = TimeCurrent();
   
   //+------------------------------------------------------------------+
   //|Random Minute                                                     |
   //+------------------------------------------------------------------+
   MathSrand(GetTickCount());
   DownloadMin = 1 + ((59 * MathRand()) / 32768);
#ifdef MODE_AREA51
   TimesStopConfig();
   //+------------------------------------------------------------------+
   //|Update Files                                                      |
   //+------------------------------------------------------------------+
   iPending = Pending;
#endif
   UpdateFiles(MODE_INIT);
//---
   return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
	GlobalVariableSet("DNSW",0);
   DeleteObjects();
}
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{

   #ifdef MODE_BUY
if (NonStop==false) EndersGameModule(Symbol(),OP_BUY,id_1,EGFlag);
#endif

#ifdef MODE_SELL
if (NonStop==false) EndersGameModule(Symbol(),OP_SELL,id_1,EGFlag);
#endif
   UpdateFiles(MODE_TICK);
	 if (!EAControl_Enders()) return;
#ifdef MODE_AREA51   
   double TimesProfit = 0.0;
   double TodayProfit = 0.0;
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return;
	}
   if (!CloseAllTrades()) return;
   TimesStop(TimesProfit,TodayProfit);
   Displayprofit(TimesProfit,TodayProfit);
	CheckTimeIn(TimesProfit);
   //+------------------------------------------------------------------+
   //|Shutdown EA                                                       |
   //+------------------------------------------------------------------+
   if (!EAControl()) return;
   BrakeSystemFun();
#endif
   
#ifdef MODE_BUY
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_BUY,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{
		FirstTrade(OP_BUY);
		Martin(OP_BUY);
	}
#endif
#ifdef MODE_SELL
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_SELL,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{	
		FirstTrade(OP_SELL);
   	Martin(OP_SELL);
   }
#endif
	
}
//+------------------------------------------------------------------+
//|Determine Martingale TakeProfi                                    |
//+------------------------------------------------------------------+
double Cal_TP(int Type,double iPrice,double TPPoint)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double AllOrderLots = 0.0;
   double TP_Goal;
   double FirstOrderLots = 0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderType() == Type && OrderMagicNumber() == id_1 && OrderSymbol() == Symbol())
      {
         FirstOrderLots = OrderLots();
         TotalLots += OrderLots();
         if (Type == OP_SELL)
         	TotalDisProduct += (iPrice - OrderOpenPrice()) / point * OrderLots();
        	if (Type == OP_BUY)
        		TotalDisProduct += (OrderOpenPrice() - iPrice) / point * OrderLots();
      }
   }
   if (EqualZero(TotalLots)) return(0.0);
   TP_Goal = ((TPPoint * FirstOrderLots) + TotalDisProduct) / TotalLots;
   if (Type == OP_SELL)
   	return(iPrice - (TP_Goal * point));
  	if (Type == OP_BUY)
   	return(iPrice + (TP_Goal * point));
   return(0.0);
}
//+------------------------------------------------------------------+
//|OrderSend Function                                                |
//+------------------------------------------------------------------+
int SendOrders(const int Type ,const string iComment)
{
   double TP = 0.0;
   double SL = 0.0;
   double InPrice = 0.0;
   switch (Type)
   {
      case OP_BUY:
      InPrice = Ask;
      break;
      
      case OP_SELL:
      InPrice = Bid;
      break;
   }
   double SendOrders_Lots = MartinLots(Type);
   if (!Lots_Valid(SendOrders_Lots)) 
   {
   	Alert("No Money");
   	return(-1);
   }
   int Ticket = OrderSend(Symbol(),Type,SendOrders_Lots,InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,Type == OP_BUY ? clrLime : clrRed);
   if (Ticket < 0)
   {   
      ErrorCode = GetLastError();
      if (ErrorCode != 4109)
         Alert("Send " + iComment + " Order Error: " + ErrorDescription(ErrorCode));
   }
   return(Ticket);
}

void Set_SL_TP(const int Mode,const int Type,double iSL,double iTP)
{
   double SL = 0.0;
   double TP = 0.0;
   for (int z=0;z<OrdersTotal();z++)//執行N次篩選(N=訂單總數)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)//挑選出同貨幣對 && BUY單 && MagicNumber=本程式 的訂單
      {
         if (Mode == MODE_SLTP_BYPOINT)
         {
           	if (Type == OP_BUY || Type == OP_BUYSTOP || Type == OP_BUYLIMIT)
           	{
           		TP = OrderOpenPrice() + iTP * point;
           		SL = OrderOpenPrice() - iSL * point;
           	}
           	if (Type == OP_SELL || Type == OP_SELLSTOP || Type == OP_SELLLIMIT)
           	{
           		TP = OrderOpenPrice() - iTP * point;
           		SL = OrderOpenPrice() + iSL * point;
           	}
           	if (EqualZero(iTP)) TP = 0;
           	if (EqualZero(iSL)) SL = 0;
         }else
         {
           	SL = iSL;
         	TP = iTP;
         }
         if (iTP < 0)
         {
            TP = OrderTakeProfit();
         }
         if (iSL < 0)
         {
            SL = OrderStopLoss();
         }
         if ((CompareDouble(OrderStopLoss(),NormalizeDouble(SL,Digits))) && (CompareDouble(OrderTakeProfit(),NormalizeDouble(TP,Digits))))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,White))
            {
               Alert("Set_SL_TP " + IntegerToString(OrderTicket()) + "  Error: " + ErrorDescription(GetLastError()));
            }
         }
      }
   }
}

bool CompareDouble(const double A,const double B)
{
   if (MathAbs(A - B) <= ZERO) return(true);
   return(false);
}

bool EqualZero(const double A)
{
   if (A <= ZERO && A >= -ZERO) return(true);
   return(false);
}

void Martin(const int Type)
{
	double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (MartinSW)
	{
		GetLastTciketINFO(Type,MaxPrice,MinPrice);
		if (BarTime == Bars && MyOrderTotal(Type) < MaxTrades)
		{
			if (SendOrders(Type,"XBOMB" + IntegerToString(MyOrderTotal(Type) + 1)) > 0)
			{
				AutoRepairSLTP(true,Type,MODE_MARTIN);
				BarTime = 0;
			}
		}
		if (Type == OP_BUY && MyOrderTotal(OP_BUY) > 0)
		{
			if (Ask <= MinPrice - Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (Type == OP_SELL && MyOrderTotal(OP_SELL) > 0)
		{
			if (Bid >= MaxPrice + Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (MyOrderTotal(Type) > 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_MARTIN);
	}
}

void FirstTrade(const int Type)
{
	int Cnt = MyOrderTotal(Type);
	if (Type == OP_BUY && (MyOrderTotal(OP_BUYSTOP) > 0 || MyOrderTotal(OP_BUYLIMIT) > 0)) return;
	if (Type == OP_SELL && (MyOrderTotal(OP_SELLSTOP) > 0 || MyOrderTotal(OP_SELLLIMIT) > 0)) return;
	if (Cnt == 0 && FirstTradeBar != Time[0])
	{
		if (SendOrders(Type,"XBOMB(" + IntegerToString(Type) + ")." + IntegerToString(Cnt + 1)) > 0)
		{
			AutoRepairSLTP(true,Type,MODE_FIRSTTRADE);
			FirstTradeBar = Time[0];
		}
	}
	if (Cnt == 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_FIRSTTRADE);
}

double GetLastTciketINFO(const int Type,double &MaxPrice,double &MinPrice)
{
	double iMaxPrice = 0.0;
	double iMinPrice = 5000.0;
	for (int i=0;i<OrdersTotal();i++)
	{
		if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
		if (OrderMagicNumber() == id_1 && OrderSymbol() == Symbol() && OrderType() == Type)
		{
			if (OrderOpenPrice() >= iMaxPrice)
				iMaxPrice = OrderOpenPrice();
			if (OrderOpenPrice() <= iMinPrice && !EqualZero(iMinPrice))
				iMinPrice = OrderOpenPrice();
		}
	}
	MaxPrice = iMaxPrice;
	MinPrice = iMinPrice;
	return(0.0);
}

int MyOrderTotal(int Type)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL)
		{
		   x++;
		   continue;
		}
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)
		{
			x++;
		}
	}
	return(x);
}

void iCloseOrders(int type)
{
	int C0_cnt;
	if (type == OP_BUYSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) 
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUYSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}

	if (type == OP_SELLSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELLSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_BUY) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUY && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrLime))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_SELL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELL && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_ALL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--)
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
   		if (OrderType() == OP_BUYSTOP || OrderType() == OP_SELLSTOP || OrderType() == OP_BUYLIMIT || OrderType() == OP_SELLLIMIT)
   		{
   		   if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
   		}else {
   		   if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
			   {
   			   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
   			}
         }
		}
	}
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selecttickets()
{
   int cnt_tickets = 0;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT))
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT))
#endif
         {
            ticket_time=OrderOpenTime();
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selectticketsfrhistory()
{
   int cnt_tickets = 0;
   for (int i=0;i<OrdersHistoryTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT) && ticket_time<=OrderOpenTime())
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT) && ticket_time<=OrderOpenTime())
#endif
         {
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double MartinLots(const int Type)
{
	int Cnt = MyOrderTotal(Type);
#ifdef MODE_AREA51
	int StartM = MartinMStart;
	if (StartM <= 0) StartM = 2;
#else
	int StartM = 2;
#endif
	if (Cnt <= 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,0),2));
	if (Cnt > 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,(double)(Cnt - 1) - (StartM - 2)),2));
	return(0.0);
}
//+------------------------------------------------------------------+
//|Optimize Lots                                                     |
//+------------------------------------------------------------------+
double OpLots()
{
	double Out = Lots;
	if (!EqualZero(MM) && MM > 0)
	{
		Out = (AccountBalance() * MM ) / (1000 * TakeProfit);
	}
	return(Out);
}
#ifdef MODE_AREA51
void PendingTrade(const int Type,const string iComment)
{
	double InPrice = Pending;
	int Ticket = 0;
	int iType = -1;
	if (Type == OP_BUY)
	{
		if (InPrice > Ask)
			iType = OP_BUYSTOP;
   	if (InPrice < Ask)
			iType = OP_BUYLIMIT;
		if (MyOrderTotal(OP_BUYSTOP) >= 1 || MyOrderTotal(OP_BUYLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
		   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrLime);
		if (Ticket < 0)
		{
 	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
     	}
     	else
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
     	}
  	}
  	
  	if (Type == OP_SELL)
	{
		if (InPrice < Bid)
			iType = OP_SELLSTOP;
   	if (InPrice > Bid)
			iType = OP_SELLLIMIT;
   	if (MyOrderTotal(OP_SELLSTOP) >= 1 || MyOrderTotal(OP_SELLLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrRed);
		if (Ticket < 0)
		{
  	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
	   {
	     	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
	   }
	   else
	   {
	   	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
	   }
  	}
  	return;
}

bool CloseAllTrades()
{
   if (GlobalVariableGet(NextSW_str) == 1) 
   {
#ifdef MODE_BUY
      iCloseOrders(OP_BUY);
#endif
#ifdef MODE_SELL
		iCloseOrders(OP_SELL);
#endif
		Sleep(10000);
      if (MyOrderTotal(OP_ALL) > 0)
      {
#ifdef CHT
         Alert("水雷未掃除成功");
#endif
#ifdef ENG
			Alert("Submarine mine sweeper not completed");
#endif
         return(false);
      }else 
      {
      	Sleep((int)(NextTime * 1000 * 60));
      }
   }
   return(true);
}

void CheckTimeIn(const double TimesProfit)
{
	datetime RunTime = (TimeCurrent() - Start_P) / 60;
	if (SmallLossWinSW && RunTime >= MaxTime && OrdersTotal() >= MaxIn && TimesProfit >= MaxP)
	{
		//Close all Trades
		GlobalVariableSet(NextSW_str,1);
		WriteLog(MODE_CHECKTIMEIN,"");
	}
}

void WriteLog(const int Mode,const string in)
{
	double TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
	string str = WindowExpertName() + "," + Symbol() + "," + TimeToString(TimeCurrent(),TIME_DATE|TIME_DATE|TIME_SECONDS) +
					 ": " + LogText[Mode] + " , " + in + 
					 "," + Start_Balance_str + ": " + DoubleToString(Start_Balance,2) +
					 "," + Start_P_str + ": " + IntegerToString(Start_P) +
					 ",TimeProfit: " + DoubleToString(TimesProfit,2) +
					 "| Set: 餘:" + DoubleToString(iBalance,2) +
					 ",次:" + DoubleToString(TakeProfitPercent,2) + 
					 ",日:" + DoubleToString(TakeProfitPercentDay,2) +
					 ",損:" + DoubleToStr(StopLossPercent ,2) +
					 ",時:" + DoubleToString(MaxTime,2) +
					 ",單:" + DoubleToString(MaxIn,2) +
					 ",虧:" + DoubleToString(MaxP,2) +
					 "\n" 
					 ;
	int h1 = FileOpen("Logs.txt",FILE_READ|FILE_WRITE|FILE_TXT);
	if (h1 < 0) Print("Open Log Failed");
	FileSeek(h1,0,SEEK_END);
	int byte = FileWriteString(h1,str,StringLen(str));
	if (byte <= 0) Print("Write Log Failed");
	FileClose(h1);
}

double GetProfitPeriod(datetime today)
{
   double profit=0;
   int total =OrdersHistoryTotal();
   for (int i=0; i<total; i++)
   {
      if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
      {
         if (OrderType() == OP_BUY || OrderType() == OP_SELL)
         {
            if (today < OrderCloseTime())
               profit += OrderProfit() + OrderCommission() + OrderSwap();
         }
      }
   }
   return (profit);
}

void Displayprofit(const double TimesProfit, const double TodayProfit)
{
   int Pos = 50;
   string Label_Text = ""; 
   string Label_Text1 = ""; 
   
   if (ObjectFind(Run) < 0) ObjectCreate(0,Run,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Run, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Run, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Run, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Run, OBJPROP_YDISTANCE, Pos);
   ObjectSetInteger(0,Run, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Run, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetString(0,Run, OBJPROP_FONT, "微軟正黑體");
   
   for (int i=0;i<6;i++)
   {
      if(ObjectFind(Label_arr[i]) < 0) ObjectCreate(0,Label_arr[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_XDISTANCE,120);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr[i],OBJPROP_FONT,"微軟正黑體");
      
      if(ObjectFind(Label_arr1[i]) < 0) ObjectCreate(0,Label_arr1[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_XDISTANCE,20);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr1[i],OBJPROP_FONT,"微軟正黑體");
      
      switch(i)
      {
#ifdef CHT
         case 0:
         Label_Text = "單次擄獲狂派戰俘: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "進場起始兵力: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "進場經過時間: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " 分鐘";
         break;
         
         case 3:
         Label_Text = "戰場兵力: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "今日擄獲狂派戰俘累積至: " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "最大暫時被擄穫兵力: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
#ifdef ENG
			case 0:
         Label_Text = "Profit/Loss: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "Start Balance: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "Time Elapsed: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " Minutes";
         break;
         
         case 3:
         Label_Text = "Orders: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "Profit/Loss (Today): " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "Maximum Floating Loss: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
      }
      ObjectSetString(0,Label_arr[i],OBJPROP_TEXT,Label_Text);
      ObjectSetString(0,Label_arr1[i],OBJPROP_TEXT,Label_Text1);
   }
   
   for (int i=0;i<ArraySize(NewsInfo);i++)
   {	
   	if (ObjectFind(NewsInfo[i]) < 0) ObjectCreate(0,NewsInfo[i],OBJ_LABEL,0,0,0);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_CORNER, 1);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_COLOR, clrGold);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_XDISTANCE, 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_YDISTANCE, Pos + 150 + i * 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_FONTSIZE, 10);
	   ObjectSetString(0,NewsInfo[i], OBJPROP_FONT, "微軟正黑體");
   }
   
   ObjectCreate(0,Margin,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Margin, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Margin, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Margin, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Margin, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Margin, OBJPROP_YDISTANCE, Pos+195);
   ObjectSetInteger(0,Margin, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,Margin, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,Margin,OBJPROP_TEXT,"");
	
	ObjectCreate(0,FloatLoss,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,FloatLoss, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,FloatLoss, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,FloatLoss, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,FloatLoss, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,FloatLoss, OBJPROP_YDISTANCE, Pos+215);
   ObjectSetInteger(0,FloatLoss, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,FloatLoss, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
	
	if (ObjectFind(Light) < 0)
     	ObjectCreate(0,Light,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Light,OBJPROP_CORNER,1);
   ObjectSetInteger(0,Light, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Light,OBJPROP_COLOR,clrGold);
   ObjectSetInteger(0,Light, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Light,OBJPROP_XDISTANCE,20);
   ObjectSetInteger(0,Light,OBJPROP_YDISTANCE,Pos+235);
   ObjectSetString(0,Light, OBJPROP_FONT, "微軟正黑體");
   ObjectSetString(0,Light,OBJPROP_TEXT,"");
}

bool EAControl()
{
	bool Out = true;
	string str ="";
	if (!Margin()) 
	{
		str = "Margin";
		Out = false;
	}
	if (!Float()) 
	{
		str = "Float";
		Out = false;
	}
	if (TimeCurrent() <= EARunTime) 
	{
		str = "SLSLeep";
		Out = false;
	}
	if (!WeekStartOver())
	 {
		str = "Time";
		Out = false;
	}
	if (!AvoidNews()) 
	{
		str = "News";
		Out = false;
	}
	
	/*if (!Margin() || !Float() || TimeCurrent() <= EARunTime || !WeekStartOver() || !AvoidNews()) 
	{
		Comment("EAControl 1");
		return(false);
	}*/
	Comment(str);
	return(Out);
}

bool iTimeControl()
{
	bool EA_Valid = false;
   if (DayStopHour == DayStartHour) EA_Valid = true;
   if (DayStopHour < DayStartHour) 
   {
		if (TimeHour(TimeLocal()) >= DayStartHour || TimeHour(TimeLocal()) < DayStopHour) 
			EA_Valid = true;
   }
    
    if (DayStopHour > DayStartHour) 
    {
    	if ((TimeHour(TimeLocal()) >= DayStartHour && TimeHour(TimeLocal()) < DayStopHour)) 
    		EA_Valid = true;
    }
    return(EA_Valid);
}   

bool WeekStartOver()
{
   bool EA_Valid = true;
   int Dayweek = TimeDayOfWeek(TimeLocal());
   
   if (WeekStartOverSW)
   {
   	if (
   		Dayweek < StrToInteger(StringSubstr(WeekDay,0,1)) || 
   		(Dayweek == StrToInteger(StringSubstr(WeekDay,0,1)) && TimeHour(TimeLocal()) < WeekStartHour) || 
     		(Dayweek == StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1)) && TimeHour(TimeLocal()) >= WeekStopHour ) || 
     		Dayweek > StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1))
     		)
     	{
     		EA_Valid = false;
     	}
   }else
   {
   	if (iTimeControl()) 
   	{
         if (StringFind(WeekDay,DoubleToStr(Dayweek,0),0) >= 0) 
         {
            EA_Valid = true;
         }else
         {
         	EA_Valid = false;
         }
      }else
      {
      	EA_Valid = false;
      }
   }
   
#ifdef CHT
   if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"未在設定時區內，現有戰役達成後將離開戰場"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"已進入作戰時區內,全面啟動執行..."); 
   	return(true);
   }
#endif 
#ifdef ENG
	if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Not in trading time zone, stop trading after current set"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Entered trading time zone, automated system initiated"); 
   	return(true);
   }
#endif
}

int NewsConvert()
{ 
   string maindata[][7];
   string sBuffer = "";
   if (!FileIsExist(Newsfile)) 
   {
      return(0);
   }
   int h1=FileOpen(Newsfile,FILE_SHARE_READ|FILE_CSV);
   int i = 0 , j = 0;
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(sBuffer,"<title>") >= 0)
      {
         ArrayResize(maindata,j+1);
         maindata[j][0] = sBuffer;
         for (i=1;i<7;i++)
         {
            maindata[j][i] = FileReadString(h1);
         }
         j++;
      }
   }
   FileClose(h1);
   int count = ArrayRange(maindata,0);
   
   string sTags[7] = { "<title>", "<country>", "<date><![CDATA[", "<time><![CDATA[", "<impact><![CDATA[", "<forecast><![CDATA[", "<previous><![CDATA[" };
   string eTags[7] = { "</title>", "</country>", "]]></date>", "]]></time>", "]]></impact>", "]]></forecast>", "]]></previous>" };
   for (i=0;i<count;i++)
   {
      for (j=0;j<7;j++)
      {
         maindata[i][j]=StringSubstr(maindata[i][j],StringFind(maindata[i][j],sTags[j],0)+StringLen(sTags[j]),StringFind(maindata[i][j],eTags[j],0)-StringFind(maindata[i][j],sTags[j],0)-StringLen(sTags[j]));
      }
   }
   int h2 = FileOpen("NewsEvent.csv",FILE_SHARE_READ|FILE_WRITE|FILE_CSV,';');
   int GMT = 0;
   string time_str = "";
   string prev_time_str = "";
   for (i=0;i<count;i++)
   {
      if (maindata[i][4] == "High")
      {
         GMT = -1 * (TimeGMTOffset()/3600);
         time_str = TimeToString(
                                   StringToTime(MakeDateTime(maindata[i][2],maindata[i][3])) + GMT * 3600,
                                   TIME_DATE|TIME_MINUTES|TIME_SECONDS
                                );
         if (time_str == prev_time_str) continue;
         FileWrite(h2,maindata[i][1],time_str);
         prev_time_str = time_str;
      }
   }
   FileClose(h2);
   return(count);
}

string MakeDateTime(string strDate, string strTime)
{
	// Print("Converting Forex Factory Time into Metatrader time..."); //added by MN
	// Converts forexfactory time & date into yyyy.mm.dd hh:mm
	int n1stDash = StringFind(strDate, "-");
	int n2ndDash = StringFind(strDate, "-", n1stDash+1);

	string strMonth = StringSubstr(strDate, 0, 2);
	string strDay = StringSubstr(strDate, 3, 2);
	string strYear = StringSubstr(strDate, 6, 4); 
//	strYear = "20" + strYear;
	
	int nTimeColonPos = StringFind(strTime, ":");
	string strHour = StringSubstr(strTime, 0, nTimeColonPos);
	string strMinute = StringSubstr(strTime, nTimeColonPos+1, 2);
	string strAM_PM = StringSubstr(strTime, StringLen(strTime)-2);

	int nHour24 = StrToInteger(strHour);
	if ((strAM_PM == "pm" || strAM_PM == "PM") && nHour24 != 12)
	{
		nHour24 += 12;
	}
	if ((strAM_PM == "am" || strAM_PM == "AM") && nHour24 == 12)
	{
		nHour24 = 0;
	}
 	string strHourPad = "";
	if (nHour24 < 10) 
		strHourPad = "0";

	return(StringConcatenate(strYear, ".", strMonth, ".", strDay, " ", strHourPad, nHour24, ":", strMinute));
}

void RebuildNewsArray()
{
   NewsConvert();
   string sBuffer = "";
   
   int i = 0;
   int h1 = FileOpen(EventFile,FILE_SHARE_READ|FILE_CSV);
   if (h1 < 0)
   {
   	ArrayResize(AvoidTime,1);
   	ArrayResize(AvoidSymbol,1);
   	return;
   }
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(Symbol(),sBuffer) >= 0) 
      {
         ArrayResize(AvoidSymbol,i+2);
         AvoidSymbol[i+1] = sBuffer;
         ArrayResize(AvoidTime,i+2);
         sBuffer = FileReadString(h1);
         AvoidTime[i+1] = StrToTime(sBuffer);
         i++;
      }
   }
   FileClose(h1);
}

bool AvoidNews()
{
#ifdef CHT
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{
				str[0] = "預警雷達已偵測到 " + AvoidSymbol[i] + " 戰場於 " + StringSubstr(TimeToStr(AvoidTime[i]),11,5) + " 可能將有大量狂派埋伏";
        		str[1] = "超級達摩戰艦於 " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5) + " 啟動防禦系統進入一級警戒";
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "正在接收狂派情資...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "最後狂派活動時間: " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "已無其他狂派活動或情資已過期,即將休兵......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
#ifdef ENG
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{

				str[0] = "News Alert on " + AvoidSymbol[i] + " at time " + StringSubstr(TimeToStr(AvoidTime[i]),11,5);
        		str[1] = "Red alert! Braking System Standing By at  " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5);
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "News retrieving...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "Latest News at : " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "No trading info available......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
}

bool Margin()
{
	if (MarginSleep)   
	{
		double Margin_R = AccountInfoDouble(ACCOUNT_MARGIN_LEVEL);
		if (EqualZero(Margin_R)) return(true);
  		if (MarginLimit >= Margin_R)  
  		{
         ObjectSetString(0,Margin,OBJPROP_TEXT,"Margin level lower than " + DoubleToString(MarginLimit,2) + "  automated system suspended");
         return(false);
  		}else
  		{
  			ObjectSetString(0,Margin,OBJPROP_TEXT,"");
  		}
  	}
	return(true);
}

bool Float()
{
	if (FloatEq)   
	{
      double Profit = AccountProfit();
      if (Profit <= FloatAm)  
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"Floating loss greater than "+DoubleToString(FloatAm,2)+" automated system suspended");
         return(0);
      }else 
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
      }
	}
	return(true);
}

bool TimesStopConfig()
{
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	GlobalVariableSet(NextSW_str,0);
#ifdef GLOBAL_FILE
	if (!GlobalFileRead()) 
	{
		GlobalVars.G_EARunTime = 0;
		GlobalVars.G_MaxEquity = (AccountProfit() / AccountBalance()) * 100;
		GlobalVars.G_Start_P = TimeCurrent();
		GlobalVars.G_Start_Balance = AccountBalance();
		GlobalFileWrite();
		GlobalFileRead();
	}
	Print("EARuntime: " + TimeToString(GlobalVars.G_EARunTime,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("MaxLossEquity: " + DoubleToString(GlobalVars.G_MaxEquity,2));
	Print("Start_P: " + TimeToString(GlobalVars.G_Start_P,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("Start_Balance: " + DoubleToString(GlobalVars.G_Start_Balance,2));
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	
#endif
	return(true);
}

void TimesStop(double &TimesProfit, double &TodayProfit)
{
#ifdef GLOBAL_FILE
   if (OrdersTotal()==0) 
   {
      GlobalVars.G_Start_Balance = AccountBalance();
      GlobalVars.G_Start_P = TimeCurrent();
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Status                                                       |
   //+------------------------------------------------------------------+
   if(EqualZero(iBalance))
   	Start_Balance = GlobalVars.G_Start_Balance;  
   else
      Start_Balance = iBalance;
   Start_P = GlobalVars.G_Start_P;
   EARunTime = GlobalVars.G_EARunTime;
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVars.G_MaxEquity) 
   {
      GlobalVars.G_MaxEquity = (AccountProfit() / Start_Balance) * 100;
   }
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Status                                                      |
   //+------------------------------------------------------------------+
   GlobalVars.G_EARunTime = EARunTime;
   GlobalVars.G_Start_Balance = Start_Balance;
   GlobalVars.G_Start_P = Start_P;
   GlobalFileWrite();
#else
	if (OrdersTotal()==0) 
   {
      GlobalVariableSet(Start_Balance_str,AccountBalance());
      GlobalVariableSet(Start_P_str,TimeCurrent());
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Balance                                                      | 
   //+------------------------------------------------------------------+
   if (GlobalVariableCheck(Start_Balance_str))
   {
   	if(EqualZero(iBalance))
	   	Start_Balance = GlobalVariableGet(Start_Balance_str);  
   	else
      	Start_Balance = iBalance;
	}else 
	{
		Start_Balance = AccountBalance();
	}
   
   if (GlobalVariableCheck(Start_P_str))
   {
   	Start_P = (datetime)GlobalVariableGet(Start_P_str);
	}else
	{
		Start_P = TimeCurrent();
	}
	
	if (GlobalVariableCheck(EARUNTIME_str))
	{
		EARunTime = (datetime)GlobalVariableGet(EARUNTIME_str);
	}
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVariableGet(MaxEquity_str)) 
   {
      GlobalVariableSet(MaxEquity_str,(AccountProfit() / Start_Balance)*100);
   }
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Balnace                                                     |
   //+------------------------------------------------------------------+
   GlobalVariableSet(EARUNTIME_str,EARunTime);
   GlobalVariableSet(Start_P_str,(double)Start_P);
   GlobalVariableSet(Start_Balance_str,Start_Balance);
#endif
}
#endif

void DeleteObjects()
{
	for (int i=5;i>=0;i--)
   {
      if(ObjectFind(Label_arr[i]) >= 0) ObjectDelete(0,Label_arr[i]);
      if(ObjectFind(Label_arr1[i]) >= 0) ObjectDelete(0,Label_arr1[i]);
      if (i < 2) 
      {
      	if (ObjectFind(NewsInfo[i]) >= 0) ObjectDelete(0,NewsInfo[i]);
      	if (ObjectFind(Light_str[i]) >= 0) ObjectDelete(0,Light_str[i]);
      }
   }
   if(ObjectFind(Run) >= 0) ObjectDelete(0,Run);
   if(ObjectFind(FloatLoss) >= 0) ObjectDelete(FloatLoss);
   if(ObjectFind(Margin) >= 0) ObjectDelete(Margin);
   if(ObjectFind(Light) >= 0) ObjectDelete(Light);
   //if (FileIsExist(EventFile)) FileDelete(EventFile);
}

void UpdateFiles(const int Mode)
{
	if (Mode == MODE_INIT)
	{
		if (!GlobalVariableCheck("DNSW")) GlobalVariableSet("DNSW",0);
	   if (GlobalVariableSetOnCondition("DNSW",1,0))
   	{
#ifdef MODE_AREA51
      	RebuildNewsArray();	
#endif
      	if (UninitializeReason() != 3)
      	{
#ifdef MODE_AREA51      	
         	if (ArraySize(AvoidTime) <= 1) NewGetSW = true;
         	else
         	{
         		if (TimeLocal() >= AvoidTime[ArraySize(AvoidTime)-1] + MinAfter)
					{
						NewGetSW = true;
					}
				}
#endif
         	Sleep(1000);
      	}
   	}
	}
	if (Mode == MODE_TICK)
	{
		if (
			(TimeHour(TimeLocal()) == DownloadHour && TimeMinute(TimeLocal()) == DownloadMin && H1BarTime != iTime(Symbol(),PERIOD_H1,0)) ||
			NewGetSW
			) 
		{
			if (!GlobalVariableCheck("DNSW0")) GlobalVariableSet("DNSW0",0); 
			if (GlobalVariableSetOnCondition("DNSW0",1,0))
			{
				if (!NewGetSW) 
				{
        			Sleep(1000);
        		}
        		Sleep(1000);
#ifdef MODE_AREA51
        		RebuildNewsArray();
#endif
        		GlobalVariableSet("DNSW0",0); 
        		NewGetSW = false;
        	}
        	H1BarTime = iTime(Symbol(),PERIOD_H1,0);
		}
	}
}



void AutoRepairSLTP(const bool flag,const int Type,const int Mode)
{
	double TP = 0.0;
   double SL = 0.0;
   double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (!flag) return;
	
	int Cnt = MyOrderTotal(Type);
	GetLastTciketINFO(Type,MaxPrice,MinPrice);
   if (Mode == MODE_FIRSTTRADE)
   {
      TP = TakeProfit;
      SL = StopLoss;
      if (MartinSW)
      	SL = 0.0;
      Set_SL_TP(MODE_SLTP_BYPOINT,Type,SL,TP);
   }
   
   if (Mode == MODE_MARTIN)
   {
   	switch (Type)
      {
         case OP_BUY:
            TP = Cal_TP(OP_BUY,MinPrice,TakeProfit);
            SL = 0;
            break;
         case OP_SELL:
            TP = Cal_TP(OP_SELL,MaxPrice,TakeProfit);
            SL = 0;
            break;
      }
      if (Cnt > 1)
      {
#ifdef MODE_AREA51
      	if (SingleOut)
      		Set_SL_TP(MODE_SLTP_BYPOINT,Type,0,TakeProfit);
      	else
      		Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#else
			Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#endif
      }
   }
}

string FileCharArrayToString(const string str_temp)
{
	uchar End_arr[];
	int j = 0;
	for(int i=0;i<StringLen(str_temp);i+=2)
	{
		ArrayResize(End_arr,j+1);
		End_arr[j] = (char)StringToInteger(StringSubstr(str_temp,i,2));
		j++;
	}
	return(CharArrayToString(End_arr,0,WHOLE_ARRAY,CP_ACP));
}

void CheckOSVersion()
{
	ulong dwVersion = GetVersion();
   uint dwMajorVersion = (uchar)(((ushort)(dwVersion & 0xffff)) & 0xff);
   printf("Major Version Of OS: %d",dwMajorVersion);
   if (dwMajorVersion < 6) 
   {
#ifdef CHT
      Alert("請注意！使用Windows XP(Server 2003)之系統將無法保證交易能正常執行！");
#endif
#ifdef ENG
		Alert("Attention!  Not guarantee to run well in Windows XP(Server 2003)");
#endif
   }
}

void SetKbar(double& Kbar[])
{
   Kbar[0] = (double)iTime(Symbol(),1,0);
   Kbar[1] = iOpen(Symbol(),1,0);
   Kbar[2] = iHigh(Symbol(),1,0);
   Kbar[3] = iLow(Symbol(),1,0);
   Kbar[4] = iClose(Symbol(),1,0);
   Kbar[5] = (double)iVolume(Symbol(),1,0);
}
#ifdef MODE_AREA51
void BrakeSystemFun()
{
   int Light_Arrow[2] = {108,161};
	if (BrakeSystem)
   {
      int Pos = 50;
      double Position=20;
#ifdef CHT
      string Active = "煞車系統啟動中";
      string Deactive = "煞車系統待命中";
#endif
#ifdef ENG
		string Active = "Braking System Initiating";
      string Deactive = "Braking System Stand By";
#endif
      double Position_L = Bid + Position * point;
      for (int i=0;i<ArraySize(Light_str);i++)
      {
      	if (ObjectFind(Light_str[i]) < 0)
         	ObjectCreate(0,Light_str[i],OBJ_ARROW,0,0,0);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_ARROWCODE,Light_Arrow[i]);
      	if (i == 0) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLime);
      	if (i == 1) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLawnGreen);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_WIDTH,5);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_TIME1,TimeCurrent()+300);
      	ObjectSetDouble(0,Light_str[i],OBJPROP_PRICE1,Position_L);
      }
      
      int EnergyBall=Ball(Status,SleepStop,Last_Time,Last_Price,SleepTime,(int)TimeCurrent(),point,Energy,Close[0]);
      if (EnergyBall<0)
      {
         Alert("Energy Brake Error");
         TradeSW = false;
         return;
      }

      if (TimeCurrent()<=SleepStop[0])
      {
         TradeSW = false;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrRed);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrCrimson);
#ifdef CHT
         ObjectSetString(0,Light,OBJPROP_TEXT,Active+", "+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" 分鐘後啟動");
#endif
#ifdef ENG
			ObjectSetString(0,Light,OBJPROP_TEXT,Active+", initiate after"+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" minutes");
#endif
      }
      else
      {
         TradeSW = true;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrLime);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrLawnGreen);
         ObjectSetString(0,Light,OBJPROP_TEXT,Deactive);
      }
   }
   else
   {
      TradeSW = true;
      ObjectDelete(Light_str[0]);
      ObjectDelete(Light_str[1]);
   }
}
#endif

bool Lots_Valid(const double iLot)
{
	double ValuePerLot = SymbolInfoDouble(NULL,SYMBOL_TRADE_CONTRACT_SIZE) / AccountInfoInteger(ACCOUNT_LEVERAGE);
	if ((iLot * ValuePerLot) > AccountInfoDouble(ACCOUNT_FREEMARGIN)) return(false);
	return(true);
}

int GetTicket(int &Ticket_arr[])
{
	int Cnt = 0;
	for (int i=0;i<ArraySize(Ticket_arr);i++)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (Ticket_arr[i] == OrderTicket())
			{
				Cnt++;
				break;
			}
		}
	}
	return(Cnt);
}

int MyOrderTotal_Enders(const string symbol,const int Type,const int ID)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL && OrderSymbol() == symbol && OrderMagicNumber() == ID)
		{
		   x++;
		   continue;
		}
		if ((Type == OP_BUY && ((OrderType() & 1) == 1 ? false : true)) || (Type == OP_SELL && ((OrderType() & 1) == 1 ? true : false)))
	   {  
	   	if (OrderSymbol() == symbol && OrderMagicNumber() == ID)
			{
				x++;
			}
		}
	}
	return(x);
}

bool EAControl_Enders()
{
	bool Out = true;
	string str ="";
		
	if (!EGFlag) 
	{
		str = "Ender";
		Out = false;
	}
	Comment(str);
	return(Out);
}
int EndersGamgeCnt = 0;
void EndersGameModule(const string symbol, const int Type, int id, bool &flag)
{
	if (MyOrderTotal_Enders(symbol,Type,id) == 0)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (OrderCloseTime() > EGStartTime)
			{
				EndersGamgeCnt++;
				Alert(Symbol() + " 戰場已完成第" + IntegerToString(EndersGamgeCnt) + " 次戰役");
				EGStartTime = TimeCurrent();
				break;
			}
		}
	}
	if (EndersGamgeCnt >= OutCnt)
	{
		Alert("已達成設定局數，即將離開 " + Symbol() + " 戰場");
		flag = false;
		ExpertRemove();
	}
}

X Bomb(SELL_5%).mq4

//+------------------------------------------------------------------+
//|                                                  AllNewXBOMB.mq4 |
//|                                                APP Wargame-Hydra |
//|                     http://www.facebook.com/groups/moneywargame/ |
//+------------------------------------------------------------------+


#property strict

#include <WarGameDLL.mqh>
#include <WinUser32.mqh>
#import "User32.dll"
int GetDC(int);
int ReleaseDC(int,int);
#import "Gdi32.dll"
int GetDeviceCaps(int,int);
#import "stdlib.ex4"
string ErrorDescription(int error_code);
#import "kernel32.dll"
ulong GetVersion(void);
#import

#define CHT	1
//#define ENG	1

#define ZERO 0.000001
//#define MODE_BUY 1
#define MODE_SELL 1


#define MODE_AGET 0
#define MODE_FGET 1
#define MODE_CHECKTIMEIN 0
#define MODE_TIMESTP 1
#define MODE_TIMESSL 2
#define MODE_DAILYTP 3
#define MODE_INIT 3
#define MODE_TICK 4
#define MODE_FIRSTTRADE  	 99
#define MODE_MARTIN  		100
#define OP_ALL       101
#define MODE_SLTP_BYPOINT 102
#define MODE_SLTP_BYPRICE 103
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+


int id_1 = 3333333;

int ErrorCode = 0;
int DownloadHour = 6;
int DownloadMin = 0;
int BarTime = 0;

double NextTime=0.5;
double point = 0.0;
double iLots = 0.0;
double Start_Balance = 0;
double iPending;

datetime H1BarTime = 0;
datetime FirstTradeBar = 0;
datetime Start_P = 0;
datetime EARunTime = 0;
datetime AvoidTime[1] = {0};
datetime EGStartTime = TimeCurrent();
bool EGFlag = true;

bool NewGetSW = false;
bool AuthorGetSW = false;
bool TradeSW = true;

int Last_Time[1]={0};
int Status[1]={0};
double Last_Price[1]={-1.0};
double MinPriceShot = 0.0;

string AvoidSymbol[1] = {""};
string LogText[4] = {"小虧為贏" , "次止盈" , "次止損" , "日止盈"};
string Label_arr[6] = 
{
   "TimesProfitPer",
   "Start_Balance",
   "TimePast",
   "Orders",
   "TodayProfitPer",
   "MaxLoss"
};
   
string Label_arr1[6] = 
{
   "TimesProfitPer0",
   "Start_Balance0",
   "TimePast0",
   "Orders0",
   "TodayProfitPer0",
   "MaxLoss0"
};

string Start_P_str = "Start_P";
string Start_Balance_str = "Start_Balance";
string MaxEquity_str = "MaxEquity";
string NextSW_str = "NextSW";
string EARUNTIME_str = "EARUNTIME";

string Light = "LightStatus";
string Run = "RunStatus";
string Margin = "Margin";
string FloatLoss = "Float";
string NewsInfo[2] = {"NewsInfo0", "NewsInfo1"};
string Light_str[2] = {"Light","Light2"};
#ifdef CHT
string NewsEngage = "狂派情資已接收完全.....全面開戰！";
#endif
#ifdef ENG
string NewsEngage = "News retrieval completed .....automated system initiated";
#endif
//+------------------------------------------------------------------+
//|Ender's Game Par                                                  |
//+------------------------------------------------------------------+
datetime ticket_time = 0;
int OutCntTemp = 0;
#ifdef CHT
input bool AutoRepairSW = false; //自動回復停損停利
#ifdef MODE_AREA51
input bool BrakeSystem=true; //ESP戰艦穩定煞車系統
int pSeconds=14;
input double Energy=4; //能量偵測靈敏度
input int SleepTime=15; //能量引擎啟動時間(分鐘)
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //預警雷達控制模組
input int MinBefore = 30; //前幾分鐘閃避
input int MinAfter = 30; //後幾分鐘閃避
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //保證金比例控制模組
input double MarginLimit = 2000; //保證金低於％數暫停
input bool FloatEq = false; //浮虧控制模組
input double FloatAm = -4000; //虧損(-金額)暫停
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //開始時間，格式為HH
input int DayStopHour = 00; //結束時間，格式為HH
input string WeekDay="12345"; //週一執行，鍵入1;週一週二鍵入12
input bool WeekStartOverSW = true; //一個禮拜頭尾不間斷
input int WeekStartHour = 8; //第一天幾點開始
input int WeekStopHour = 17; //最後一天幾點結束
input string a5 = "-------------------"; //
input double iBalance = 0; //止盈計算本金基準
input bool TakeProfitPercentSW = true; //次止盈開關
input double TakeProfitPercent = 5; //次止盈,每次最多獲利％,立即平倉歸零重啟新局
input bool TakeProfitPercentDaySW = true; //日止盈開關
input double TakeProfitPercentDay = 1000; //日止盈,每日最多獲利％,立即停止交易,隔日重新啟動
input bool StopLossPercentSW = true; //浮虧止損開關
input double StopLossPercent = 1000; //現時帳戶浮虧止損,止損基準值:帳戶餘額
input bool SleepLoss = true; //止損後當日不再出兵
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //小虧為贏開關
input int MaxTime = 150; //每局最長時間(分鐘)
input int MaxIn = 10; //每局最多兵力
input double MaxP = 0.5; //達成以上條件小虧為贏
input string c = "-------------------"; //　
input double Pending = 0.0;  //掛單價格 
input bool SingleOut = false; //單進單出
#endif
input bool MartinSW = true; //馬丁開關
#ifdef MODE_AREA51
input int MartinMStart = 2; //第幾張馬丁開始加倍
#endif
input double LotMultiplikator = 1.382; //馬丁倍率
input double Step = 30; //馬丁間距
input int MaxTrades = 5; //最多單數
input double MM = 5.0; //資金管理％數
input double Lots = 0.01; //手數
input double TakeProfit = 10.0; //獲利點數
input double StopLoss = 10.0; //停損點數
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
#ifdef ENG
input bool AutoRepairSW = false; //Auto Repair SL&TP
#ifdef MODE_AREA51
input bool BrakeSystem=true; //BrakeSystem
int pSeconds=14;
input double Energy=4; //Braking System Sensitivity Control
input int SleepTime=15; //Braking System Sleeping Time
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //Braking System Sleeping Time
input int MinBefore = 30; //Stop trading few minutes before news alert
input int MinAfter = 30; //Stop trading few minutes after news alert
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //Margin Level Control Module
input double MarginLimit = 2000; //Margin level % limit to stop trading
input bool FloatEq = false; //Floating Loss Control Module
input double FloatAm = -4000; //Floating loss (-$amount) limit to stop trading
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //Starting Time, in HH format
input int DayStopHour = 00; //Ending Time, in HH format
input string WeekDay="12345"; //Star on Monday=1, Monday and Tuesday=12
input bool WeekStartOverSW = true; //Trade everyday without stop
input int WeekStartHour = 8; //First Day Staring Time
input int WeekStopHour = 17; //Last Day Ending Time
input string a5 = "-------------------"; //
input double iBalance = 0; //Capital setting for Profit/Loss termination
input bool TakeProfitPercentSW = true; //Switch of Secondary Take Profit
input double TakeProfitPercent = 1; //Secondary Take Profit, max. % of profit to close trade, and reset
input bool TakeProfitPercentDaySW = true; //Switch of Daily Take Profit 
input double TakeProfitPercentDay = 1000; //Daily Take Profit, max. % of profit to close trade, reset on the next day
input bool StopLossPercentSW = true; //Switch of stopping Floating Loss
input double StopLossPercent = 1000; //Stop Loss of Current Account Max. Floating Loss (Based on Balance)
input bool SleepLoss = true; //Stop trading when reaching stop loss the same day
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //Switch of Small Loss To Win
input int MaxTime = 150; //Max. Time Per Set (Minutes)
input int MaxIn = 10; //Max. Trades Per Set
input double MaxP = 0.5; //Criteria of Small Loss for Win
input string c = "-------------------"; //　
input double Pending = 0.0;  //Pending Order at Price 
input bool SingleOut = false; //Take Profit Single Out
#endif
input bool MartinSW = true; //Start Martingale
#ifdef MODE_AREA51
input int MartinMStart = 2; //Number to start martingale multiplication 
#endif
input double LotMultiplikator = 1.382; //Martingale Multiplier
input double Step = 30; //Martingale Distance
input int MaxTrades = 5; //Max. Number of Orders
input double MM = 5.0; //Fund Management %
input double Lots = 0.01; //Order Size_lot
input double TakeProfit = 10.0; //Take Profit 
input double StopLoss = 10.0; //Stop Loss
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
string Newsfile = "ffcal_week_this.xml";
string EventFile = "NewsEvent.csv";

int OnInit()
{
//---
	CheckOSVersion();
	//+------------------------------------------------------------------+
	//|Get Point By Symbol                                               |
	//+------------------------------------------------------------------+
   if (Digits==5 || Digits==3)
   {
      point=Point*10;
   }
   else
   {
      point=Point;
   }
   //+------------------------------------------------------------------+
   //|                                                                  |
   //+------------------------------------------------------------------+
   iLots = OpLots();
   ticket_time = TimeCurrent();
   
   //+------------------------------------------------------------------+
   //|Random Minute                                                     |
   //+------------------------------------------------------------------+
   MathSrand(GetTickCount());
   DownloadMin = 1 + ((59 * MathRand()) / 32768);
#ifdef MODE_AREA51
   TimesStopConfig();
   //+------------------------------------------------------------------+
   //|Update Files                                                      |
   //+------------------------------------------------------------------+
   iPending = Pending;
#endif
   UpdateFiles(MODE_INIT);
//---
   return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
	GlobalVariableSet("DNSW",0);
   DeleteObjects();
}
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{
//---


   #ifdef MODE_BUY
if (NonStop==false) EndersGameModule(Symbol(),OP_BUY,id_1,EGFlag);
#endif

#ifdef MODE_SELL
if (NonStop==false) EndersGameModule(Symbol(),OP_SELL,id_1,EGFlag);
#endif
   UpdateFiles(MODE_TICK);
	 if (!EAControl_Enders()) return;
#ifdef MODE_AREA51   
   double TimesProfit = 0.0;
   double TodayProfit = 0.0;
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return;
	}
   if (!CloseAllTrades()) return;
   TimesStop(TimesProfit,TodayProfit);
   Displayprofit(TimesProfit,TodayProfit);
	CheckTimeIn(TimesProfit);
   //+------------------------------------------------------------------+
   //|Shutdown EA                                                       |
   //+------------------------------------------------------------------+
   if (!EAControl()) return;
   BrakeSystemFun();
#endif
   
#ifdef MODE_BUY
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_BUY,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{
		FirstTrade(OP_BUY);
		Martin(OP_BUY);
	}
#endif
#ifdef MODE_SELL
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_SELL,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{	
		FirstTrade(OP_SELL);
   	Martin(OP_SELL);
   }
#endif
	
}
//+------------------------------------------------------------------+
//|Determine Martingale TakeProfi                                    |
//+------------------------------------------------------------------+
double Cal_TP(int Type,double iPrice,double TPPoint)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double AllOrderLots = 0.0;
   double TP_Goal;
   double FirstOrderLots = 0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderType() == Type && OrderMagicNumber() == id_1 && OrderSymbol() == Symbol())
      {
         FirstOrderLots = OrderLots();
         TotalLots += OrderLots();
         if (Type == OP_SELL)
         	TotalDisProduct += (iPrice - OrderOpenPrice()) / point * OrderLots();
        	if (Type == OP_BUY)
        		TotalDisProduct += (OrderOpenPrice() - iPrice) / point * OrderLots();
      }
   }
   if (EqualZero(TotalLots)) return(0.0);
   TP_Goal = ((TPPoint * FirstOrderLots) + TotalDisProduct) / TotalLots;
   if (Type == OP_SELL)
   	return(iPrice - (TP_Goal * point));
  	if (Type == OP_BUY)
   	return(iPrice + (TP_Goal * point));
   return(0.0);
}
//+------------------------------------------------------------------+
//|OrderSend Function                                                |
//+------------------------------------------------------------------+
int SendOrders(const int Type ,const string iComment)
{
   double TP = 0.0;
   double SL = 0.0;
   double InPrice = 0.0;
   switch (Type)
   {
      case OP_BUY:
      InPrice = Ask;
      break;
      
      case OP_SELL:
      InPrice = Bid;
      break;
   }
   double SendOrders_Lots = MartinLots(Type);
   if (!Lots_Valid(SendOrders_Lots)) 
   {
   	Alert("No Money");
   	return(-1);
   }
   int Ticket = OrderSend(Symbol(),Type,SendOrders_Lots,InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,Type == OP_BUY ? clrLime : clrRed);
   if (Ticket < 0)
   {   
      ErrorCode = GetLastError();
      if (ErrorCode != 4109)
         Alert("Send " + iComment + " Order Error: " + ErrorDescription(ErrorCode));
   }
   return(Ticket);
}

void Set_SL_TP(const int Mode,const int Type,double iSL,double iTP)
{
   double SL = 0.0;
   double TP = 0.0;
   for (int z=0;z<OrdersTotal();z++)//執行N次篩選(N=訂單總數)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)//挑選出同貨幣對 && BUY單 && MagicNumber=本程式 的訂單
      {
         if (Mode == MODE_SLTP_BYPOINT)
         {
           	if (Type == OP_BUY || Type == OP_BUYSTOP || Type == OP_BUYLIMIT)
           	{
           		TP = OrderOpenPrice() + iTP * point;
           		SL = OrderOpenPrice() - iSL * point;
           	}
           	if (Type == OP_SELL || Type == OP_SELLSTOP || Type == OP_SELLLIMIT)
           	{
           		TP = OrderOpenPrice() - iTP * point;
           		SL = OrderOpenPrice() + iSL * point;
           	}
           	if (EqualZero(iTP)) TP = 0;
           	if (EqualZero(iSL)) SL = 0;
         }else
         {
           	SL = iSL;
         	TP = iTP;
         }
         if (iTP < 0)
         {
            TP = OrderTakeProfit();
         }
         if (iSL < 0)
         {
            SL = OrderStopLoss();
         }
         if ((CompareDouble(OrderStopLoss(),NormalizeDouble(SL,Digits))) && (CompareDouble(OrderTakeProfit(),NormalizeDouble(TP,Digits))))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,White))
            {
               Alert("Set_SL_TP " + IntegerToString(OrderTicket()) + "  Error: " + ErrorDescription(GetLastError()));
            }
         }
      }
   }
}

bool CompareDouble(const double A,const double B)
{
   if (MathAbs(A - B) <= ZERO) return(true);
   return(false);
}

bool EqualZero(const double A)
{
   if (A <= ZERO && A >= -ZERO) return(true);
   return(false);
}

void Martin(const int Type)
{
	double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (MartinSW)
	{
		GetLastTciketINFO(Type,MaxPrice,MinPrice);
		if (BarTime == Bars && MyOrderTotal(Type) < MaxTrades)
		{
			if (SendOrders(Type,"XBOMB" + IntegerToString(MyOrderTotal(Type) + 1)) > 0)
			{
				AutoRepairSLTP(true,Type,MODE_MARTIN);
				BarTime = 0;
			}
		}
		if (Type == OP_BUY && MyOrderTotal(OP_BUY) > 0)
		{
			if (Ask <= MinPrice - Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (Type == OP_SELL && MyOrderTotal(OP_SELL) > 0)
		{
			if (Bid >= MaxPrice + Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (MyOrderTotal(Type) > 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_MARTIN);
	}
}

void FirstTrade(const int Type)
{
	int Cnt = MyOrderTotal(Type);
	if (Type == OP_BUY && (MyOrderTotal(OP_BUYSTOP) > 0 || MyOrderTotal(OP_BUYLIMIT) > 0)) return;
	if (Type == OP_SELL && (MyOrderTotal(OP_SELLSTOP) > 0 || MyOrderTotal(OP_SELLLIMIT) > 0)) return;
	if (Cnt == 0 && FirstTradeBar != Time[0])
	{
		if (SendOrders(Type,"XBOMB(" + IntegerToString(Type) + ")." + IntegerToString(Cnt + 1)) > 0)
		{
			AutoRepairSLTP(true,Type,MODE_FIRSTTRADE);
			FirstTradeBar = Time[0];
		}
	}
	if (Cnt == 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_FIRSTTRADE);
}

double GetLastTciketINFO(const int Type,double &MaxPrice,double &MinPrice)
{
	double iMaxPrice = 0.0;
	double iMinPrice = 5000.0;
	for (int i=0;i<OrdersTotal();i++)
	{
		if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
		if (OrderMagicNumber() == id_1 && OrderSymbol() == Symbol() && OrderType() == Type)
		{
			if (OrderOpenPrice() >= iMaxPrice)
				iMaxPrice = OrderOpenPrice();
			if (OrderOpenPrice() <= iMinPrice && !EqualZero(iMinPrice))
				iMinPrice = OrderOpenPrice();
		}
	}
	MaxPrice = iMaxPrice;
	MinPrice = iMinPrice;
	return(0.0);
}

int MyOrderTotal(int Type)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL)
		{
		   x++;
		   continue;
		}
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)
		{
			x++;
		}
	}
	return(x);
}

void iCloseOrders(int type)
{
	int C0_cnt;
	if (type == OP_BUYSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) 
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUYSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}

	if (type == OP_SELLSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELLSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_BUY) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUY && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrLime))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_SELL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELL && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_ALL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--)
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
   		if (OrderType() == OP_BUYSTOP || OrderType() == OP_SELLSTOP || OrderType() == OP_BUYLIMIT || OrderType() == OP_SELLLIMIT)
   		{
   		   if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
   		}else {
   		   if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
			   {
   			   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
   			}
         }
		}
	}
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selecttickets()
{
   int cnt_tickets = 0;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT))
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT))
#endif
         {
            ticket_time=OrderOpenTime();
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selectticketsfrhistory()
{
   int cnt_tickets = 0;
   for (int i=0;i<OrdersHistoryTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT) && ticket_time<=OrderOpenTime())
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT) && ticket_time<=OrderOpenTime())
#endif
         {
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double MartinLots(const int Type)
{
	int Cnt = MyOrderTotal(Type);
#ifdef MODE_AREA51
	int StartM = MartinMStart;
	if (StartM <= 0) StartM = 2;
#else
	int StartM = 2;
#endif
	if (Cnt <= 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,0),2));
	if (Cnt > 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,(double)(Cnt - 1) - (StartM - 2)),2));
	return(0.0);
}
//+------------------------------------------------------------------+
//|Optimize Lots                                                     |
//+------------------------------------------------------------------+
double OpLots()
{
	double Out = Lots;
	if (!EqualZero(MM) && MM > 0)
	{
		Out = (AccountBalance() * MM ) / (1000 * TakeProfit);
	}
	return(Out);
}
#ifdef MODE_AREA51
void PendingTrade(const int Type,const string iComment)
{
	double InPrice = Pending;
	int Ticket = 0;
	int iType = -1;
	if (Type == OP_BUY)
	{
		if (InPrice > Ask)
			iType = OP_BUYSTOP;
   	if (InPrice < Ask)
			iType = OP_BUYLIMIT;
		if (MyOrderTotal(OP_BUYSTOP) >= 1 || MyOrderTotal(OP_BUYLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
		   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrLime);
		if (Ticket < 0)
		{
 	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
     	}
     	else
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
     	}
  	}
  	
  	if (Type == OP_SELL)
	{
		if (InPrice < Bid)
			iType = OP_SELLSTOP;
   	if (InPrice > Bid)
			iType = OP_SELLLIMIT;
   	if (MyOrderTotal(OP_SELLSTOP) >= 1 || MyOrderTotal(OP_SELLLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrRed);
		if (Ticket < 0)
		{
  	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
	   {
	     	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
	   }
	   else
	   {
	   	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
	   }
  	}
  	return;
}

bool CloseAllTrades()
{
   if (GlobalVariableGet(NextSW_str) == 1) 
   {
#ifdef MODE_BUY
      iCloseOrders(OP_BUY);
#endif
#ifdef MODE_SELL
		iCloseOrders(OP_SELL);
#endif
		Sleep(10000);
      if (MyOrderTotal(OP_ALL) > 0)
      {
#ifdef CHT
         Alert("水雷未掃除成功");
#endif
#ifdef ENG
			Alert("Submarine mine sweeper not completed");
#endif
         return(false);
      }else 
      {
      	Sleep((int)(NextTime * 1000 * 60));
      }
   }
   return(true);
}

void CheckTimeIn(const double TimesProfit)
{
	datetime RunTime = (TimeCurrent() - Start_P) / 60;
	if (SmallLossWinSW && RunTime >= MaxTime && OrdersTotal() >= MaxIn && TimesProfit >= MaxP)
	{
		//Close all Trades
		GlobalVariableSet(NextSW_str,1);
		WriteLog(MODE_CHECKTIMEIN,"");
	}
}

void WriteLog(const int Mode,const string in)
{
	double TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
	string str = WindowExpertName() + "," + Symbol() + "," + TimeToString(TimeCurrent(),TIME_DATE|TIME_DATE|TIME_SECONDS) +
					 ": " + LogText[Mode] + " , " + in + 
					 "," + Start_Balance_str + ": " + DoubleToString(Start_Balance,2) +
					 "," + Start_P_str + ": " + IntegerToString(Start_P) +
					 ",TimeProfit: " + DoubleToString(TimesProfit,2) +
					 "| Set: 餘:" + DoubleToString(iBalance,2) +
					 ",次:" + DoubleToString(TakeProfitPercent,2) + 
					 ",日:" + DoubleToString(TakeProfitPercentDay,2) +
					 ",損:" + DoubleToStr(StopLossPercent ,2) +
					 ",時:" + DoubleToString(MaxTime,2) +
					 ",單:" + DoubleToString(MaxIn,2) +
					 ",虧:" + DoubleToString(MaxP,2) +
					 "\n" 
					 ;
	int h1 = FileOpen("Logs.txt",FILE_READ|FILE_WRITE|FILE_TXT);
	if (h1 < 0) Print("Open Log Failed");
	FileSeek(h1,0,SEEK_END);
	int byte = FileWriteString(h1,str,StringLen(str));
	if (byte <= 0) Print("Write Log Failed");
	FileClose(h1);
}

double GetProfitPeriod(datetime today)
{
   double profit=0;
   int total =OrdersHistoryTotal();
   for (int i=0; i<total; i++)
   {
      if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
      {
         if (OrderType() == OP_BUY || OrderType() == OP_SELL)
         {
            if (today < OrderCloseTime())
               profit += OrderProfit() + OrderCommission() + OrderSwap();
         }
      }
   }
   return (profit);
}

void Displayprofit(const double TimesProfit, const double TodayProfit)
{
   int Pos = 50;
   string Label_Text = ""; 
   string Label_Text1 = ""; 
   
   if (ObjectFind(Run) < 0) ObjectCreate(0,Run,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Run, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Run, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Run, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Run, OBJPROP_YDISTANCE, Pos);
   ObjectSetInteger(0,Run, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Run, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetString(0,Run, OBJPROP_FONT, "微軟正黑體");
   
   for (int i=0;i<6;i++)
   {
      if(ObjectFind(Label_arr[i]) < 0) ObjectCreate(0,Label_arr[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_XDISTANCE,120);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr[i],OBJPROP_FONT,"微軟正黑體");
      
      if(ObjectFind(Label_arr1[i]) < 0) ObjectCreate(0,Label_arr1[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_XDISTANCE,20);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr1[i],OBJPROP_FONT,"微軟正黑體");
      
      switch(i)
      {
#ifdef CHT
         case 0:
         Label_Text = "單次擄獲狂派戰俘: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "進場起始兵力: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "進場經過時間: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " 分鐘";
         break;
         
         case 3:
         Label_Text = "戰場兵力: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "今日擄獲狂派戰俘累積至: " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "最大暫時被擄穫兵力: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
#ifdef ENG
			case 0:
         Label_Text = "Profit/Loss: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "Start Balance: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "Time Elapsed: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " Minutes";
         break;
         
         case 3:
         Label_Text = "Orders: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "Profit/Loss (Today): " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "Maximum Floating Loss: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
      }
      ObjectSetString(0,Label_arr[i],OBJPROP_TEXT,Label_Text);
      ObjectSetString(0,Label_arr1[i],OBJPROP_TEXT,Label_Text1);
   }
   
   for (int i=0;i<ArraySize(NewsInfo);i++)
   {	
   	if (ObjectFind(NewsInfo[i]) < 0) ObjectCreate(0,NewsInfo[i],OBJ_LABEL,0,0,0);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_CORNER, 1);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_COLOR, clrGold);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_XDISTANCE, 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_YDISTANCE, Pos + 150 + i * 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_FONTSIZE, 10);
	   ObjectSetString(0,NewsInfo[i], OBJPROP_FONT, "微軟正黑體");
   }
   
   ObjectCreate(0,Margin,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Margin, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Margin, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Margin, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Margin, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Margin, OBJPROP_YDISTANCE, Pos+195);
   ObjectSetInteger(0,Margin, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,Margin, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,Margin,OBJPROP_TEXT,"");
	
	ObjectCreate(0,FloatLoss,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,FloatLoss, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,FloatLoss, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,FloatLoss, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,FloatLoss, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,FloatLoss, OBJPROP_YDISTANCE, Pos+215);
   ObjectSetInteger(0,FloatLoss, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,FloatLoss, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
	
	if (ObjectFind(Light) < 0)
     	ObjectCreate(0,Light,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Light,OBJPROP_CORNER,1);
   ObjectSetInteger(0,Light, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Light,OBJPROP_COLOR,clrGold);
   ObjectSetInteger(0,Light, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Light,OBJPROP_XDISTANCE,20);
   ObjectSetInteger(0,Light,OBJPROP_YDISTANCE,Pos+235);
   ObjectSetString(0,Light, OBJPROP_FONT, "微軟正黑體");
   ObjectSetString(0,Light,OBJPROP_TEXT,"");
}

bool EAControl()
{
	bool Out = true;
	string str ="";
	if (!Margin()) 
	{
		str = "Margin";
		Out = false;
	}
	if (!Float()) 
	{
		str = "Float";
		Out = false;
	}
	if (TimeCurrent() <= EARunTime) 
	{
		str = "SLSLeep";
		Out = false;
	}
	if (!WeekStartOver())
	 {
		str = "Time";
		Out = false;
	}
	if (!AvoidNews()) 
	{
		str = "News";
		Out = false;
	}
	
	/*if (!Margin() || !Float() || TimeCurrent() <= EARunTime || !WeekStartOver() || !AvoidNews()) 
	{
		Comment("EAControl 1");
		return(false);
	}*/
	Comment(str);
	return(Out);
}

bool iTimeControl()
{
	bool EA_Valid = false;
   if (DayStopHour == DayStartHour) EA_Valid = true;
   if (DayStopHour < DayStartHour) 
   {
		if (TimeHour(TimeLocal()) >= DayStartHour || TimeHour(TimeLocal()) < DayStopHour) 
			EA_Valid = true;
   }
    
    if (DayStopHour > DayStartHour) 
    {
    	if ((TimeHour(TimeLocal()) >= DayStartHour && TimeHour(TimeLocal()) < DayStopHour)) 
    		EA_Valid = true;
    }
    return(EA_Valid);
}   

bool WeekStartOver()
{
   bool EA_Valid = true;
   int Dayweek = TimeDayOfWeek(TimeLocal());
   
   if (WeekStartOverSW)
   {
   	if (
   		Dayweek < StrToInteger(StringSubstr(WeekDay,0,1)) || 
   		(Dayweek == StrToInteger(StringSubstr(WeekDay,0,1)) && TimeHour(TimeLocal()) < WeekStartHour) || 
     		(Dayweek == StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1)) && TimeHour(TimeLocal()) >= WeekStopHour ) || 
     		Dayweek > StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1))
     		)
     	{
     		EA_Valid = false;
     	}
   }else
   {
   	if (iTimeControl()) 
   	{
         if (StringFind(WeekDay,DoubleToStr(Dayweek,0),0) >= 0) 
         {
            EA_Valid = true;
         }else
         {
         	EA_Valid = false;
         }
      }else
      {
      	EA_Valid = false;
      }
   }
   
#ifdef CHT
   if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"未在設定時區內，現有戰役達成後將離開戰場"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"已進入作戰時區內,全面啟動執行..."); 
   	return(true);
   }
#endif 
#ifdef ENG
	if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Not in trading time zone, stop trading after current set"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Entered trading time zone, automated system initiated"); 
   	return(true);
   }
#endif
}

int NewsConvert()
{ 
   string maindata[][7];
   string sBuffer = "";
   if (!FileIsExist(Newsfile)) 
   {
      return(0);
   }
   int h1=FileOpen(Newsfile,FILE_SHARE_READ|FILE_CSV);
   int i = 0 , j = 0;
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(sBuffer,"<title>") >= 0)
      {
         ArrayResize(maindata,j+1);
         maindata[j][0] = sBuffer;
         for (i=1;i<7;i++)
         {
            maindata[j][i] = FileReadString(h1);
         }
         j++;
      }
   }
   FileClose(h1);
   int count = ArrayRange(maindata,0);
   
   string sTags[7] = { "<title>", "<country>", "<date><![CDATA[", "<time><![CDATA[", "<impact><![CDATA[", "<forecast><![CDATA[", "<previous><![CDATA[" };
   string eTags[7] = { "</title>", "</country>", "]]></date>", "]]></time>", "]]></impact>", "]]></forecast>", "]]></previous>" };
   for (i=0;i<count;i++)
   {
      for (j=0;j<7;j++)
      {
         maindata[i][j]=StringSubstr(maindata[i][j],StringFind(maindata[i][j],sTags[j],0)+StringLen(sTags[j]),StringFind(maindata[i][j],eTags[j],0)-StringFind(maindata[i][j],sTags[j],0)-StringLen(sTags[j]));
      }
   }
   int h2 = FileOpen("NewsEvent.csv",FILE_SHARE_READ|FILE_WRITE|FILE_CSV,';');
   int GMT = 0;
   string time_str = "";
   string prev_time_str = "";
   for (i=0;i<count;i++)
   {
      if (maindata[i][4] == "High")
      {
         GMT = -1 * (TimeGMTOffset()/3600);
         time_str = TimeToString(
                                   StringToTime(MakeDateTime(maindata[i][2],maindata[i][3])) + GMT * 3600,
                                   TIME_DATE|TIME_MINUTES|TIME_SECONDS
                                );
         if (time_str == prev_time_str) continue;
         FileWrite(h2,maindata[i][1],time_str);
         prev_time_str = time_str;
      }
   }
   FileClose(h2);
   return(count);
}

string MakeDateTime(string strDate, string strTime)
{
	// Print("Converting Forex Factory Time into Metatrader time..."); //added by MN
	// Converts forexfactory time & date into yyyy.mm.dd hh:mm
	int n1stDash = StringFind(strDate, "-");
	int n2ndDash = StringFind(strDate, "-", n1stDash+1);

	string strMonth = StringSubstr(strDate, 0, 2);
	string strDay = StringSubstr(strDate, 3, 2);
	string strYear = StringSubstr(strDate, 6, 4); 
//	strYear = "20" + strYear;
	
	int nTimeColonPos = StringFind(strTime, ":");
	string strHour = StringSubstr(strTime, 0, nTimeColonPos);
	string strMinute = StringSubstr(strTime, nTimeColonPos+1, 2);
	string strAM_PM = StringSubstr(strTime, StringLen(strTime)-2);

	int nHour24 = StrToInteger(strHour);
	if ((strAM_PM == "pm" || strAM_PM == "PM") && nHour24 != 12)
	{
		nHour24 += 12;
	}
	if ((strAM_PM == "am" || strAM_PM == "AM") && nHour24 == 12)
	{
		nHour24 = 0;
	}
 	string strHourPad = "";
	if (nHour24 < 10) 
		strHourPad = "0";

	return(StringConcatenate(strYear, ".", strMonth, ".", strDay, " ", strHourPad, nHour24, ":", strMinute));
}

void RebuildNewsArray()
{
   NewsConvert();
   string sBuffer = "";
   
   int i = 0;
   int h1 = FileOpen(EventFile,FILE_SHARE_READ|FILE_CSV);
   if (h1 < 0)
   {
   	ArrayResize(AvoidTime,1);
   	ArrayResize(AvoidSymbol,1);
   	return;
   }
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(Symbol(),sBuffer) >= 0) 
      {
         ArrayResize(AvoidSymbol,i+2);
         AvoidSymbol[i+1] = sBuffer;
         ArrayResize(AvoidTime,i+2);
         sBuffer = FileReadString(h1);
         AvoidTime[i+1] = StrToTime(sBuffer);
         i++;
      }
   }
   FileClose(h1);
}

bool AvoidNews()
{
#ifdef CHT
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{
				str[0] = "預警雷達已偵測到 " + AvoidSymbol[i] + " 戰場於 " + StringSubstr(TimeToStr(AvoidTime[i]),11,5) + " 可能將有大量狂派埋伏";
        		str[1] = "超級達摩戰艦於 " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5) + " 啟動防禦系統進入一級警戒";
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "正在接收狂派情資...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "最後狂派活動時間: " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "已無其他狂派活動或情資已過期,即將休兵......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
#ifdef ENG
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{

				str[0] = "News Alert on " + AvoidSymbol[i] + " at time " + StringSubstr(TimeToStr(AvoidTime[i]),11,5);
        		str[1] = "Red alert! Braking System Standing By at  " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5);
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "News retrieving...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "Latest News at : " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "No trading info available......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
}

bool Margin()
{
	if (MarginSleep)   
	{
		double Margin_R = AccountInfoDouble(ACCOUNT_MARGIN_LEVEL);
		if (EqualZero(Margin_R)) return(true);
  		if (MarginLimit >= Margin_R)  
  		{
         ObjectSetString(0,Margin,OBJPROP_TEXT,"Margin level lower than " + DoubleToString(MarginLimit,2) + "  automated system suspended");
         return(false);
  		}else
  		{
  			ObjectSetString(0,Margin,OBJPROP_TEXT,"");
  		}
  	}
	return(true);
}

bool Float()
{
	if (FloatEq)   
	{
      double Profit = AccountProfit();
      if (Profit <= FloatAm)  
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"Floating loss greater than "+DoubleToString(FloatAm,2)+" automated system suspended");
         return(0);
      }else 
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
      }
	}
	return(true);
}

bool TimesStopConfig()
{
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	GlobalVariableSet(NextSW_str,0);
#ifdef GLOBAL_FILE
	if (!GlobalFileRead()) 
	{
		GlobalVars.G_EARunTime = 0;
		GlobalVars.G_MaxEquity = (AccountProfit() / AccountBalance()) * 100;
		GlobalVars.G_Start_P = TimeCurrent();
		GlobalVars.G_Start_Balance = AccountBalance();
		GlobalFileWrite();
		GlobalFileRead();
	}
	Print("EARuntime: " + TimeToString(GlobalVars.G_EARunTime,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("MaxLossEquity: " + DoubleToString(GlobalVars.G_MaxEquity,2));
	Print("Start_P: " + TimeToString(GlobalVars.G_Start_P,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("Start_Balance: " + DoubleToString(GlobalVars.G_Start_Balance,2));
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	
#endif
	return(true);
}

void TimesStop(double &TimesProfit, double &TodayProfit)
{
#ifdef GLOBAL_FILE
   if (OrdersTotal()==0) 
   {
      GlobalVars.G_Start_Balance = AccountBalance();
      GlobalVars.G_Start_P = TimeCurrent();
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Status                                                       |
   //+------------------------------------------------------------------+
   if(EqualZero(iBalance))
   	Start_Balance = GlobalVars.G_Start_Balance;  
   else
      Start_Balance = iBalance;
   Start_P = GlobalVars.G_Start_P;
   EARunTime = GlobalVars.G_EARunTime;
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVars.G_MaxEquity) 
   {
      GlobalVars.G_MaxEquity = (AccountProfit() / Start_Balance) * 100;
   }
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Status                                                      |
   //+------------------------------------------------------------------+
   GlobalVars.G_EARunTime = EARunTime;
   GlobalVars.G_Start_Balance = Start_Balance;
   GlobalVars.G_Start_P = Start_P;
   GlobalFileWrite();
#else
	if (OrdersTotal()==0) 
   {
      GlobalVariableSet(Start_Balance_str,AccountBalance());
      GlobalVariableSet(Start_P_str,TimeCurrent());
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Balance                                                      | 
   //+------------------------------------------------------------------+
   if (GlobalVariableCheck(Start_Balance_str))
   {
   	if(EqualZero(iBalance))
	   	Start_Balance = GlobalVariableGet(Start_Balance_str);  
   	else
      	Start_Balance = iBalance;
	}else 
	{
		Start_Balance = AccountBalance();
	}
   
   if (GlobalVariableCheck(Start_P_str))
   {
   	Start_P = (datetime)GlobalVariableGet(Start_P_str);
	}else
	{
		Start_P = TimeCurrent();
	}
	
	if (GlobalVariableCheck(EARUNTIME_str))
	{
		EARunTime = (datetime)GlobalVariableGet(EARUNTIME_str);
	}
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVariableGet(MaxEquity_str)) 
   {
      GlobalVariableSet(MaxEquity_str,(AccountProfit() / Start_Balance)*100);
   }
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Balnace                                                     |
   //+------------------------------------------------------------------+
   GlobalVariableSet(EARUNTIME_str,EARunTime);
   GlobalVariableSet(Start_P_str,(double)Start_P);
   GlobalVariableSet(Start_Balance_str,Start_Balance);
#endif
}
#endif

void DeleteObjects()
{
	for (int i=5;i>=0;i--)
   {
      if(ObjectFind(Label_arr[i]) >= 0) ObjectDelete(0,Label_arr[i]);
      if(ObjectFind(Label_arr1[i]) >= 0) ObjectDelete(0,Label_arr1[i]);
      if (i < 2) 
      {
      	if (ObjectFind(NewsInfo[i]) >= 0) ObjectDelete(0,NewsInfo[i]);
      	if (ObjectFind(Light_str[i]) >= 0) ObjectDelete(0,Light_str[i]);
      }
   }
   if(ObjectFind(Run) >= 0) ObjectDelete(0,Run);
   if(ObjectFind(FloatLoss) >= 0) ObjectDelete(FloatLoss);
   if(ObjectFind(Margin) >= 0) ObjectDelete(Margin);
   if(ObjectFind(Light) >= 0) ObjectDelete(Light);
   //if (FileIsExist(EventFile)) FileDelete(EventFile);
}

void UpdateFiles(const int Mode)
{
	if (Mode == MODE_INIT)
	{
		if (!GlobalVariableCheck("DNSW")) GlobalVariableSet("DNSW",0);
	   if (GlobalVariableSetOnCondition("DNSW",1,0))
   	{
#ifdef MODE_AREA51
      	RebuildNewsArray();	
#endif
      	if (UninitializeReason() != 3)
      	{
#ifdef MODE_AREA51      	
         	if (ArraySize(AvoidTime) <= 1) NewGetSW = true;
         	else
         	{
         		if (TimeLocal() >= AvoidTime[ArraySize(AvoidTime)-1] + MinAfter)
					{
						NewGetSW = true;
					}
				}
#endif
				
         	Sleep(1000);
      	}
   	}
	}
	if (Mode == MODE_TICK)
	{
		if (
			(TimeHour(TimeLocal()) == DownloadHour && TimeMinute(TimeLocal()) == DownloadMin && H1BarTime != iTime(Symbol(),PERIOD_H1,0)) ||
			NewGetSW
			) 
		{
			if (!GlobalVariableCheck("DNSW0")) GlobalVariableSet("DNSW0",0); 
			if (GlobalVariableSetOnCondition("DNSW0",1,0))
			{
				if (!NewGetSW) 
				{
					
        			Sleep(1000);
        		}
        		
        		Sleep(1000);
#ifdef MODE_AREA51
        		RebuildNewsArray();
#endif
        		GlobalVariableSet("DNSW0",0); 
        		NewGetSW = false;
        	}
        	H1BarTime = iTime(Symbol(),PERIOD_H1,0);
		}
	}
}



void AutoRepairSLTP(const bool flag,const int Type,const int Mode)
{
	double TP = 0.0;
   double SL = 0.0;
   double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (!flag) return;
	
	int Cnt = MyOrderTotal(Type);
	GetLastTciketINFO(Type,MaxPrice,MinPrice);
   if (Mode == MODE_FIRSTTRADE)
   {
      TP = TakeProfit;
      SL = StopLoss;
      if (MartinSW)
      	SL = 0.0;
      Set_SL_TP(MODE_SLTP_BYPOINT,Type,SL,TP);
   }
   
   if (Mode == MODE_MARTIN)
   {
   	switch (Type)
      {
         case OP_BUY:
            TP = Cal_TP(OP_BUY,MinPrice,TakeProfit);
            SL = 0;
            break;
         case OP_SELL:
            TP = Cal_TP(OP_SELL,MaxPrice,TakeProfit);
            SL = 0;
            break;
      }
      if (Cnt > 1)
      {
#ifdef MODE_AREA51
      	if (SingleOut)
      		Set_SL_TP(MODE_SLTP_BYPOINT,Type,0,TakeProfit);
      	else
      		Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#else
			Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#endif
      }
   }
}

string FileCharArrayToString(const string str_temp)
{
	uchar End_arr[];
	int j = 0;
	for(int i=0;i<StringLen(str_temp);i+=2)
	{
		ArrayResize(End_arr,j+1);
		End_arr[j] = (char)StringToInteger(StringSubstr(str_temp,i,2));
		j++;
	}
	return(CharArrayToString(End_arr,0,WHOLE_ARRAY,CP_ACP));
}

void CheckOSVersion()
{
	ulong dwVersion = GetVersion();
   uint dwMajorVersion = (uchar)(((ushort)(dwVersion & 0xffff)) & 0xff);
   printf("Major Version Of OS: %d",dwMajorVersion);
   if (dwMajorVersion < 6) 
   {
#ifdef CHT
      Alert("請注意！使用Windows XP(Server 2003)之系統將無法保證交易能正常執行！");
#endif
#ifdef ENG
		Alert("Attention!  Not guarantee to run well in Windows XP(Server 2003)");
#endif
   }
}

void SetKbar(double& Kbar[])
{
   Kbar[0] = (double)iTime(Symbol(),1,0);
   Kbar[1] = iOpen(Symbol(),1,0);
   Kbar[2] = iHigh(Symbol(),1,0);
   Kbar[3] = iLow(Symbol(),1,0);
   Kbar[4] = iClose(Symbol(),1,0);
   Kbar[5] = (double)iVolume(Symbol(),1,0);
}
#ifdef MODE_AREA51
void BrakeSystemFun()
{
   int Light_Arrow[2] = {108,161};
	if (BrakeSystem)
   {
      int Pos = 50;
      double Position=20;
#ifdef CHT
      string Active = "煞車系統啟動中";
      string Deactive = "煞車系統待命中";
#endif
#ifdef ENG
		string Active = "Braking System Initiating";
      string Deactive = "Braking System Stand By";
#endif
      double Position_L = Bid + Position * point;
      for (int i=0;i<ArraySize(Light_str);i++)
      {
      	if (ObjectFind(Light_str[i]) < 0)
         	ObjectCreate(0,Light_str[i],OBJ_ARROW,0,0,0);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_ARROWCODE,Light_Arrow[i]);
      	if (i == 0) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLime);
      	if (i == 1) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLawnGreen);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_WIDTH,5);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_TIME1,TimeCurrent()+300);
      	ObjectSetDouble(0,Light_str[i],OBJPROP_PRICE1,Position_L);
      }
      
      int EnergyBall=Ball(Status,SleepStop,Last_Time,Last_Price,SleepTime,(int)TimeCurrent(),point,Energy,Close[0]);
      if (EnergyBall<0)
      {
         Alert("Energy Brake Error");
         TradeSW = false;
         return;
      }

      if (TimeCurrent()<=SleepStop[0])
      {
         TradeSW = false;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrRed);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrCrimson);
#ifdef CHT
         ObjectSetString(0,Light,OBJPROP_TEXT,Active+", "+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" 分鐘後啟動");
#endif
#ifdef ENG
			ObjectSetString(0,Light,OBJPROP_TEXT,Active+", initiate after"+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" minutes");
#endif
      }
      else
      {
         TradeSW = true;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrLime);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrLawnGreen);
         ObjectSetString(0,Light,OBJPROP_TEXT,Deactive);
      }
   }
   else
   {
      TradeSW = true;
      ObjectDelete(Light_str[0]);
      ObjectDelete(Light_str[1]);
   }
}
#endif

bool Lots_Valid(const double iLot)
{
	double ValuePerLot = SymbolInfoDouble(NULL,SYMBOL_TRADE_CONTRACT_SIZE) / AccountInfoInteger(ACCOUNT_LEVERAGE);
	if ((iLot * ValuePerLot) > AccountInfoDouble(ACCOUNT_FREEMARGIN)) return(false);
	return(true);
}

int GetTicket(int &Ticket_arr[])
{
	int Cnt = 0;
	for (int i=0;i<ArraySize(Ticket_arr);i++)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (Ticket_arr[i] == OrderTicket())
			{
				Cnt++;
				break;
			}
		}
	}
	return(Cnt);
}

int MyOrderTotal_Enders(const string symbol,const int Type,const int ID)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL && OrderSymbol() == symbol && OrderMagicNumber() == ID)
		{
		   x++;
		   continue;
		}
		if ((Type == OP_BUY && ((OrderType() & 1) == 1 ? false : true)) || (Type == OP_SELL && ((OrderType() & 1) == 1 ? true : false)))
	   {  
	   	if (OrderSymbol() == symbol && OrderMagicNumber() == ID)
			{
				x++;
			}
		}
	}
	return(x);
}

bool EAControl_Enders()
{
	bool Out = true;
	string str ="";
		
	if (!EGFlag) 
	{
		str = "Ender";
		Out = false;
	}
	Comment(str);
	return(Out);
}
int EndersGamgeCnt = 0;
void EndersGameModule(const string symbol, const int Type, int id, bool &flag)
{
	if (MyOrderTotal_Enders(symbol,Type,id) == 0)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (OrderCloseTime() > EGStartTime)
			{
				EndersGamgeCnt++;
				Alert(Symbol() + " 戰場已完成第" + IntegerToString(EndersGamgeCnt) + " 次戰役");
				EGStartTime = TimeCurrent();
				break;
			}
		}
	}
	if (EndersGamgeCnt >= OutCnt)
	{
		Alert("已達成設定局數，即將離開 " + Symbol() + " 戰場");
		flag = false;
		ExpertRemove();
	}
}

X Bomb(SELL_Dhamar Module).mq4

//+------------------------------------------------------------------+
//|                                                  AllNewXBOMB.mq4 |
//|                                                APP Wargame-Hydra |
//|                     http://www.facebook.com/groups/moneywargame/ |
//+------------------------------------------------------------------+


#property strict

#include <WarGameDLL.mqh>
#include <WinUser32.mqh>
#import "User32.dll"
int GetDC(int);
int ReleaseDC(int,int);
#import "Gdi32.dll"
int GetDeviceCaps(int,int);
#import "stdlib.ex4"
string ErrorDescription(int error_code);
#import "kernel32.dll"
ulong GetVersion(void);
#import

#define CHT	1
//#define ENG	1

#define ZERO 0.000001
//#define MODE_BUY 1
#define MODE_SELL 1
#define MODE_AREA51 1

#define MODE_AGET 0
#define MODE_FGET 1
#define MODE_CHECKTIMEIN 0
#define MODE_TIMESTP 1
#define MODE_TIMESSL 2
#define MODE_DAILYTP 3
#define MODE_INIT 3
#define MODE_TICK 4
#define MODE_FIRSTTRADE  	 99
#define MODE_MARTIN  		100
#define OP_ALL       101
#define MODE_SLTP_BYPOINT 102
#define MODE_SLTP_BYPRICE 103
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+


int id_1 = 3333333;

int ErrorCode = 0;
int DownloadHour = 6;
int DownloadMin = 0;
int BarTime = 0;

double NextTime=0.5;
double point = 0.0;
double iLots = 0.0;
double Start_Balance = 0;
double iPending;

datetime H1BarTime = 0;
datetime FirstTradeBar = 0;
datetime Start_P = 0;
datetime EARunTime = 0;
datetime AvoidTime[1] = {0};
datetime EGStartTime = TimeCurrent();
bool EGFlag = true;

bool NewGetSW = false;
bool AuthorGetSW = false;
bool TradeSW = true;

int Last_Time[1]={0};
int Status[1]={0};
double Last_Price[1]={-1.0};
double MinPriceShot = 0.0;

string AvoidSymbol[1] = {""};
string LogText[4] = {"小虧為贏" , "次止盈" , "次止損" , "日止盈"};
string Label_arr[6] = 
{
   "TimesProfitPer",
   "Start_Balance",
   "TimePast",
   "Orders",
   "TodayProfitPer",
   "MaxLoss"
};
   
string Label_arr1[6] = 
{
   "TimesProfitPer0",
   "Start_Balance0",
   "TimePast0",
   "Orders0",
   "TodayProfitPer0",
   "MaxLoss0"
};

string Start_P_str = "Start_P";
string Start_Balance_str = "Start_Balance";
string MaxEquity_str = "MaxEquity";
string NextSW_str = "NextSW";
string EARUNTIME_str = "EARUNTIME";

string Light = "LightStatus";
string Run = "RunStatus";
string Margin = "Margin";
string FloatLoss = "Float";
string NewsInfo[2] = {"NewsInfo0", "NewsInfo1"};
string Light_str[2] = {"Light","Light2"};
#ifdef CHT
string NewsEngage = "狂派情資已接收完全.....全面開戰！";
#endif
#ifdef ENG
string NewsEngage = "News retrieval completed .....automated system initiated";
#endif
//+------------------------------------------------------------------+
//|Ender's Game Par                                                  |
//+------------------------------------------------------------------+
datetime ticket_time = 0;
int OutCntTemp = 0;
#ifdef CHT
input bool AutoRepairSW = false; //自動回復停損停利
#ifdef MODE_AREA51
input bool BrakeSystem=true; //ESP戰艦穩定煞車系統
int pSeconds=14;
input double Energy=4; //能量偵測靈敏度
input int SleepTime=15; //能量引擎啟動時間(分鐘)
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //預警雷達控制模組
input int MinBefore = 30; //前幾分鐘閃避
input int MinAfter = 30; //後幾分鐘閃避
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //保證金比例控制模組
input double MarginLimit = 2000; //保證金低於％數暫停
input bool FloatEq = false; //浮虧控制模組
input double FloatAm = -4000; //虧損(-金額)暫停
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //開始時間，格式為HH
input int DayStopHour = 00; //結束時間，格式為HH
input string WeekDay="12345"; //週一執行，鍵入1;週一週二鍵入12
input bool WeekStartOverSW = true; //一個禮拜頭尾不間斷
input int WeekStartHour = 8; //第一天幾點開始
input int WeekStopHour = 17; //最後一天幾點結束
input string a5 = "-------------------"; //
input double iBalance = 0; //止盈計算本金基準
input bool TakeProfitPercentSW = true; //次止盈開關
input double TakeProfitPercent = 1; //次止盈,每次最多獲利％,立即平倉歸零重啟新局
input bool TakeProfitPercentDaySW = true; //日止盈開關
input double TakeProfitPercentDay = 1000; //日止盈,每日最多獲利％,立即停止交易,隔日重新啟動
input bool StopLossPercentSW = true; //浮虧止損開關
input double StopLossPercent = 1000; //現時帳戶浮虧止損,止損基準值:帳戶餘額
input bool SleepLoss = true; //止損後當日不再出兵
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //小虧為贏開關
input int MaxTime = 150; //每局最長時間(分鐘)
input int MaxIn = 10; //每局最多兵力
input double MaxP = 0.5; //達成以上條件小虧為贏
input string c = "-------------------"; //　
input double Pending = 0.0;  //掛單價格 
input bool SingleOut = false; //單進單出
#endif
input bool MartinSW = true; //馬丁開關
#ifdef MODE_AREA51
input int MartinMStart = 2; //第幾張馬丁開始加倍
#endif
input double LotMultiplikator = 1.382; //馬丁倍率
input double Step = 30; //馬丁間距
input int MaxTrades = 5; //最多單數
input double MM = 0.0; //資金管理％數
input double Lots = 0.01; //手數
input double TakeProfit = 10.0; //獲利點數
input double StopLoss = 10.0; //停損點數
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
#ifdef ENG
input bool AutoRepairSW = false; //Auto Repair SL&TP
#ifdef MODE_AREA51
input bool BrakeSystem=true; //BrakeSystem
int pSeconds=14;
input double Energy=4; //Braking System Sensitivity Control
input int SleepTime=15; //Braking System Sleeping Time
int SleepStop[1]={0};
input string a2 = "-------------------"; //　
input bool NewsSW = true; //Braking System Sleeping Time
input int MinBefore = 30; //Stop trading few minutes before news alert
input int MinAfter = 30; //Stop trading few minutes after news alert
input string a3 = "-------------------"; //　
input bool MarginSleep=false; //Margin Level Control Module
input double MarginLimit = 2000; //Margin level % limit to stop trading
input bool FloatEq = false; //Floating Loss Control Module
input double FloatAm = -4000; //Floating loss (-$amount) limit to stop trading
input string a4 = "-------------------"; //　
input int DayStartHour = 00; //Starting Time, in HH format
input int DayStopHour = 00; //Ending Time, in HH format
input string WeekDay="12345"; //Star on Monday=1, Monday and Tuesday=12
input bool WeekStartOverSW = true; //Trade everyday without stop
input int WeekStartHour = 8; //First Day Staring Time
input int WeekStopHour = 17; //Last Day Ending Time
input string a5 = "-------------------"; //
input double iBalance = 0; //Capital setting for Profit/Loss termination
input bool TakeProfitPercentSW = true; //Switch of Secondary Take Profit
input double TakeProfitPercent = 1; //Secondary Take Profit, max. % of profit to close trade, and reset
input bool TakeProfitPercentDaySW = true; //Switch of Daily Take Profit 
input double TakeProfitPercentDay = 1000; //Daily Take Profit, max. % of profit to close trade, reset on the next day
input bool StopLossPercentSW = true; //Switch of stopping Floating Loss
input double StopLossPercent = 1000; //Stop Loss of Current Account Max. Floating Loss (Based on Balance)
input bool SleepLoss = true; //Stop trading when reaching stop loss the same day
input string b = "-------------------"; //　
input bool SmallLossWinSW = true; //Switch of Small Loss To Win
input int MaxTime = 150; //Max. Time Per Set (Minutes)
input int MaxIn = 10; //Max. Trades Per Set
input double MaxP = 0.5; //Criteria of Small Loss for Win
input string c = "-------------------"; //　
input double Pending = 0.0;  //Pending Order at Price 
input bool SingleOut = false; //Take Profit Single Out
#endif
input bool MartinSW = true; //Start Martingale
#ifdef MODE_AREA51
input int MartinMStart = 2; //Number to start martingale multiplication 
#endif
input double LotMultiplikator = 1.382; //Martingale Multiplier
input double Step = 30; //Martingale Distance
input int MaxTrades = 5; //Max. Number of Orders
input double MM = 0.0; //Fund Management %
input double Lots = 0.01; //Order Size_lot
input double TakeProfit = 10.0; //Take Profit 
input double StopLoss = 10.0; //Stop Loss
input bool NonStop = false; //Ender's Game
input int OutCnt=1;
#endif
string Newsfile = "ffcal_week_this.xml";
string EventFile = "NewsEvent.csv";

int OnInit()
{
//---
	CheckOSVersion();
	//+------------------------------------------------------------------+
	//|Get Point By Symbol                                               |
	//+------------------------------------------------------------------+
   if (Digits==5 || Digits==3)
   {
      point=Point*10;
   }
   else
   {
      point=Point;
   }
   //+------------------------------------------------------------------+
   //|                                                                  |
   //+------------------------------------------------------------------+
   iLots = OpLots();
   ticket_time = TimeCurrent();
   
   //+------------------------------------------------------------------+
   //|Random Minute                                                     |
   //+------------------------------------------------------------------+
   MathSrand(GetTickCount());
   DownloadMin = 1 + ((59 * MathRand()) / 32768);
#ifdef MODE_AREA51
   TimesStopConfig();
   //+------------------------------------------------------------------+
   //|Update Files                                                      |
   //+------------------------------------------------------------------+
   iPending = Pending;
#endif
   UpdateFiles(MODE_INIT);
//---
   return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
	GlobalVariableSet("DNSW",0);
   DeleteObjects();
}
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{
//---


   UpdateFiles(MODE_TICK);
	 
#ifdef MODE_AREA51   
   double TimesProfit = 0.0;
   double TodayProfit = 0.0;
   if (!CloseAllTrades()) return;
   if (!TimesStop(TimesProfit,TodayProfit)) return;
   Displayprofit(TimesProfit,TodayProfit);
	CheckTimeIn(TimesProfit);
#endif

	#ifdef MODE_BUY
if (NonStop==false) EndersGameModule(Symbol(),OP_BUY,id_1,EGFlag);
#endif

#ifdef MODE_SELL
if (NonStop==false) EndersGameModule(Symbol(),OP_SELL,id_1,EGFlag);
#endif
	
#ifdef MODE_AREA51  
   //+------------------------------------------------------------------+
   //|Shutdown EA                                                       |
   //+------------------------------------------------------------------+
   if (!EAControl()) return;
   BrakeSystemFun();
#endif
   
#ifdef MODE_BUY
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_BUY,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{
		FirstTrade(OP_BUY);
		Martin(OP_BUY);
	}
#endif
#ifdef MODE_SELL
#ifdef MODE_AREA51
	int PendingTicket = 0;
	if (!EqualZero(iPending))
	{
		PendingTrade(OP_SELL,Symbol() + "Pending");
		//do pend once
		iPending = 0;
	}
#endif
	if (TradeSW)
	{	
		FirstTrade(OP_SELL);
   	Martin(OP_SELL);
   }
#endif
	
}
//+------------------------------------------------------------------+
//|Determine Martingale TakeProfi                                    |
//+------------------------------------------------------------------+
double Cal_TP(int Type,double iPrice,double TPPoint)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double AllOrderLots = 0.0;
   double TP_Goal;
   double FirstOrderLots = 0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderType() == Type && OrderMagicNumber() == id_1 && OrderSymbol() == Symbol())
      {
         FirstOrderLots = OrderLots();
         TotalLots += OrderLots();
         if (Type == OP_SELL)
         	TotalDisProduct += (iPrice - OrderOpenPrice()) / point * OrderLots();
        	if (Type == OP_BUY)
        		TotalDisProduct += (OrderOpenPrice() - iPrice) / point * OrderLots();
      }
   }
   if (EqualZero(TotalLots)) return(0.0);
   TP_Goal = ((TPPoint * FirstOrderLots) + TotalDisProduct) / TotalLots;
   if (Type == OP_SELL)
   	return(iPrice - (TP_Goal * point));
  	if (Type == OP_BUY)
   	return(iPrice + (TP_Goal * point));
   return(0.0);
}
//+------------------------------------------------------------------+
//|OrderSend Function                                                |
//+------------------------------------------------------------------+
int SendOrders(const int Type ,const string iComment)
{
   double TP = 0.0;
   double SL = 0.0;
   double InPrice = 0.0;
   switch (Type)
   {
      case OP_BUY:
      InPrice = Ask;
      break;
      
      case OP_SELL:
      InPrice = Bid;
      break;
   }
   double SendOrders_Lots = MartinLots(Type);
   if (!Lots_Valid(SendOrders_Lots)) 
   {
   	Alert("No Money");
   	return(-1);
   }
   int Ticket = OrderSend(Symbol(),Type,SendOrders_Lots,InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,Type == OP_BUY ? clrLime : clrRed);
   if (Ticket < 0)
   {   
      ErrorCode = GetLastError();
      if (ErrorCode != 4109)
         Alert("Send " + iComment + " Order Error: " + ErrorDescription(ErrorCode));
   }
   return(Ticket);
}

void Set_SL_TP(const int Mode,const int Type,double iSL,double iTP)
{
   double SL = 0.0;
   double TP = 0.0;
   for (int z=0;z<OrdersTotal();z++)//執行N次篩選(N=訂單總數)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)//挑選出同貨幣對 && BUY單 && MagicNumber=本程式 的訂單
      {
         if (Mode == MODE_SLTP_BYPOINT)
         {
           	if (Type == OP_BUY || Type == OP_BUYSTOP || Type == OP_BUYLIMIT)
           	{
           		TP = OrderOpenPrice() + iTP * point;
           		SL = OrderOpenPrice() - iSL * point;
           	}
           	if (Type == OP_SELL || Type == OP_SELLSTOP || Type == OP_SELLLIMIT)
           	{
           		TP = OrderOpenPrice() - iTP * point;
           		SL = OrderOpenPrice() + iSL * point;
           	}
           	if (EqualZero(iTP)) TP = 0;
           	if (EqualZero(iSL)) SL = 0;
         }else
         {
           	SL = iSL;
         	TP = iTP;
         }
         if (iTP < 0)
         {
            TP = OrderTakeProfit();
         }
         if (iSL < 0)
         {
            SL = OrderStopLoss();
         }
         if ((CompareDouble(OrderStopLoss(),NormalizeDouble(SL,Digits))) && (CompareDouble(OrderTakeProfit(),NormalizeDouble(TP,Digits))))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,White))
            {
               Alert("Set_SL_TP " + IntegerToString(OrderTicket()) + "  Error: " + ErrorDescription(GetLastError()));
            }
         }
      }
   }
}

bool CompareDouble(const double A,const double B)
{
   if (MathAbs(A - B) <= ZERO) return(true);
   return(false);
}

bool EqualZero(const double A)
{
   if (A <= ZERO && A >= -ZERO) return(true);
   return(false);
}

void Martin(const int Type)
{
	double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (MartinSW)
	{
		GetLastTciketINFO(Type,MaxPrice,MinPrice);
		if (BarTime == Bars && MyOrderTotal(Type) < MaxTrades)
		{
			if (SendOrders(Type,"XBOMB" + IntegerToString(MyOrderTotal(Type) + 1)))
			{
				AutoRepairSLTP(true,Type,MODE_MARTIN);
				BarTime = 0;
			}
		}
		if (Type == OP_BUY && MyOrderTotal(OP_BUY) > 0)
		{
			if (Ask <= MinPrice - Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (Type == OP_SELL && MyOrderTotal(OP_SELL) > 0)
		{
			if (Bid >= MaxPrice + Step * point)
			{
				BarTime = Bars + 1;
			}else
			{
				BarTime = 0;
			}
		}
		if (MyOrderTotal(Type) > 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_MARTIN);
	}
}

void FirstTrade(const int Type)
{
	int Cnt = MyOrderTotal(Type);
	if (Type == OP_BUY && (MyOrderTotal(OP_BUYSTOP) > 0 || MyOrderTotal(OP_BUYLIMIT) > 0)) return;
	if (Type == OP_SELL && (MyOrderTotal(OP_SELLSTOP) > 0 || MyOrderTotal(OP_SELLLIMIT) > 0)) return;
	if (Cnt == 0 && FirstTradeBar != Time[0])
	{
		if (SendOrders(Type,"XBOMB(" + IntegerToString(Type) + ")." + IntegerToString(Cnt + 1)) > 0)
		{
			AutoRepairSLTP(true,Type,MODE_FIRSTTRADE);
			FirstTradeBar = Time[0];
		}
	}
	if (Cnt == 1) AutoRepairSLTP(AutoRepairSW,Type,MODE_FIRSTTRADE);
}

double GetLastTciketINFO(const int Type,double &MaxPrice,double &MinPrice)
{
	double iMaxPrice = 0.0;
	double iMinPrice = 5000.0;
	for (int i=0;i<OrdersTotal();i++)
	{
		if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
		if (OrderMagicNumber() == id_1 && OrderSymbol() == Symbol() && OrderType() == Type)
		{
			if (OrderOpenPrice() >= iMaxPrice)
				iMaxPrice = OrderOpenPrice();
			if (OrderOpenPrice() <= iMinPrice && !EqualZero(iMinPrice))
				iMinPrice = OrderOpenPrice();
		}
	}
	MaxPrice = iMaxPrice;
	MinPrice = iMinPrice;
	return(0.0);
}

int MyOrderTotal(int Type)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL)
		{
		   x++;
		   continue;
		}
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)
		{
			x++;
		}
	}
	return(x);
}

void iCloseOrders(int type)
{
	int C0_cnt;
	if (type == OP_BUYSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) 
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUYSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}

	if (type == OP_SELLSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELLSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_BUY) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUY && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrLime))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_SELL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELL && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_ALL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--)
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
   		if (OrderType() == OP_BUYSTOP || OrderType() == OP_SELLSTOP || OrderType() == OP_BUYLIMIT || OrderType() == OP_SELLLIMIT)
   		{
   		   if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
   		}else {
   		   if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
			   {
   			   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
   			}
         }
		}
	}
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selecttickets()
{
   int cnt_tickets = 0;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT))
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT))
#endif
         {
            ticket_time=OrderOpenTime();
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selectticketsfrhistory()
{
   int cnt_tickets = 0;
   for (int i=0;i<OrdersHistoryTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT) && ticket_time<=OrderOpenTime())
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT) && ticket_time<=OrderOpenTime())
#endif
         {
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double MartinLots(const int Type)
{
	int Cnt = MyOrderTotal(Type);
#ifdef MODE_AREA51
	int StartM = MartinMStart;
	if (StartM <= 0) StartM = 2;
#else
	int StartM = 2;
#endif
	if (Cnt <= 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,0),2));
	if (Cnt > 0)
		return(NormalizeDouble(iLots * MathPow(LotMultiplikator,(double)(Cnt - 1) - (StartM - 2)),2));
	return(0.0);
}
//+------------------------------------------------------------------+
//|Optimize Lots                                                     |
//+------------------------------------------------------------------+
double OpLots()
{
	double Out = Lots;
	if (!EqualZero(MM) && MM > 0)
	{
		Out = (AccountBalance() * MM ) / (1000 * TakeProfit);
	}
	return(Out);
}
#ifdef MODE_AREA51
void PendingTrade(const int Type,const string iComment)
{
	double InPrice = Pending;
	int Ticket = 0;
	int iType = -1;
	if (Type == OP_BUY)
	{
		if (InPrice > Ask)
			iType = OP_BUYSTOP;
   	if (InPrice < Ask)
			iType = OP_BUYLIMIT;
		if (MyOrderTotal(OP_BUYSTOP) >= 1 || MyOrderTotal(OP_BUYLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
		   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrLime);
		if (Ticket < 0)
		{
 	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
     	}
     	else
     	{	
     		if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
     	}
  	}
  	
  	if (Type == OP_SELL)
	{
		if (InPrice < Bid)
			iType = OP_SELLSTOP;
   	if (InPrice > Bid)
			iType = OP_SELLLIMIT;
   	if (MyOrderTotal(OP_SELLSTOP) >= 1 || MyOrderTotal(OP_SELLLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
   	
   	Ticket = OrderSend(Symbol(),iType,MartinLots(Type),InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrRed);
		if (Ticket < 0)
		{
  	   	Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}
     	if (MartinSW)
	   {
	     	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,0,TakeProfit);
	   }
	   else
	   {
	   	if (MyOrderTotal(iType) > 0) Set_SL_TP(MODE_SLTP_BYPOINT,iType,StopLoss,TakeProfit);
	   }
  	}
  	return;
}

bool CloseAllTrades()
{
   if (GlobalVariableGet(NextSW_str) == 1) 
   {
#ifdef MODE_BUY
      iCloseOrders(OP_BUY);
#endif
#ifdef MODE_SELL
		iCloseOrders(OP_SELL);
#endif
		Sleep(10000);
      if (MyOrderTotal(OP_ALL) > 0)
      {
#ifdef CHT
         Alert("水雷未掃除成功");
#endif
#ifdef ENG
			Alert("Submarine mine sweeper not completed");
#endif
         return(false);
      }else 
      {
      	Sleep((int)(NextTime * 1000 * 60));
      }
   }
   return(true);
}

void CheckTimeIn(const double TimesProfit)
{
	datetime RunTime = (TimeCurrent() - Start_P) / 60;
	if (SmallLossWinSW && RunTime >= MaxTime && OrdersTotal() >= MaxIn && TimesProfit >= MaxP)
	{
		//Close all Trades
		GlobalVariableSet(NextSW_str,1);
		WriteLog(MODE_CHECKTIMEIN,"");
	}
}

void WriteLog(const int Mode,const string in)
{
	double TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
	string str = WindowExpertName() + "," + Symbol() + "," + TimeToString(TimeCurrent(),TIME_DATE|TIME_DATE|TIME_SECONDS) +
					 ": " + LogText[Mode] + " , " + in + 
					 "," + Start_Balance_str + ": " + DoubleToString(Start_Balance,2) +
					 "," + Start_P_str + ": " + IntegerToString(Start_P) +
					 ",TimeProfit: " + DoubleToString(TimesProfit,2) +
					 "| Set: 餘:" + DoubleToString(iBalance,2) +
					 ",次:" + DoubleToString(TakeProfitPercent,2) + 
					 ",日:" + DoubleToString(TakeProfitPercentDay,2) +
					 ",損:" + DoubleToStr(StopLossPercent ,2) +
					 ",時:" + DoubleToString(MaxTime,2) +
					 ",單:" + DoubleToString(MaxIn,2) +
					 ",虧:" + DoubleToString(MaxP,2) +
					 "\n" 
					 ;
	int h1 = FileOpen("Logs.txt",FILE_READ|FILE_WRITE|FILE_TXT);
	if (h1 < 0) Print("Open Log Failed");
	FileSeek(h1,0,SEEK_END);
	int byte = FileWriteString(h1,str,StringLen(str));
	if (byte <= 0) Print("Write Log Failed");
	FileClose(h1);
}

double GetProfitPeriod(datetime today)
{
   double profit=0;
   int total =OrdersHistoryTotal();
   for (int i=0; i<total; i++)
   {
      if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
      {
         if (OrderType() == OP_BUY || OrderType() == OP_SELL)
         {
            if (today < OrderCloseTime())
               profit += OrderProfit() + OrderCommission() + OrderSwap();
         }
      }
   }
   return (profit);
}

void Displayprofit(const double TimesProfit, const double TodayProfit)
{
   int Pos = 50;
   string Label_Text = ""; 
   string Label_Text1 = ""; 
   
   if (ObjectFind(Run) < 0) ObjectCreate(0,Run,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Run, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Run, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Run, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Run, OBJPROP_YDISTANCE, Pos);
   ObjectSetInteger(0,Run, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Run, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetString(0,Run, OBJPROP_FONT, "微軟正黑體");
   
   for (int i=0;i<6;i++)
   {
      if(ObjectFind(Label_arr[i]) < 0) ObjectCreate(0,Label_arr[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_XDISTANCE,120);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr[i],OBJPROP_FONT,"微軟正黑體");
      
      if(ObjectFind(Label_arr1[i]) < 0) ObjectCreate(0,Label_arr1[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_XDISTANCE,20);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr1[i],OBJPROP_FONT,"微軟正黑體");
      
      switch(i)
      {
#ifdef CHT
         case 0:
         Label_Text = "單次擄獲狂派戰俘: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "進場起始兵力: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "進場經過時間: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " 分鐘";
         break;
         
         case 3:
         Label_Text = "戰場兵力: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "今日擄獲狂派戰俘累積至: " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "最大暫時被擄穫兵力: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
#ifdef ENG
			case 0:
         Label_Text = "Profit/Loss: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "Start Balance: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "Time Elapsed: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " Minutes";
         break;
         
         case 3:
         Label_Text = "Orders: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "Profit/Loss (Today): " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "Maximum Floating Loss: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
      }
      ObjectSetString(0,Label_arr[i],OBJPROP_TEXT,Label_Text);
      ObjectSetString(0,Label_arr1[i],OBJPROP_TEXT,Label_Text1);
   }
   
   for (int i=0;i<ArraySize(NewsInfo);i++)
   {	
   	if (ObjectFind(NewsInfo[i]) < 0) ObjectCreate(0,NewsInfo[i],OBJ_LABEL,0,0,0);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_CORNER, 1);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_COLOR, clrGold);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_XDISTANCE, 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_YDISTANCE, Pos + 150 + i * 20);
   	ObjectSetInteger(0,NewsInfo[i], OBJPROP_FONTSIZE, 10);
	   ObjectSetString(0,NewsInfo[i], OBJPROP_FONT, "微軟正黑體");
   }
   
   ObjectCreate(0,Margin,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Margin, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Margin, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Margin, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Margin, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Margin, OBJPROP_YDISTANCE, Pos+195);
   ObjectSetInteger(0,Margin, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,Margin, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,Margin,OBJPROP_TEXT,"");
	
	ObjectCreate(0,FloatLoss,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,FloatLoss, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,FloatLoss, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,FloatLoss, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,FloatLoss, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,FloatLoss, OBJPROP_YDISTANCE, Pos+215);
   ObjectSetInteger(0,FloatLoss, OBJPROP_FONTSIZE, 10);
	ObjectSetString(0,FloatLoss, OBJPROP_FONT, "微軟正黑體");
	ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
	
	if (ObjectFind(Light) < 0)
     	ObjectCreate(0,Light,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Light,OBJPROP_CORNER,1);
   ObjectSetInteger(0,Light, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetInteger(0,Light,OBJPROP_COLOR,clrGold);
   ObjectSetInteger(0,Light, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Light,OBJPROP_XDISTANCE,20);
   ObjectSetInteger(0,Light,OBJPROP_YDISTANCE,Pos+235);
   ObjectSetString(0,Light, OBJPROP_FONT, "微軟正黑體");
   ObjectSetString(0,Light,OBJPROP_TEXT,"");
}

bool EAControl()
{
	bool Out = true;
	string str ="";
	if (!Margin()) 
	{
		str = "Margin";
		Out = false;
	}
	if (!Float()) 
	{
		str = "Float";
		Out = false;
	}
	if (TimeCurrent() <= EARunTime) 
	{
		str = "SLSLeep";
		Out = false;
	}
	if (!WeekStartOver())
	 {
		str = "Time";
		Out = false;
	}
	if (!AvoidNews()) 
	{
		str = "News";
		Out = false;
	}
	if (!EGFlag) 
	{
		str = "Ender";
		Out = false;
	}
	/*if (!Margin() || !Float() || TimeCurrent() <= EARunTime || !WeekStartOver() || !AvoidNews()) 
	{
		Comment("EAControl 1");
		return(false);
	}*/
	Comment(str);
	return(Out);
}

bool iTimeControl()
{
	bool EA_Valid = false;
   if (DayStopHour == DayStartHour) EA_Valid = true;
   if (DayStopHour < DayStartHour) 
   {
		if (TimeHour(TimeLocal()) >= DayStartHour || TimeHour(TimeLocal()) < DayStopHour) 
			EA_Valid = true;
   }
    
    if (DayStopHour > DayStartHour) 
    {
    	if ((TimeHour(TimeLocal()) >= DayStartHour && TimeHour(TimeLocal()) < DayStopHour)) 
    		EA_Valid = true;
    }
    return(EA_Valid);
}   

bool WeekStartOver()
{
   bool EA_Valid = true;
   int Dayweek = TimeDayOfWeek(TimeLocal());
   
   if (WeekStartOverSW)
   {
   	if (
   		Dayweek < StrToInteger(StringSubstr(WeekDay,0,1)) || 
   		(Dayweek == StrToInteger(StringSubstr(WeekDay,0,1)) && TimeHour(TimeLocal()) < WeekStartHour) || 
     		(Dayweek == StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1)) && TimeHour(TimeLocal()) >= WeekStopHour ) || 
     		Dayweek > StrToInteger(StringSubstr(WeekDay,StringLen(WeekDay)-1,1))
     		)
     	{
     		EA_Valid = false;
     	}
   }else
   {
   	if (iTimeControl()) 
   	{
         if (StringFind(WeekDay,DoubleToStr(Dayweek,0),0) >= 0) 
         {
            EA_Valid = true;
         }else
         {
         	EA_Valid = false;
         }
      }else
      {
      	EA_Valid = false;
      }
   }
   
#ifdef CHT
   if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"未在設定時區內，現有戰役達成後將離開戰場"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"已進入作戰時區內,全面啟動執行..."); 
   	return(true);
   }
#endif 
#ifdef ENG
	if (!EA_Valid && OrdersTotal() == 0) 
   {
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Not in trading time zone, stop trading after current set"); 
   	return(false);
   }
   else 
	{
   	ObjectSetString(0,Run,OBJPROP_TEXT,"Entered trading time zone, automated system initiated"); 
   	return(true);
   }
#endif
}

int NewsConvert()
{ 
   string maindata[][7];
   string sBuffer = "";
   if (!FileIsExist(Newsfile)) 
   {
      return(0);
   }
   int h1=FileOpen(Newsfile,FILE_SHARE_READ|FILE_CSV);
   int i = 0 , j = 0;
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(sBuffer,"<title>") >= 0)
      {
         ArrayResize(maindata,j+1);
         maindata[j][0] = sBuffer;
         for (i=1;i<7;i++)
         {
            maindata[j][i] = FileReadString(h1);
         }
         j++;
      }
   }
   FileClose(h1);
   int count = ArrayRange(maindata,0);
   
   string sTags[7] = { "<title>", "<country>", "<date><![CDATA[", "<time><![CDATA[", "<impact><![CDATA[", "<forecast><![CDATA[", "<previous><![CDATA[" };
   string eTags[7] = { "</title>", "</country>", "]]></date>", "]]></time>", "]]></impact>", "]]></forecast>", "]]></previous>" };
   for (i=0;i<count;i++)
   {
      for (j=0;j<7;j++)
      {
         maindata[i][j]=StringSubstr(maindata[i][j],StringFind(maindata[i][j],sTags[j],0)+StringLen(sTags[j]),StringFind(maindata[i][j],eTags[j],0)-StringFind(maindata[i][j],sTags[j],0)-StringLen(sTags[j]));
      }
   }
   int h2 = FileOpen("NewsEvent.csv",FILE_SHARE_READ|FILE_WRITE|FILE_CSV,';');
   int GMT = 0;
   string time_str = "";
   string prev_time_str = "";
   for (i=0;i<count;i++)
   {
      if (maindata[i][4] == "High")
      {
         GMT = -1 * (TimeGMTOffset()/3600);
         time_str = TimeToString(
                                   StringToTime(MakeDateTime(maindata[i][2],maindata[i][3])) + GMT * 3600,
                                   TIME_DATE|TIME_MINUTES|TIME_SECONDS
                                );
         if (time_str == prev_time_str) continue;
         FileWrite(h2,maindata[i][1],time_str);
         prev_time_str = time_str;
      }
   }
   FileClose(h2);
   return(count);
}

string MakeDateTime(string strDate, string strTime)
{
	// Print("Converting Forex Factory Time into Metatrader time..."); //added by MN
	// Converts forexfactory time & date into yyyy.mm.dd hh:mm
	int n1stDash = StringFind(strDate, "-");
	int n2ndDash = StringFind(strDate, "-", n1stDash+1);

	string strMonth = StringSubstr(strDate, 0, 2);
	string strDay = StringSubstr(strDate, 3, 2);
	string strYear = StringSubstr(strDate, 6, 4); 
//	strYear = "20" + strYear;
	
	int nTimeColonPos = StringFind(strTime, ":");
	string strHour = StringSubstr(strTime, 0, nTimeColonPos);
	string strMinute = StringSubstr(strTime, nTimeColonPos+1, 2);
	string strAM_PM = StringSubstr(strTime, StringLen(strTime)-2);

	int nHour24 = StrToInteger(strHour);
	if ((strAM_PM == "pm" || strAM_PM == "PM") && nHour24 != 12)
	{
		nHour24 += 12;
	}
	if ((strAM_PM == "am" || strAM_PM == "AM") && nHour24 == 12)
	{
		nHour24 = 0;
	}
 	string strHourPad = "";
	if (nHour24 < 10) 
		strHourPad = "0";

	return(StringConcatenate(strYear, ".", strMonth, ".", strDay, " ", strHourPad, nHour24, ":", strMinute));
}

void RebuildNewsArray()
{
   NewsConvert();
   string sBuffer = "";
   
   int i = 0;
   int h1 = FileOpen(EventFile,FILE_SHARE_READ|FILE_CSV);
   if (h1 < 0)
   {
   	ArrayResize(AvoidTime,1);
   	ArrayResize(AvoidSymbol,1);
   	return;
   }
   while(!FileIsEnding(h1))
   {
      sBuffer = FileReadString(h1);
      if (StringFind(Symbol(),sBuffer) >= 0) 
      {
         ArrayResize(AvoidSymbol,i+2);
         AvoidSymbol[i+1] = sBuffer;
         ArrayResize(AvoidTime,i+2);
         sBuffer = FileReadString(h1);
         AvoidTime[i+1] = StrToTime(sBuffer);
         i++;
      }
   }
   FileClose(h1);
}

bool AvoidNews()
{
#ifdef CHT
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{
				str[0] = "預警雷達已偵測到 " + AvoidSymbol[i] + " 戰場於 " + StringSubstr(TimeToStr(AvoidTime[i]),11,5) + " 可能將有大量狂派埋伏";
        		str[1] = "超級達摩戰艦於 " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5) + " 啟動防禦系統進入一級警戒";
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "正在接收狂派情資...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "最後狂派活動時間: " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "已無其他狂派活動或情資已過期,即將休兵......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
#ifdef ENG
	bool Out = true;
	string str[2] = {""};
	int i = 0;
	if (NewsSW)
	{
		for (i=1;i<ArraySize(AvoidTime);i++)
		{
			if (TimeLocal() >= AvoidTime[i] - MinBefore * 60 && TimeLocal() <= AvoidTime[i] + MinAfter * 60)
			{

				str[0] = "News Alert on " + AvoidSymbol[i] + " at time " + StringSubstr(TimeToStr(AvoidTime[i]),11,5);
        		str[1] = "Red alert! Braking System Standing By at  " + StringSubstr(TimeToStr(AvoidTime[i] - MinBefore * 60),11,5);
        		Out = false;
        		break;
			}else
			{	str[0] = NewsEngage;
				str[1] = "";
			}
		}
		if (ArraySize(AvoidTime) == 1)
		{
			str[0] = "News retrieving...";
			str[1] = "";
			Out = false;
		}
		if (i == ArraySize(AvoidTime) - 1)
		{
			if (TimeLocal() >= AvoidTime[i] + MinAfter)
			{
				str[0] = "Latest News at : " + TimeToString(AvoidTime[i],TIME_DATE|TIME_MINUTES);
				str[1] = "No trading info available......";
				Out = false;
			}
		}
		
	}else
	{
		str[0] = "";
		str[1] = "";
	}
	for (i=0;i<ArraySize(str);i++)
	{
		ObjectSetString(0,NewsInfo[i],OBJPROP_TEXT,str[i]);
	}
	return(Out);
#endif
}

bool Margin()
{
	if (MarginSleep)   
	{
		double Margin_R = AccountInfoDouble(ACCOUNT_MARGIN_LEVEL);
		if (EqualZero(Margin_R)) return(true);
  		if (MarginLimit >= Margin_R)  
  		{
         ObjectSetString(0,Margin,OBJPROP_TEXT,"Margin level lower than " + DoubleToString(MarginLimit,2) + "  automated system suspended");
         return(false);
  		}else
  		{
  			ObjectSetString(0,Margin,OBJPROP_TEXT,"");
  		}
  	}
	return(true);
}

bool Float()
{
	if (FloatEq)   
	{
      double Profit = AccountProfit();
      if (Profit <= FloatAm)  
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"Floating loss greater than "+DoubleToString(FloatAm,2)+" automated system suspended");
         return(0);
      }else 
      {
         ObjectSetString(0,FloatLoss,OBJPROP_TEXT,"");
      }
	}
	return(true);
}


bool TimesStopConfig()
{
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	GlobalVariableSet(NextSW_str,0);
#ifdef GLOBAL_FILE
	if (!GlobalFileRead()) 
	{
		GlobalVars.G_EARunTime = 0;
		GlobalVars.G_MaxEquity = (AccountProfit() / AccountBalance()) * 100;
		GlobalVars.G_Start_P = TimeCurrent();
		GlobalVars.G_Start_Balance = AccountBalance();
		GlobalFileWrite();
		GlobalFileRead();
	}
	Print("EARuntime: " + TimeToString(GlobalVars.G_EARunTime,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("MaxLossEquity: " + DoubleToString(GlobalVars.G_MaxEquity,2));
	Print("Start_P: " + TimeToString(GlobalVars.G_Start_P,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("Start_Balance: " + DoubleToString(GlobalVars.G_Start_Balance,2));
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	
#endif
	return(true);
}

bool TimesStop(double &TimesProfit, double &TodayProfit)
{
#ifdef GLOBAL_FILE
   if (OrdersTotal()==0) 
   {
      GlobalVars.G_Start_Balance = AccountBalance();
      GlobalVars.G_Start_P = TimeCurrent();
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Status                                                       |
   //+------------------------------------------------------------------+
   if(EqualZero(iBalance))
   	Start_Balance = GlobalVars.G_Start_Balance;  
   else
      Start_Balance = iBalance;
   Start_P = GlobalVars.G_Start_P;
   EARunTime = GlobalVars.G_EARunTime;
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVars.G_MaxEquity) 
   {
      GlobalVars.G_MaxEquity = (AccountProfit() / Start_Balance) * 100;
   }
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Status                                                      |
   //+------------------------------------------------------------------+
   GlobalVars.G_EARunTime = EARunTime;
   GlobalVars.G_Start_Balance = Start_Balance;
   GlobalVars.G_Start_P = Start_P;
   GlobalFileWrite();
#else
	if (OrdersTotal()==0) 
   {
      GlobalVariableSet(Start_Balance_str,AccountBalance());
      GlobalVariableSet(Start_P_str,TimeCurrent());
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Balance                                                      | 
   //+------------------------------------------------------------------+
   if (GlobalVariableCheck(Start_Balance_str))
   {
   	if(EqualZero(iBalance))
	   	Start_Balance = GlobalVariableGet(Start_Balance_str);  
   	else
      	Start_Balance = iBalance;
	}else 
	{
		Start_Balance = AccountBalance();
	}
   
   if (GlobalVariableCheck(Start_P_str))
   {
   	Start_P = (datetime)GlobalVariableGet(Start_P_str);
	}else
	{
		Start_P = TimeCurrent();
	}
	
	if (GlobalVariableCheck(EARUNTIME_str))
	{
		EARunTime = (datetime)GlobalVariableGet(EARUNTIME_str);
	}
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVariableGet(MaxEquity_str)) 
   {
      GlobalVariableSet(MaxEquity_str,(AccountProfit() / Start_Balance)*100);
   }
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Balnace                                                     |
   //+------------------------------------------------------------------+
   GlobalVariableSet(EARUNTIME_str,EARunTime);
   GlobalVariableSet(Start_P_str,(double)Start_P);
   GlobalVariableSet(Start_Balance_str,Start_Balance);
#endif
	return(true);
}
#endif

void DeleteObjects()
{
	for (int i=5;i>=0;i--)
   {
      if(ObjectFind(Label_arr[i]) >= 0) ObjectDelete(0,Label_arr[i]);
      if(ObjectFind(Label_arr1[i]) >= 0) ObjectDelete(0,Label_arr1[i]);
      if (i < 2) 
      {
      	if (ObjectFind(NewsInfo[i]) >= 0) ObjectDelete(0,NewsInfo[i]);
      	if (ObjectFind(Light_str[i]) >= 0) ObjectDelete(0,Light_str[i]);
      }
   }
   if(ObjectFind(Run) >= 0) ObjectDelete(0,Run);
   if(ObjectFind(FloatLoss) >= 0) ObjectDelete(FloatLoss);
   if(ObjectFind(Margin) >= 0) ObjectDelete(Margin);
   if(ObjectFind(Light) >= 0) ObjectDelete(Light);
   //if (FileIsExist(EventFile)) FileDelete(EventFile);
}

void UpdateFiles(const int Mode)
{
	if (Mode == MODE_INIT)
	{
		if (!GlobalVariableCheck("DNSW")) GlobalVariableSet("DNSW",0);
	   if (GlobalVariableSetOnCondition("DNSW",1,0))
   	{
#ifdef MODE_AREA51
      	RebuildNewsArray();	
#endif
      	if (UninitializeReason() != 3)
      	{
#ifdef MODE_AREA51      	
         	if (ArraySize(AvoidTime) <= 1) NewGetSW = true;
         	else
         	{
         		if (TimeLocal() >= AvoidTime[ArraySize(AvoidTime)-1] + MinAfter)
					{
						NewGetSW = true;
					}
				}
#endif
				
         	Sleep(1000);
      	}
   	}
	}
	if (Mode == MODE_TICK)
	{
		if (
			(TimeHour(TimeLocal()) == DownloadHour && TimeMinute(TimeLocal()) == DownloadMin && H1BarTime != iTime(Symbol(),PERIOD_H1,0)) ||
			NewGetSW
			) 
		{
			if (!GlobalVariableCheck("DNSW0")) GlobalVariableSet("DNSW0",0); 
			if (GlobalVariableSetOnCondition("DNSW0",1,0))
			{
				if (!NewGetSW) 
				{
					
        			Sleep(1000);
        		}
        		
        		Sleep(1000);
#ifdef MODE_AREA51
        		RebuildNewsArray();
#endif
        		GlobalVariableSet("DNSW0",0); 
        		NewGetSW = false;
        	}
        	H1BarTime = iTime(Symbol(),PERIOD_H1,0);
		}
	}
}



void AutoRepairSLTP(const bool flag,const int Type,const int Mode)
{
	double TP = 0.0;
   double SL = 0.0;
   double MaxPrice = 0.0;
	double MinPrice = 0.0;
	if (!flag) return;
	
	int Cnt = MyOrderTotal(Type);
	GetLastTciketINFO(Type,MaxPrice,MinPrice);
   if (Mode == MODE_FIRSTTRADE)
   {
      TP = TakeProfit;
      SL = StopLoss;
      if (MartinSW)
      	SL = 0.0;
      Set_SL_TP(MODE_SLTP_BYPOINT,Type,SL,TP);
   }
   
   if (Mode == MODE_MARTIN)
   {
   	switch (Type)
      {
         case OP_BUY:
            TP = Cal_TP(OP_BUY,MinPrice,TakeProfit);
            SL = 0;
            break;
         case OP_SELL:
            TP = Cal_TP(OP_SELL,MaxPrice,TakeProfit);
            SL = 0;
            break;
      }
      if (Cnt > 1)
      {
#ifdef MODE_AREA51
      	if (SingleOut)
      		Set_SL_TP(MODE_SLTP_BYPOINT,Type,0,TakeProfit);
      	else
      		Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#else
			Set_SL_TP(MODE_SLTP_BYPRICE,Type,SL,TP);
#endif
      }
   }
}

string FileCharArrayToString(const string str_temp)
{
	uchar End_arr[];
	int j = 0;
	for(int i=0;i<StringLen(str_temp);i+=2)
	{
		ArrayResize(End_arr,j+1);
		End_arr[j] = (char)StringToInteger(StringSubstr(str_temp,i,2));
		j++;
	}
	return(CharArrayToString(End_arr,0,WHOLE_ARRAY,CP_ACP));
}

void CheckOSVersion()
{
	ulong dwVersion = GetVersion();
   uint dwMajorVersion = (uchar)(((ushort)(dwVersion & 0xffff)) & 0xff);
   printf("Major Version Of OS: %d",dwMajorVersion);
   if (dwMajorVersion < 6) 
   {
#ifdef CHT
      Alert("請注意！使用Windows XP(Server 2003)之系統將無法保證交易能正常執行！");
#endif
#ifdef ENG
		Alert("Attention!  Not guarantee to run well in Windows XP(Server 2003)");
#endif
   }
}

void SetKbar(double& Kbar[])
{
   Kbar[0] = (double)iTime(Symbol(),1,0);
   Kbar[1] = iOpen(Symbol(),1,0);
   Kbar[2] = iHigh(Symbol(),1,0);
   Kbar[3] = iLow(Symbol(),1,0);
   Kbar[4] = iClose(Symbol(),1,0);
   Kbar[5] = (double)iVolume(Symbol(),1,0);
}
#ifdef MODE_AREA51
void BrakeSystemFun()
{
   int Light_Arrow[2] = {108,161};
	if (BrakeSystem)
   {
      int Pos = 50;
      double Position=20;
#ifdef CHT
      string Active = "煞車系統啟動中";
      string Deactive = "煞車系統待命中";
#endif
#ifdef ENG
		string Active = "Braking System Initiating";
      string Deactive = "Braking System Stand By";
#endif
      double Position_L = Bid + Position * point;
      for (int i=0;i<ArraySize(Light_str);i++)
      {
      	if (ObjectFind(Light_str[i]) < 0)
         	ObjectCreate(0,Light_str[i],OBJ_ARROW,0,0,0);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_ARROWCODE,Light_Arrow[i]);
      	if (i == 0) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLime);
      	if (i == 1) ObjectSetInteger(0,Light_str[i],OBJPROP_COLOR,clrLawnGreen);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_WIDTH,5);
      	ObjectSetInteger(0,Light_str[i],OBJPROP_TIME1,TimeCurrent()+300);
      	ObjectSetDouble(0,Light_str[i],OBJPROP_PRICE1,Position_L);
      }
      
      int EnergyBall=Ball(Status,SleepStop,Last_Time,Last_Price,SleepTime,(int)TimeCurrent(),point,Energy,Close[0]);
      if (EnergyBall<0)
      {
         Alert("Energy Brake Error");
         TradeSW = false;
         return;
      }

      if (TimeCurrent()<=SleepStop[0])
      {
         TradeSW = false;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrRed);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrCrimson);
#ifdef CHT
         ObjectSetString(0,Light,OBJPROP_TEXT,Active+", "+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" 分鐘後啟動");
#endif
#ifdef ENG
			ObjectSetString(0,Light,OBJPROP_TEXT,Active+", initiate after"+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" minutes");
#endif
      }
      else
      {
         TradeSW = true;
         ObjectSetInteger(0,Light_str[0],OBJPROP_COLOR,clrLime);
         ObjectSetInteger(0,Light_str[1],OBJPROP_COLOR,clrLawnGreen);
         ObjectSetString(0,Light,OBJPROP_TEXT,Deactive);
      }
   }
   else
   {
      TradeSW = true;
      ObjectDelete(Light_str[0]);
      ObjectDelete(Light_str[1]);
   }
}
#endif

bool Lots_Valid(const double iLot)
{
	double ValuePerLot = SymbolInfoDouble(NULL,SYMBOL_TRADE_CONTRACT_SIZE) / AccountInfoInteger(ACCOUNT_LEVERAGE);
	if ((iLot * ValuePerLot) > AccountInfoDouble(ACCOUNT_FREEMARGIN)) 
	{
		Alert("No Money");
		return(false);
	}
	return(true);
}

int GetTicket(int &Ticket_arr[])
{
	int Cnt = 0;
	for (int i=0;i<ArraySize(Ticket_arr);i++)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (Ticket_arr[i] == OrderTicket())
			{
				Cnt++;
				break;
			}
		}
	}
	return(Cnt);
}

int MyOrderTotal_Enders(const string symbol,const int Type,const int ID)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL && OrderSymbol() == symbol && OrderMagicNumber() == ID)
		{
		   x++;
		   continue;
		}
		if ((Type == OP_BUY && ((OrderType() & 1) == 1 ? false : true)) || (Type == OP_SELL && ((OrderType() & 1) == 1 ? true : false)))
	   {  
	   	if (OrderSymbol() == symbol && OrderMagicNumber() == ID)
			{
				x++;
			}
		}
	}
	return(x);
}

bool EAControl_Enders()
{
	bool Out = true;
	string str ="";
		
	if (!EGFlag) 
	{
		str = "Ender";
		Out = false;
	}
	Comment(str);
	return(Out);
}
int EndersGamgeCnt = 0;
void EndersGameModule(const string symbol, const int Type, int id, bool &flag)
{
	if (MyOrderTotal_Enders(symbol,Type,id) == 0)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (OrderCloseTime() > EGStartTime)
			{
				EndersGamgeCnt++;
				Alert(Symbol() + " 戰場已完成第" + IntegerToString(EndersGamgeCnt) + " 次戰役");
				EGStartTime = TimeCurrent();
				break;
			}
		}
	}
	if (EndersGamgeCnt >= OutCnt)
	{
		Alert("已達成設定局數，即將離開 " + Symbol() + " 戰場");
		flag = false;
		ExpertRemove();
	}
}

X Bomb(SELL_Everest Warrior).mq4

//+------------------------------------------------------------------+
//|                                                      ProjectName |
//|                                      Copyright 2012, CompanyName |
//|                                       http://www.companyname.net |
//+------------------------------------------------------------------+
#property strict

#include <WarGameDLL.mqh>
#include <WinUser32.mqh>

#import "User32.dll"
int GetDC(int);
int ReleaseDC(int,int);
#import "Gdi32.dll"
int GetDeviceCaps(int,int);
#import "stdlib.ex4"
string ErrorDescription(int error_code);
#import

//#define ENG 1
#define CHT 1
//#define MODE_BUY 1
#define MODE_SELL 1
#define TOLERANCE 0.000001
#define OP_ALL       101
#define MODE_AGET 0
#define MODE_FGET 1
#define MODE_INIT 3
#define MODE_TICK 4
#define MODE_CHECKTIMEIN 0
#define MODE_TIMESTP 1
#define MODE_TIMESSL 2
#define MODE_DAILYTP 3

#ifdef CHT
string t1="";
input bool AutoRepairSLTP = false; //自動回復停損停利
input double Pending = 0.0;  //掛單價格 
string T21="-------------------------------------------";
input double MM = 1; //資金管理％數
input double Lots = 0.01; //手數
input double TakeProfit = 10.0; //獲利點數
input double StopLoss = 10.0; //停損點數
input string T0="-------------ESP戰艦穩定煞車系統------------";
input bool BrakeSystem=true;
int pSeconds=14;
input double Energy=4; //能量偵測靈敏度
input int SleepTime=15; //能量引擎啟動時間(分鐘)
int SleepStop[1]={0};
input string T00="-------------------------------------------";
input double iBalance = 0; //止盈計算本金基準
input bool TakeProfitPercentSW = true; //次止盈開關
input double TakeProfitPercent = 1; //次止盈,每次最多獲利％,立即平倉歸零重啟新局
input bool TakeProfitPercentDaySW = true; //日止盈開關
input double TakeProfitPercentDay = 1000; //日止盈,每日最多獲利％,立即停止交易,隔日重新啟動
input bool StopLossPercentSW = true; //浮虧止損開關
input double StopLossPercent = 1000; //現時帳戶浮虧止損,止損基準值:帳戶餘額
input bool SleepLoss = true; //止損後當日不再出兵
double NextTime=0.5;
input string T9_="-------------------小虧為贏模組-------------";
input bool SmallLossWinSW = true; //小虧為贏開關
input int MaxTime=150; //每局最長時間(分鐘)
input int MaxIn=20; //每局最多兵力
input double MaxP=0.5; //達成以上條件小虧為贏
input string T20="-------------------------------------------";
input bool SingleOut=false; //單獨出場
input double i_Multiple=1.382; //馬丁倍率
input int i_MaxMartin=5; //馬丁張數
input string K="馬丁距離";
input double i_MartinStep_0=30;
input double i_MartinStep_1=40;
input double i_MartinStep_2=50;
input double i_MartinStep_3=60;
input double i_MartinStep_4=60;
input double i_MartinStep_5=60;
input double i_MartinStep_6=60;
input double i_MartinStep_7=60;
input double i_MartinStep_8=60;
input double i_MartinStep_9=60;
input bool MartinCalLots=true; //馬丁計算獲利手數開關,T:第一張手數 | F:總手數
input double i_TPPoint=10; //馬丁計算獲利點數
input int MOrders=2; //馬丁第幾張開始調整手數
input bool MartinSW = true; //逆勢攤平馬丁
input int M_Period = 60; //攤平馬丁時區
input string Q0="-------------------------------------------";
input int AutoSWAntiMartin=0; //不出場自動控制
input int AntiMartinTrades=2; //不出場單數
input double AntiMartinMultiple=0.5; //反馬丁倍率
input double AntiMartinStep=20; //反馬丁間距
input double Ai_TPPoint=0; //反馬丁獲利點設定為第一張的獲利點數
input string Q5="-------------------------------------------";
input bool MartinAntiMSW=true; //Counter Strike模式
input double CSMultiple=0.5; //Counter Strike倍率
input double CSStep=20; //Counter Strike間距
input double CSTPPoint=0; //Counter Strike獲利點數
input bool CSProtect = true; //Counter Strike保護裝置
input string Q11="-------------------------------------------";
bool NoMartininAttck=false; //執行Attack模式後，反向不下單"
input bool Non_Stop=false; //Enders Game
double Position=20;
input int OutCnt=1;
#endif 

#ifdef ENG
string t1="";
input bool AutoRepairSLTP = false; //Auto Repair SL&TP
input double Pending = 0.0;  //Pending Order at Price
string T21="-------------------------------------------";
input double MM = 1; //Fund Management %
input double Lots = 0.01; //Order Size_lot
input double TakeProfit = 10.0; //Take Profit 
input double StopLoss = 10.0; //Stop Loss
input string T0="-------------BrakeSystem------------";
input bool BrakeSystem=true;
int pSeconds=14;
input double Energy=4; //Braking System Sensitivity Control
input int SleepTime=15; //Braking System Sleeping Time
int SleepStop[1]={0};
input string T00="-------------------------------------------";
input double iBalance = 0; //Capital setting for Profit/Loss termination
input bool TakeProfitPercentSW = true; //Switch of Secondary Take Profit
input double TakeProfitPercent = 1; //Secondary Take Profit, max. % of profit to close trade, and reset
input bool TakeProfitPercentDaySW = true; //Switch of Daily Take Profit 
input double TakeProfitPercentDay = 1000; //Daily Take Profit, max. % of profit to close trade, reset on the next day
input bool StopLossPercentSW = true; //Switch of stopping Floating Loss
input double StopLossPercent = 1000; //
input bool SleepLoss = true; //Stop trading when reaching stop loss the same day
double NextTime=0.5;
input string T9_="-------------------Small Loss for Win-------------";
input bool SmallLossWinSW = true; //Switch of Small Loss To Win
input int MaxTime=150; //Max. Time Per Set (Minutes)
input int MaxIn=20; //Max. Trades Per Set
input double MaxP=0.5; //Criteria of Small Loss for Win
input string T20="-------------------------------------------";
input bool SingleOut=false; //Take Profit Single Out
input double i_Multiple=1.382; //Martingale Multiplier
input int i_MaxMartin=5; //Martingale Order No.
input string K="Martingale Distance";
input double i_MartinStep_0=30;
input double i_MartinStep_1=40;
input double i_MartinStep_2=50;
input double i_MartinStep_3=60;
input double i_MartinStep_4=60;
input double i_MartinStep_5=60;
input double i_MartinStep_6=60;
input double i_MartinStep_7=60;
input double i_MartinStep_8=60;
input double i_MartinStep_9=60;
input bool MartinCalLots=true; //Martingale Lots Profit Calculation. T: First Order Lot | F: Total Order Lot
input double i_TPPoint=10; //Martin Profit Calculation in Pips
input int MOrders=2; //Number to start martingale multiplication 
input bool MartinSW = true; //Against Trend Martin
input int M_Period = 60; //Martin Order Time Frame
input string Q0="-------------------------------------------";
input int AutoSWAntiMartin=0; //Mode Selector
input int AntiMartinTrades=2; //Retaining Order No.
input double AntiMartinMultiple=0.5; //Anti-Martingale Multiplier
input double AntiMartinStep=20; //Anti-Martingale Distance
input double Ai_TPPoint=0; //First Anti-Martingale order take profit
input string Q5="-------------------------------------------";
input bool MartinAntiMSW=true; //Counter Strike Mode
input double CSMultiple=0.5; //Counter Strike Multiplier
input double CSStep=20; //Counter Strike Distance
input double CSTPPoint=0; //Counter Strike Take Profit
input bool CSProtect = true; //Counter Strike Protection System
input string Q11="-------------------------------------------";
bool NoMartininAttck=false; //Stop placing opposite trend order after Attack Mode
input bool Non_Stop=false; //Enders Game
double Position=20;
input int OutCnt=1;
#endif

datetime ticket_time=0;

int Last_Time[1]={0};
int OutCntTemp=0;
int MartinBuyBar,MartinSellBar;
int id_1=3333333;
int Status[1]={0};
int DownloadHour = 6;
int DownloadMin = 0;
int ErrorCode = 0;

bool NewGetSW = false;

datetime H1BarTime = 0;
datetime Start_P = 0;
datetime EARunTime = 0;
datetime EGStartTime = TimeCurrent();
bool EGFlag = true;


double point;
double Last_Price[1]={-1.0};
double FontDPI=96;
double MinPriceShot;
double iPending = 0.0;
double Start_Balance = 0;
double iLots = 0.0;

string Start_P_str = "Start_P";
string Start_Balance_str = "Start_Balance";
string MaxEquity_str = "MaxEquity";
string NextSW_str = "NextSW";
string EARUNTIME_str = "EARUNTIME";
string B_Status,S_Status;
string Run = "RunStatus";
string LogText[4] = {"小虧為贏" , "次止盈" , "次止損" , "日止盈"};
string Label_arr[6] = 
{
   "TimesProfitPer",
   "Start_Balance",
   "TimePast",
   "Orders",
   "TodayProfitPer",
   "MaxLoss"
};
   
string Label_arr1[6] = 
{
   "TimesProfitPer0",
   "Start_Balance0",
   "TimePast0",
   "Orders0",
   "TodayProfitPer0",
   "MaxLoss0"
};

bool NewsgetSW=false;
bool GetAuthorSW=true;
bool FirstNotOut=false;
bool FirstIn = true;
bool MartinIn = true;

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OnInit()
{

   int dc=GetDC(0);
   FontDPI=GetDeviceCaps(dc,88);
   if (FontDPI==0)
      FontDPI=96;
   ReleaseDC(0,dc);
   
//+------------------------------------------------------------------+
	iLots = OpLots();
   ticket_time=TimeCurrent();
   MinPriceShot=Energy;
//+------------------------------------------------------------------+
   if (Digits==5 || Digits==3)
   {
      point=Point*10;
   }
   else
   {
      point=Point;
   }
   TimesStopConfig();
   
   UpdateFiles(MODE_INIT);
   
   iPending = Pending;
   return;
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
   ObjectDelete("Lable");
   ObjectDelete("Lable1");
   ObjectDelete("percent");
   ObjectDelete("start_p");
   ObjectDelete("takepercent_day");
   ObjectDelete("percent0");
   ObjectDelete("start_p0");
   ObjectDelete("takepercent_day0");
   ObjectDelete("percent.1");
   ObjectDelete("start_p.1");
   ObjectDelete("takepercent_day.1");
   ObjectDelete("percent0.1");
   ObjectDelete("start_p0.1");
   ObjectDelete("takepercent_day0.1");
   ObjectDelete("run");
   ObjectDelete("Newsinfo");
   ObjectDelete("Newsinfo2");
   ObjectDelete("ERR");
   ObjectDelete("ERR2");
   ObjectDelete("Expert");
   ObjectDelete("Light");
   ObjectDelete("Light2");
   ObjectDelete("lightstatus");
   ObjectDelete("Margin");
   ObjectDelete("Float");
   ObjectDelete("LOGO");
   ObjectDelete("LOGO0");
   ObjectDelete("NAME");
   ObjectDelete("MSG0");
   ObjectDelete("MSG0.0");
   ObjectDelete("MSG1");
   ObjectDelete("MSG1.0");
   ObjectDelete("MSG2");
   ObjectDelete("MSG2.0");
   ObjectDelete("MSG3");
   GlobalVariableSet("DNSW",0);
   DeleteObjects();
   return;
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OnTick()
{

   
   string tComment="ERTYUUI";
   string tMComment="Martin";
   
	UpdateFiles(MODE_TICK);
	double TimesProfit = 0.0;
   double TodayProfit = 0.0;
   if (!CloseAllTrades()) return;
   if (!TimesStop(TimesProfit,TodayProfit)) return;
   Displayprofit(TimesProfit,TodayProfit);
	CheckTimeIn(TimesProfit);
	
	//--------------------------------------------------------------海卓拉加入的片段
   #ifdef MODE_BUY
if (Non_Stop==false) EndersGameModule(Symbol(),OP_BUY,id_1,EGFlag);
#endif

#ifdef MODE_SELL
if (Non_Stop==false) EndersGameModule(Symbol(),OP_SELL,id_1,EGFlag);
#endif
   
//--------------------------------------------------------------海卓拉加入的片段
	
   //+------------------------------------------------------------------+
   //|Shutdown EA                                                       |
   //+------------------------------------------------------------------+
   if (!EAControl()) return;
   
//+------------------------------------------------Brake_System---------------------------------------------------------------------+
   if (BrakeSystem)
   {
      int Pos = 50;
#ifdef CHT      
      string Active="煞車系統啟動中";
      string Deactive="煞車系統待命中";
#endif
#ifdef ENG
		string Active="Braking System Initiating";
      string Deactive="Braking System Stand By";
#endif
      color Light_status=Gold;
      double Position_L=Bid+Position*point;
      if (ObjectFind("Light")==-1)
         ObjectCreate("Light",OBJ_ARROW,0,0,0);
      ObjectSet("Light",OBJPROP_ARROWCODE,108);
      ObjectSet("Light",OBJPROP_CORNER,1);
      ObjectSet("Light",OBJPROP_COLOR,Lime);
      ObjectSet("Light",OBJPROP_WIDTH,5);
      
      if (ObjectFind("Light2")==-1)
         ObjectCreate("Light2",OBJ_ARROW,0,0,0);
      ObjectSet("Light2",OBJPROP_ARROWCODE,161);
      ObjectSet("Light2",OBJPROP_CORNER,1);
      ObjectSet("Light2",OBJPROP_COLOR,LawnGreen);
      ObjectSet("Light2",OBJPROP_WIDTH,5);
      
      if (ObjectFind("lightstatus")==-1)
         ObjectCreate("lightstatus",OBJ_LABEL,0,0,0);
      ObjectSet("lightstatus",OBJPROP_CORNER,1);
      ObjectSet("lightstatus",OBJPROP_COLOR,Gold);
      ObjectSet("lightstatus",OBJPROP_XDISTANCE,20);
      ObjectSet("lightstatus",OBJPROP_YDISTANCE,Pos+155);
      
      ObjectSet("Light",OBJPROP_TIME1,TimeCurrent()+300);
      ObjectSet("Light",OBJPROP_PRICE1,Position_L);
      ObjectSet("Light2",OBJPROP_TIME1,TimeCurrent()+300);
      ObjectSet("Light2",OBJPROP_PRICE1,Position_L);
      
      int EnergyBall=Ball(Status,SleepStop,Last_Time,Last_Price,SleepTime,(int)TimeCurrent(),point,MinPriceShot,Close[0]);
      if (EnergyBall<0)
      {
         Alert("Energy Brake Error");
         return;
      }
      
      if (TimeCurrent()<=SleepStop[0])
      {
         FirstNotOut=true;
         MartinIn=false;
         ObjectSet("Light",OBJPROP_COLOR,Red);
         ObjectSet("Light2",OBJPROP_COLOR,Crimson);
         #ifdef CHT
         ObjectSetText("lightstatus",Active+", "+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" 分鐘後啟動",10,"微軟正黑體",Light_status);
         #endif
         #ifdef ENG
         ObjectSetText("lightstatus",Active+", initiate after "+DoubleToStr((SleepStop[0]-TimeCurrent())/60,0)+" minutes",10,"微軟正黑體",Light_status);
         #endif}
      else
      {
         FirstNotOut=false;
         MartinIn=true;
         ObjectSet("Light",OBJPROP_COLOR,Lime);
         ObjectSet("Light2",OBJPROP_COLOR,LawnGreen);
         ObjectSetText("lightstatus",Deactive,10,"微軟正黑體",Light_status);
      }
   }
   else
   {
      FirstNotOut=false;
      MartinIn=true;
      ObjectDelete("Light");
      ObjectDelete("Light2");
      ObjectDelete("lightstatus");
   }
//+------------------------------------------------Brake_System---------------------------------------------------------------------+
   
   if (iLots<0.01 && iLots != 0.0)
   {
#ifdef CHT
      Alert(Symbol()+" 已達最小手數(<0.01)，無法下單");
#endif
#ifdef ENG
		Alert(Symbol()+" Minimum lot size (<0.01), trading not available");
#endif      
      return;
   }
#ifdef MODE_BUY
   BuyModule();
#endif
#ifdef MODE_SELL
   SellModule();
#endif
  
   ShowMSG();
   return;
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool profit_control(datetime i_0,double takepercent_)
{
   double today_profit;
   today_profit=((GetProfitFromDateInCurrency(i_0)+AccountProfit())/Start_Balance)*100;
   
   if (today_profit>=takepercent_)
   {
      GlobalVariableSet("LastProfit",today_profit);
      return(false);
   }
   return(true);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double GetProfitFromDateInCurrency(datetime today)
{
   double profit=0;
   int total =OrdersHistoryTotal();
   for (int i=0; i<total; i++)
   {
      if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
      {
         if (OrderType()==OP_BUY || OrderType()==OP_SELL)
         {
            if (today<OrderCloseTime())
               profit+=OrderProfit()+OrderCommission()+OrderSwap();
         }
      }
   }
   return (profit);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void iCloseOrders(int type)
{
	int C0_cnt;
	if (type == OP_BUYSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUYSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}

	if (type == OP_SELLSTOP) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELLSTOP && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_BUY) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_BUY && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrLime))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_SELL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==OP_SELL && OrderMagicNumber()==id_1){
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}
	
	if (type == OP_ALL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--)
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
   		if (OrderType() == OP_BUYSTOP || OrderType() == OP_SELLSTOP || OrderType() == OP_BUYLIMIT || OrderType() == OP_SELLLIMIT)
   		{
   		   if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
				}
   		}else {
   		   if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),clrRed))
			   {
   			   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
                  Alert(ErrorDescription(ErrorCode));
   			}
         }
		}
	}
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selecttickets()
{
   int cnt_tickets = 0;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT))
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT))
#endif
         {
            ticket_time=OrderOpenTime();
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Selectticketsfrhistory()
{
   int cnt_tickets = 0;
   for (int i=0;i<OrdersHistoryTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
         continue;
      else
#ifdef MODE_BUY
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_BUY || OrderType()==OP_BUYSTOP || OrderType()==OP_BUYLIMIT) && ticket_time<=OrderOpenTime())
#else
			if (OrderSymbol()==Symbol() && OrderMagicNumber()==id_1 && (OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT) && ticket_time<=OrderOpenTime())
#endif
         {
            cnt_tickets++;
         }
   }
   return(cnt_tickets);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int OrderSendF(int type,double inLots,double SL,double TP,string Comm)
{
   int Ertemp=0;
   double SendOrders_Lots = inLots;
   if (!Lots_Valid(SendOrders_Lots)) 
   {
   	Alert("No Money");
   	return(-1);
   }
   switch (type)
   {
   case OP_BUY:
      Ertemp=OrderSend(Symbol(),OP_BUY,inLots,Ask,20,0,0,Comm,id_1,0,Lime);
      if (Ertemp<0)
      {
         return(-99);
      }
      Set_sl_tp_buy(Symbol(),TP,SL);
      break;
      
   case OP_SELL:
      Ertemp=OrderSend(Symbol(),OP_SELL,inLots,Bid,20,0,0,Comm,id_1,0,Red);
      if (Ertemp<0)
      {
         return(-99);
      }
      Set_sl_tp_sell(Symbol(),TP,SL);
      break;
   }
   return(0);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double NormPoint(double in)
{
   return(in * point);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Set_sl_tp_sell(string symbol,double tp_m,double sl_m)
{
   double stoploss_m,takeprofit_m;
   for (int z=0;z<OrdersTotal();z++)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderSymbol()==symbol && OrderType()==OP_SELL && OrderMagicNumber()==id_1)
      {
      
         if (sl_m>0)
         {
            stoploss_m=OrderOpenPrice()+sl_m*point;
         }
         else
            if (sl_m==0)
            {
               stoploss_m=0;
            }
            else
            {
               stoploss_m=OrderStopLoss();
            }
            
         if (tp_m>0)
         {
            takeprofit_m=OrderOpenPrice()-tp_m*point;//宣告一個takeprofit放停利"價位"
         }
         else
            if (tp_m==0)
            {
               takeprofit_m=0;
            }
            else
            {
               takeprofit_m=OrderTakeProfit();
            }
            
         if (CompareDouble(stoploss_m,OrderStopLoss()) && CompareDouble(takeprofit_m,OrderTakeProfit()))
         {
            continue;
         }
         RefreshRates();
         if (!OrderModify(OrderTicket(),OrderOpenPrice(),stoploss_m,takeprofit_m,0,White))
         {
         	Alert("Set_sl_tp_sell" + IntegerToString(GetLastError()));
         }
      }
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void GetAllOrders(int type,int &b_Ticket[],int &s_Ticket[])
{
   int x=0,y=0;
   
   if (type==OP_BUY)
   {
      for (int i=0;i<OrdersTotal();i++)
      {
         if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
            continue;
         if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
         {
            b_Ticket[x]=OrderTicket();
            x++;
         }
      }
   }
   
   if (type==OP_SELL)
   {
      for (int j=0;j<OrdersTotal();j++)
      {
         if (!OrderSelect(j,SELECT_BY_POS,MODE_TRADES))
            continue;
         if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
         {
            s_Ticket[y]=OrderTicket();
            y++;
         }
      }
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int MyOrderTotal(int Type)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL)
		{
		   x++;
		   continue;
		}
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)
		{
			x++;
		}
	}
	return(x);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Set_sl_tp(int type,double tp_m,double sl_m)
{
   for (int z=0;z<OrdersTotal();z++)//執行N次篩選(N=訂單總數)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES))
         continue;//用"流水號"找訂單
      if (OrderSymbol()==Symbol() && OrderType()==type && OrderMagicNumber()==id_1)//挑選出同貨幣對 && BUY單 && MagicNumber=本程式 的訂單
      {
         if (DoubleCutDigis(OrderStopLoss())==DoubleCutDigis(sl_m) && DoubleCutDigis(OrderTakeProfit())==DoubleCutDigis(tp_m))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (tp_m == -1)
            {
               tp_m = OrderTakeProfit();
            }
            if (sl_m == -1)
            {
               sl_m = OrderStopLoss();
            }
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),DoubleCutDigis(sl_m),DoubleCutDigis(tp_m),0,White))
            {
               Alert("Set_sl_tp "+IntegerToString(OrderTicket())+"  error : "+ErrorDescription(GetLastError()));
            }
         }
      }
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Set_sl_tp_Quota(int type,double tp_m0,double tp_m1,int WithOut)
{
   int QQ=0;
   double SL = 0.0;
   double TP = 0.0;
   for (int z=0;z<OrdersTotal();z++)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderSymbol()==Symbol() &&  OrderType()==type  &&  OrderMagicNumber()==id_1)
      {
         QQ++;
         if (QQ <= WithOut) continue;
         if (QQ <= AntiMartinTrades)
         {
            if (DoubleCutDigis(OrderStopLoss())==DoubleCutDigis(tp_m0) && DoubleCutDigis(OrderTakeProfit())==0)
            {
               continue;
            }
            else
            {
               RefreshRates();
               if (!OrderModify(OrderTicket(),OrderOpenPrice(),DoubleCutDigis(tp_m0),0,0,White))
               {
                  Alert("Set_sl_tp Q0 "+IntegerToString(OrderTicket())+"  error : "+ErrorDescription(GetLastError()));
               }
            }
         }
         else
         {
            if (DoubleCutDigis(OrderStopLoss()) == DoubleCutDigis(tp_m0) && DoubleCutDigis(OrderTakeProfit())==DoubleCutDigis(tp_m1))
            {
               continue;
            }
            else
            {
               RefreshRates();
               if (!OrderModify(OrderTicket(),OrderOpenPrice(),DoubleCutDigis(tp_m0),DoubleCutDigis(tp_m1),0,White))
               {
                  Alert("Set_sl_tp Q1 "+IntegerToString(OrderTicket())+"  error : "+ErrorDescription(GetLastError()));
               }
            }
         }
      }
   }
}

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Set_sl_tp_CS(int type,double tp_m,double sl_m,int MaxTicket_s)
{
   for (int z=0;z<OrdersTotal();z++)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES))
         continue;
      if ((OrderSymbol()==Symbol() && OrderType()==type && OrderMagicNumber()==id_1 && StringFind(OrderComment(),"CS")>=0) || OrderTicket()==MaxTicket_s)
      {
         if (DoubleCutDigis(OrderStopLoss())==DoubleCutDigis(sl_m) && DoubleCutDigis(OrderTakeProfit())==DoubleCutDigis(tp_m))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (tp_m == -1)
            {
               tp_m = OrderTakeProfit();
            }
            if (sl_m == -1)
            {
               sl_m = OrderStopLoss();
            }
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),DoubleCutDigis(sl_m),DoubleCutDigis(tp_m),0,White))
            {
               Alert("Set_sl_tp CS.0 "+IntegerToString(OrderTicket())+"|"+DoubleToStr(sl_m,Digits)+"|"+DoubleToStr(Ask,Digits)+"|"+DoubleToStr(Bid,Digits)+"  error : "+ErrorDescription(GetLastError()));
            }
         }
      }
      if (OrderSymbol()==Symbol() && OrderType()==type && OrderMagicNumber()==id_1 && StringFind(OrderComment(),"CS")<0 && OrderTicket()!=MaxTicket_s)
      {
         if (/*DoubleCutDigis(OrderStopLoss()) == DoubleCutDigis(sl_m)*/OrderStopLoss()==0 && DoubleCutDigis(OrderTakeProfit())==DoubleCutDigis(tp_m))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),DoubleCutDigis(OrderStopLoss()),DoubleCutDigis(tp_m),0,White))
            {
               Alert("Set_sl_tp CS.0 "+IntegerToString(OrderTicket())+"|"+DoubleToStr(sl_m,Digits)+"|"+DoubleToStr(Ask,Digits)+"|"+DoubleToStr(Bid,Digits)+"  error : "+ErrorDescription(GetLastError()));
            }
         }
      }
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double NormPrice(double in,int dd)
{
   in=NormalizeDouble(in,dd);
   return(in);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Cal_TP_Sell(bool Mode,int type,double MaxPrice_s,double TPPoint,int WithOut)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double TP_Goal;
   int x = 0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
      {
         x++;
         if (x <= WithOut) continue;
         TotalLots+=OrderLots();
         TotalDisProduct+= (MaxPrice_s - OrderOpenPrice())/point * OrderLots();
      }
   }
   if (Mode)
   {
      TP_Goal= (TPPoint * fGetFirstLots(OP_SELL) + TotalDisProduct) / TotalLots;
   }
   else
   {
      TP_Goal= (TPPoint * GetAllLots(OP_SELL) + TotalDisProduct) / TotalLots;
   }
   return(TP_Goal);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Cal_TP_CS_SELL(int type,double MaxPrice_s,int MaxTicket_s,double TPPoint)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double TP_Goal;
   
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol() && StringFind(OrderComment(),"CS")>=0)
      {
         TotalLots+=OrderLots();
         TotalDisProduct+=(MaxPrice_s-OrderOpenPrice())/point*OrderLots();
      }
      if (OrderTicket()==MaxTicket_s)
      {
         if (OrderSelect(MaxTicket_s,SELECT_BY_TICKET,MODE_TRADES))
         {
            TotalLots+=OrderLots();
            TotalDisProduct+=(MaxPrice_s-OrderOpenPrice())/point*OrderLots();
         }
      }
   }
   TP_Goal=(TPPoint*fGetFirstLots(type)+TotalDisProduct)/TotalLots;
   return(TP_Goal);
}

double Cal_TP_CS_BUY(int type,double MinPrice_b,int MinTicket_b,double TPPoint)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double TP_Goal;
   
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if ((OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol() && StringFind(OrderComment(),"CS")>=0) || OrderTicket()==MinTicket_b)
      {
         TotalLots+=OrderLots();
         TotalDisProduct+=(OrderOpenPrice()-MinPrice_b)/point*OrderLots();
      }
   }
   TP_Goal=(TPPoint*fGetFirstLots(1)+TotalDisProduct)/TotalLots;
   return(TP_Goal);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int OrderSendA(int type,double price,color tColor,string tSymbol,double inLots,double SL,double TP,string tComment)
{
   RefreshRates();
   double SendOrders_Lots = inLots;
   if (!Lots_Valid(SendOrders_Lots)) 
   {
   	Alert("No Money");
   	return(-1);
   }
   int ticket_c=OrderSend(tSymbol,type,inLots,price,(int)(2*(point/Point)),0,0,tComment,id_1,0,tColor);   //if yes send order
   if (ticket_c < 0)
   {
      Alert("OrderSend (OrderSendA) Error: "+ErrorDescription(GetLastError()));
      return(-1);
   }
   if (TP == 0 && SL ==0) return(1);
   if (!OrderModify(ticket_c,price,SL,TP,0,tColor))
   {
      Alert("OrderModify SL TP (OrderSendA) Error: "+ErrorDescription(GetLastError()));
      return(1);
   }
   return(0);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double fGetFirstLots(int type)
{
   double fLot = 0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderMagicNumber()==id_1 && OrderType()==type && OrderSymbol()==Symbol())
      {
         fLot=OrderLots();
         break;
      }
   }
   fLot=NormPrice(fLot,2);
   return(fLot);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double GetProfit()
{
   double Profit=0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderMagicNumber()==id_1 && OrderType()==OP_SELL && OrderSymbol()==Symbol())
      {
         Profit+=OrderProfit()+OrderSwap()+OrderCommission();
      }
   }
   return(Profit);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double DoubleCutDigis(double in)
{
   return(StrToDouble(DoubleToStr(in,Digits)));
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void TicketInfo_SELL(int &b_Ticket[],double &b_Price[],int &s_Ticket[],double &s_Price[],double &MaxPrice_s,int &MaxTicket_s,double &MinPrice_s,int &MinTicket_s)
{
   if (MyOrderTotal(OP_SELL)!=0)
   {
      ArrayResize(s_Ticket,MyOrderTotal(OP_SELL));
      ArrayResize(s_Price,MyOrderTotal(OP_SELL));
      GetAllOrders(OP_SELL,b_Ticket,s_Ticket);
      
      for (int j=0;j<ArraySize(s_Ticket);j++)
      {
         if (!OrderSelect(s_Ticket[j],SELECT_BY_TICKET,MODE_TRADES)) continue;
         s_Price[j]=OrderOpenPrice();
      }
      
      MaxPrice_s=s_Price[ArrayMaximum(s_Price)];
      MaxTicket_s= s_Ticket[ArrayMaximum(s_Price)];
      MinPrice_s = s_Price[ArrayMinimum(s_Price)];
      MinTicket_s= s_Ticket[ArrayMinimum(s_Price)];
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool CheckQuota_SELL()
{
   bool Sig=false;
   double Price[2] = {0};
   int x=0;
   
   for (int i=0;i<OrdersTotal();i++)
   {
      if (x==2)
         break;
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderType()==OP_SELL && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
      {
         Price[x]=OrderOpenPrice();
         x++;
      }
   }
   
   if (x < 2)
      return(false);
   if (Price[0] < Price[1])
      Sig = false;
   if (Price[0] > Price[1])
      Sig = true;
      
   return(Sig);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int GetLastOrder(int type)
{
   int Ticket=0;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
      {
         Ticket=OrderTicket();
         break;
      }
   }
   return(Ticket);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void ShowMSG()
{
   double Scale=StrToDouble(DoubleToStr(FontDPI/96,2));
   double Start=55;
   Start=(Start * Scale);
   double Y=20;
   Y=(Y*Scale);
   if (ObjectFind("LOGO")==-1)
   {
      //ObjectCreate("LOGO",OBJ_LABEL,0,0,0);
      ObjectCreate(0,"LOGO",OBJ_BITMAP_LABEL,0,0,0);
   }
   ObjectSetString(0,"LOGO",OBJPROP_BMPFILE,"\\Images\\Axe.bmp");
   ObjectSetInteger(0,"LOGO",OBJPROP_XDISTANCE,8);
   ObjectSetInteger(0,"LOGO",OBJPROP_YDISTANCE,15);
   
   if (ObjectFind("LOGO0")==-1)
   {
      ObjectCreate("LOGO0",OBJ_LABEL,0,0,0);
   }
   ObjectSet("LOGO0",OBJPROP_CORNER,0);
   ObjectSet("LOGO0",OBJPROP_XDISTANCE,60*Scale);
   ObjectSet("LOGO0",OBJPROP_YDISTANCE,10*Scale);
   ObjectSetText("LOGO0","登峰戰士",30,"標楷體",White);
   
   if (ObjectFind("NAME")==-1)
   {
      ObjectCreate("NAME",OBJ_LABEL,0,0,0);
   }
   ObjectSet("NAME",OBJPROP_CORNER,0);
   ObjectSet("NAME",OBJPROP_XDISTANCE,65*Scale);
   ObjectSet("NAME",OBJPROP_YDISTANCE,50*Scale+Y*0);
#ifdef MODE_BUY
   ObjectSetText("NAME","EVEREST WARRIOR BUY",14,"Impact",GreenYellow);
#endif
#ifdef MODE_SELL
   ObjectSetText("NAME","EVEREST WARRIOR SELL",14,"Impact",Red);
#endif
   
   if (ObjectFind("MSG0")==-1)
   {
      ObjectCreate("MSG0",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG0",OBJPROP_CORNER,0);
   ObjectSet("MSG0",OBJPROP_XDISTANCE,10*Scale);
   ObjectSet("MSG0",OBJPROP_YDISTANCE,Start+Y*1);
   ObjectSetText("MSG0","Martingale Multiple: ",14,"Impact",Gold);
   
   if (ObjectFind("MSG0.0")==-1)
   {
      ObjectCreate("MSG0.0",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG0.0",OBJPROP_CORNER,0);
   ObjectSet("MSG0.0",OBJPROP_XDISTANCE,185*Scale);
   ObjectSet("MSG0.0",OBJPROP_YDISTANCE,Start+Y*1);
   ObjectSetText("MSG0.0",DoubleToStr(i_Multiple,3),14,"Impact",Gold);
   
   if (ObjectFind("MSG1")==-1)
   {
      ObjectCreate("MSG1",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG1",OBJPROP_CORNER,0);
   ObjectSet("MSG1",OBJPROP_XDISTANCE,10*Scale);
   ObjectSet("MSG1",OBJPROP_YDISTANCE,Start+Y*2);
   ObjectSetText("MSG1","Max Martingale Trades: ",14,"Impact",White);
   
   if (ObjectFind("MSG1.0")==-1)
   {
      ObjectCreate("MSG1.0",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG1.0",OBJPROP_CORNER,0);
   ObjectSet("MSG1.0",OBJPROP_XDISTANCE,210*Scale);
   ObjectSet("MSG1.0",OBJPROP_YDISTANCE,Start+Y*2);
   ObjectSetText("MSG1.0",DoubleToStr(i_MaxMartin,0),14,"Impact",White);
   
   if (ObjectFind("MSG2")==-1)
   {
      ObjectCreate("MSG2",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG2",OBJPROP_CORNER,0);
   ObjectSet("MSG2",OBJPROP_XDISTANCE,10*Scale);
   ObjectSet("MSG2",OBJPROP_YDISTANCE,Start+Y*3);
   ObjectSetText("MSG2","Martingale Range: ",14,"Impact",CornflowerBlue);
   
   if (ObjectFind("MSG2.0")==-1)
   {
      ObjectCreate("MSG2.0",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG2.0",OBJPROP_CORNER,0);
   ObjectSet("MSG2.0",OBJPROP_XDISTANCE,170*Scale);
   ObjectSet("MSG2.0",OBJPROP_YDISTANCE,Start+Y*3);
   ObjectSetText("MSG2.0",DoubleToStr(i_MartinStep_0,0)+" | "+DoubleToStr(i_MartinStep_1,0)+" | "+DoubleToStr(i_MartinStep_2,0)+" | "+DoubleToStr(i_MartinStep_3,0)+".....",14,"Impact",CornflowerBlue);
   
   if (ObjectFind("MSG3")==-1)
   {
      ObjectCreate("MSG3",OBJ_LABEL,0,0,0);
   }
   ObjectSet("MSG3",OBJPROP_CORNER,0);
   ObjectSet("MSG3",OBJPROP_XDISTANCE,10*Scale);
   ObjectSet("MSG3",OBJPROP_YDISTANCE,Start+Y*4);
   if (FirstNotOut)
   {
      ObjectSetText("MSG3","Mode:   "+"ATTACK",14,"Impact",CornflowerBlue);
   }
   else
   {
      ObjectSetText("MSG3","Mode:   "+"FLAT",14,"Impact",CornflowerBlue);
   }
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void SetKbar(double &Kbar[])
{
   Kbar[0] = (double)iTime(Symbol(),1,0);
   Kbar[1] = iOpen(Symbol(),1,0);
   Kbar[2] = iHigh(Symbol(),1,0);
   Kbar[3] = iLow(Symbol(),1,0);
   Kbar[4] = iClose(Symbol(),1,0);
   Kbar[5] = (double)iVolume(Symbol(),1,0);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool AnyCS(int type)
{
   bool Sig = false;
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol() && StringFind(OrderComment(),"CS")>=0)
      {
         Sig=true;
         break;
      }
   }
   return(Sig);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double GetAllLots(int type)
{
   double inLots=0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderMagicNumber()==id_1 && OrderType()==type && OrderSymbol()==Symbol())
      {
         inLots+=OrderLots();
      }
   }
   return(inLots);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool F_CSProtect(int type,int MaxTicket_s,double in_SL)
{
   bool Out = false;
   string OutPrint = "";
   for (int i=OrdersTotal()-1;i>=0;i--)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if ((OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol() && StringFind(OrderComment(),"CS")>=0) || OrderTicket() == MaxTicket_s)
      {
         if (OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),(int)(2*(point/Point)),White))
         {
            Out = true;
            OutPrint = OutPrint + DoubleToStr(OrderTicket(),0) + ",";
         }
      } 
   }
   if (Out) Alert("CS Protect Active: " + OutPrint + "Ask:" +DoubleToStr(Ask,Digits) + ",SL:" + DoubleToStr(in_SL,Digits));
   return(Out);
}
//+------------------------------------------------------------------+
bool CompareDouble(const double A,const double B)
{
   if (MathAbs(A - B) <= TOLERANCE) return(true);
   return(false);
}

bool EqualZero(const double A)
{
   if (A <= TOLERANCE && A >= -TOLERANCE) return(true);
   return(false);
}

void PendingTrade(const int Type,const string iComment,const double iSL,const double iTP)
{
	double InPrice = Pending;
	int Ticket = 0;
	int iType = -1;
	double SL = 0.0;
	double TP = 0.0;
	if (Type == OP_BUY)
	{
		if (InPrice > Ask)
			iType = OP_BUYSTOP;
   	if (InPrice < Ask)
			iType = OP_BUYLIMIT;
		if (MyOrderTotal(OP_BUYSTOP) >= 1 || MyOrderTotal(OP_BUYLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
		   	
   	Ticket = OrderSend(Symbol(),iType,iLots,InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrLime);
		if (Ticket < 0)
		{
			Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}else 
     	{
    		if (!OrderSelect(Ticket,SELECT_BY_TICKET,MODE_TRADES)) return;
    		SL = OrderOpenPrice() - iSL * point;
    		TP = OrderOpenPrice() + iTP * point;
    		if (iSL == 0 || MartinSW) SL = 0;
    		if (iTP == 0) TP = 0;
    		if (!OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,White))
         {
            Alert("Set_sl_tp "+IntegerToString(OrderTicket())+"  error : "+ErrorDescription(GetLastError()));
         }
     	}
  	}
  	
  	if (Type == OP_SELL)
	{
		if (InPrice < Bid)
			iType = OP_SELLSTOP;
   	if (InPrice > Bid)
			iType = OP_SELLLIMIT;
   	if (MyOrderTotal(OP_SELLSTOP) >= 1 || MyOrderTotal(OP_SELLLIMIT) >= 1 || MyOrderTotal(Type) >= 1) return;
   	
   	Ticket = OrderSend(Symbol(),iType,iLots,InPrice,(int)(2 * (point / Point)),0,0,iComment,id_1,0,clrRed);
		if (Ticket < 0)
		{
   	   Alert("Send " + iComment + " Order Error: " + ErrorDescription(GetLastError()));
     	}else 
     	{
    		if (!OrderSelect(Ticket,SELECT_BY_TICKET,MODE_TRADES)) return;
    		SL = OrderOpenPrice() + iSL * point;
    		TP = OrderOpenPrice() - iTP * point;
    		if (iSL == 0 || MartinSW) SL = 0;
    		if (iTP == 0) TP = 0;
    		if (!OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,White))
         {
            Alert("Set_sl_tp "+IntegerToString(OrderTicket())+"  error : "+ErrorDescription(GetLastError()));
         }
     	}
  	}
}

bool CloseAllTrades()
{
   if (GlobalVariableGet(NextSW_str) == 1) 
   {
#ifdef MODE_BUY
      iCloseOrders(OP_BUY);
#endif
#ifdef MODE_SELL
		iCloseOrders(OP_SELL);
#endif
		if (MyOrderTotal(OP_ALL) > 0) 
      {
#ifdef CHT
         Alert("水雷未掃除成功");
#endif
#ifdef ENG
			Alert("Submarine mine sweeper not completed");
#endif
         return(false);
      }else 
      {
      	Sleep((int)(NextTime * 1000 * 60));
      }
   }
   return(true);
}

void Displayprofit(const double TimesProfit, const double TodayProfit)
{
   int Pos = 50;
   string Label_Text = ""; 
   string Label_Text1 = ""; 
   
   if (ObjectFind(Run) < 0) ObjectCreate(0,Run,OBJ_LABEL,0,0,0);
   ObjectSetInteger(0,Run, OBJPROP_CORNER, 1);
   ObjectSetInteger(0,Run, OBJPROP_COLOR, clrGold);
   ObjectSetInteger(0,Run, OBJPROP_XDISTANCE, 20);
   ObjectSetInteger(0,Run, OBJPROP_YDISTANCE, Pos);
   ObjectSetInteger(0,Run, OBJPROP_FONTSIZE, 10);
   ObjectSetInteger(0,Run, OBJPROP_ANCHOR, ANCHOR_RIGHT_UPPER);
   ObjectSetString(0,Run, OBJPROP_FONT, "微軟正黑體");
   
   for (int i=0;i<6;i++)
   {
      if(ObjectFind(Label_arr[i]) < 0) ObjectCreate(0,Label_arr[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_XDISTANCE,120);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr[i],OBJPROP_FONT,"微軟正黑體");
      
      if(ObjectFind(Label_arr1[i]) < 0) ObjectCreate(0,Label_arr1[i],OBJ_LABEL,0,0,0);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_CORNER,1);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_COLOR,White);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_XDISTANCE,20);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_YDISTANCE,Pos + 30 + 20 * i);
      ObjectSetInteger(0,Label_arr1[i],OBJPROP_ANCHOR,ANCHOR_RIGHT);
      ObjectSetString(0,Label_arr1[i],OBJPROP_FONT,"微軟正黑體");
      
      switch(i)
      {
#ifdef CHT
         case 0:
         Label_Text = "單次擄獲狂派戰俘: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "進場起始兵力: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "進場經過時間: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " 分鐘";
         break;
         
         case 3:
         Label_Text = "戰場兵力: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "今日擄獲狂派戰俘累積至: " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "最大暫時被擄穫兵力: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
#ifdef ENG
			case 0:
         Label_Text = "Profit/Loss: ";
         Label_Text1 = DoubleToString(TimesProfit,2) + " %";
         break;
         
         case 1:
         Label_Text = "Start Balance: ";
         Label_Text1 = DoubleToString(Start_Balance,2);
         break;
         
         case 2:
         Label_Text = "Time Elapsed: " ;
         Label_Text1 = DoubleToString((TimeCurrent() - Start_P) / 60,1) + " Minutes";
         break;
         
         case 3:
         Label_Text = "Orders: ";
         Label_Text1 = IntegerToString(OrdersTotal());
         break;
         
         case 4:
         Label_Text = "Profit/Loss (Today): " ;
         Label_Text1 =  DoubleToString(TodayProfit,2);
         break;
         
         case 5:
         Label_Text = "Maximum Floating Loss: ";
         Label_Text1 = DoubleToString(GlobalVariableGet(MaxEquity_str),2)+" %";
         break;
#endif
      }
      ObjectSetString(0,Label_arr[i],OBJPROP_TEXT,Label_Text);
      ObjectSetString(0,Label_arr1[i],OBJPROP_TEXT,Label_Text1);
   }
}

void CheckTimeIn(const double TimesProfit)
{
	datetime RunTime = (TimeCurrent() - Start_P) / 60;
	if (SmallLossWinSW && RunTime >= MaxTime && OrdersTotal() >= MaxIn && TimesProfit >= MaxP)
	{
		//Close all Trades
		GlobalVariableSet(NextSW_str,1);
		WriteLog(MODE_CHECKTIMEIN,"");
	}
}

bool EAControl()
{
	bool Out = true;
	string str ="";
	if (TimeCurrent() <= EARunTime) 
	{
		str = "SLSLeep";
		Out = false;
	}
	
	if (!EGFlag) 
	{
		str = "Ender";
		Out = false;
	}
	Comment(str);
	return(Out);
}

double OpLots()
{
	double Out = Lots;
	if (!EqualZero(MM) && MM > 0)
	{
		Out = (AccountBalance() * MM ) / (1000 * TakeProfit);
	}
	return(Out);
}

double GetProfitPeriod(datetime today)
{
   double profit=0;
   int total =OrdersHistoryTotal();
   for (int i=0; i<total; i++)
   {
      if (OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
      {
         if (OrderType() == OP_BUY || OrderType() == OP_SELL)
         {
            if (today < OrderCloseTime())
               profit += OrderProfit() + OrderCommission() + OrderSwap();
         }
      }
   }
   return (profit);
}

void WriteLog(const int Mode,const string in)
{
	double TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
	string str = WindowExpertName() + "," + Symbol() + "," + TimeToString(TimeCurrent(),TIME_DATE|TIME_DATE|TIME_SECONDS) +
					 ": " + LogText[Mode] + " , " + in + 
					 "," + Start_Balance_str + ": " + DoubleToString(Start_Balance,2) +
					 "," + Start_P_str + ": " + IntegerToString(Start_P) +
					 ",TimeProfit: " + DoubleToString(TimesProfit,2) +
					 "| Set: 餘:" + DoubleToString(iBalance,2) +
					 ",次:" + DoubleToString(TakeProfitPercent,2) + 
					 ",日:" + DoubleToString(TakeProfitPercentDay,2) +
					 ",損:" + DoubleToStr(StopLossPercent ,2) +
					 ",時:" + DoubleToString(MaxTime,2) +
					 ",單:" + DoubleToString(MaxIn,2) +
					 ",虧:" + DoubleToString(MaxP,2) +
					 "\n" 
					 ;
	int h1 = FileOpen("Logs.txt",FILE_READ|FILE_WRITE|FILE_TXT);
	if (h1 < 0) Print("Open Log Failed");
	FileSeek(h1,0,SEEK_END);
	int byte = FileWriteString(h1,str,StringLen(str));
	if (byte <= 0) Print("Write Log Failed");
	FileClose(h1);
}

void SellModule()
{
	string tMComment="Martin";
	// EveryTrade Modify
   bool SellModifySLTP = false;
   
   // Mode Selection & Determine SL TP Lots
   double SellLots = 0.0;
   double FirstSellTP = 0.0;
   double FirstSellSL = 0.0;
   double FirstSellLots = 0.0;
   
   SellLots = iLots;
   FirstSellLots = iLots;
   
   FirstSellTP = TakeProfit;
   FirstSellSL = StopLoss;
   
   switch (AutoSWAntiMartin)
   {
   case -1:
      FirstNotOut=false;
      break;
   
   case 0:
      if (MyOrderTotal(OP_SELL) > 1) 
      {
         if (CheckQuota_SELL()) 
         {
            FirstNotOut = true;
         }
      }
      break;
      
   case 1:
      FirstNotOut=true;
      break;
   }
   
   if (FirstNotOut)
   {
      FirstSellTP = 0;
   }
   // Mode Selection & Determine SL TP Lots End
   
   if (AutoRepairSLTP)
   {
      if (MyOrderTotal(OP_SELL) == 1)
      {
         if (MartinSW)
         	Set_sl_tp_sell(Symbol(),FirstSellTP,0);
         else
         	Set_sl_tp_sell(Symbol(),FirstSellTP,FirstSellSL);
      }
   }
      
   if (MyOrderTotal(OP_SELL)==0)
   {
      if (!EqualZero(iPending))
      {
      	PendingTrade(OP_SELL,"Pending" + IntegerToString(MyOrderTotal(OP_SELL)),FirstSellSL,FirstSellTP);
      	iPending = 0;
      }
      if (MyOrderTotal(OP_SELLSTOP) == 0 && MyOrderTotal(OP_SELLLIMIT) == 0)
      {
      	if (FirstIn)
         {
         	if (MartinSW)	
         		OrderSendF(OP_SELL,iLots,0,FirstSellTP,Symbol());
         	else
         		OrderSendF(OP_SELL,iLots,FirstSellSL,FirstSellTP,Symbol());
         }
      }
   }
   
   double MartinStep[];
   ArrayResize(MartinStep,10);
   MartinStep[0]=i_MartinStep_0;
   MartinStep[1]=i_MartinStep_1;
   MartinStep[2]=i_MartinStep_2;
   MartinStep[3]=i_MartinStep_3;
   MartinStep[4]=i_MartinStep_4;
   MartinStep[5]=i_MartinStep_5;
   MartinStep[6]=i_MartinStep_6;
   MartinStep[7]=i_MartinStep_7;
   MartinStep[8]=i_MartinStep_8;
   MartinStep[9]=i_MartinStep_9;
   
   int b_Ticket[],s_Ticket[];
   double b_Price[];
   double s_Price[];
   double MaxPrice_s,MinPrice_s;
   int MaxTicket_s,MinTicket_s;
   
   // FirstNotOut
   TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
   double AntiMartinLots = 0.0;
   int ti = 0;
   double in_TP = 0.0;
   double in_SL = 0.0;
   
   string CommentADD="";
   
   if (FirstNotOut)
   {
      if (MyOrderTotal(OP_SELL) >= 1 && MyOrderTotal(OP_SELL) < AntiMartinTrades + 1)
      {
         if ( (MinPrice_s - Bid) / point > AntiMartinStep)
         {
            AntiMartinLots = NormalizeDouble(SellLots * MathPow(AntiMartinMultiple,MyOrderTotal(OP_SELL)),2);
            if (AntiMartinLots < 0.01) AntiMartinLots = 0.01;
            if (!Lots_Valid(AntiMartinLots)) return;
            ti = OrderSend(Symbol(),OP_SELL,AntiMartinLots,Bid,20,0,0,"FNO"+tMComment+DoubleToStr(MyOrderTotal(OP_SELL),0),id_1,0,Red) ;
            if (ti < 0)
            {
               Alert("OrderSnend Buy FNO Error: " + ErrorDescription(GetLastError()));
            }
            else
            {
               SellModifySLTP = true;
            }
         }
      }
      
      TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
      
      if (AutoRepairSLTP || SellModifySLTP)
      {
         if (CheckQuota_SELL())
         {
            in_TP = MinPrice_s - (TakeProfit * point);
            if (in_TP > Ask && in_TP != 0) in_TP = 0;
            in_SL = MaxPrice_s - Cal_TP_Sell(true,OP_SELL,MaxPrice_s,Ai_TPPoint,0) * point;
            if (in_SL < Ask && in_SL != 0) in_SL = 0;
            Set_sl_tp_Quota(OP_SELL,in_SL,in_TP,0);
            SellModifySLTP = false;
         }
      }
   }
   
   
   
//+------------------------------------------------Martin Start---------------------------------------------------------------------+

   TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
   
   double SellMartinLots_Temp = 0.0;
   double SellMartinLots = 0.0;
   double Step_S = 0.0;
   
   if (MartinSW)
   {
      if (MartinIn)
      {
         if (MyOrderTotal(OP_SELL) > 0)
         {
            SellMartinLots_Temp = MyOrderTotal(OP_SELL)-(MOrders-1);
            if (SellMartinLots_Temp < 0) SellMartinLots_Temp = 0;
            SellMartinLots=NormalizeDouble(SellLots * MathPow(i_Multiple,SellMartinLots_Temp),2);
            if (MyOrderTotal(OP_SELL)-1 > ArraySize(MartinStep)-1) 
            {
               Step_S=MartinStep[ArrayMaximum(MartinStep)];
            }else
            {
               Step_S=MartinStep[MyOrderTotal(OP_SELL)-1];
            }
            if (Step_S == 0) Step_S=MartinStep[ArrayMaximum(MartinStep)];
            if ( (Bid - MaxPrice_s) / point > Step_S && MyOrderTotal(OP_SELL) < i_MaxMartin)
            {
               if (MartinSellBar != iBars(Symbol(),M_Period))
               {
                  MartinSellBar = iBars(Symbol(),M_Period) + 1;
               }
               else if (MartinSellBar == iBars(Symbol(),M_Period))
               {
                  if (OrderSendA(OP_SELL,Bid,Red,Symbol(),SellMartinLots,0,0,Symbol()+"_"+tMComment+DoubleToStr(MyOrderTotal(OP_SELL),0)) > 0)
                  {
                     SellModifySLTP = true;
                     MartinSellBar=0;
                  }
               }
            }
            else
            {
               MartinSellBar=0;
            }
         }
         else
         {
            MartinSellBar=0;
         }
      }
      
      TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
      
      if (AutoRepairSLTP || SellModifySLTP)
      {
         if (!AnyCS(OP_SELL))
         {
            if (!CheckQuota_SELL() && MyOrderTotal(OP_SELL) > 1)
            {
               if (SingleOut)
               {
                  Set_sl_tp_sell(Symbol(),i_TPPoint,0);
               }
               else
               {
                  in_TP = MaxPrice_s - Cal_TP_Sell(MartinCalLots,OP_SELL,MaxPrice_s,i_TPPoint,0) * point;
                  if (in_TP > Ask && in_TP != 0) in_TP = 0;
                  in_SL = 0;
                  if (in_SL < Ask && in_SL != 0) in_SL = 0;
                  Set_sl_tp(OP_SELL,in_TP,in_SL);
               }
               SellModifySLTP = false;
            }
         }
      }
   }
   
   TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
   
   double CSLots=0.0;
   double LastPrice=0.0;
   if (MartinAntiMSW && !SingleOut)
   {
      if (MyOrderTotal(OP_SELL)>1)
      {
         if (!CheckQuota_SELL())
         {
            if (OrderSelect(GetLastOrder(OP_SELL),SELECT_BY_TICKET,MODE_TRADES))
            {
               CSLots=NormalizeDouble(OrderLots()*CSMultiple,2);
               if (CSLots<0.01)
               {
                  CSLots=0.01;
               }
               LastPrice=OrderOpenPrice();
            }
            if ((LastPrice-Bid)/point>=CSStep /*&& (MarketInfo(Symbol(),MODE_SPREAD)) * (Point/point) <= CSStep / 2*/)
            {
               if (Lots_Valid(CSLots) && OrderSend(Symbol(),OP_SELL,CSLots,Bid,20,0,0,Symbol()+"_CS_"+DoubleToStr(MyOrderTotal(OP_SELL),0),id_1,0,Red)>0)
               {
                  SellModifySLTP = true;
               }
               else
               {
                  Alert("CS Error: "+ErrorDescription(GetLastError()));
               }
            }
         }
      }
      
      TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
      
      if (AutoRepairSLTP || SellModifySLTP) {
         if (AnyCS(OP_SELL))
         {
            in_TP = MaxPrice_s - Cal_TP_Sell(MartinCalLots,OP_SELL,MaxPrice_s,i_TPPoint,0) * point;
            if (in_TP > Ask && in_TP != 0) in_TP = 0;
            in_SL = MaxPrice_s - Cal_TP_CS_SELL(OP_SELL,MaxPrice_s,MaxTicket_s,CSTPPoint) * point;
            if (in_SL < Ask && in_SL != 0) 
            {
               if (CSProtect) 
               {
                  if (AnyCS(OP_SELL))
                  {
                     if (F_CSProtect(OP_SELL,MaxTicket_s,in_SL))
                     {   
                        return;
                        TicketInfo_SELL(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_s,MaxTicket_s,MinPrice_s,MinTicket_s);
                     }
                  }
               }
               in_SL = 0;
            }
            Set_sl_tp_CS(OP_SELL,in_TP,in_SL,MaxTicket_s);
            SellModifySLTP = false;
         }
      }
   }
}

void DeleteObjects()
{
	for (int i=5;i>=0;i--)
   {
      if(ObjectFind(Label_arr[i]) >= 0) ObjectDelete(0,Label_arr[i]);
      if(ObjectFind(Label_arr1[i]) >= 0) ObjectDelete(0,Label_arr1[i]);
   }
   if(ObjectFind(Run) >= 0) ObjectDelete(0,Run);
}

void BuyModule()
{
	string tMComment="Martin";
	// EveryTrade Modify
   bool BuyModifySLTP = false;
   
   // Mode Selection & Determine SL TP Lots
   double BuyLots = 0.0;
   double FirstBuyTP = 0.0;
   double FirstBuySL = 0.0;
   double FirstBuyLots = 0.0;
   
   BuyLots = iLots;
   FirstBuyLots = iLots;
   
   FirstBuyTP = TakeProfit;
   FirstBuySL = StopLoss;
   
   switch (AutoSWAntiMartin)
   {
   case -1:
      FirstNotOut=false;
      break;
   
   case 0:
      if (MyOrderTotal(OP_BUY) > 1) 
      {
         if (CheckQuota_BUY()) 
         {
            FirstNotOut = true;
         }
      }
      break;
      
   case 1:
      FirstNotOut=true;
      break;
   }
   
   if (FirstNotOut)
   {
      FirstBuyTP = 0;
   }
   // Mode Selection & Determine SL TP Lots End
   
   if (AutoRepairSLTP)
   {
      if (MyOrderTotal(OP_BUY) == 1)
      {
         if (MartinSW)
         	Set_sl_tp_buy(Symbol(),FirstBuyTP,0);
         else
         	Set_sl_tp_buy(Symbol(),FirstBuyTP,FirstBuySL);
      }
   }
   
   if (MyOrderTotal(OP_BUY)==0)
   {
      if (!EqualZero(iPending))
      {
      	PendingTrade(OP_BUY,"Pending" + IntegerToString(MyOrderTotal(OP_BUY)),FirstBuySL,FirstBuyTP);
      	iPending = 0;
      }
      if (MyOrderTotal(OP_BUYSTOP) == 0 && MyOrderTotal(OP_BUYLIMIT) == 0)
      {
      	if (FirstIn)
         {	
         	if (MartinSW)
         		OrderSendF(OP_BUY,iLots,0,FirstBuyTP,Symbol());
         	else 
         		OrderSendF(OP_BUY,iLots,FirstBuySL,FirstBuyTP,Symbol());
         }
      }
   }
   
   double MartinStep[];
   ArrayResize(MartinStep,10);
   MartinStep[0]=i_MartinStep_0;
   MartinStep[1]=i_MartinStep_1;
   MartinStep[2]=i_MartinStep_2;
   MartinStep[3]=i_MartinStep_3;
   MartinStep[4]=i_MartinStep_4;
   MartinStep[5]=i_MartinStep_5;
   MartinStep[6]=i_MartinStep_6;
   MartinStep[7]=i_MartinStep_7;
   MartinStep[8]=i_MartinStep_8;
   MartinStep[9]=i_MartinStep_9;
   
   int b_Ticket[],s_Ticket[];
   double b_Price[];
   double s_Price[];
   double MaxPrice_b,MinPrice_b;
   int MaxTicket_b,MinTicket_b;
   
   // FirstNotOut
   TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
   double AntiMartinLots = 0.0;
   int ti = 0.0;
   double in_TP = 0.0;
   double in_SL = 0.0;
   
   string CommentADD="";
   if (FirstNotOut)
   {
      if (MyOrderTotal(OP_BUY) >= 1 && MyOrderTotal(OP_BUY) < AntiMartinTrades + 1 )
      {
         if ( (Ask - MaxPrice_b) / point > AntiMartinStep)
         {
            AntiMartinLots = NormalizeDouble(BuyLots * MathPow(AntiMartinMultiple,MyOrderTotal(OP_BUY)),2);
            if (AntiMartinLots < 0.01) AntiMartinLots = 0.01;
            if (!Lots_Valid(AntiMartinLots)) return;
            ti = OrderSend(Symbol(),OP_BUY,AntiMartinLots,Ask,20,0,0,"FNO"+tMComment+DoubleToStr(MyOrderTotal(OP_BUY),0),id_1,0,Lime) ;
            if (ti < 0)
            {
               Alert("OrderSnend Buy FNO Error: " + ErrorDescription(GetLastError()));
            }
            else
            {
               BuyModifySLTP = true;
            }
         }
      }
      
      TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
      
      if (AutoRepairSLTP || BuyModifySLTP)
      {
         if (CheckQuota_BUY())
         {
            in_TP = MaxPrice_b + (TakeProfit * point);
            if (in_TP < Bid && in_TP != 0) in_TP = 0;
            in_SL = MinPrice_b + Cal_TP_Buy(true,OP_BUY,MinPrice_b,Ai_TPPoint,0) * point;
            if (in_SL > Bid && in_SL != 0) in_SL = 0;
            Set_sl_tp_Quota(OP_BUY,in_SL,in_TP,0);
            BuyModifySLTP = false;
         }
      }
   }
   
   
   
//+------------------------------------------------Martin Start---------------------------------------------------------------------+

   TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
   
   double BuyMartinLots_Temp = 0.0;
   double BuyMartinLots = 0.0;
   double Step_B = 0.0;
   
   if (MartinSW)
   {
      if (MartinIn)
      {
         if (MyOrderTotal(OP_BUY) > 0)
         {
            BuyMartinLots_Temp = MyOrderTotal(OP_BUY)-(MOrders-1);
            if (BuyMartinLots_Temp < 0) BuyMartinLots_Temp = 0;
            BuyMartinLots = NormalizeDouble(BuyLots * MathPow(i_Multiple,BuyMartinLots_Temp),2);
            if (MyOrderTotal(OP_BUY)-1 > ArraySize(MartinStep)-1) 
            {
               Step_B=MartinStep[ArrayMaximum(MartinStep)];
            }else
            {
               Step_B=MartinStep[MyOrderTotal(OP_BUY)-1];
            }
            if ( (MinPrice_b - Ask) / point > Step_B && MyOrderTotal(OP_BUY) < i_MaxMartin)
            {
               if (MartinBuyBar != iBars(Symbol(),M_Period))
               {
                  MartinBuyBar = iBars(Symbol(),M_Period) + 1;
               }
               else if (MartinBuyBar == iBars(Symbol(),M_Period))
               {
                  if (OrderSendA(OP_BUY,Ask,Lime,Symbol(),BuyMartinLots,0,0,Symbol()+"_"+tMComment+DoubleToStr(MyOrderTotal(OP_BUY),0)) > 0)
                  {
                     BuyModifySLTP = true;
                     MartinBuyBar=0;
                  }
               }
            }
            else
            {
               MartinBuyBar=0;
            }
         }
         else
         {
            MartinBuyBar=0;
         }
      }
      
      TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
      
      if (AutoRepairSLTP || BuyModifySLTP) 
      {
         if (!AnyCS(OP_BUY)) 
         {
            if (!CheckQuota_BUY() && MyOrderTotal(OP_BUY) > 1) 
            {
               if (SingleOut) 
               {
                  Set_sl_tp_buy(Symbol(),i_TPPoint,0);
               }
               else 
               {
                  in_TP = MinPrice_b + Cal_TP_Buy(MartinCalLots,OP_BUY,MinPrice_b,i_TPPoint,0) * point;
                  if (in_TP < Bid && in_TP != 0) in_TP = 0;
                  in_SL = 0;
                  if (in_SL > Bid && in_SL != 0) in_SL = 0;
                  Set_sl_tp(OP_BUY,in_TP,in_SL);
               }
               BuyModifySLTP = false;
            }
         }
      }
   }
   
   TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
   
   double CSLots=0.0;
   double LastPrice=0.0;
   if (MartinAntiMSW && !SingleOut)
   {
      if (MyOrderTotal(OP_BUY)>1)
      {
         if (!CheckQuota_BUY())
         {
            if (OrderSelect(GetLastOrder(OP_BUY),SELECT_BY_TICKET,MODE_TRADES))
            {
               CSLots=NormalizeDouble(OrderLots()*CSMultiple,2);
               if (CSLots<0.01)
               {
                  CSLots=0.01;
               }
               LastPrice=OrderOpenPrice();
            }
            if ((Ask-LastPrice)/point>=CSStep /*&& (MarketInfo(Symbol(),MODE_SPREAD)) * (Point/point) <= CSStep / 2*/)
            {
               if (Lots_Valid(CSLots) && OrderSend(Symbol(),OP_BUY,CSLots,Ask,20,0,0,Symbol()+"_CS_"+DoubleToStr(MyOrderTotal(OP_BUY),0),id_1,0,Lime)>0)
               {
                  BuyModifySLTP = true;
               }
               else
               {
                  Alert("CS Error: "+ErrorDescription(GetLastError()));
               }
            }
         }
      }
      
      TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
      
      if (AutoRepairSLTP || BuyModifySLTP) 
      {
         if (AnyCS(OP_BUY))
         {
            in_TP = MinPrice_b + Cal_TP_Buy(MartinCalLots,OP_BUY,MinPrice_b,i_TPPoint,0) * point;
            if (in_TP < Bid && in_TP != 0) in_TP = 0;
            in_SL = MinPrice_b + Cal_TP_CS_BUY(OP_BUY,MinPrice_b,MinTicket_b,CSTPPoint) * point;
            if (in_SL > Bid && in_SL != 0) 
            {
               if (CSProtect) 
               {
                  if (AnyCS(OP_BUY))
                  {
                     if (F_CSProtect(OP_BUY,MinTicket_b,in_SL))
                     {   
                        return;
                        TicketInfo_BUY(b_Ticket,b_Price,s_Ticket,s_Price,MaxPrice_b,MaxTicket_b,MinPrice_b,MinTicket_b);
                     }
                  }
               }
               in_SL = 0;
            }
            Set_sl_tp_CS(OP_BUY,in_TP,in_SL,MinTicket_b);
            BuyModifySLTP = false;
         }
      }
   }
}

bool CheckQuota_BUY()
{
   bool Sig=false;
   double Price[2] = {0};
   int x=0;
   
   for (int i=0;i<OrdersTotal();i++)
   {
      if (x==2)
         break;
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderType()==OP_BUY && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
      {
         Price[x]=OrderOpenPrice();
         x++;
      }
   }
   
   if (x < 2)
      return(false);
   if (Price[0] > Price[1])
      Sig = false;
   if (Price[0] < Price[1])
      Sig = true;
      
   return(Sig);
}

void Set_sl_tp_buy(string symbol,double tp_m,double sl_m)
{

   double stoploss_m,takeprofit_m;
   for (int z=0;z<OrdersTotal();z++)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderSymbol()==symbol && OrderType()==OP_BUY && OrderMagicNumber()==id_1)
      {
         if (sl_m>0)
         {
            stoploss_m=OrderOpenPrice()-sl_m*point;
         }
         else
            if (sl_m==0)
            {
               stoploss_m=0;
            }
            else
            {
               stoploss_m=OrderStopLoss();
            }
            
         if (tp_m>0)
         {
            takeprofit_m=OrderOpenPrice()+tp_m*point;//宣告一個takeprofit放停利"價位"
         }
         else
            if (tp_m==0)
            {
               takeprofit_m= 0;
            }
            else
            {
               takeprofit_m=OrderTakeProfit();
            }
            
         if (CompareDouble(stoploss_m,OrderStopLoss()) && CompareDouble(takeprofit_m,OrderTakeProfit()))
         {
            continue;
         }
         RefreshRates();
         if (!OrderModify(OrderTicket(),OrderOpenPrice(),stoploss_m,takeprofit_m,0,White))
         {
         	Alert("Set_sl_tp_buy" + IntegerToString(GetLastError()));
         }
      }
   }
}

void TicketInfo_BUY(int &b_Ticket[],double &b_Price[],int &s_Ticket[],double &s_Price[],double &MaxPrice_b,int &MaxTicket_b,double &MinPrice_b,int &MinTicket_b)
{
   if (MyOrderTotal(OP_BUY)!=0)
   {
      ArrayResize(b_Ticket,MyOrderTotal(OP_BUY));
      ArrayResize(b_Price,MyOrderTotal(OP_BUY));
      GetAllOrders(OP_BUY,b_Ticket,s_Ticket);
      
      for (int i=0;i<ArraySize(b_Ticket);i++)
      {
         if (!OrderSelect(b_Ticket[i],SELECT_BY_TICKET,MODE_TRADES)) continue;
         b_Price[i]=OrderOpenPrice();
      }
      
      MaxPrice_b=b_Price[ArrayMaximum(b_Price)];
      MaxTicket_b= b_Ticket[ArrayMaximum(b_Price)];
      MinPrice_b = b_Price[ArrayMinimum(b_Price)];
      MinTicket_b= b_Ticket[ArrayMinimum(b_Price)];
   }
}

double Cal_TP_Buy(bool Mode,int type,double MinPrice_b,double TPPoint,int WithOut) 
{
	double TotalLots=0.0;
	double TotalDisProduct=0.0;
	double TP_Goal;
   int x = 0;
	for (int i=0;i<OrdersTotal();i++)
	{
		if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
		if (OrderType()==type && OrderMagicNumber()==id_1 && OrderSymbol()==Symbol())
		{
			x++;
			if (x <= WithOut) continue;
			TotalLots+=OrderLots();
			TotalDisProduct+= (OrderOpenPrice() - MinPrice_b)/point * OrderLots();
		}
	}
	if (Mode) {
	   TP_Goal= (TPPoint * fGetFirstLots(OP_BUY) + TotalDisProduct) / TotalLots;
	}else {
	   TP_Goal= (TPPoint * GetAllLots(OP_BUY) + TotalDisProduct) / TotalLots;
	}


	return(TP_Goal);
}

void UpdateFiles(const int Mode)
{
	if (Mode == MODE_INIT)
	{
		if (!GlobalVariableCheck("DNSW")) GlobalVariableSet("DNSW",0); 
	   if (GlobalVariableSetOnCondition("DNSW",1,0))
   	{
      	if (UninitializeReason() != 3)
      	{
         	Sleep(1000);
      	}
   	}
	}
	if (Mode == MODE_TICK)
	{
		if (
			(TimeHour(TimeLocal()) == DownloadHour && TimeMinute(TimeLocal()) == DownloadMin && H1BarTime != iTime(Symbol(),PERIOD_H1,0))
			) 
		{
			if (!GlobalVariableCheck("DNSW0")) GlobalVariableSet("DNSW0",0); 
			if (GlobalVariableSetOnCondition("DNSW0",1,0))
			{
    			Sleep(1000);
        		GlobalVariableSet("DNSW0",0); 
        	}
        	H1BarTime = iTime(Symbol(),PERIOD_H1,0);
		}
	}
}



bool TimesStopConfig()
{
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	GlobalVariableSet(NextSW_str,0);
#ifdef GLOBAL_FILE
	if (!GlobalFileRead()) 
	{
		GlobalVars.G_EARunTime = 0;
		GlobalVars.G_MaxEquity = (AccountProfit() / AccountBalance()) * 100;
		GlobalVars.G_Start_P = TimeCurrent();
		GlobalVars.G_Start_Balance = AccountBalance();
		GlobalFileWrite();
		GlobalFileRead();
	}
	Print("EARuntime: " + TimeToString(GlobalVars.G_EARunTime,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("MaxLossEquity: " + DoubleToString(GlobalVars.G_MaxEquity,2));
	Print("Start_P: " + TimeToString(GlobalVars.G_Start_P,TIME_DATE|TIME_MINUTES|TIME_SECONDS));
	Print("Start_Balance: " + DoubleToString(GlobalVars.G_Start_Balance,2));
	//+------------------------------------------------------------------+
   //|Close All Trades Function Init                                    |
   //+------------------------------------------------------------------+
	
#else
	return(true);
}

bool TimesStop(double &TimesProfit, double &TodayProfit)
{
#ifdef GLOBAL_FILE
   if (OrdersTotal()==0) 
   {
      GlobalVars.G_Start_Balance = AccountBalance();
      GlobalVars.G_Start_P = TimeCurrent();
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Status                                                       |
   //+------------------------------------------------------------------+
   if(EqualZero(iBalance))
   	Start_Balance = GlobalVars.G_Start_Balance;  
   else
      Start_Balance = iBalance;
   Start_P = GlobalVars.G_Start_P;
   EARunTime = GlobalVars.G_EARunTime;
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVars.G_MaxEquity) 
   {
      GlobalVars.G_MaxEquity = (AccountProfit() / Start_Balance) * 100;
   }
   //+------------------------------------------------------------------+
   //|Check Balance                                                     |
   //+------------------------------------------------------------------+
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return(false);
	}
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = iTime(Symbol(),PERIOD_D1,0) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Status                                                      |
   //+------------------------------------------------------------------+
   GlobalVars.G_EARunTime = EARunTime;
   GlobalVars.G_Start_Balance = Start_Balance;
   GlobalVars.G_Start_P = Start_P;
   GlobalFileWrite();
#else
	if (OrdersTotal()==0) 
   {
      GlobalVariableSet(Start_Balance_str,AccountBalance());
      GlobalVariableSet(Start_P_str,TimeCurrent());
      GlobalVariableSet(NextSW_str,0);
      Sleep(1000);
   }
   //+------------------------------------------------------------------+
   //|Read Balance                                                      | 
   //+------------------------------------------------------------------+
   if (GlobalVariableCheck(Start_Balance_str))
   {
   	if(EqualZero(iBalance))
	   	Start_Balance = GlobalVariableGet(Start_Balance_str);  
   	else
      	Start_Balance = iBalance;
	}else 
	{
		Start_Balance = AccountBalance();
	}
   
   if (GlobalVariableCheck(Start_P_str))
   {
   	Start_P = (datetime)GlobalVariableGet(Start_P_str);
	}else
	{
		Start_P = TimeCurrent();
	}
	
	if (GlobalVariableCheck(EARUNTIME_str))
	{
		EARunTime = (datetime)GlobalVariableGet(EARUNTIME_str);
	}
   //+------------------------------------------------------------------+
   //|Renew Max Equity                                                  |
   //+------------------------------------------------------------------+
   if ((AccountProfit() / Start_Balance) * 100 < GlobalVariableGet(MaxEquity_str)) 
   {
      GlobalVariableSet(MaxEquity_str,(AccountProfit() / Start_Balance)*100);
   }
   //+------------------------------------------------------------------+
   //|Check Balance                                                     |
   //+------------------------------------------------------------------+
   if (Start_Balance < AccountBalance() / 2 || Start_P == 0)
	{
		Alert("Check your balance setting");
		return(false);
	}
   //+------------------------------------------------------------------+
   //|Times Take Profit                                                 |
   //+------------------------------------------------------------------+
   TimesProfit = ((GetProfitPeriod(Start_P) + AccountProfit()) / Start_Balance) * 100;
   if (TakeProfitPercentSW && TimesProfit >= TakeProfitPercent)
   {
      GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Daily Take Profit                                                 |
   //+------------------------------------------------------------------+
   TodayProfit = ((GetProfitPeriod(StrToTime(TimeToStr(TimeCurrent(),TIME_DATE))) + AccountProfit()) / Start_Balance)*  100;
   if (TakeProfitPercentDaySW && TimesProfit >= TakeProfitPercentDay)
   {
      GlobalVariableSet(NextSW_str,1);
      EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      WriteLog(MODE_DAILYTP,DoubleToString(TimesProfit,2) + "%");
   }
   //+------------------------------------------------------------------+
   //|Account Stop Loss                                                 |
   //+------------------------------------------------------------------+
   if (StopLossPercentSW && (AccountProfit() / AccountBalance()) * 100 <= -1 * StopLossPercent)
   {
   	//Close all Trades
   	GlobalVariableSet(NextSW_str,1);
      WriteLog(MODE_TIMESSL,DoubleToString((AccountProfit() / AccountBalance()) * 100,2) + "%");
      //Shutdown the EA
      if (SleepLoss) 
      {
      	EARunTime = StrToTime(TimeToStr(TimeCurrent(),TIME_DATE)) + 86400;
      }
   }
   //+------------------------------------------------------------------+
   //|Write Balnace                                                     |
   //+------------------------------------------------------------------+
   GlobalVariableSet(EARUNTIME_str,EARunTime);
   GlobalVariableSet(Start_P_str,(double)Start_P);
   GlobalVariableSet(Start_Balance_str,Start_Balance);
#endif
	return(true);
}

bool Lots_Valid(const double iLot)
{
	double ValuePerLot = SymbolInfoDouble(NULL,SYMBOL_TRADE_CONTRACT_SIZE) / AccountInfoInteger(ACCOUNT_LEVERAGE);
	if ((iLot * ValuePerLot) > AccountInfoDouble(ACCOUNT_FREEMARGIN)) 
	{
		Alert("No Money");
		return(false);
	}
	return(true);
}
int EndersGamgeCnt = 0;
void EndersGameModule(const string symbol, const int Type, int id, bool &flag)
{
	if (MyOrderTotal_Enders(symbol,Type,id) == 0)
	{
		for (int j=0;j<OrdersHistoryTotal();j++)
		{
			if (!OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)) continue;
			if (OrderCloseTime() > EGStartTime)
			{
				EndersGamgeCnt++;
				Alert(Symbol() + " 戰場已完成第" + IntegerToString(EndersGamgeCnt) + " 次戰役");
				EGStartTime = TimeCurrent();
				break;
			}
		}
	}
	if (EndersGamgeCnt >= OutCnt)
	{
		Alert("已達成設定局數，即將離開 " + Symbol() + " 戰場");
		flag = false;
		ExpertRemove();
	}
}

int MyOrderTotal_Enders(const string symbol,const int Type,const int ID)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if (Type == OP_ALL && OrderSymbol() == symbol && OrderMagicNumber() == ID)
		{
		   x++;
		   continue;
		}
		if ((Type == OP_BUY && ((OrderType() & 1) == 1 ? false : true)) || (Type == OP_SELL && ((OrderType() & 1) == 1 ? true : false)))
	   {  
	   	if (OrderSymbol() == symbol && OrderMagicNumber() == ID)
			{
				x++;
			}
		}
	}
	return(x);
}

X BombToolKit.mq4

//+------------------------------------------------------------------+
//|                                                      ProjectName |
//|                                      Copyright 2012, CompanyName |
//|                                       http://www.companyname.net |
//+------------------------------------------------------------------+
#property strict


#include <WarGameDLL.mqh>
#include <WinUser32.mqh>
#import "stdlib.ex4"
string ErrorDescription(int error_code);
#import "User32.dll"
int GetDC(int);
int ReleaseDC(int,int);
int GetSystemMetrics(int nIndex);
#import "Gdi32.dll"
int GetDeviceCaps(int,int);
#import "shell32.dll"
int ShellExecuteW(int hWnd, string lpVerb, string lpFile, string lpParameters, string lpDirectory, int nCmdShow);
#import "kernel32.dll"
ulong GetVersion(void);
#import "wininet.dll"
int InternetOpenUrlW(int hInternetSession,string sUrl,string sHeaders="",int lHeadersLength=0,uint lFlags=0,int lContext=0);
int InternetReadFile(int hFile,uchar &sBuffer[],int lNumBytesToRead,int& lNumberOfBytesRead[]);
int InternetCloseHandle(int hInet);
int InternetOpenW(string sAgent,int	lAccessType,string sProxyName="",string sProxyBypass="",int lFlags=0);
#import


#define CHT
//#define ENG

#define MAX 128
#define OP_ALL       101
#define MODE_AGET 0
#define MODE_FGET 1
#define MODE_INIT 3
#define MODE_TICK 4
#define MODE_SLTP_BYPOINT 102
#define MODE_SLTP_BYPRICE 103
#define TOLERANCE 0.000001
#define EA_VERSION "5.0"
#define BUFFER_LEN 1024
#define INTERNET_FLAG_PRAGMA_NOCACHE    0x00000100 // Forces the request to be resolved by the origin server, even if a cached copy exists on the proxy.
#define INTERNET_FLAG_NO_CACHE_WRITE    0x04000000 // Does not add the returned entity to the cache. 
#define INTERNET_FLAG_RELOAD            0x80000000 // Forces a download of the requested file, object, or directory listing from the origin server, not from the cache.


double Price = 0.0;
double Lots = 0.0;
double TPPrice = 0.0;
double SLPrice = 0.0;
double TPPips = 0.0;
double SLPips = 0.0;
double RangeBuy = 0.0;
double RangeSell = 0.0;
string ProfitOutSW = "";
string ProfitOutLossSW = "";

double TPsPrice = 0.0;
double SLsPrice = 0.0;
double TPsPips = 0.0;
double SLsPips = 0.0;

int id_1 = 0;
int InitXDis = 10;
int InitXDisSlave = 10;
int InitYDis = 100;
int InitYDisSlave = 10;
int LabelFontSize = 10;
int Space = 30;
int ErrorCode = 0;
int width;
int DownloadHour = 6;
int DownloadMin = 0;

datetime H1BarTime = 0;

bool ProfitOut = false;
bool ProfitOutLoss = false;

double point = 0.0;
double FontDPI=96;
double DPIratio = 0.8;
double BuyCloseData[MAX][2] = {0};
double SellCloseData[MAX][2] = {0};
double TrailStop = 0.0;

#ifdef CHT
string AllFont = "標楷體";
#endif
#ifdef ENG
string AllFont = "Impact";
#endif
string AllFontENG = "Impact";
string VisiSW[3] = {"SW0","SW1","SW2"};

string check_on = "\Images\check_on.bmp";
string check_off = "\Images\check_off.bmp";
string CheckBox[8] = {"CheckBox0", "CheckBox1", "CheckBox2", "CheckBox3", "CheckBox4", "CheckBox5", "CheckBox6" ,"CheckBox7"};
string CheckBoxs[4] = {"CheckBoxs0", "CheckBoxs1", "ChecksBox2", "ChecksBox3"};

string BGID[2] = {"BG","BG1"};
string logoID[2] = {"logo",""};

string BGIDslave[1] = {"BGs0"};

string buttonID[11] = {"Button0", "Button1", "Button2", "Button3", "Button4" ,"Button5", "Button6", "Button7", "Button8" , "Button9","Button10"};
string buttonsID[2] = {"Buttons0", "Buttons1"};
string labelID[37] = {"label0", "label1", "label2", "label3", "label4" , "label5" ,"label6" ,"label7" ,"label8" ,"label9" ,"label10","label11","label12","label13","label14","label15","label16","label17","label18","label19","label20","label21","label22","label23","label24","label25","label26","label27","label28","label29","label30","label31","label32","label33","label34","label35","label36"};
string labelsID[10] = {"labels0","labels1","labels2","labels3","labels4","labels5","labels6","labels7","labels8","labels9"};


#ifdef CHT
string buttonsText[2] = {"修改買單","修改賣單"};
string buttonText[11] = {"進場買", "進場賣", "神鬼掛單","平倉買單", "水雷", "平倉賣單" ,"刪除買單", "刪除掛單","刪除賣單", "重設","修改選單"};
string labelText[37] = {"市場價", "手數", "獲利(點)", "停損(點)", "獲利(價)", "停損(價)" ,"買","賣", "只平獲利", "追蹤止損", "保護","開始點","MagicNumber", "預付款設定%", "達比率點數: " ,"" ,"達比率價格: " ,"","買: ","0","手: ","0","賣: ","0","手: ","0","只平虧損","盈虧:","0","盈虧: ","0","全: " ,"0","手: ","0","盈虧: ","0"};
string labelsText[10] = {"買單盈虧","賣單盈虧","價位","價位","獲利(點)","停損(點)","獲利(價)","停損(價)","全部盈虧","價位"};
#endif

#ifdef ENG
string buttonsText[2] = {"Modify Buy","Modify Sell"};
string buttonText[11] = {"Buy Order", "Sell Order", "Two Way Order","Close Buy", "Close All", "Close Sell" ,"Delete Buy", "Delete All","Delete Sell", "Reset","Advanced"};
string labelText[37] = {"Price", "Lots", "TP(Pips)", "SL(Pips)", "TP(Price)", "SL(Price)" ,"Buy","Sell", "Close Profit Only", "Trail Stop", "B. E.","Start LV","MagicNumber", "Margin Level", "Margin Call Pips: " ,"" ,"Margin Call Price: " ,"","Buy: ","0","Lot: ","0","Sell: ","0","Lot: ","0","Close Loss Only","P/L: ","0","P/L: ","0","ALL: ","0","Lot: ","0","P/L: ","0"};
string labelsText[10] = {"Buy P/L","Sell P/L","Price","Price","TP(Pips)","SL(Pips)","TP(Price)","SL(Price)","ALL P/L","Price"};
#endif

string editID[13] = {"edit0", "edit1", "edit2", "edit3", "edit4","edit5", "edit6" ,"edit7", "edit8", "edit9", "edit10", "edit11","edit12"};
string editsID[10] = {"edits0", "edits1", "edits2", "edits3", "edits4","edits5","edits6","edits7","edits8","edits9"};
string editText[13] = {"0","0.01","10","10","","","10","10","5","5","5","","30"};
string editsText[10] = {"0","0","10","10","0","0","0","0","0","0"};



struct systemtime
{
  ushort wYear;
  ushort wMonth;
  ushort wDayOfWeek;
  ushort wDay;
  ushort wHour;
  ushort wMinute;
  ushort wSecond;
  ushort wMilliseconds;
};

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int OnInit()
{
   if (UninitializeReason() != 3) 
   {
		if (!CheckValid()) return(-1);
	}
   
   ulong dwVersion = GetVersion();
   uint dwMajorVersion = (uchar)(((ushort)(dwVersion & 0xffff)) & 0xff);
   //printf("Major Version Of OS: %d",dwMajorVersion);
   if (dwMajorVersion < 6) 
   {
      Alert("請注意！使用Windows XP(Server 2003)之系統將無法保證交易能正常執行！");
   }
   
   int dc=GetDC(0);
   FontDPI=GetDeviceCaps(dc,88);
   if (FontDPI==0) FontDPI=96;
   ReleaseDC(0,dc);
   DPIratio = FontDPI / 120;
   int YSCREEN = GetSystemMetrics(1);
   if (YSCREEN <= 1024) Alert("建議解析度在 1280 * 1024　以上");
   
   if (IsTesting()==true)
   {
      return(0);
   }
   
   MathSrand(GetTickCount());
   DownloadMin = 1 + ((59 * MathRand()) / 32768);
   
//+------------------------------------------------------------------+
   if (Digits==5 || Digits==3)
   {
      point=Point*10;
   }
   else
   {
      point=Point;
   }
      
   bgCreate();
   bgsCreate(1);
	CheckBoxCreate(1);
	CheckBoxsCreate(1);  
	editCreate();
	editsCreate(1);
	editClear();
   LoadPrevious();
	CreateSW(1);
	ButtonsCreate(1);
	labelsCreate(1);
	
	InitXDisSlave = (int)(ObjectGetInteger(0,BGID[0],OBJPROP_XSIZE) / DPIratio) + 20;
   EventSetMillisecondTimer(100);
   
//+------------------------------------------------------------------+
   return(0);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//----
   EventKillTimer();
   SaveParameter();
   DeleteObj();
//----
   return;
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OnTimer()
{
   if (GlobalVariableGet("RUNEA")==1) //EA控制器
   {
      Alert("EA is not working");
      return;
   }
   
//+------------------------------------------------Author End----------------------------------------------------------------------------+
   
   bgCreate();
   bgsCreate(0);
   ButtonCreate();
   logoCreate();
   CheckBoxCreate(0);
   CheckBoxsCreate(0);
   labelCreate();
   labelsCreate(0);
   editCreate();
   editsCreate(0);
   GetValue();
   ButtonsCreate(0);
   
   bgsCreate(0);
   
   string str_temp = ObjectGetString(0,CheckBox[5],OBJPROP_BMPFILE);
   if (str_temp == check_on)
   {
   	double MoveSL = StringToDouble(ObjectGetString(0,editID[8],OBJPROP_TEXT,0));
   	iMoveStopLoss(MoveSL);
   }
   
   str_temp = ObjectGetString(0,CheckBox[6],OBJPROP_BMPFILE);
   if (str_temp == check_on)
   {
   	double BE = StringToDouble(ObjectGetString(0,editID[9],OBJPROP_TEXT,0));
   	double LV = StringToDouble(ObjectGetString(0,editID[10],OBJPROP_TEXT,0));
   	iBE(BE,LV);
   }
   //width = (int)ChartGetInteger(0,CHART_WIDTH_IN_PIXELS,0);
   //InitXDis = width - (int)ObjectGetInteger(0,BGID[0],OBJPROP_XSIZE);
   //InitXDisSlave = InitXDis /*- (int)ObjectGetInteger(0,BGIDslave[0],OBJPROP_XSIZE)*/ - (int)ObjectGetInteger(0,BGID[0],OBJPROP_XSIZE) - 10;
   MarginCall();
   CreateSW(0);
   
   return;
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double NormPoint(double inF)
{
   return(inF * point);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+

bool FindCommentOrder(int type,string in)
{
   for (int i = 0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderMagicNumber() == id_1 && OrderSymbol() == Symbol())
      {
         if (StringFind(OrderComment(),in) >= 0)
            return(true);
      }
   }
   return(false);
}
//+------------------------------------------------------------------+

int MyOrderTotal(int type)
{
	int x=0;
	for(int z=0;z<OrdersTotal();z++)
	{
		if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES)) continue;
		if(OrderSymbol()==Symbol() &&  OrderType()==type  &&  OrderMagicNumber()==id_1)
		{
			x++;
		}
	}
	return(x);
}

int SearchArray(double& in[][],int match)
{
   for (int i=0;i<MAX;i++)
   {
      if ((double)match == in[i][0]) return(i);
   }
   return(-1);
}

void SetKbar(double& Kbar[])
{
   Kbar[0] = (double)iTime(Symbol(),1,0);
   Kbar[1] = iOpen(Symbol(),1,0);
   Kbar[2] = iHigh(Symbol(),1,0);
   Kbar[3] = iLow(Symbol(),1,0);
   Kbar[4] = iClose(Symbol(),1,0);
   Kbar[5] = (double)iVolume(Symbol(),1,0);
}

void CheckBoxCreate(const int Mode)
{
	int i = 0;
   for (;i<ArraySize(CheckBox);i++)
   {
		if (ObjectFind(0,CheckBox[i]) < 0) ObjectCreate(0,CheckBox[i],OBJ_BITMAP_LABEL,0,100,100);
		if (Mode == 1) 
   	{
	   	ObjectSetString(0,CheckBox[i],OBJPROP_BMPFILE,(i <= 1 ? check_on :check_off));
   	}else 
   	{
	   	ObjectSetInteger(0,CheckBox[i],OBJPROP_XDISTANCE,(int)(CheckBoxX(i) * DPIratio));
   		ObjectSetInteger(0,CheckBox[i],OBJPROP_YDISTANCE,(int)(CheckBoxY(i) * DPIratio));
   		//ObjectSetInteger(0,CheckBox[i],OBJPROP_ZORDER,1)
   	}
   }
}

void CheckBoxsCreate(const int Mode)
{
	int i = 0;
   for (;i<ArraySize(CheckBoxs);i++)
   {
		if (ObjectFind(0,CheckBoxs[i]) < 0) ObjectCreate(0,CheckBoxs[i],OBJ_BITMAP_LABEL,0,100,100);
		if (Mode == 1) 
   	{
	   	ObjectSetString(0,CheckBoxs[i],OBJPROP_BMPFILE,(i <= 1 ? check_on :check_off));
	   	ObjectSetInteger(0,CheckBoxs[i],OBJPROP_TIMEFRAMES,EMPTY);
   	}else 
   	{
	   	ObjectSetInteger(0,CheckBoxs[i],OBJPROP_XDISTANCE,(int)(CheckBoxsX(i) * DPIratio));
   		ObjectSetInteger(0,CheckBoxs[i],OBJPROP_YDISTANCE,(int)(CheckBoxsY(i) * DPIratio));
   	}
   }
}

int CheckBoxsX(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 2:
		Out = (InitXDisSlave + 75);
		break;
		
		case 1:
		case 3:
		Out = (InitXDisSlave + 255);
		break;
	}
	return(Out);
}

int CheckBoxX(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 2:
		Out = (InitXDis + 75);
		break;
		
		case 1:
		case 3:
		Out = (InitXDis + 255);
		break;
		
		case 4:
		case 5:
		Out = (InitXDis);
		break;
		
		case 7:
		case 6:
		Out = (InitXDis + 140);
		break;
	}
	return(Out);
}

int CheckBoxsY(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 1:
		Out = (InitYDisSlave + (LabelFontSize / 2) + Space * 3);
		break;
		
		case 2:
		case 3:
		Out = (InitYDisSlave + (LabelFontSize / 2) + Space * 4);
		break;
	}
	return(Out);
}

int CheckBoxY(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 1:
		Out = (InitYDis + (LabelFontSize / 2) + Space);
		break;
		
		case 2:
		case 3:
		Out = (InitYDis + (LabelFontSize / 2) + Space * 2);
		break;
		
		case 4:
		case 7:
		Out = (InitYDis + (Space * 5) + (LabelFontSize));
		break;
		
		case 5:
		case 6:
		Out = (InitYDis + (Space * 8) + (LabelFontSize));
		break;
	}
	return(Out);
}

void logoCreate()
{
	int i = 0;
   for (;i<ArraySize(logoID);i++)
   {
      if (ObjectFind(0,logoID[i]) < 0) ObjectCreate(0,logoID[i],OBJ_LABEL,0,100,100);
      ObjectSetInteger(0,logoID[i],OBJPROP_COLOR,clrGold);
      ObjectSetInteger(0,logoID[i],OBJPROP_XDISTANCE,(int)((InitXDis + 20) * DPIratio));
      ObjectSetInteger(0,logoID[i],OBJPROP_YDISTANCE,(int)(16 * DPIratio));
      ObjectSetInteger(0,logoID[i],OBJPROP_CORNER,0);
      ObjectSetString(0,logoID[i],OBJPROP_TEXT,"XBomb Tool Kit");
      ObjectSetString(0,logoID[i],OBJPROP_FONT,"Impact");
      ObjectSetInteger(0,logoID[i],OBJPROP_FONTSIZE,30);
      ObjectSetInteger(0,logoID[i],OBJPROP_SELECTABLE,0);
      
   }
}

void bgCreate()
{
	int i = 0;
   for (;i<ArraySize(BGID);i++)
   {
      if (ObjectFind(0,BGID[i]) < 0) ObjectCreate(0,BGID[i],OBJ_RECTANGLE_LABEL,0,100,100);
      ObjectSetInteger(0,BGID[i],OBJPROP_BORDER_COLOR,i == 0 ? C'25,35,45' : clrGold);
      ObjectSetInteger(0,BGID[i],OBJPROP_BORDER_TYPE,i == 0 ? BORDER_FLAT : BORDER_RAISED);
      ObjectSetInteger(0,BGID[i],OBJPROP_BGCOLOR,(i == 0 ? C'25,35,45' : C'139,102,16'));
      ObjectSetInteger(0,BGID[i],OBJPROP_COLOR,(i == 0 ? C'25,35,45' : C'139,102,16'));
      ObjectSetInteger(0,BGID[i],OBJPROP_XDISTANCE,(int)(( i == 0 ? InitXDis - 10 : InitXDis + 5) * DPIratio));
      ObjectSetInteger(0,BGID[i],OBJPROP_YDISTANCE,(int)(( i == 0 ? 0 : 15) * DPIratio));
      ObjectSetInteger(0,BGID[i],OBJPROP_XSIZE,(int)(( i == 0 ? 362 : 330) * DPIratio));
      ObjectSetInteger(0,BGID[i],OBJPROP_YSIZE,(int)(( i == 0 ? 620 : 60) * DPIratio));
      ObjectSetInteger(0,BGID[i],OBJPROP_CORNER,0);
   }
}

void bgsCreate(const int Mode)
{
	int i = 0;
   for (;i<ArraySize(BGIDslave);i++)
   {
      if (ObjectFind(0,BGIDslave[i]) < 0) ObjectCreate(0,BGIDslave[i],OBJ_RECTANGLE_LABEL,0,100,100);
      ObjectSetInteger(0,BGIDslave[i],OBJPROP_BORDER_COLOR,C'25,35,45');
      ObjectSetInteger(0,BGIDslave[i],OBJPROP_BORDER_TYPE,BORDER_FLAT);
      ObjectSetInteger(0,BGIDslave[i],OBJPROP_BGCOLOR,C'25,35,45');
      ObjectSetInteger(0,BGIDslave[i],OBJPROP_COLOR,C'25,35,45');
      ObjectSetInteger(0,BGIDslave[i],OBJPROP_XDISTANCE,(int)((InitXDisSlave - 10) * DPIratio));
      ObjectSetInteger(0,BGIDslave[i],OBJPROP_YDISTANCE,0);
      ObjectSetInteger(0,BGIDslave[i],OBJPROP_XSIZE,(int)(362 * DPIratio));
      ObjectSetInteger(0,BGIDslave[i],OBJPROP_YSIZE,(int)(310 * DPIratio));
      ObjectSetInteger(0,BGIDslave[i],OBJPROP_CORNER,0);
      if (Mode == 1) ObjectSetInteger(0,BGIDslave[i],OBJPROP_TIMEFRAMES,EMPTY);

   }
}

void editCreate()
{
   int i = 0;
   for (;i<ArraySize(editID);i++)
   {
      if (ObjectFind(0,editID[i]) < 0) ObjectCreate(0,editID[i],OBJ_EDIT,0,100,100);
      ObjectSetInteger(0,editID[i],OBJPROP_COLOR,clrBlack);
      ObjectSetInteger(0,editID[i],OBJPROP_BGCOLOR,clrSilver);
      ObjectSetInteger(0,editID[i],OBJPROP_BORDER_COLOR,C'153,163,174');
      ObjectSetInteger(0,editID[i],OBJPROP_XDISTANCE,(int)(editX(i) * DPIratio));
      ObjectSetInteger(0,editID[i],OBJPROP_YDISTANCE,(int)(editY(i) * DPIratio));
      ObjectSetInteger(0,editID[i],OBJPROP_XSIZE,(int)(sizeXEdit(i) * DPIratio));
      ObjectSetInteger(0,editID[i],OBJPROP_YSIZE,(int)(25 * DPIratio));
      ObjectSetInteger(0,editID[i],OBJPROP_CORNER,0);
      ObjectSetString(0,editID[i],OBJPROP_FONT,AllFontENG);
      ObjectSetInteger(0,editID[i],OBJPROP_FONTSIZE,(int)(10 * DPIratio));
      ObjectSetInteger(0,editID[i],OBJPROP_SELECTABLE,0);
      ObjectSetInteger(0,editID[i],OBJPROP_ALIGN,ALIGN_CENTER);
   }
}

void editsCreate(const int Mode)
{
   int i = 0;
   for (;i<ArraySize(editsID);i++)
   {
      if (ObjectFind(0,editsID[i]) < 0) ObjectCreate(0,editsID[i],OBJ_EDIT,0,100,100);
      ObjectSetInteger(0,editsID[i],OBJPROP_COLOR,clrBlack);
      ObjectSetInteger(0,editsID[i],OBJPROP_BGCOLOR,clrSilver);
      ObjectSetInteger(0,editsID[i],OBJPROP_BORDER_COLOR,C'153,163,174');
      ObjectSetInteger(0,editsID[i],OBJPROP_XDISTANCE,(int)(editsX(i) * DPIratio));
      ObjectSetInteger(0,editsID[i],OBJPROP_YDISTANCE,(int)(editsY(i) * DPIratio));
      ObjectSetInteger(0,editsID[i],OBJPROP_XSIZE,(int)(sizeXEdits(i) * DPIratio));
      ObjectSetInteger(0,editsID[i],OBJPROP_YSIZE,(int)(25 * DPIratio));
      ObjectSetInteger(0,editsID[i],OBJPROP_CORNER,0);
      ObjectSetString(0,editsID[i],OBJPROP_FONT,AllFontENG);
      ObjectSetInteger(0,editsID[i],OBJPROP_FONTSIZE,(int)(10 * DPIratio));
      ObjectSetInteger(0,editsID[i],OBJPROP_SELECTABLE,0);
      ObjectSetInteger(0,editsID[i],OBJPROP_ALIGN,ALIGN_CENTER);
      if (Mode == 1) ObjectSetInteger(0,editsID[i],OBJPROP_TIMEFRAMES,EMPTY);
   }
}

int sizeXEdits(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 2:
		case 3:
		case 4:
		case 5:
		Out = (65);
		break;
	
		default:
		Out = (85);
		break;
	}
	return(Out);
}

int sizeXEdit(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 2:
		case 3:
		case 4:
		case 5:
		Out = (65);
		break;
		
		case 6:
		case 7:
		Out = (25);
		break;
		
		case 8:
		case 9:
		case 10:
		Out = (40);
		break;
	
		default:
		Out = (85);
		break;
	}
	return(Out);
}

void editClear()
{
   int i = 0;
   for (;i<ArraySize(editID);i++)
   {
      if (ObjectFind(0,editID[i]) < 0) ObjectCreate(0,editID[i],OBJ_EDIT,0,100,100);
      ObjectSetString(0,editID[i],OBJPROP_TEXT,editText[i]);
   }
   for (i=0;i<ArraySize(editsID);i++)
   {
      if (ObjectFind(0,editsID[i]) < 0) ObjectCreate(0,editsID[i],OBJ_EDIT,0,100,100);
      ObjectSetString(0,editsID[i],OBJPROP_TEXT,editsText[i]);
   }
}

int editsX(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 1:
		case 8:
		Out = (InitXDisSlave + 75);
		break;
		
		case 6:
		case 7:
		case 9:
		Out = (InitXDisSlave + 255);
		break;
		
		case 2:
		case 4:
		Out = (InitXDisSlave + 95);
		break;
		
		case 3:
		case 5:
		Out = (InitXDisSlave + 275);
		break;
	}
	return(Out);
}

int editX(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		Out = (InitXDis + 75);
		break;
		
		case 1:
		Out = (InitXDis + 255);
		break;
		
		case 2:
		case 4:
		Out = (InitXDis + 95);
		break;
		
		case 3:
		case 5:
		Out = (InitXDis + 275);
		break;
		
		case 6:
		Out = (InitXDis + 205);
		break;

		case 7:
		Out = (InitXDis + 270);
		break;
			
		case 8:
		Out = (InitXDis + 90);
		break;
		
		case 9:
		Out = (InitXDis + 200);
		break;
		
		case 10:
		Out = (InitXDis + 300);
		break;
		
		case 11:
		case 12:
		Out = (InitXDis + 110);
		break;
	}
	return(Out);
}

int editsY(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 6:
		Out = (InitYDisSlave);
		break;
		
		case 1:
		case 7:
		Out = (InitYDisSlave + Space);
		break;
		
		case 8:
		case 9:
		Out = (InitYDisSlave + Space * 2);
		break;
		
		case 2:
		case 3:
		Out = (InitYDisSlave + Space * 3);
		break;
		
		case 4:
		case 5:
		Out = (InitYDisSlave + Space * 4);
		break;
	}
	return(Out);
}

int editY(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 1:
		Out = (InitYDis);
		break;
		
		case 2:
		case 3:
		Out = (InitYDis + Space);
		break;
		
		case 4:
		case 5:
		Out = (InitYDis + Space * 2);
		break;
		
		case 6:
		case 7:
		Out = (InitYDis + Space * 4);
		break;
		
		case 8:
		case 9:
		case 10:
		Out = (InitYDis + (Space * 8) + (LabelFontSize));
		break;
		
		case 11:
		Out = (InitYDis + (Space * 9) + (LabelFontSize));
		break;
		
		case 12:
		Out = (InitYDis + (Space * 10) + (LabelFontSize));
		break;
	}
	return(Out);
}

void labelCreate()
{
   int i = 0;
   for (;i<ArraySize(labelID);i++)
   {
      if (ObjectFind(0,labelID[i]) < 0) ObjectCreate(0,labelID[i],OBJ_LABEL,0,100,100);
      ObjectSetInteger(0,labelID[i],OBJPROP_COLOR,colorLabel(i));
      //ObjectSetInteger(0,labelID[i],OBJPROP_BGCOLOR,clrDimGray);
      ObjectSetInteger(0,labelID[i],OBJPROP_XDISTANCE,(int)(LabelX(i) * DPIratio));
      ObjectSetInteger(0,labelID[i],OBJPROP_YDISTANCE,(int)(LabelY(i) * DPIratio));
      ObjectSetInteger(0,labelID[i],OBJPROP_CORNER,0);
      ObjectSetString(0,labelID[i],OBJPROP_FONT,fontLabel(i));
      ObjectSetString(0,labelID[i],OBJPROP_TEXT,labelText[i]);
      ObjectSetInteger(0,labelID[i],OBJPROP_FONTSIZE,(int)(LabelFontSize));
      ObjectSetInteger(0,labelID[i],OBJPROP_SELECTABLE,0);
      ObjectSetInteger(0,labelID[i],OBJPROP_ANCHOR,(i == 30 || i== 28 || i== 36 ? ANCHOR_RIGHT_UPPER : ANCHOR_LEFT_UPPER));
   }
}

void labelsCreate(const int Mode)
{
   int i = 0;
   for (;i<ArraySize(labelsID);i++)
   {
      if (ObjectFind(0,labelsID[i]) < 0) ObjectCreate(0,labelsID[i],OBJ_LABEL,0,100,100);
      ObjectSetInteger(0,labelsID[i],OBJPROP_COLOR,colorLabels(i));

      ObjectSetInteger(0,labelsID[i],OBJPROP_XDISTANCE,(int)(LabelsX(i) * DPIratio));
      ObjectSetInteger(0,labelsID[i],OBJPROP_YDISTANCE,(int)(LabelsY(i) * DPIratio));
      ObjectSetInteger(0,labelsID[i],OBJPROP_CORNER,0);
      ObjectSetString(0,labelsID[i],OBJPROP_FONT,fontLabels(i));
      ObjectSetString(0,labelsID[i],OBJPROP_TEXT,labelsText[i]);
      ObjectSetInteger(0,labelsID[i],OBJPROP_FONTSIZE,(int)(LabelFontSize));
      ObjectSetInteger(0,labelsID[i],OBJPROP_SELECTABLE,0);
      if (Mode == 1) ObjectSetInteger(0,labelsID[i],OBJPROP_TIMEFRAMES,EMPTY);
   }
}

string fontLabels(const int in)
{
	return(AllFont);
}

string fontLabel(const int in)
{
	if (in == 12) return(AllFontENG);
	if (in == 17 || in == 15) return(AllFontENG);
	if (in == 19 || in == 21 || in == 23 || in == 25 || in == 28 || in == 30 || in == 32 || in == 34 || in == 36) return(AllFontENG);
	return(AllFont);
}

int colorLabels(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 5:
		case 7:
		Out = C'173,93,71';
		break;
		
		case 4:
		case 6:
		Out = C'105,125,83';
		break;
		
		case 14:
		case 16:
		Out = C'162,144,83';
		break;
		
		default:
		Out = (clrSilver);
		break;
	}
	return(Out);
}

int colorLabel(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 3:
		case 5:
		Out = C'173,93,71';
		break;
		
		case 2:
		case 4:
		Out = C'105,125,83';
		break;
		
		case 14:
		case 16:
		Out = C'162,144,83';
		break;
		
		case 19:
		case 21:
		case 28:
		Out = clrLime;
		break;
		
		case 30:
		case 23:
		case 25:
		Out = clrRed;
		break;
		
		default:
		Out = (clrSilver);
		break;
	}
	if (in == 32 || in == 34 || in == 36) Out = clrGold;
	return(Out);
}

int LabelsX(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 1:
		case 4:
		case 6:
		case 8:
		Out = (InitXDisSlave);
		break;
		
		case 2:
		case 3:
		case 5:
		case 7:
		case 9:
		Out = (InitXDisSlave + 175);
		break;
	}
	return(Out);
}

int LabelX(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 2:
		case 4:
		case 12:
		case 13:
		case 14:
		case 16:
		case 18:
		case 22:
		case 31:
		Out = (InitXDis);
		break;
		
		case 1:
		case 3:
		case 5:
		case 6:
		Out = (InitXDis + 175);
		break;

		case 7:
		Out = (InitXDis + 235);
		break;
		
		case 8:
		case 9:
		Out = (InitXDis + 20);
		break;
		
		case 10:
		Out = (InitXDis + 160);
		break;
		
		case 11:
		Out = (InitXDis + 245);
		break;

		case 15:
		case 17:
		Out = (InitXDis + 130);
		break;

		case 19:
		case 23:
		case 32:
		Out = (InitXDis + 40);
		break;
		
		case 20:
		case 24:
		case 33:
		Out = (InitXDis + 60);
		break;
		
		case 21:
		case 25:
		case 34:
		Out = (InitXDis + 90);
		break;
	
		case 26:
		Out = (InitXDis + 160);
		break;
		
		case 27:
		case 29:
		case 35:
		Out = (InitXDis + 140);
		break;
		
		case 28:
		case 30:
		case 36:
		Out = (InitXDis + 280);
		break;
	}
	return(Out);
}

int LabelsY(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 2:
		Out = (InitYDisSlave);
		break;
		
		case 1:
		case 3:
		Out = (InitYDisSlave + Space);
		break;
		
		case 8:
		case 9:
		Out = (InitYDisSlave + Space * 2);
		break;
		
		case 4:
		case 5:
		Out = (InitYDisSlave + Space * 3);
		break;
		
		case 6:
		case 7:
		Out = (InitYDisSlave + Space * 4);
		break;
	}
	return(Out);
}

int LabelY(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 1:
		Out = (InitYDis);
		break;
		
		case 2:
		case 3:
		Out = (InitYDis + Space);
		break;
		
		case 4:
		case 5:
		Out = (InitYDis + Space * 2);
		break;
		
		case 6:
		case 7:
		Out = (InitYDis + Space * 4);

		break;
		
		case 8:
		Out = (InitYDis + Space * 5 + LabelFontSize);
		break;
		
		case 9:
		case 10:
		case 11:
		Out = (InitYDis + (Space * 8) + (LabelFontSize));
		break;
		
		case 12:
		Out = (InitYDis + (Space * 9) + (LabelFontSize));
		break;
		
		case 13:
		Out = (InitYDis + (Space * 10) + (LabelFontSize));
		break;
		
		case 14:
		case 15:
		Out = (InitYDis + (Space * 11) + (LabelFontSize));
		break;
		
		case 16:
		case 17:
		Out = (InitYDis + (Space * 12) + (LabelFontSize));
		break;
		
		case 18:
		case 19:
		case 20:
		case 21:
		case 27:
		case 28:
		Out = (InitYDis + (Space * 13) + (LabelFontSize));
		break;
		
		case 22:
		case 23:
		case 24:
		case 25:
		case 29:
		case 30:
		Out = (InitYDis + (Space * 14) + (LabelFontSize));
		break;
		
		case 26:
		Out = (InitYDis + (Space * 5) + (LabelFontSize));
		break;
	}
	
	if (in >= 31 && in <= 36) Out = (InitYDis + (Space * 15) + (LabelFontSize));
	return(Out);
}

void ButtonCreate()
{
   for (int i=0;i<ArraySize(buttonID);i++)
   {
      if (ObjectFind(0,buttonID[i]) < 0) ObjectCreate(0,buttonID[i],OBJ_BUTTON,0,100,100);
      ObjectSetInteger(0,buttonID[i],OBJPROP_COLOR,clrSilver);
      //ObjectSetInteger(0,buttonID[i],OBJPROP_BGCOLOR,C'220,231,242');
      ObjectSetInteger(0,buttonID[i],OBJPROP_BGCOLOR,colorButton(i));
      //ObjectSetInteger(0,buttonID[i],OBJPROP_BORDER_COLOR,C'153,163,174');
      ObjectSetInteger(0,buttonID[i],OBJPROP_XDISTANCE,(int)(ButtonX(i) * DPIratio));
      ObjectSetInteger(0,buttonID[i],OBJPROP_XSIZE,(int)(sizeXButton(i) * DPIratio));
      ObjectSetInteger(0,buttonID[i],OBJPROP_YDISTANCE,(int)(ButtonY(i) * DPIratio));
      ObjectSetInteger(0,buttonID[i],OBJPROP_YSIZE,(int)(25 * DPIratio));
      ObjectSetInteger(0,buttonID[i],OBJPROP_CORNER,0);
      ObjectSetString(0,buttonID[i],OBJPROP_FONT,AllFont);
      ObjectSetString(0,buttonID[i],OBJPROP_TEXT,buttonText[i]);
      ObjectSetInteger(0,buttonID[i],OBJPROP_FONTSIZE,10);
      ObjectSetInteger(0,buttonID[i],OBJPROP_SELECTABLE,0);
   }
}

void ButtonsCreate(const int Mode)
{
   for (int i=0;i<ArraySize(buttonsID);i++)
   {
      if (ObjectFind(0,buttonsID[i]) < 0) ObjectCreate(0,buttonsID[i],OBJ_BUTTON,0,100,100);
      ObjectSetInteger(0,buttonsID[i],OBJPROP_COLOR,clrSilver);
      //ObjectSetInteger(0,buttonsID[i],OBJPROP_BGCOLOR,C'220,231,242');
      ObjectSetInteger(0,buttonsID[i],OBJPROP_BGCOLOR,colorButtons(i));
      //ObjectSetInteger(0,buttonsID[i],OBJPROP_BORDER_COLOR,C'153,163,174');
      ObjectSetInteger(0,buttonsID[i],OBJPROP_XDISTANCE,(int)(ButtonsX(i) * DPIratio));
      ObjectSetInteger(0,buttonsID[i],OBJPROP_XSIZE,(int)(sizeXButtons(i) * DPIratio));
      ObjectSetInteger(0,buttonsID[i],OBJPROP_YDISTANCE,(int)(ButtonsY(i) * DPIratio));
      ObjectSetInteger(0,buttonsID[i],OBJPROP_YSIZE,(int)(25 * DPIratio));
      ObjectSetInteger(0,buttonsID[i],OBJPROP_CORNER,0);
      ObjectSetString(0,buttonsID[i],OBJPROP_FONT,AllFont);
      ObjectSetString(0,buttonsID[i],OBJPROP_TEXT,buttonsText[i]);
      ObjectSetInteger(0,buttonsID[i],OBJPROP_FONTSIZE,10);
      ObjectSetInteger(0,buttonsID[i],OBJPROP_SELECTABLE,0);
      if (Mode == 1) ObjectSetInteger(0,buttonsID[i],OBJPROP_TIMEFRAMES,EMPTY);
   }
}

int sizeXButton(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 1:
		case 2:
		Out = (170);
		break;
		
		default:
		Out = (110);
		break;
	}
	return(Out);
}

int sizeXButtons(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 1:
		Out = (170);
		break;
		
		default:
		Out = (110);
		break;
	}
	return(Out);
}

int colorButtons(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		Out = (C'25,56,95');
		break;
		
		case 1:
		Out = (C'94,25,25');
		break;
	}
	return(Out);
}

int colorButton(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		Out = (C'25,56,95');
		break;
		
		case 1:
		Out = (C'94,25,25');
		break;
		
		case 2:
		case 3:
		Out = (C'94,26,91');
		break;
		
		case 4:
		Out = (C'51,94,25');
		break;
		
		case 5:
		Out = (C'128,0,0');
		break;
		
		case 6:
		Out = (C'62,17,60');
		break;
		
		case 7:
		Out = (C'35,65,17');
		break;
		
		case 8:
		Out = (C'64,0,0');
		break;
		
		case 9:
		Out = (C'94,93,25');
		break;
	}
	return(Out);
}

int ButtonsX(const int in)
{
	int iX = 20;
	int Out = 0;
	switch (in)
	{
		case 0:
		Out = InitXDisSlave - 2;
		break;
		
		case 1:
		Out = (InitXDisSlave + 174);
		break;
	}
	return(Out);
}

int ButtonX(const int in)
{
	int iX = 20;
	int Out = 0;
	switch (in)
	{
		case 0:
		case 2:
		case 3:
		case 6:
		Out = InitXDis - 2;
		break;
		
		case 1:
		Out = (InitXDis + 174);
		break;

		case 4:
		case 7:
		case 10:
		Out = (117 + InitXDis);
		break;
		
		case 5:
		case 8:
		case 9:
		Out = (InitXDis + 236);
		break;
	}
	return(Out);
}

int ButtonsY(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 1:
		Out = (InitYDisSlave + Space * 5);
		break;
	}
	return(Out);
}

int ButtonY(const int in)
{
	int Out = 0;
	switch (in)
	{
		case 0:
		case 1:
		Out = (InitYDis + Space * 3);
		break;
		
		case 2:
		Out = (InitYDis + (Space * 4));
		break;
		
		case 3:
		case 4:
		case 5:
		Out = (InitYDis + (Space * 5) + (LabelFontSize * 3));
		break;
		
		case 6:
		case 7:
		case 8:
		Out = (InitYDis + (Space * 6) + (LabelFontSize * 3));
		break;
		
		case 9:
		case 10:
		Out = (595);
		break;
	}
	return(Out);
}

void GetValue()
{
	Price = StringToDouble(ObjectGetString(0,editID[0],OBJPROP_TEXT,0));
	Lots = StringToDouble(ObjectGetString(0,editID[1],OBJPROP_TEXT,0));
	TPPrice = StringToDouble(ObjectGetString(0,editID[4],OBJPROP_TEXT,0));
	SLPrice = StringToDouble(ObjectGetString(0,editID[5],OBJPROP_TEXT,0));
	TPPips = StringToDouble(ObjectGetString(0,editID[2],OBJPROP_TEXT,0));
	SLPips = StringToDouble(ObjectGetString(0,editID[3],OBJPROP_TEXT,0));
	RangeBuy = StringToDouble(ObjectGetString(0,editID[6],OBJPROP_TEXT,0));
	RangeSell = StringToDouble(ObjectGetString(0,editID[7],OBJPROP_TEXT,0));
	ProfitOutSW = ObjectGetString(0,CheckBox[4],OBJPROP_BMPFILE);
	ProfitOutLossSW = ObjectGetString(0,CheckBox[7],OBJPROP_BMPFILE);
	
	TPsPrice = StringToDouble(ObjectGetString(0,editsID[4],OBJPROP_TEXT,0));
	SLsPrice = StringToDouble(ObjectGetString(0,editsID[5],OBJPROP_TEXT,0));
	TPsPips = StringToDouble(ObjectGetString(0,editsID[2],OBJPROP_TEXT,0));
	SLsPips = StringToDouble(ObjectGetString(0,editsID[3],OBJPROP_TEXT,0));
}

void OnChartEvent(const int id,
                  const long &lparam,
                  const double &dparam,
                  const string &sparam)
{
   if (ProfitOutSW == check_on)
   {	
   	ProfitOut = true;
   }else
   {
   	ProfitOut = false;
   }
   if (ProfitOutLossSW == check_on)
   {	
   	ProfitOutLoss = true;
   }else
   {
   	ProfitOutLoss = false;
   }
   id_1 = (int)StringToInteger(ObjectGetString(0,editID[11],OBJPROP_TEXT,0));
   if (id == CHARTEVENT_OBJECT_ENDEDIT)
   {
   	CheckAlledit();
   	string endEditChartObject=sparam;
     	if(endEditChartObject==editsID[0] || endEditChartObject==editsID[1] || endEditChartObject==editsID[8])
     	{
      	double CalProfitBuy = StringToDouble(ObjectGetString(0,editsID[0],OBJPROP_TEXT));
   		double CalProfitSell = StringToDouble(ObjectGetString(0,editsID[1],OBJPROP_TEXT));
   		double CalProfitAll = StringToDouble(ObjectGetString(0,editsID[8],OBJPROP_TEXT));
   		ObjectSetString(0,editsID[6],OBJPROP_TEXT,DoubleToString(Cal_TP(OP_BUY,0,CalProfitBuy),Digits));
   		ObjectSetString(0,editsID[7],OBJPROP_TEXT,DoubleToString(Cal_TP(OP_SELL,0,CalProfitSell),Digits));
   		ObjectSetString(0,editsID[9],OBJPROP_TEXT,DoubleToString(Cal_TP(OP_ALL,0,CalProfitAll),Digits));
		}
		if(endEditChartObject==editsID[6] || endEditChartObject==editsID[7] || endEditChartObject==editsID[9])
     	{
      	double CalPriceBuy = StringToDouble(ObjectGetString(0,editsID[6],OBJPROP_TEXT));
   		double CalPriceSell = StringToDouble(ObjectGetString(0,editsID[7],OBJPROP_TEXT));
   		double CalPriceAll = StringToDouble(ObjectGetString(0,editsID[9],OBJPROP_TEXT));
   		ObjectSetString(0,editsID[0],OBJPROP_TEXT,DoubleToString(Cal_Profit(OP_BUY,CalPriceBuy),2));
   		ObjectSetString(0,editsID[1],OBJPROP_TEXT,DoubleToString(Cal_Profit(OP_SELL,CalPriceSell),2));
   		ObjectSetString(0,editsID[8],OBJPROP_TEXT,DoubleToString(Cal_Profit(OP_ALL,CalPriceAll),Digits));
		}
   }
   if(id==CHARTEVENT_OBJECT_CLICK)
   {
      string clickedChartObject=sparam;
     	if(clickedChartObject==VisiSW[0])
     	{
     		string str_temp = ObjectGetString(0,VisiSW[0],OBJPROP_TEXT);
     		bool selected = ObjectGetInteger(0,buttonID[10],OBJPROP_STATE);
         
     		if (str_temp == "5")
     		{
     			ObjectSetString(0,VisiSW[0],OBJPROP_TEXT,"6");
     			VisiObjs(false);
     			if (selected)
         	{
          	  VisiObjsSlave(false);
         	}
     		}
     		if (str_temp == "6")
     		{
     			ObjectSetString(0,VisiSW[0],OBJPROP_TEXT,"5");
     			VisiObjs(true);
     			if (selected)
         	{
          	  VisiObjsSlave(true);
         	}
     		}
     	}
     	if(clickedChartObject==VisiSW[1])
     	{
     		bool selected = ObjectGetInteger(0,VisiSW[1],OBJPROP_STATE);
     		if (selected)
     		{
   			InitXDis = 10;
   			InitXDisSlave = InitXDis + (int)(ObjectGetInteger(0,BGID[0],OBJPROP_XSIZE) / DPIratio) + 10;
     			ObjectSetInteger(0,VisiSW[1],OBJPROP_STATE,0);
     		}
     	}
     	if(clickedChartObject==VisiSW[2])
     	{
     		bool selected = ObjectGetInteger(0,VisiSW[2],OBJPROP_STATE);
     		if (selected)
     		{
				width = (int)ChartGetInteger(0,CHART_WIDTH_IN_PIXELS,0);
   			InitXDis = (int)((width - ObjectGetInteger(0,BGID[0],OBJPROP_XSIZE)) / DPIratio);
   			InitXDisSlave = InitXDis /*- (int)ObjectGetInteger(0,BGIDslave[0],OBJPROP_XSIZE)*/ - (int)(ObjectGetInteger(0,BGID[0],OBJPROP_XSIZE) / DPIratio) - 10;
     			ObjectSetInteger(0,VisiSW[2],OBJPROP_STATE,0);
     		}
     	}
     	if(clickedChartObject==CheckBoxs[0])
      {
         string str_temp = ObjectGetString(0,CheckBoxs[0],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBoxs[0],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBoxs[2],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBoxs[0],OBJPROP_BMPFILE,check_off);
            ObjectSetString(0,CheckBoxs[2],OBJPROP_BMPFILE,check_on);
         }
      }
      if(clickedChartObject==CheckBoxs[1])
      {
         string str_temp = ObjectGetString(0,CheckBoxs[1],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBoxs[1],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBoxs[3],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBoxs[1],OBJPROP_BMPFILE,check_off);
            ObjectSetString(0,CheckBoxs[3],OBJPROP_BMPFILE,check_on);
         }
      }
      if(clickedChartObject==CheckBox[0])
      {
         string str_temp = ObjectGetString(0,CheckBox[0],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBox[0],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBox[2],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBox[0],OBJPROP_BMPFILE,check_off);
            ObjectSetString(0,CheckBox[2],OBJPROP_BMPFILE,check_on);
         }
      }
      if(clickedChartObject==CheckBox[1])
      {
         string str_temp = ObjectGetString(0,CheckBox[1],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBox[1],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBox[3],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBox[1],OBJPROP_BMPFILE,check_off);
            ObjectSetString(0,CheckBox[3],OBJPROP_BMPFILE,check_on);
         }
      }
      if(clickedChartObject==CheckBoxs[2])
      {
         string str_temp = ObjectGetString(0,CheckBoxs[2],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBoxs[2],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBoxs[0],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBoxs[2],OBJPROP_BMPFILE,check_off);
            ObjectSetString(0,CheckBoxs[0],OBJPROP_BMPFILE,check_on);
         }
      }
      if(clickedChartObject==CheckBoxs[3])
      {
         string str_temp = ObjectGetString(0,CheckBoxs[3],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBoxs[3],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBoxs[1],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBoxs[3],OBJPROP_BMPFILE,check_off);
            ObjectSetString(0,CheckBoxs[1],OBJPROP_BMPFILE,check_on);
         }
      }
      if(clickedChartObject==CheckBox[2])
      {
         string str_temp = ObjectGetString(0,CheckBox[2],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBox[2],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBox[0],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBox[2],OBJPROP_BMPFILE,check_off);
            ObjectSetString(0,CheckBox[0],OBJPROP_BMPFILE,check_on);
         }
      }
      if(clickedChartObject==CheckBox[3])
      {
         string str_temp = ObjectGetString(0,CheckBox[3],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBox[3],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBox[1],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBox[3],OBJPROP_BMPFILE,check_off);
            ObjectSetString(0,CheckBox[1],OBJPROP_BMPFILE,check_on);
         }
      }
      if(clickedChartObject==CheckBox[4])
      {
         string str_temp = ObjectGetString(0,CheckBox[4],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBox[4],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBox[7],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBox[4],OBJPROP_BMPFILE,check_off);
         }
      }
      if(clickedChartObject==CheckBox[5])
      {
         string str_temp = ObjectGetString(0,CheckBox[5],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBox[5],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBox[6],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBox[5],OBJPROP_BMPFILE,check_off);
         }
      }
      if(clickedChartObject==CheckBox[6])
      {
         string str_temp = ObjectGetString(0,CheckBox[6],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBox[6],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBox[5],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBox[6],OBJPROP_BMPFILE,check_off);
         }
      }
      if(clickedChartObject==CheckBox[7])
      {
         string str_temp = ObjectGetString(0,CheckBox[7],OBJPROP_BMPFILE);
         if (str_temp == check_off)
         {
            ObjectSetString(0,CheckBox[7],OBJPROP_BMPFILE,check_on);
            ObjectSetString(0,CheckBox[4],OBJPROP_BMPFILE,check_off);
         }
         if (str_temp == check_on)
         {
            ObjectSetString(0,CheckBox[7],OBJPROP_BMPFILE,check_off);
         }
      }
      if(clickedChartObject==buttonsID[0])
      {
         bool selected = ObjectGetInteger(0,buttonsID[0],OBJPROP_STATE);
         string TPSW = ObjectGetString(0,CheckBoxs[0],OBJPROP_BMPFILE);
         string SLSW = ObjectGetString(0,CheckBoxs[1],OBJPROP_BMPFILE);
         if (selected)
         {
            double SL,TP;
           	if (TPSW == check_on) 
           	{
        			TP = TPsPips;
        			Set_SL_TP(MODE_SLTP_BYPOINT,OP_BUY,-1,TP);
           	}else 
           	{
           		TP = TPsPrice;
           		Set_SL_TP(MODE_SLTP_BYPRICE,OP_BUY,-1,TP);
           	}
           	Print(TP);
           	if (SLSW == check_on) 
           	{
        			SL = SLsPips;
        			Set_SL_TP(MODE_SLTP_BYPOINT,OP_BUY,SL,-1);
           	}else 
           	{
           		SL = SLsPrice;
           		Set_SL_TP(MODE_SLTP_BYPRICE,OP_BUY,SL,-1);
           	}
            Sleep(200);
            ObjectSetInteger(0,buttonsID[0],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject==buttonsID[1])
      {
         bool selected = ObjectGetInteger(0,buttonsID[1],OBJPROP_STATE);
         string TPSW = ObjectGetString(0,CheckBoxs[0],OBJPROP_BMPFILE);
         string SLSW = ObjectGetString(0,CheckBoxs[1],OBJPROP_BMPFILE);
         if (selected)
         {
            double SL,TP;
           	if (TPSW == check_on) 
           	{
        			TP = TPsPips;
        			Set_SL_TP(MODE_SLTP_BYPOINT,OP_SELL,-1,TP);
           	}else 
           	{
           		TP = TPsPrice;
           		Set_SL_TP(MODE_SLTP_BYPRICE,OP_SELL,-1,TP);
           	}
           	if (SLSW == check_on) 
           	{
        			SL = SLsPips;
        			Set_SL_TP(MODE_SLTP_BYPOINT,OP_SELL,SL,-1);
           	}else 
           	{
           		SL = SLsPrice;
           		Set_SL_TP(MODE_SLTP_BYPRICE,OP_SELL,SL,-1);
           	}
            Sleep(200);
            ObjectSetInteger(0,buttonsID[1],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject==buttonID[0])
      {
         bool selected = ObjectGetInteger(0,buttonID[0],OBJPROP_STATE);
         string TPSW = ObjectGetString(0,CheckBox[0],OBJPROP_BMPFILE);
         string SLSW = ObjectGetString(0,CheckBox[1],OBJPROP_BMPFILE);
         if (selected)
         {
            double iPrice = Price;
            double SL,TP;
            int Type = -1;
            if (EqualZero(iPrice)) 
            {
            	iPrice = Ask;
            	Type = OP_BUY;
            	if (TPSW == check_on) 
            	{
            		if (EqualZero(TPPips))
            			TP = 0;
            		else
            			TP = Ask + TPPips * point;
            	}else 
            	{
            		TP = TPPrice;
            	}
            	if (SLSW == check_on) 
            	{
            		if (EqualZero(SLPips))
            			SL = 0;
            		else
            			SL = Ask - SLPips * point;
            	}else 
            	{
            		SL = SLPrice;
            	}
            }else
            {
            	Type = OutOrderType(iPrice,0);
            	if (TPSW == check_on) 
            	{
            		if (EqualZero(TPPips))
            			TP = 0;
            		else
            			TP = iPrice + TPPips * point;
            	}else 
            	{
            		TP = TPPrice;
            	}
            	if (SLSW == check_on) 
            	{
            		if (EqualZero(SLPips))
            			SL = 0;
            		else
            			SL = iPrice - SLPips * point;
            	}else 
            	{
            		SL = SLPrice;
            	}
            }
            SendOrders(Type,"Savior_" + IntegerToString(OP_BUY),iPrice,Lots,SL,TP);
            Sleep(200);
            ObjectSetInteger(0,buttonID[0],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject==buttonID[1])
      {
         bool selected = ObjectGetInteger(0,buttonID[1],OBJPROP_STATE);
         string TPSW = ObjectGetString(0,CheckBox[0],OBJPROP_BMPFILE);
         string SLSW = ObjectGetString(0,CheckBox[1],OBJPROP_BMPFILE);
         if (selected)
         {
            double iPrice = Price;
            double SL,TP;
            int Type = -1;
            if (EqualZero(iPrice)) 
            {
            	iPrice = Bid;
            	Type = OP_SELL;
            	if (TPSW == check_on) 
            	{
            		if (EqualZero(TPPips))
            			TP = 0;
            		else
            			TP = Bid - TPPips * point;
            	}else 
            	{
            		TP = TPPrice;
            	}
            	if (SLSW == check_on) 
            	{
            		if (EqualZero(SLPips))
            			SL = 0;
            		else
            			SL = Bid + SLPips * point;
            	}else 
            	{	
            		SL = SLPrice;
            	}
            }else
            {
            	Type = OutOrderType(iPrice,1);
            	if (TPSW == check_on) 
            	{	
            		if (EqualZero(TPPips))
            			TP = 0;
            		else
            			TP = iPrice - TPPips * point;
            	}else 
            	{
            		TP = TPPrice;
            	}
            	if (SLSW == check_on)
            	{
            		if (EqualZero(SLPips))
            			SL = 0;
            		else
            			SL = iPrice + SLPips * point;
            	}else 
            	{
            		SL = SLPrice;
            	}
            }
            SendOrders(Type,"Savior_" + IntegerToString(OP_SELL),iPrice,Lots,SL,TP);
            Sleep(200);
            ObjectSetInteger(0,buttonID[1],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject == buttonID[2])
      {
         bool selected = ObjectGetInteger(0,buttonID[2],OBJPROP_STATE);
         if (selected)
         {
            SendOrders(OutOrderType(Ask + RangeBuy * point,OP_BUY),"Savior_" + IntegerToString(OP_BUY),
            	Ask + RangeBuy * point,Lots,
            	(EqualZero(SLPips) ? 0.0 : (Ask + (RangeBuy - SLPips) * point)),
            	(EqualZero(TPPips) ? 0.0 : (Ask + (RangeBuy + TPPips) * point)));
           	SendOrders(OutOrderType(Bid - RangeSell * point,OP_SELL),"Savior_" + IntegerToString(OP_SELL),
           		Bid - RangeSell * point,Lots,
           		(EqualZero(SLPips) ? 0.0 : (Bid - (RangeSell - SLPips) * point)),
           		(EqualZero(TPPips) ? 0.0 : (Bid - (RangeSell + TPPips) * point)));
            Sleep(200);
            ObjectSetInteger(0,buttonID[2],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject == buttonID[3])
      {
         bool selected = ObjectGetInteger(0,buttonID[3],OBJPROP_STATE);
         if (selected)
         {
            Sleep(200);
            iCloseOrders(OP_BUY);
            ObjectSetInteger(0,buttonID[3],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject == buttonID[4])
      {
         bool selected = ObjectGetInteger(0,buttonID[4],OBJPROP_STATE);
         if (selected)
         {
            Sleep(200);
            int ans_bomb = MessageBox("確認是否掃除水雷？","確認命令",MB_YESNO|MB_ICONQUESTION);
            if (ans_bomb == 6) iCloseOrders(OP_ALL);
            ObjectSetInteger(0,buttonID[4],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject == buttonID[5])
      {
         bool selected = ObjectGetInteger(0,buttonID[5],OBJPROP_STATE);
         if (selected)
         {
            Sleep(200);
            iCloseOrders(OP_SELL);
            ObjectSetInteger(0,buttonID[5],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject == buttonID[6])
      {
         bool selected = ObjectGetInteger(0,buttonID[6],OBJPROP_STATE);
         if (selected)
         {
            Sleep(200);
            iCloseOrders(OP_BUYSTOP);
            iCloseOrders(OP_BUYLIMIT);
            ObjectSetInteger(0,buttonID[6],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject == buttonID[7])
      {
         bool selected = ObjectGetInteger(0,buttonID[7],OBJPROP_STATE);
         if (selected)
         {
            Sleep(200);
            iCloseOrders(OP_BUYSTOP);
            iCloseOrders(OP_BUYLIMIT);
            iCloseOrders(OP_SELLSTOP);
            iCloseOrders(OP_SELLLIMIT);
            ObjectSetInteger(0,buttonID[7],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject == buttonID[8])
      {
         bool selected = ObjectGetInteger(0,buttonID[8],OBJPROP_STATE);
         if (selected)
         {
            Sleep(200);
            iCloseOrders(OP_SELLSTOP);
            iCloseOrders(OP_SELLLIMIT);
            ObjectSetInteger(0,buttonID[8],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject == buttonID[9])
      {
         bool selected = ObjectGetInteger(0,buttonID[9],OBJPROP_STATE);
         if (selected)
         {
            editClear();
            CheckBoxCreate(1);
            Sleep(200);
            ObjectSetInteger(0,buttonID[9],OBJPROP_STATE,false);
         }
      }
      if(clickedChartObject == buttonID[10])
      {
         bool selected = ObjectGetInteger(0,buttonID[10],OBJPROP_STATE);
         if (selected)
         {
            VisiObjsSlave(true);
         }else
         {
         	VisiObjsSlave(false);
         }
      }
   }
}

void CheckNewVersion(string match_Type,string match_Version)
{
   int hInternet = 0;
   int iResult = 0;
   int lReturn[]={1};
   uchar sBuffer[1024];
   int bytes = 0;
   string strUrl = "http://wargame.shinehope.com/wp-content/uploads/ew-xml/Update.csv";
   string strWebPage = "";
   
   hInternet=InternetOpenUrlW(hSession(false),strUrl,"",0,
                              INTERNET_FLAG_NO_CACHE_WRITE|
                              INTERNET_FLAG_PRAGMA_NOCACHE|
                              INTERNET_FLAG_RELOAD,0);
   if(hInternet==0)
   { 
      Alert("Check New Version Failed");
      return;
   }
   int h1=FileOpen("Update.csv",FILE_CSV|FILE_SHARE_WRITE|FILE_SHARE_READ,',');
   while(lReturn[0]!=0)
   {
      iResult=InternetReadFile(hInternet,sBuffer,BUFFER_LEN,lReturn);
      if(lReturn[0]==0)
         break;
      bytes += lReturn[0];
      strWebPage += CharArrayToString(sBuffer,0,lReturn[0],CP_ACP);
      FileWriteString(h1, CharArrayToString(sBuffer,0,lReturn[0],CP_ACP), lReturn[0]);
   }
   FileSeek(h1,0,SEEK_SET);
   string Buffer = "";
   
   while(!FileIsEnding(h1))
   {
      
      Buffer = FileReadString(h1);
      if (StringFind(Buffer,match_Type) >= 0)
      {
         Buffer = FileReadString(h1);
         break;
      }
   }
   FileClose(h1);
   iResult=InternetCloseHandle(hInternet);
   if(iResult==0)
   { 
      Alert("Check New Version Failed");
      return;
   }
   
   printf("EA Version: %s, New Version: %s",match_Version,Buffer);
   if (Buffer != match_Version && Buffer != "")
   {
      Alert("已有新版封包，請向上級長官索取");
   }
   return;
}
//+------------------------------------------------------------------+
int hSession(bool Direct)
{
   int hSession_IEType = 0;
   int hSession_Direct = 0;
   int Internet_Open_Type_Preconfig = 0;
   int Internet_Open_Type_Direct = 1;
   int Internet_Open_Type_Proxy = 3;
   string InternetAgent="";
   if(hSession_IEType == 0)
   {
      InternetAgent="Mozilla/4.0 (compatible; MSIE 8.0; Win32)";
      hSession_IEType = InternetOpenW(InternetAgent, Internet_Open_Type_Preconfig, "", "", 0);
      hSession_Direct = InternetOpenW(InternetAgent, Internet_Open_Type_Direct, "", "", 0);
   }
   if(Direct)
   {
      return(hSession_Direct);
   }
   else
   {
      return(hSession_IEType);
   }
}

void CheckServerLocalTime()
{
   int LocalMinute = TimeMinute(TimeLocal());
   int LocalSeconds = TimeSeconds(TimeLocal());
   int ServerMinute = TimeMinute(TimeCurrent());
   int ServerSeconds = TimeSeconds(TimeCurrent());
   if (AccountInfoInteger(ACCOUNT_TRADE_ALLOWED))
   {
      Print("System Time: " + IntegerToString(LocalMinute) + ":" + IntegerToString(LocalSeconds));
      Print("Server Time: " + IntegerToString(ServerMinute) + ":" + IntegerToString(ServerSeconds));
      if (MathAbs(LocalMinute - ServerMinute) >= 1 || MathAbs(LocalSeconds - ServerSeconds) >= 5)
      {
         Alert("系統與伺服器時間分鐘或秒數不同步，請檢查設定");
      }
   }
   return;
}

void DeleteObj()
{
   for (int i=0;i<40;i++)
   {
      if (i < ArraySize(BGID) && ObjectFind(0,BGID[i]) >= 0) ObjectDelete(BGID[i]);
      if (i < ArraySize(logoID) && ObjectFind(0,logoID[i]) >= 0) ObjectDelete(logoID[i]);
      if (i < ArraySize(buttonID) && ObjectFind(0,buttonID[i]) >= 0) ObjectDelete(buttonID[i]);
      if (i < ArraySize(editID) && ObjectFind(0,editID[i]) >= 0) ObjectDelete(editID[i]);
      if (i < ArraySize(labelID) && ObjectFind(0,labelID[i]) >= 0) ObjectDelete(labelID[i]);
      if (i < ArraySize(CheckBox) && ObjectFind(0,CheckBox[i]) >= 0) ObjectDelete(CheckBox[i]);
      if (i < ArraySize(VisiSW) && ObjectFind(0,VisiSW[i]) >= 0) ObjectDelete(VisiSW[i]);
      
      if (i < ArraySize(buttonsID) && ObjectFind(0,buttonsID[i]) >= 0) ObjectDelete(buttonsID[i]);
      if (i < ArraySize(labelsID) && ObjectFind(0,labelsID[i]) >= 0) ObjectDelete(labelsID[i]);
      if (i < ArraySize(BGIDslave) && ObjectFind(0,BGIDslave[i]) >= 0) ObjectDelete(BGIDslave[i]);
      if (i < ArraySize(editsID) && ObjectFind(0,editsID[i]) >= 0) ObjectDelete(editsID[i]);
      if (i < ArraySize(CheckBoxs) && ObjectFind(0,CheckBoxs[i]) >= 0) ObjectDelete(CheckBoxs[i]);
   }
}

void Set_SL_TP(const int Mode,const int Type,double iSL,double iTP)
{
   double SL = 0.0;
   double TP = 0.0;
   for (int z=0;z<OrdersTotal();z++)
   {
      if (!OrderSelect(z,SELECT_BY_POS,MODE_TRADES))
         continue;
      if (OrderSymbol() == Symbol() && OrderType() == Type && OrderMagicNumber() == id_1)
      {
         if (Mode == MODE_SLTP_BYPOINT)
         {
           	if (Type == OP_BUY || Type == OP_BUYSTOP || Type == OP_BUYLIMIT)
           	{
           		TP = OrderOpenPrice() + iTP * point;
           		SL = OrderOpenPrice() - iSL * point;
           	}
           	if (Type == OP_SELL || Type == OP_SELLSTOP || Type == OP_SELLLIMIT)
           	{
           		TP = OrderOpenPrice() - iTP * point;
           		SL = OrderOpenPrice() + iSL * point;
           	}
           	if (EqualZero(iTP)) TP = 0;
           	if (EqualZero(iSL)) SL = 0;
         }else
         {
           	SL = iSL;
         	TP = iTP;
         }
         if (iTP < 0)
         {
            TP = OrderTakeProfit();
         }
         if (iSL < 0)
         {
            SL = OrderStopLoss();
         }
         if ((CompareDouble(OrderStopLoss(),NormalizeDouble(SL,Digits))) && (CompareDouble(OrderTakeProfit(),NormalizeDouble(TP,Digits))))
         {
            continue;
         }
         else
         {
            RefreshRates();
            if (!OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,White))
            {
               Alert("Set_SL_TP " + IntegerToString(OrderTicket()) + "  Error: " + ErrorDescription(GetLastError()));
            }
         }
      }
   }
}

int SendOrders(const int Type ,const string iComment,const double iPrice,const double iLots,const double iSL,const double iTP)
{
   double InPrice = 0.0;
   switch (Type)
   {
      case OP_BUY:
      InPrice = Ask;
      break;
      
      case OP_SELL:
      InPrice = Bid;
      break;
      
      default:
      InPrice = iPrice;
      break;
   }
   
   if (Type == OP_BUYSTOP || Type == OP_BUYLIMIT)
   {
   	if (MathAbs(iPrice - Ask) / Point <= SymbolInfoInteger(NULL,SYMBOL_TRADE_STOPS_LEVEL))
   	{
   		return(-2);
   	}
   }
   
   if (Type == OP_SELLSTOP || Type == OP_SELLLIMIT)
   {
   	if (MathAbs(iPrice - Bid) / Point <= SymbolInfoInteger(NULL,SYMBOL_TRADE_STOPS_LEVEL))
   	{
   		return(-2);
   	}
   }
   
   int Ticket = OrderSend(Symbol(),Type,iLots,InPrice,(int)(2 * (point / Point)),iSL,iTP,iComment,id_1,0,((Type & 1) == 1) ? clrRed : clrLime);
   if (Ticket < 0)
   {   
      ErrorCode = GetLastError();
      if (ErrorCode != 4109)
         Alert("Send " + iComment + " Order Error: " + ErrorDescription(ErrorCode));
   }
   return(Ticket);
}

bool CompareDouble(const double A,const double B)
{
   if (MathAbs(A - B) <= TOLERANCE) return(true);
   return(false);
}

bool EqualZero(const double A)
{
   if (A <= TOLERANCE && A >= -TOLERANCE) return(true);
   return(false);
}

void SaveParameter()
{
	int h1 = FileOpen("Var.bin",FILE_CSV|FILE_WRITE);
	if (h1 > 0)
	{
		for(int i=0;i<ArraySize(editID);i++)
		{
			FileWrite(h1,ObjectGetString(0,editID[i],OBJPROP_TEXT));
		}
		FileClose(h1);
	}
}

void LoadPrevious()
{
	int h1 = FileOpen("Var.bin",FILE_CSV|FILE_READ);
	if (h1 > 0)
	{
		for(int i=0;i<ArraySize(editID);i++)
		{
			ObjectSetString(0,editID[i],OBJPROP_TEXT,FileReadString(h1));
		}
		FileClose(h1);
	}
}

void iCloseOrders(const int type)
{
	int C0_cnt;
	if (type != OP_BUY && type != OP_SELL && type != OP_ALL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) 
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==type && OrderMagicNumber()==id_1){
				if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				      Alert(ErrorDescription(ErrorCode));
				}
			}
		}
	}

	if (type == OP_BUY || type == OP_SELL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--) //從最近一張單開始
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
			if (OrderSymbol()==Symbol()&&OrderType()==type && OrderMagicNumber()==id_1 && (ProfitOut ? (OrderProfit() > 0) : (ProfitOutLoss ? (OrderProfit() < 0) : true)))
			{
				if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),20,clrWhite))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
				   {
				      Print("BS");
				      Alert(ErrorDescription(ErrorCode));
				   }
				}
			}
		}
	}
	
	if (type == OP_ALL) 
	{
		for(C0_cnt=OrdersTotal()-1;C0_cnt>=0;C0_cnt--)
		{
			if (!OrderSelect(C0_cnt,SELECT_BY_POS,MODE_TRADES)) continue;
   		if (OrderType() == OP_BUYSTOP || OrderType() == OP_SELLSTOP || OrderType() == OP_BUYLIMIT || OrderType() == OP_SELLLIMIT)
   		{
   		   if (!OrderDelete(OrderTicket()))
				{
				   ErrorCode = GetLastError();
               if (ErrorCode != 4109)
               {
                  Print("ALL Delete");
                  Alert(ErrorDescription(ErrorCode));
               }
				}
   		}else {
   			if ((ProfitOut ? (OrderProfit() > 0) : (ProfitOutLoss ? (OrderProfit() < 0) : true)))
   			{
   			   if (!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),20,clrWhite))
			  	   {
   				   ErrorCode = GetLastError();
        	         if (ErrorCode != 4109)
           	      {   
              	     Print("ALL Close");
                	  Alert(ErrorDescription(ErrorCode));
              	   }
              	}
   			}
         }
		}
	}
}

int OutOrderType(const double inPrice,const int Type)
{
	if (Type == OP_BUY)
	{
		if (inPrice > Ask)
		{
			return(OP_BUYSTOP);
		}else if (inPrice < Ask)
		{
			return(OP_BUYLIMIT);
		}
	}
	
	if (Type == OP_SELL)
	{
		if (inPrice > Bid)
		{
			return(OP_SELLLIMIT);
		}else if (inPrice < Bid)
		{
			return(OP_SELLSTOP);
		}
	}
	return(-1);
}

void iMoveStopLoss(const double SL)
{
	int Cnt = 0;
	for (int i=OrdersTotal()-1;i>=0;i--)
	{
		if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
		if (OrderMagicNumber() == id_1 && OrderSymbol() == Symbol())
		{
			if (OrderType() == OP_BUY && OrderProfit() > 0 && MathAbs(OrderClosePrice() - OrderOpenPrice()) / point >= SL)
			{
				if ((OrderClosePrice() - SL * point) > OrderStopLoss())
				{
					if (!CompareDouble(OrderStopLoss(),NormalizeDouble(OrderClosePrice() - SL * point,Digits)))
					{
						if (!OrderModify(OrderTicket(),OrderOpenPrice(),OrderClosePrice() - SL * point,OrderTakeProfit(),0,clrWhite))
						{
							Print("Trail Stop " + IntegerToString(OrderTicket()) + "Error: "+  ErrorDescription(GetLastError()));
						}
					}
				}
			}
			if (OrderType() == OP_SELL && OrderProfit() > 0 && MathAbs(OrderClosePrice() - OrderOpenPrice()) / point >= SL)
			{
				if ((OrderClosePrice() + SL * point) < OrderStopLoss() || EqualZero(OrderStopLoss()))
				{
					if (!CompareDouble(OrderStopLoss(),NormalizeDouble(OrderClosePrice() + SL * point,Digits)))
					{
						if (!OrderModify(OrderTicket(),OrderOpenPrice(),OrderClosePrice() + SL * point,OrderTakeProfit(),0,clrWhite))
						{
							Print("Trail Stop " + IntegerToString(OrderTicket()) + "Error: "+  ErrorDescription(GetLastError()));
						}
					}	
				}
			}
		}
	}
}

void iBE(const double BE,const double LV)
{
	int Cnt = 0;
	for (int i=OrdersTotal()-1;i>=0;i--)
	{
		if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
		if (OrderMagicNumber() == id_1 && OrderSymbol() == Symbol())
		{
			if (OrderType() == OP_BUY && OrderProfit() > 0 && MathAbs(OrderClosePrice() - OrderOpenPrice()) / point >= LV)
			{
				if (!(CompareDouble(OrderStopLoss(),NormalizeDouble(OrderOpenPrice() + BE * point,Digits))))
				{
					if (!OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice() + BE * point,OrderTakeProfit(),0,clrWhite))
					{
						Print("BE " + IntegerToString(OrderTicket()) + "Error: "+  ErrorDescription(GetLastError()));
					}
				}
			}
			if (OrderType() == OP_SELL && OrderProfit() > 0 && MathAbs(OrderClosePrice() - OrderOpenPrice()) / point >= LV)
			{
				if (!(CompareDouble(OrderStopLoss(),NormalizeDouble(OrderOpenPrice() - BE * point,Digits))))
				{
					if (!OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice() - BE * point,OrderTakeProfit(),0,clrWhite))
					{
						Print("BE " + IntegerToString(OrderTicket()) + "Error: "+  ErrorDescription(GetLastError()));
					}
				}
			}
		}
	}
}

void CreateSW(const int Mode)
{
	for (int i=0;i<ArraySize(VisiSW);i++)
   {
      if (ObjectFind(0,VisiSW[i]) < 0) ObjectCreate(0,VisiSW[i],OBJ_BUTTON,0,100,100);
      ObjectSetInteger(0,VisiSW[i],OBJPROP_BGCOLOR,C'229,228,183');
      ObjectSetInteger(0,VisiSW[i],OBJPROP_XSIZE,(int)(14 * DPIratio));
      ObjectSetInteger(0,VisiSW[i],OBJPROP_YSIZE,(int)(14 * DPIratio));
      ObjectSetInteger(0,VisiSW[i],OBJPROP_XDISTANCE,(int)(SWX(i) * DPIratio));
      ObjectSetInteger(0,VisiSW[i],OBJPROP_YDISTANCE,(int)(0 * DPIratio));
      ObjectSetInteger(0,VisiSW[i],OBJPROP_CORNER,0);
      ObjectSetString(0,VisiSW[i],OBJPROP_FONT,"Webdings");
      if (Mode == 1) ObjectSetString(0,VisiSW[i],OBJPROP_TEXT,SWstring(i));
      //ObjectSetInteger(0,VisiSW[i],OBJPROP_FONTSIZE,15);
      ObjectSetInteger(0,VisiSW[i],OBJPROP_SELECTABLE,0);
      ObjectSetInteger(0,VisiSW[i],OBJPROP_ZORDER,10);
   }
}

int SWX(const int in)
{
	int Out = 0;
	switch(in)
	{
		case 0:
		Out = InitXDis + 340;
		break;
		
		case 1:
		Out = InitXDis;
		break;
		
		case 2:
		Out = InitXDis + 15;
		break;
	}
	return(Out);
}

string SWstring(const int in)
{
	string Out = "";
	switch(in)
	{
		case 1:
		Out = "3";
		break;
		
		case 2:
		Out = "4";
		break;
		
		case 0:
		Out = "5";
	}
	return(Out);
}

void VisiObjs(const bool SW)
{
	for (int i=0;i<40;i++)
   {
      if (i < ArraySize(BGID) && ObjectFind(0,BGID[i]) >= 0) ObjectSetInteger(0,BGID[i],OBJPROP_TIMEFRAMES,(SW ? OBJ_ALL_PERIODS : EMPTY));
      if (i < ArraySize(logoID) && ObjectFind(0,logoID[i]) >= 0) ObjectSetInteger(0,logoID[i],OBJPROP_TIMEFRAMES,(SW ? OBJ_ALL_PERIODS : EMPTY));
      if (i < ArraySize(buttonID) && ObjectFind(0,buttonID[i]) >= 0) ObjectSetInteger(0,buttonID[i],OBJPROP_TIMEFRAMES,(SW ? OBJ_ALL_PERIODS : EMPTY));
      if (i < ArraySize(editID) && ObjectFind(0,editID[i]) >= 0) ObjectSetInteger(0,editID[i],OBJPROP_TIMEFRAMES,(SW ? OBJ_ALL_PERIODS : EMPTY));
      if (i < ArraySize(labelID) && ObjectFind(0,labelID[i]) >= 0) ObjectSetInteger(0,labelID[i],OBJPROP_TIMEFRAMES,(SW ? OBJ_ALL_PERIODS : EMPTY));
      if (i < ArraySize(CheckBox) && ObjectFind(0,CheckBox[i]) >= 0) ObjectSetInteger(0,CheckBox[i],OBJPROP_TIMEFRAMES,(SW ? OBJ_ALL_PERIODS : EMPTY));
   }
}

void VisiObjsSlave(const bool SW)
{
	for (int i=0;i<40;i++)
   {
      if (i < ArraySize(BGIDslave) && ObjectFind(0,BGIDslave[i]) >= 0) ObjectSetInteger(0,BGIDslave[i],OBJPROP_TIMEFRAMES,(SW ? OBJ_ALL_PERIODS : EMPTY));
      if (i < ArraySize(buttonsID) && ObjectFind(0,buttonsID[i]) >= 0) ObjectSetInteger(0,buttonsID[i],OBJPROP_TIMEFRAMES,(SW ? OBJ_ALL_PERIODS : EMPTY));
      if (i < ArraySize(labelsID) && ObjectFind(0,labelsID[i]) >= 0) ObjectSetInteger(0,labelsID[i],OBJPROP_TIMEFRAMES,(SW ? OBJ_ALL_PERIODS : EMPTY));
      if (i < ArraySize(editsID) && ObjectFind(0,editsID[i]) >= 0) ObjectSetInteger(0,editsID[i],OBJPROP_TIMEFRAMES,(SW ? OBJ_ALL_PERIODS : EMPTY));
      if (i < ArraySize(CheckBoxs) && ObjectFind(0,CheckBoxs[i]) >= 0) ObjectSetInteger(0,CheckBoxs[i],OBJPROP_TIMEFRAMES,(SW ? OBJ_ALL_PERIODS : EMPTY));
   }
}

void MarginCall()
{
	double LotsB = 0.0;
	double LotsS = 0.0;
	double ProfitB = 0.0;
	double ProfitS = 0.0;
	int Buy = 0;
	int Sell = 0;
	for (int i=0;i<OrdersTotal();i++)
	{
		if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
		if (OrderSymbol() == Symbol())
		{
			if (OrderType() == OP_BUY)
			{
				LotsB += OrderLots();
				ProfitB += OrderProfit() + OrderSwap() + OrderCommission();
				Buy++;
			}
			if (OrderType() == OP_SELL)
			{
				LotsS += OrderLots();
				ProfitS += OrderProfit() + OrderSwap() + OrderCommission();
				Sell++;
			}
		}
	}
	
	double MarginLv = StringToDouble(ObjectGetString(0,editID[12],OBJPROP_TEXT)) * 0.01;
	
	double MarginPips = 0.0;
	double MarginPrice = 0.0;
	if (EqualZero(LotsB - LotsS)) 
	{
		MarginPips = 0;
		MarginPrice = 0;
	}else
	{
		MarginPips = (((MarginLv * AccountMargin()) - AccountEquity()) / (LotsB - LotsS)) / 10; 
		MarginPrice = Bid + MarginPips * point;
	}
	
   ObjectSetString(0,labelID[15],OBJPROP_TEXT,DoubleToString(MarginPips,2));
   ObjectSetString(0,labelID[17],OBJPROP_TEXT,DoubleToString(MarginPrice,Digits));
   ObjectSetString(0,labelID[19],OBJPROP_TEXT,IntegerToString(Buy));
   ObjectSetString(0,labelID[21],OBJPROP_TEXT,DoubleToString(LotsB,2));
   ObjectSetString(0,labelID[23],OBJPROP_TEXT,IntegerToString(Sell));
   ObjectSetString(0,labelID[25],OBJPROP_TEXT,DoubleToString(LotsS,2));
   ObjectSetString(0,labelID[28],OBJPROP_TEXT,DoubleToString(ProfitB,2) + " USD");
   ObjectSetString(0,labelID[30],OBJPROP_TEXT,DoubleToString(ProfitS,2) + " USD");
   ObjectSetString(0,labelID[32],OBJPROP_TEXT,IntegerToString(OrdersTotal()));
   ObjectSetString(0,labelID[34],OBJPROP_TEXT,DoubleToString(LotsB + LotsS,2));
   ObjectSetString(0,labelID[36],OBJPROP_TEXT,DoubleToString(AccountProfit(),2) + " USD");
}

bool CheckAlledit()
{
	int i = 0;
	string str_temp = "";
   for (;i<ArraySize(editID);i++)
   {
      str_temp = ObjectGetString(0,editID[i],OBJPROP_TEXT);
      if ((i == 10 ? !CheckString(str_temp,0) : !CheckString(str_temp,1)))
      {
      	Alert("不合法的參數，欄位 " + (i >= 7 ? labelText[i+1] : labelText[i]));
      	return(false);
      }
   }
   for (i=0;i<ArraySize(editsID);i++)
   {
      str_temp = ObjectGetString(0,editsID[i],OBJPROP_TEXT);
      if ((i == 10 ? !CheckString(str_temp,0) : !CheckString(str_temp,1)))
      {
      	Alert("不合法的參數，欄位 " + (i >= 2 ? labelsText[i+2] : labelsText[i]));
      	return(false);
      }
   }
   return(true);
}

bool CheckString(const string in,const int Mode)
{
	for(int i=0;i<StringLen(in);i++)
	{
		if (!CheckChar(StringGetCharacter(in,i),Mode))
		{	
			return(false);
		}
	}
	return(true);
}

bool CheckChar(const ushort in,const int Mode)
{
	if (Mode == 0)
	{		
		if (in != '-' && in != '0' && in != '1' && in != '2' && in != '3' && in != '4' && in != '5' && in != '6' && in != '7' && in != '8' && in != '9' && in != '\0')
		{
			return(false);
		}
	}
	if (Mode == 1)
	{		
		if (in != '-' && in != '0' && in != '1' && in != '2' && in != '3' && in != '4' && in != '5' && in != '6' && in != '7' && in != '8' && in != '9' && in != '.' && in != '\0')
		{
			return(false);
		}
	}
	return(true);
}

double Cal_TP(int Type,double iPrice,double Profit)
{
   double TotalLots=0.0;
   double TotalDisProduct=0.0;
   double TP_Goal;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderMagicNumber() == id_1 && OrderSymbol() == Symbol())
      {
         if (OrderType() == Type)
         {
         	TotalLots += OrderLots();
         	if (Type == OP_SELL)
         	{	
	         	TotalDisProduct += (iPrice - OrderOpenPrice()) / point * OrderLots();
         	}
        		if (Type == OP_BUY)
        		{
	        		TotalDisProduct += (OrderOpenPrice() - iPrice) / point * OrderLots();
        		}
        	}
        	if (Type == OP_ALL)
        	{
        		
         	if (OrderType() == OP_SELL)
         	{	
	         	//Profit += ((OrderOpenPrice() - iPrice) / point * OrderLots()) * 10;
	         	TotalLots += OrderLots();
	         	TotalDisProduct += (iPrice - OrderOpenPrice()) / point * OrderLots();
         	}
        		if (OrderType() == OP_BUY)
        		{
	        		//Profit += ((iPrice - OrderOpenPrice()) / point * OrderLots()) * 10;
	        		TotalLots -= OrderLots();
	        		TotalDisProduct += (OrderOpenPrice() - iPrice) / point * OrderLots();
        		}
        	}
      }
   }
   if (EqualZero(TotalLots)) return(0.0);
   TP_Goal = (((Profit) / 10) + TotalDisProduct) / TotalLots;
   if (Type == OP_SELL)
   	return(iPrice - (TP_Goal * point));
  	if (Type == OP_BUY)
   	return(iPrice + (TP_Goal * point));
   if (Type == OP_ALL)
   {
   	return(TP_Goal > 0 ? (iPrice + (TP_Goal * point)) : (iPrice - (TP_Goal * point)));
   }
   return(0.0);
}

double Cal_Profit(int Type,double iPrice)
{
   double Profit = 0.0;
   for (int i=0;i<OrdersTotal();i++)
   {
      if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
      if (OrderMagicNumber() == id_1 && OrderSymbol() == Symbol())
      {
         if (OrderType() == Type)
         {
         	if (Type == OP_SELL)
         	{	
	         	Profit += ((OrderOpenPrice() - iPrice) / point * OrderLots()) * 10;
         	}
        		if (Type == OP_BUY)
        		{
	        		Profit += ((iPrice - OrderOpenPrice()) / point * OrderLots()) * 10;
        		}
        	}
        	if (Type == OP_ALL)
        	{
        		if (OrderType() == OP_SELL)
         	{	
	         	Profit += ((OrderOpenPrice() - iPrice) / point * OrderLots()) * 10;
         	}
        		if (OrderType() == OP_BUY)
        		{
	        		Profit += ((iPrice - OrderOpenPrice()) / point * OrderLots()) * 10;
        		}
        	}
      }
   }
   return(Profit);
}

bool CheckValid()
{
	uchar temp[256] = {0};
   int SW = 0;
   
   if (!IsDemo()) 
   {
   	SW = CheckList(AccountNumber(),2,temp);
   	string str_temp = CharArrayToString(temp,0,WHOLE_ARRAY,CP_UTF8);
   	StringReplace(str_temp,"\r\n","");
   	if (SW < 0 || str_temp == "1") 
   	{
   		return(false);
   	}
   }
   return(true);
}

void UpdateFiles(const int Mode)
{
	if (Mode == MODE_INIT)
	{
		if (!GlobalVariableCheck("DNSW")) GlobalVariableSet("DNSW",0);
	   if (GlobalVariableSetOnCondition("DNSW",1,0))
   	{
      	if (UninitializeReason() != 3)
      	{
         	Sleep(1000);
      	}
   	}
	}
	if (Mode == MODE_TICK)
	{
		if (TimeHour(TimeLocal()) == DownloadHour && TimeMinute(TimeLocal()) == DownloadMin && H1BarTime != iTime(Symbol(),PERIOD_H1,0))
			 
		{
			if (!GlobalVariableCheck("DNSW0")) GlobalVariableSet("DNSW0",0); 
			if (GlobalVariableSetOnCondition("DNSW0",1,0))
			{
				Sleep(1000);
        		GlobalVariableSet("DNSW0",0); 
        	}
        	H1BarTime = iTime(Symbol(),PERIOD_H1,0);
		}
	}
}

天狼星戰機All New Sirius.mq4

#property copyright ""
#property link      ""

#include <WinUser32.mqh>
#include <stdlib.mqh>

bool Get_Full_Take_Profit = TRUE;
bool Alert_With_Sound = TRUE;
bool Get_Protected_Stop_Loss = false;
color Lines_Color = Gold;
double gd_unused_92 = 1.0;
string gs_100 = "";
string gsa_108[9];


int init() {
   if (Digits == 5 || Digits == 3) gd_unused_92 = 10;
   HideTestIndicators(TRUE);
   CheckForOrder();
   Comments();
   return (0);
}

int deinit() {
   deleteObject("line_FirstTakeProfit");
   deleteObject("arrow_FirstTakeProfit");
   deleteObject("label_FirstTakeProfit");
   deleteObject("Sirius_down");
   deleteObject("Sirius_up");
   return (0);
}

int start() {
   Comments();
   CheckForOrder();
   return (0);
}

void Comments() {
   string ls_0 = "\n";
   string ls_8 = "" 
      + "\n" 
      + "Sirius Management Robot" 
      + "\n" 
      + "------------------------------------------------" 
      + "\n" 
      + "Account Leverage:     " + DoubleToStr(AccountLeverage(), 0) 
      + "\n" 
      + "Account Currency:     " + AccountCurrency() 
      + "\n" 
      + "Account Balance:      " + DoubleToStr(AccountBalance(), 2) 
      + "\n" 
      + "Account Equity:       " + DoubleToStr(AccountEquity(), 2) 
      + "\n" 
      + "------------------------------------------------" 
      + "\n" 
      + "Trade Information:" 
      + "\n" 
      + "Trade Open Price:       " + gsa_108[4] 
      + "\n" 
      + "Trade Stop Loss:        " + gsa_108[2] 
      + "\n" 
      + "First Take Profit:      " + gsa_108[8] 
      + "\n" 
   + "------------------------------------------------" + ls_0;
   for (int l_count_16 = 0; !IsStopped() && !IsConnected(); l_count_16++) {
      Comment("Waiting for connection");
      Sleep(150);
   }
   if (gsa_108[0] == "") {
      deleteObject("line_80%獲利目標");
      deleteObject("arrow_80%獲利目標");
      deleteObject("label_80%獲利目標");
      Comment(Symbol() + ": Did not find any open order! Exiting...");
      return;
   }
   Comment(ls_8);
}

void createObject(string as_0, string as_8, double a_price_16, color a_color_24) {
   if (ObjectFind("arrow_" + as_0) == -1) {
      ObjectCreate("arrow_" + as_0, OBJ_HLINE, 0, Time[0], a_price_16);
      ObjectSet("arrow_" + as_0, OBJPROP_STYLE, STYLE_DASH);
      ObjectSet("arrow_" + as_0, OBJPROP_COLOR, a_color_24);
      ObjectSetText("arrow_" + as_0, as_8 + DoubleToStr(a_price_16, Digits), 12, "Tahoma", a_color_24);
   }
   if (ObjectFind("line_" + as_0) == -1) {
      ObjectCreate("line_" + as_0, OBJ_HLINE, 0, TimeCurrent(), a_price_16);
      ObjectSet("line_" + as_0, OBJPROP_COLOR, a_color_24);
      ObjectSet("line_" + as_0, OBJPROP_STYLE, STYLE_DASH);
   }
   if (ObjectFind("label_" + as_0) != 0) {
      ObjectCreate("label_" + as_0, OBJ_TEXT, 0, Time[20], a_price_16);
      ObjectSetText("label_" + as_0, as_8 + DoubleToStr(a_price_16, Digits), 12, "Tahoma", a_color_24);
   }
}

void deleteObject(string a_name_0) {
   if (ObjectFind(a_name_0) != -1) ObjectDelete(a_name_0);
}

void SetOrderProperties() {
   int l_file_0 = FileOpen("Sirius" + gsa_108[1] + gsa_108[4] + gsa_108[5] + ".dat", FILE_BIN|FILE_WRITE);
   if (l_file_0 > 0) {
      FileWriteArray(l_file_0, gsa_108, 0, 9);
      FileClose(l_file_0);
      return;
   }
   int l_error_4 = GetLastError();
   if (l_error_4 > 0/* NO_ERROR */) Print("Sirius" + gsa_108[1] + gsa_108[4] + gsa_108[5] + ".dat" + "Error File error=", l_error_4, ": ", ErrorDescription(l_error_4));
}

void GetOrderProperties(string as_0) {
   int l_file_8 = FileOpen("Sirius" + as_0 + ".dat", FILE_BIN|FILE_READ);
   if (l_file_8 > 0) {
      FileReadArray(l_file_8, gsa_108, 0, 9);
      FileClose(l_file_8);
      return;
   }
   int l_error_12 = GetLastError();
   if (l_error_12 > 0/* NO_ERROR */) Print("Sirius" + as_0 + ".dat" + "Error File error=", l_error_12, ": ", ErrorDescription(l_error_12));
}

bool FileExists(string a_name_0) {
   int l_file_8 = FileOpen(a_name_0, FILE_READ);
   if (l_file_8 < 1) return (FALSE);
   FileClose(l_file_8);
   return (TRUE);
}

void CheckForOrder() {
   int l_error_4;
   bool l_ord_close_8;
   int l_count_0 = 0;
   for (int l_pos_12 = OrdersTotal() - 1; l_pos_12 >= 0; l_pos_12--) {
      if (OrderSelect(l_pos_12, SELECT_BY_POS, MODE_TRADES) == FALSE) break;
      if (OrderSymbol() == Symbol()) {
         RefreshRates();
         l_count_0++;
         if (OrderStopLoss() <= 0.0) {
            DoAlert(Symbol() + ": 請設定止損價格! ");
            break;
         }
         if (FileExists("Sirius" + Symbol() + DoubleToStr(OrderOpenPrice(), Digits) + OrderOpenTime() + ".dat")) {
            GetOrderProperties(Symbol() + DoubleToStr(OrderOpenPrice(), Digits) + OrderOpenTime());
            if (gsa_108[3] == "1" && gsa_108[2] != DoubleToStr(OrderStopLoss(), Digits)) {
               gsa_108[2] = DoubleToStr(OrderStopLoss(), Digits);
               switch (OrderType()) {
               case OP_SELL:
                  gsa_108[8] = DoubleToStr(StrToDouble(gsa_108[4]) - (StrToDouble(gsa_108[2]) - StrToDouble(gsa_108[4])) / 2.0, Digits);
                  break;
               case OP_BUY:
                  gsa_108[8] = DoubleToStr(StrToDouble(gsa_108[4]) + (StrToDouble(gsa_108[4]) - StrToDouble(gsa_108[2])) / 2.0, Digits);
               }
               SetOrderProperties();
            }
         } else {
            gsa_108[0] = OrderTicket();
            gsa_108[1] = OrderSymbol();
            gsa_108[2] = DoubleToStr(OrderStopLoss(), Digits);
            gsa_108[3] = "1";
            gsa_108[4] = DoubleToStr(OrderOpenPrice(), Digits);
            gsa_108[5] = OrderOpenTime();
            gsa_108[6] = DoubleToStr(OrderLots(), 2);
            gsa_108[7] = OrderType();
            switch (OrderType()) {
            case OP_SELL:
               gsa_108[8] = DoubleToStr(StrToDouble(gsa_108[4]) - (StrToDouble(gsa_108[2]) - StrToDouble(gsa_108[4])) / 2.0, Digits);
               break;
            case OP_BUY:
               gsa_108[8] = DoubleToStr(StrToDouble(gsa_108[4]) + (StrToDouble(gsa_108[4]) - StrToDouble(gsa_108[2])) / 2.0, Digits);
            }
            SetOrderProperties();
         }
         switch (OrderType()) {
         case OP_SELL:
            if (gsa_108[3] == "1") {
               deleteObject("line_80%獲利目標");
               deleteObject("arrow_80%獲利目標");
               deleteObject("label_80%獲利目標");
               createObject("80%獲利目標t", "80%獲利目標: ", StrToDouble(gsa_108[8]), Lines_Color);
               if (StrToDouble(gsa_108[2]) > 0.0 && Ask <= StrToDouble(gsa_108[8])) {
                  l_ord_close_8 = OrderClose(OrderTicket(), 0.8 * OrderLots(), Ask, 5, Lines_Color);
                  if (l_ord_close_8) {
                     if (Alert_With_Sound) Alert(Symbol(), " closed ", " @ ", NormalizeDouble(OrderClosePrice(), Digits), " TP1 ");
                     if (!Alert_With_Sound) MessageBox(Symbol() + " closed @ " + DoubleToStr(OrderClosePrice(), Digits) + " TP1 ", "Sirius Information", MB_OKCANCEL);
                     if (Get_Full_Take_Profit) {
                        gsa_108[3] = "2";
                        SetOrderProperties();
                     } else CleanParams();
                  } else {
                     l_error_4 = GetLastError();
                     if (l_error_4 > 0/* NO_ERROR */) {
                        Print("OrderClose failed, error=", l_error_4, ": ", ErrorDescription(l_error_4));
                        if (l_error_4 == 138/* REQUOTE */) Alert("Sirius tried to close a trade @" + DoubleToStr(Ask, Digits) + " but broker rejected order.");
                     }
                  }
               }
            }
            if (gsa_108[3] == "2" && Get_Full_Take_Profit) {
               if (iMA(OrderSymbol(), 0, 4, 0, MODE_EMA, PRICE_CLOSE, 1) > iMA(OrderSymbol(), 0, 6, 0, MODE_EMA, PRICE_CLOSE, 1) && iMA(OrderSymbol(), 0, 6, 0, MODE_EMA, PRICE_CLOSE, 1) > iMA(OrderSymbol(), 0, 14, 0, MODE_EMA, PRICE_CLOSE, 1)) {
                  l_ord_close_8 = OrderClose(OrderTicket(), OrderLots(), Ask, 5, Lines_Color);
                  if (l_ord_close_8) {
                     if (Alert_With_Sound) Alert(Symbol(), " closed ", " @ ", NormalizeDouble(OrderClosePrice(), Digits), " TP2 ");
                     if (!Alert_With_Sound) MessageBox(Symbol() + " closed @ " + DoubleToStr(OrderClosePrice(), Digits) + " TP2 ", "Sirius Information", MB_OKCANCEL);
                     CleanParams();
                  } else {
                     l_error_4 = GetLastError();
                     if (l_error_4 > 0/* NO_ERROR */) {
                        Print("OrderClose failed, error=", l_error_4, ": ", ErrorDescription(l_error_4));
                        if (l_error_4 == 138/* REQUOTE */) Alert("Sirius tried to close a trade @" + DoubleToStr(Ask, Digits) + " but broker rejected order.");
                     }
                  }
               }
            }
            if (gsa_108[3] == "1" && Get_Protected_Stop_Loss && TimeCurrent() - OrderOpenTime() > 60 * Period()) {
               if (iMA(NULL, 0, 4, 0, MODE_EMA, PRICE_CLOSE, 1) > iMA(NULL, 0, 6, 0, MODE_EMA, PRICE_CLOSE, 1) && iMA(NULL, 0, 6, 0, MODE_EMA, PRICE_CLOSE, 1) > iMA(NULL, 0, 14, 0, MODE_EMA, PRICE_CLOSE, 1)) {
                  l_ord_close_8 = OrderClose(OrderTicket(), OrderLots(), Ask, 5, Lines_Color);
                  if (l_ord_close_8) {
                     if (Alert_With_Sound) Alert(Symbol(), " closed ", " @ ", NormalizeDouble(OrderClosePrice(), Digits), " PSL ");
                     if (!Alert_With_Sound) MessageBox(Symbol() + " closed @ " + DoubleToStr(OrderClosePrice(), Digits) + " PSL ", "Sirius Information", MB_OKCANCEL);
                     CleanParams();
                  } else {
                     l_error_4 = GetLastError();
                     if (l_error_4 > 0/* NO_ERROR */) {
                        Print("OrderClose failed, error=", l_error_4, ": ", ErrorDescription(l_error_4));
                        if (l_error_4 == 138/* REQUOTE */) Alert("Sirius tried to close a trade @" + DoubleToStr(Ask, Digits) + " but broker rejected order.");
                     }
                  }
               }
            }
            break;
         case OP_BUY:
            if (gsa_108[3] == "1") {
               deleteObject("line_80%獲利目標");
               deleteObject("arrow_80%獲利目標");
               deleteObject("label_80%獲利目標");
               createObject("80%獲利目標", "80%獲利目標: ", StrToDouble(gsa_108[8]), Lines_Color);
               if (StrToDouble(gsa_108[2]) > 0.0 && Bid >= StrToDouble(gsa_108[8])) {
                  l_ord_close_8 = OrderClose(OrderTicket(), 0.8 * OrderLots(), Bid, 5, Lines_Color);
                  if (l_ord_close_8) {
                     if (Alert_With_Sound) Alert(Symbol(), " closed ", " @ ", NormalizeDouble(OrderClosePrice(), Digits), " TP1 ");
                     if (!Alert_With_Sound) MessageBox(Symbol() + " closed @ " + DoubleToStr(OrderClosePrice(), Digits) + " TP1 ", "Sirius Information", MB_OKCANCEL);
                     if (Get_Full_Take_Profit) {
                        gsa_108[3] = "2";
                        SetOrderProperties();
                     } else CleanParams();
                  } else {
                     l_error_4 = GetLastError();
                     if (l_error_4 > 0/* NO_ERROR */) {
                        if (l_error_4 == 138/* REQUOTE */) Alert("Sirius tried to close a trade @" + DoubleToStr(Bid, Digits) + " but broker rejected order.");
                        Print("OrderClose failed, error=", l_error_4, ": ", ErrorDescription(l_error_4));
                     }
                  }
               }
            }
            if (gsa_108[3] == "2" && Get_Full_Take_Profit) {
               if (iMA(OrderSymbol(), 0, 4, 0, MODE_EMA, PRICE_CLOSE, 1) < iMA(OrderSymbol(), 0, 6, 0, MODE_EMA, PRICE_CLOSE, 1) && iMA(OrderSymbol(), 0, 6, 0, MODE_EMA, PRICE_CLOSE, 1) < iMA(OrderSymbol(), 0, 14, 0, MODE_EMA, PRICE_CLOSE, 1)) {
                  l_ord_close_8 = OrderClose(OrderTicket(), OrderLots(), Bid, 5, Lines_Color);
                  if (l_ord_close_8) {
                     if (Alert_With_Sound) Alert(Symbol(), " closed ", " @ ", NormalizeDouble(OrderClosePrice(), Digits), " TP2 ");
                     if (!Alert_With_Sound) MessageBox(Symbol() + " closed @ " + DoubleToStr(OrderClosePrice(), Digits) + " TP2 ", "Sirius Information", MB_OKCANCEL);
                     CleanParams();
                  } else {
                     l_error_4 = GetLastError();
                     if (l_error_4 > 0/* NO_ERROR */) {
                        if (l_error_4 == 138/* REQUOTE */) Alert("Sirius tried to close a trade @" + DoubleToStr(Bid, Digits) + " but broker rejected order.");
                        Print("OrderClose failed, error=", l_error_4, ": ", ErrorDescription(l_error_4));
                     }
                  }
               }
            }
            if (gsa_108[3] == "1" && Get_Protected_Stop_Loss && TimeCurrent() - OrderOpenTime() > 60 * Period()) {
               if (iMA(NULL, 0, 4, 0, MODE_EMA, PRICE_CLOSE, 1) < iMA(NULL, 0, 6, 0, MODE_EMA, PRICE_CLOSE, 1) && iMA(NULL, 0, 6, 0, MODE_EMA, PRICE_CLOSE, 1) < iMA(NULL, 0, 14, 0, MODE_EMA, PRICE_CLOSE, 1)) {
                  l_ord_close_8 = OrderClose(OrderTicket(), OrderLots(), Bid, 5, Lines_Color);
                  if (l_ord_close_8) {
                     if (Alert_With_Sound) Alert(Symbol(), " closed ", " @ ", NormalizeDouble(OrderClosePrice(), Digits), " PSL ");
                     if (!Alert_With_Sound) MessageBox(Symbol() + " closed @ " + DoubleToStr(OrderClosePrice(), Digits) + " PSL ", "Sirius Information", MB_OKCANCEL);
                     CleanParams();
                  } else {
                     l_error_4 = GetLastError();
                     if (l_error_4 > 0/* NO_ERROR */) {
                        if (l_error_4 == 138/* REQUOTE */) Alert("Sirius tried to close a trade @" + DoubleToStr(Bid, Digits) + " but broker rejected order.");
                        Print("OrderClose failed, error=", l_error_4, ": ", ErrorDescription(l_error_4));
                     }
                  }
               }
            }
         }
      }
   }
   if (l_count_0 == 0) {
      deleteObject("line_80%獲利目標");
      deleteObject("arrow_80%獲利目標");
      deleteObject("label_80%獲利目標");
      Comment(Symbol() + ": Did not find any open order! Exiting...");
   }
}

void CleanParams() {
   if (gsa_108[0] != "") {
      if (FileExists("Sirius" + gsa_108[1] + gsa_108[4] + gsa_108[5] + ".dat")) FileDelete("Sirius" + gsa_108[1] + gsa_108[4] + gsa_108[5] + ".dat");
      deleteObject("line_MyTakeProfit");
      deleteObject("arrow_MyTakeProfit");
      deleteObject("label_MyTakeProfit");
      deleteObject("Sirius_down");
      deleteObject("Sirius_up");
      gsa_108[0] = "";
      gsa_108[1] = "";
      gsa_108[2] = "";
      gsa_108[3] = "";
      gsa_108[4] = "";
      gsa_108[5] = "";
      gsa_108[6] = "";
      gsa_108[7] = "";
      gsa_108[8] = "";
   }
}

void DoAlert(string as_0) {
   if (as_0 != gs_100) {
      if (Alert_With_Sound) PlaySound("alert.wav");
      MessageBox(as_0, "Sirius Trade Management Robot", 0);
      gs_100 = as_0;
   }
}