I'm seeking a trailing stop EA that surely must exist, any ideas?
//+------------------------------------------------------------------+
//| Ben_trail_stop.mq4 |
//| Copyright © 2010, www.compu-forex.com |
//| www.compu-forex.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2010, www.compu-forex.com"
#property link "www.compu-forex.com"
//+------------------------------------------------------------------+
// Added by Robert for better error reporting
#include <stdlib.mqh>
#include <stderror.mqh>
//+------------------------------------------------------------------+
//---- input parameters
extern int OrderDistance = 15; //Distance of order entry to include spread*2 + Minimum Broker Modification distance
extern double LotSize = 0.01; //Size of lot to be introduced
extern int MagicNumber = 0;
extern bool Enable_Trade = false;
extern bool Own_Symbol_Only = true;
extern double Trail_From = 10.0;
extern double Trail_Max = 50.0;
extern double Trail_Percent = 50;
extern int Slippage = 3; //slippage for orders
extern double StopLoss = 0.0; //Take Profit
extern double TakeProfit = 0.0; //Take Profit
extern int MaximumPipsPending= 100; //Maixmum pips distance to leave pending orders open
string ArrowColor = "blue";
bool mod;
int err; // for better error reporting
double My_Profit,
My_Trail,
My_SL,
lTrail_Max,
lTrail_From,
Stop_Level,
Pip;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
////////////-------------------------------------------------------///
// THIS SECTION OPENS ORDERS
///////////--------------------------------------------------------///
//If just starting up EA and no existing long/short in place
/*if (OrdersTotal() < 2)
{
OrderSend(Symbol(), 4, LotSize, (Ask+(OrderDistance*Point)), Slippage, StopLoss ,TakeProfit ,"First Long", MagicNumber, 0,ArrowColor); //Sends first long
OrderSend(Symbol(), 5, LotSize, (Bid-(OrderDistance*Point)), Slippage, StopLoss ,TakeProfit ,"First Short", MagicNumber, 0,ArrowColor); //Sends first short
}
//For existing trades
for (int x = 0; x < OrdersTotal(); x++)
{
if (OrderSelect(x,SELECT_BY_POS,MODE_TRADES))
{
if ((OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber))
{
if (OrderType()==OP_BUY)
{
if(OrderOpenPrice() == (Ask+(OrderDistance*Point)))
{
OrderSend(Symbol(), 0, LotSize, (Ask+OrderDistance*Point), Slippage, StopLoss , TakeProfit ,"", MagicNumber, 0,ArrowColor);
}
if(OrderOpenPrice() > (Ask + ((OrderDistance*2)*Point)))
{
OrderSend(Symbol(), 4, LotSize, (Ask+OrderDistance*Point), Slippage, StopLoss , TakeProfit ,"", MagicNumber, 0,ArrowColor);
}
}
else if (OrderType()==OP_SELL)
{
if(OrderOpenPrice() == (Bid*(OrderDistance*Point)))
{
OrderSend(Symbol(), 1, LotSize, (Bid+OrderDistance*Point), Slippage, StopLoss , TakeProfit ,"", MagicNumber, 0,ArrowColor);
}
if(OrderOpenPrice() < (Bid + ((OrderDistance*2)*Point)))
{
OrderSend(Symbol(), 4, LotSize, (Bid+OrderDistance*Point), Slippage, StopLoss , TakeProfit ,"", MagicNumber, 0,ArrowColor);
}
}
//Clearing out orders further than 100 pips ---DOESN'T SEEM TO WORK
else if (OrderType() == 4 && OrderOpenPrice() >= (Ask + (MaximumPipsPending*Point)))
{
OrderDelete(OrderTicket());
}
else if (OrderType() == 5 && OrderOpenPrice() <= (Bid + (MaximumPipsPending*Point)))
{
OrderDelete(OrderTicket());
}
}
}
}*/
//-------------------------------------------------------------------+++++++++++++++++++++++++++++++++
/////////////BEGIN TRAILING STOP /////////////////////////////////
//-------------------------------------------------------------------+++++++++++++++++++++++++++++++++
for (int i = 0; i < OrdersTotal(); i++){
if (OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(Own_Symbol_Only && OrderSymbol() != Symbol())continue;
if(OrderMagicNumber() == MagicNumber || MagicNumber == 0){
RefreshRates();
Pip = MarketInfo(OrderSymbol(),MODE_POINT);
if (MarketInfo(OrderSymbol(),MODE_DIGITS) == 3|| MarketInfo(OrderSymbol(),MODE_DIGITS) == 5)Pip*=10;
lTrail_Max = Trail_Max * Pip;
lTrail_From = Trail_From * Pip;
Stop_Level = MarketInfo(OrderSymbol(),MODE_STOPLEVEL)*Pip;
switch(OrderType()){
case OP_BUY : My_Profit = MarketInfo(OrderSymbol(), MODE_BID) - OrderOpenPrice();
My_Trail = MathMin(My_Profit * Trail_Percent/100,lTrail_Max);
My_SL = NormalizeDouble(MarketInfo(OrderSymbol(),MODE_BID)-My_Trail,Digits);
if(My_Profit > lTrail_From){
if(MarketInfo(OrderSymbol(),MODE_BID) - My_SL > Stop_Level){
//+------------------------------------------------------------------+
// This will cause a double OrderModify if OrderStopLoss() returns 0
// Combining both tests fixes the bug that returns error 1.
//
// if(OrderStopLoss() == 0)mod = OrderModify(OrderTicket(),OrderOpenPrice(),My_SL,OrderTakeProfit(),0, CLR_NONE);
//+------------------------------------------------------------------+
if(OrderStopLoss() < My_SL || OrderStopLoss() == 0) mod = OrderModify(OrderTicket(),OrderOpenPrice(),My_SL,OrderTakeProfit(),0, CLR_NONE);
}
}
break;
case OP_SELL : My_Profit = OrderOpenPrice() - MarketInfo(OrderSymbol(), MODE_ASK);
My_Trail = MathMin(My_Profit * Trail_Percent/100,lTrail_Max);
My_SL = NormalizeDouble(MarketInfo(OrderSymbol(),MODE_ASK)+My_Trail,Digits);
if(My_Profit > lTrail_From){
if(My_SL - MarketInfo(OrderSymbol(),MODE_ASK) > Stop_Level){
// Combined these as well for cleaner code
// if(OrderStopLoss() == 0)mod = OrderModify(OrderTicket(),OrderOpenPrice(),My_SL,OrderTakeProfit(),0,CLR_NONE);
if(My_SL < OrderStopLoss() || OrderStopLoss() == 0) mod = OrderModify(OrderTicket(),OrderOpenPrice(),My_SL,OrderTakeProfit(),0,CLR_NONE);
}
}
break;
}
// Modified to output a text description of the error
// if(!mod && GetLastError() > 1)Print("Error entering Trailing Stop - Error " + GetLastError());
if(!mod)
{
err = GetLastError();
if (err > 1) Print("Error entering Trailing Stop - Error (" + err + "} " + ErrorDescription(err) );
}
}
}
else Print("Error selecting order");
}
//----
return(0);
}
//+------------------------------------------------------------------+ 
Right folder, do you have more than 1 install?
Only one of this particular app...and it is in my experts.
I checked everyone of the other files/folders.
I have even tried deleting and re-installing...
Did you 'Compile' the MQL Source. Find the source in windows and Open it. It should open in the editor. Hit compile and it will show up in Navigator. You can goto the editor and compile anytime you need something new to show up without closing MT4.
