Expert Advisor Programming by Andrew R. Young

EXPERT ADVISOR PROGRAMMING
MinStop = 5 * UsePoint;
PendingPrice = Low[0] - (PendingPips * UsePoint);
if(PendingPrice > LowerStopLevel) PendingPrice = LowerStopLevel - MinStop;
if(StopLoss > 0) double SellStopLoss = PendingPrice + (StopLoss * UsePoint);
if(TakeProfit > 0) double SellTakeProfit = PendingPrice -
(TakeProfit * UsePoint);
UpperStopLevel = PendingPrice + StopLevel;
LowerStopLevel = PendingPrice - StopLevel;
if(SellStopLoss > 0 && SellStopLoss < UpperStopLevel)
{
SellStopLoss = UpperStopLevel + MinStop;
}
if(SellTakeProfit > 0 && SellTakeProfit > LowerStopLevel)
{
SellTakeProfit = LowerStopLevel - MinStop;
}
if(IsTradeContextBusy()) Sleep(10);
SellTicket = OrderSend(Symbol(),OP_SELLSTOP,LotSize,PendingPrice,UseSlippage,
SellStopLoss,SellTakeProfit,"Sell Stop Order",MagicNumber,0,Red);
if(SellTicket == -1)
{
ErrorCode = GetLastError();
ErrDesc = ErrorDescription(ErrorCode);
ErrAlert = StringConcatenate("Open Sell Stop Order - Error ",ErrorCode,
": ",ErrDesc);
Alert(ErrAlert);
}
ErrLog = StringConcatenate("Bid: ",Bid," Lots: ",LotSize," Price: ",
PendingPrice," Stop: ",SellStopLoss," Profit: ",SellTakeProfit);
Print(ErrLog);
}
BuyTicket = 0;
}
return(0);
170