Expert Advisor Programming by Andrew R. Young

EXPERT ADVISOR PROGRAMMING
double AdjustBelowStopLevel(string argSymbol, double argAdjustPrice, int argAddPips = 0,
double argOpenPrice = 0)
{
double StopLevel = MarketInfo(argSymbol,MODE_STOPLEVEL) * Point;
if(argOpenPrice == 0) double OpenPrice = MarketInfo(argSymbol,MODE_BID);
else OpenPrice = argOpenPrice;
double LowerStopLevel = OpenPrice - StopLevel;
if(argAdjustPrice >= LowerStopLevel) double AdjustedPrice = LowerStopLevel -
(argAddPips * PipPoint(argSymbol));
else AdjustedPrice = argAdjustPrice;
}
return(AdjustedPrice);
bool AddStopProfit(int argTicket, double argStopLoss, double argTakeProfit)
{
OrderSelect(argTicket,SELECT_BY_TICKET);
double OpenPrice = OrderOpenPrice();
while(IsTradeContextBusy()) Sleep(10);
// Modify Order
bool TicketMod = OrderModify(argTicket,OrderOpenPrice(),argStopLoss,argTakeProfit,0);
// Error Handling
if(TicketMod == false)
{
int ErrorCode = GetLastError();
string ErrDesc = ErrorDescription(ErrorCode);
string ErrAlert = StringConcatenate("Add Stop/Profit - Error ",ErrorCode,
": ",ErrDesc);
Alert(ErrAlert);
}
string ErrLog = StringConcatenate("Bid: ",MarketInfo(OrderSymbol(),MODE_BID),
" Ask: ",MarketInfo(OrderSymbol(),MODE_ASK)," Ticket: ",argTicket," Stop: ",
argStopLoss," Profit: ",argTakeProfit);
Print(ErrLog);
}
return(TicketMod);
188