hma-calling-code

 
 
//+------------------- DO NOT REMOVE THIS HEADER -------------
----
---+
#define SIGNAL_NONE 0
#define SIGNAL_BUY 1
#define SIGNAL_SELL 2
#define SIGNAL_CLOSEBUY 3
#define SIGNAL_CLOSESELL 4
#property copyright "Expert Advisor Builder"
//#property link "http: //sufx.core.t3-
//ism. net/ExpertAdvisorBuilder/"
extern int MagicNumber = 0; 
extern bool SignalMail = False; 
extern bool EachTickMode = True; 
extern double Lots = 1. ;0; 
extern int Slippage = 3; 
extern bool StopLossMode = True; 
extern int StopLoss = 30; 
extern bool TakeProfitMode = True; 
extern int TakeProfit = 60; 
extern bool TrailingStopMode = True; 
extern int TrailingStop = 30; 
int BarCount; 
int Current; 
bool TickCheck = False; 
//+----------------------------------------------------------
---+
// expert initializationfunction 
//+-------------------------------------------------------------+
int init() {
BarCount = Bars; 
if (EachTickMode) Current = 0; else Current = 1; 
return(0); 
}
//+----------------------------------------------------------
---+
// expert deinitialization
function 
//+-------------------------------------------------------------+
int deinit() {
return(0); 
}
//+----------------------------------------------------------
---+
// expert start
function 
//+----------------------------------------------------------
---+
int start() {
int Order = SIGNAL_NONE; 
int Total, Ticket; 
double StopLossLevel, TakeProfitLevel; 
 
if (EachTickMode && Bars ! = BarCount) TickCheck = False; 
Total = OrdersTotal(); 
Order = SIGNAL_NONE; 
//+----------------------------------------------------------
------+
// Variable
Begin 
//+----------------------------------------------------------
------+
double Var1 = iCustom(NULL, 0, "", 0, Current + 0); 
double Var2 = iCustom(NULL, 0, "", 0, Current + 1); 
double Buy1_1 = iCustom(NULL, 0, "", 0, Current + 0); 
double Buy1_2 = iCustom(NULL, 0, "", 0, Current + 1); 
double Sell1_1 = iCustom(NULL, 0, "", 0, Current + 0); 
double Sell1_2 = iCustom(NULL, 0, "", 0, Current + 1); 
double CloseBuy1_1 = iCustom(NULL, 0, "", 0, Current + 0); 
double CloseBuy1_2 = iCustom(NULL, 0, "", 0, Current + 1); 
double CloseSell1_1 = iCustom(NULL, 0, "", 0, Current + 0); 
double CloseSell1_2 = iCustom(NULL, 0, "", 0, Current + 1); 
 
//+----------------------------------------------------------
------+
// Variable
End 
//+----------------------------------------------------------
------+
//Check position
bool IsTrade = False; 
for (int i = 0; i < Total; i ++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES); 
if(OrderType() <= OP_SELL && OrderSymbol() == Symbol()) {
IsTrade = True; 
if(OrderType() == OP_BUY) {
//Close
 
//+----------------------------------------------------------
---+
// Signal Begin(Exit
Buy) 
 
//+----------------------------------------------------------
---+
if (CloseBuy1_1 < CloseBuy1_2) Order =
SIGNAL_CLOSEBUY; 
 
 
//+----------------------------------------------------------
---+
// Signal End(Exit
Buy) 
 
//+----------------------------------------------------------
---+
if (Order == SIGNAL_CLOSEBUY && ((EachTickMode && ! 
TickCheck)
(! EachTickMode && (Bars ! = BarCount)))) {
OrderClose(OrderTicket(), OrderLots(), Bid, 
Slippage, 
MediumSeaGreen); 
if (SignalMail) SendMail("[Signal Alert]", "[" +
Symbol() +
"] " + DoubleToStr(Bid, Digits) + " Close Buy"); 
if (! EachTickMode) BarCount = Bars; 
IsTrade = False; 
continue; 
}
//Trailing stop
if(TrailingStopMode && TrailingStop 0) {
if(Bid - OrderOpenPrice() Point * TrailingStop) {
if(OrderStopLoss() < Bid - Point *
TrailingStop) {
OrderModify(OrderTicket(), OrderOpenPrice(), 
Bid -
Point * TrailingStop, OrderTakeProfit(), 0, MediumSeaGreen); 
if (! EachTickMode) BarCount = Bars; 
continue; 
}
}
}
} else {
//Close
 
//+----------------------------------------------------------
---+
// Signal Begin(Exit
Sell) 
 
//+----------------------------------------------------------
---+
if (CloseSell1_1 CloseSell1_2) Order =
SIGNAL_CLOSESELL; 
 
 
//+----------------------------------------------------------
---+
// Signal End(Exit
Sell) 
 
//+----------------------------------------------------------
---+
if (Order == SIGNAL_CLOSESELL && ((EachTickMode && ! 
TickCheck)
(! EachTickMode && (Bars ! = BarCount)))) {
OrderClose(OrderTicket(), OrderLots(), Ask, 
Slippage, 
DarkOrange); 
if (SignalMail) SendMail("[Signal Alert]", "[" +
Symbol() +
"] " + DoubleToStr(Ask, Digits) + " Close Sell"); 
if (! EachTickMode) BarCount = Bars; 
IsTrade = False; 
continue; 
}
//Trailing stop
if(TrailingStopMode && TrailingStop 0) {
if((OrderOpenPrice() - Ask) (Point *
TrailingStop)) {
if((OrderStopLoss() (Ask + Point *
TrailingStop)) 
(OrderStopLoss() == 0)) {OrderModify(OrderTicket(), OrderOpenPrice(), 
Ask +
Point * TrailingStop, OrderTakeProfit(), 0, DarkOrange); 
if (! EachTickMode) BarCount = Bars; 
continue; 
}
}
}
}
}
}
//+----------------------------------------------------------
------+
// Signal Begin
(Entry) 
//+----------------------------------------------------------
------+
if (Buy1_1 Buy1_2) Order = SIGNAL_BUY; 
if (Sell1_1 < Sell1_2) Order = SIGNAL_SELL; 
 
//+----------------------------------------------------------
------+
// Signal
End 
//+----------------------------------------------------------
------+
//Buy
if (Order == SIGNAL_BUY && ((EachTickMode && ! TickCheck) 
(! EachTickMode && (Bars ! = BarCount)))) {
if(! IsTrade) {
//Check free margin
if (AccountFreeMargin() < (1000 * Lots)) {
Print("We have no money. Free Margin = ", 
AccountFreeMargin()); 
return(0); 
}
if (StopLossMode) StopLossLevel = Ask - StopLoss *
Point; else
StopLossLevel = 0. 0; 
if (TakeProfitMode) TakeProfitLevel = Ask + TakeProfit *
Point; 
else TakeProfitLevel = 0. 0; 
Ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, Slippage, 
StopLossLevel, TakeProfitLevel, "Buy(#" + MagicNumber + ")", 
MagicNumber, 0, 
DodgerBlue); 
if(Ticket 0) {
if (OrderSelect(Ticket, SELECT_BY_TICKET, 
MODE_TRADES)) {
Print("BUY order opened : ", OrderOpenPrice()); 
if (SignalMail) SendMail("[Signal Alert]", "[" +
Symbol()
+ "] " + DoubleToStr(Ask, Digits) + " Open Buy"); 
} else {
Print("Error opening BUY order : ", GetLastError()); 
}
}
if (EachTickMode) TickCheck = True; 
if (! EachTickMode) BarCount = Bars; 
return(0); 
}
}
//Sell
if (Order == SIGNAL_SELL && ((EachTickMode && ! TickCheck) 
(! EachTickMode && (Bars ! = BarCount)))) {
if(! IsTrade) {
//Check free margin
if (AccountFreeMargin() < (1000 * Lots)) {
Print("We have no money. Free Margin = ", 
AccountFreeMargin()); 
return(0); 
}
if (StopLossMode) StopLossLevel = Bid + StopLoss *
Point; else
StopLossLevel = 0. 0; 
if (TakeProfitMode) TakeProfitLevel = Bid - TakeProfit *
Point; 
else TakeProfitLevel = 0. 0; 
Ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, 
Slippage, 
StopLossLevel, TakeProfitLevel, "Sell(#" + MagicNumber + ")", 
MagicNumber, 
0, DeepPink); 
if(Ticket 0) {
if (OrderSelect(Ticket, SELECT_BY_TICKET, 
MODE_TRADES)) {
Print("SELL order opened : ", OrderOpenPrice()); 
if (SignalMail) SendMail("[Signal Alert]", "[" +
Symbol()
+ "] " + DoubleToStr(Bid, Digits) + " Open Sell"); 
} else {
Print("Error opening SELL order : ", GetLastError()); 
}
}
if (EachTickMode) TickCheck = True; 
if (! EachTickMode) BarCount = Bars; 
return(0); 
}
}
if (! EachTickMode) BarCount = Bars; 
return(0); 
}
//+----------------------------------------------------------
---+