molanis.com/forum - Tools for MetaTrader : The place to ask about the best expert advisor builder, expert advisor downloads, and expert advisor programming

I have received the following error message when

"ERROR: MQL compiler execution failed.
please review the output file C:\[metatrader location]
Please email this file to support@molanis.com to solve the issue"

I emailed this to the support address as stated, but I was asked by them to also post here, so here goes...

+------------------------------------------------------------------+
// DO NOT DELETE THIS HEADER
// DELETING THIS HEADER IS COPYRIGHT INFRIGMENT
// Copyright © 2009, Molanis
// Expert Advisor Visual Wizard 3.1
// http://www.molanis.com
//
// THIS EA CODE HAS BEEN GENERATED USING Expert Advisor Visual Wizard j3.1
// on Sun Nov 27 22:22:40 GMT 2011
// Disclaimer: This EA is provided to you "AS-IS", and Molanis disclaims any warranty
// or liability obligations to you of any kind.
// UNDER NO CIRCUMSTANCES WILL MOLANIS BE LIABLE TO YOU, OR ANY OTHER PERSON OR ENTITY,
// FOR ANY LOSS OF USE, REVENUE OR PROFIT, LOST OR DAMAGED DATA, OR OTHER COMMERCIAL OR
// ECONOMIC LOSS OR FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, STATUTORY, PUNITIVE,
// EXEMPLARY OR CONSEQUENTIAL DAMAGES WHATSOEVER RELATED TO YOUR USE OF THIS EA OR
// Expert Advisor Visual Wizard
// Because software is inherently complex and may not be completely free of errors, you are
// advised to verify this EA. Before using this EA, please read the Expert Advisor Visual Wizard
// license for a complete understanding of Molanis' disclaimers.
// USE THIS EA AT YOUR OWN RISK.
//
// Before adding this expert advisor to a chart, make sure there are NO
// open positions.
// DO NOT DELETE THIS HEADER
// DELETING THIS HEADER IS COPYRIGHT INFRIGMENT
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
//| EA Notes |
/*| */
//+------------------------------------------------------------------+

//Strategy Comments
#property copyright "Copyright 2010, Molanis."
#property link "http://www.molanis.com"
#property version "3.1"
#property description "This EA was created with Expert Advisor Visual Wizard v3.1"
#property description "Do not forget to use the MetaTrader inputs to optimize this EA"
#define SleepTime 900 //To sleep for a while before retrying order execution

//+------------------------------------------------------------------+
//| initial setup |
//+------------------------------------------------------------------+
// The main purpose of this section is to initialize trading variables.
//
//+--- input parameters ---------------------------------------------+
// Used to activate/deactivate/select options

// General Variables
input string EAName="double303";
// Expert Advisor Name
input bool IsMicroAccount = true;
// Define if account is micro or standard
input bool CompletedBars = true;
// Define execution by bars or ticks
input bool TradeOrAlert = true;
// Define execution. True allows trading, false sends Alerts
input bool SendMailMode = false;
// If ON (true), sends mail with order execution info
input bool PlaySounds = false;
// If ON (true), Plays a sound when orders/alarms are executed
input string MySound="alert.wav";
// Sound to be played when orders/alarms are executed

//5 digits management
input bool FiveDigits = true;
//if false, broker uses 4 digits
int PipMultiplier = 1;
// to multiply positions by 10 when 5 digits is true

// Trading Variables
input bool UseTradingTime = false;
// If ON (true), trades only when tradingtimestart<hour<tradingtimestart
input int TradingTimeStart = 9;
// i.e 9 = 9 am
input int TradingTimeEnd = 16;
// i.e 16 = 4 pm
input bool OrderIncludeTPSL = true;
// If false, orders are opened and later TP/SL is added. ECN Option or Boston Technologies
input double MaxVolumePosition = 1.0;
// max deals. if >1 then a trade is opened every time there is a signal (buy or sell)
input int MaxOrderRetry = 10;
// if there is an error executing orders, the script retries MaxOrderRetry times


// Money Management Variables
input bool UseMaximumPercentageatRisk = false;
// Turns on/off max risk condition
input double MaximumPercentageatRisk = 1;
// i.e max size of trade = 2 = 2% of equity

input bool UseLotManagement = false;
// Turns on/off lot management
input int LotManagementType = 2;
// 1 - Uses Decrease factor
// 2 - Uses a fix factor 75%,50%,25%
input double ReductionFactor = 5;
// for money management lot-(lot*losses/ReductionFactor)
input double DecreaseLotAfterLoss = 2;
// For lot management 1, it waits until DecreaseLotAfterLoss consecutive loses to reduce lot size

// Variables available in MT5 and not in the builder
input int Slippage = 3; // Minimum slippage accepted
int _Slippage = 3; // internal variable to store slippage
// TP/SL/TS/LS backtesting variables
//Values in pips. 10=10 pips.
input double S_Symbol_LS_0 = 0.01;

//Used to change value or backtest Lot Size

input double S_Symbol_TP_0 = 0;

//Used to change value or backtest Take Profit

input double S_Symbol_SL_0 = 0;

//Used to change value or backtest Stop Loss

input double S_Symbol_TS_0 = 0;

//Used to change value or backtest Trailing Stop

input double B_Symbol_LS_0 = 0.01;

//Used to change value or backtest Lot Size

input double B_Symbol_TP_0 = 0;

//Used to change value or backtest Take Profit

input double B_Symbol_SL_0 = 0;

//Used to change value or backtest Stop Loss


input double B_Symbol_TS_0 = 0;

//Used to change value or backtest Trailing Stop



// Used to keep global variables

input int MagicNumberLong = 6658641;
//Identifies long positions
input int MagicNumberShort = 4167090;
//Identifies short positions

input bool ShowWarnings=true;
//Set to false if you do not want warnings/alerts

string commentlong="Go long "; //Identifies long positions
string commentshort="Go short "; //Identifies short positions

int PreviousBarCount = 0; // To count bars
int ObjCount = 0; // To count arrows
string mailstring = ""; // string to store mail body
string subject = "EA: "; // string to store mail subject

double High[],Low[],Open[],Close[]; //To manage prices

//Indicator Handle


int iMACD_L1;


int iMACD_L2;


int iMACD_R2;


int iCustom_L3;


int iCustom_L4;


int iMACD_L5;


int iMACD_L6;


int iMACD_R6;


int iCustom_L7;


int iCustom_L8;



//Indicator Arrays


double iMACD_L1_Value[];


double iMACD_L2_Value[];


double iMACD_R2_Value[];


double iCustom_L3_Value[];


double iCustom_L4_Value[];


double iMACD_L5_Value[];


double iMACD_L6_Value[];


double iMACD_R6_Value[];


double iCustom_L7_Value[];


double iCustom_L8_Value[];




//+------------------------------------------------------------------+
//| MT5 functions |
//+------------------------------------------------------------------+
#include <Trade\AccountInfo.mqh>
#include <Trade\SymbolInfo.mqh>
#include <Trade\Trade.mqh>
#include <Trade\HistoryOrderInfo.mqh>
#include <Trade\PositionInfo.mqh>
#include <Trade\DealInfo.mqh>

//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
//The initialization function OnInit() contains instructions that run only once, run before any other
//code in the Expert Advisor. The main purpose of this section is to initialize variables.
void OnInit()
{
//Set transaction comment
commentlong="Go long "+MagicNumberLong; //Identifies long positions
commentshort="Go short "+MagicNumberShort; //Identifies short positions

//Reset Objects that paint arrows
ObjectsDeleteAll(0,0,OBJ_ARROW_BUY);
ObjectsDeleteAll(0,0,OBJ_ARROW_SELL);
ObjCount = 0;

// Check account type and mode

Print("M-",_Symbol," *** EA created with Expert Advisor Visual Wizard 3.1 *** ");
Print("Broker =",AccountInfoString(ACCOUNT_COMPANY));
Print("Deposit currency =",AccountInfoString(ACCOUNT_CURRENCY));
Print("Trade server =",AccountInfoString(ACCOUNT_SERVER));

Print("M-",_Symbol," *** EA starts running at: Server Time=",TimeToString(TimeCurrent(),TIME_DATE|TIME_SECONDS)," Terminal Time=",TimeToString(TimeLocal(),TIME_DATE|TIME_SECONDS));
if (AccountInfoInteger(ACCOUNT_TRADE_MODE) == ACCOUNT_TRADE_MODE_DEMO)
{
Print("M-",_Symbol," *** Running in a DEMO account *** ");
}
if (AccountInfoInteger(ACCOUNT_TRADE_MODE) == ACCOUNT_TRADE_MODE_REAL)
{
Print("M-",_Symbol," *** Running in a REAL account *** ");
}
if (MQL5InfoInteger(MQL5_TESTING))
{
Print("M-",_Symbol," *** Running in TESTING MODE *** ");
}

Print("M-Account Equity=",AccountInfoDouble(ACCOUNT_EQUITY),". Account Balance=",AccountInfoDouble(ACCOUNT_BALANCE),". Account Free Margin = ",AccountInfoDouble(ACCOUNT_FREEMARGIN),". Account Leverage=",AccountInfoInteger(ACCOUNT_LEVERAGE));

// Verify if there are open positions and alert

if(PositionVolume(_Symbol)>0)
{

if (ShowWarnings) MessageBox("M-There are existing open positions for pair "+_Symbol+" Volume="+PositionVolume(_Symbol)+". Please make sure this is OK before trading with this EA. ","Warning - Open positions exists.");
Print("M-There are existing open positions for pair ",_Symbol," Volume=",PositionVolume(_Symbol),". Please make sure this is OK before trading with this EA. ");
}

// Check for enough ticks and trade permission
if(Bars(_Symbol,_Period)<100)
{
Print("M-",_Symbol," *** CAN NOT TRADE *** Not enough historical information!");
if (ShowWarnings)MessageBox("M-"+_Symbol+" *** CAN NOT TRADE *** Not enough historical information!","Warning");
}

if(!MQL5InfoInteger(MQL5_TRADE_ALLOWED))
{
Print("M-",_Symbol," *** CAN NOT TRADE *** Trading is not allowed! Please confirm that the checkbox -Allow Live Trading option- is checked and that you are able to connect to the server.");
if (ShowWarnings) MessageBox("M-"+_Symbol+" *** CAN NOT TRADE *** Trading is not allowed! Please confirm that the checkbox -Allow Live Trading option- is checked and that you are able to connect to the server.","Warning");
}

//Using current symbol to check for account type
Print("M-Lot Information: Symbol=",_Symbol,". MIN LOT ALLOWED=",SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_MIN),". MAX LOT ALLOWED=",SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_MAX),". LOT SIZE IN BASE CURRENCY=",SymbolInfoDouble(_Symbol,SYMBOL_TRADE_CONTRACT_SIZE));
Print("M-Lot Information: Buying 1 lot in your Account is equivalent to buying ",SymbolInfoDouble(_Symbol,SYMBOL_TRADE_CONTRACT_SIZE)," of currency.");
Print("M-Lot Information: Buying the minimum lot size of ",SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_MIN)," is equivalent to buying ",SymbolInfoDouble(_Symbol,SYMBOL_TRADE_CONTRACT_SIZE)*SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_MIN)," of currency.");

//Adjust calculations for 5 digit brokers
if (FiveDigits)
{
PipMultiplier = 10;
}
_Slippage = Slippage*PipMultiplier;

if( (_Digits==5 || _Digits==3) && (!FiveDigits) )
{
Print("M-",_Symbol," You selected FiveDigits=False but your graph seems to have 5 digits (or 3 for JPY pairs). Please review your digits definition.");
if (ShowWarnings) MessageBox("M-"+_Symbol+" You selected FiveDigits=False but your graph seems to have 5 digits (or 3 for JPY pairs). Please review your digits definitions.","Digits setup may be wrong");
}


//Indicator Handle Get Value


iMACD_L1=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_L1 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iMACD_L2=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_L2 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iMACD_R2=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_R2 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iCustom_L3=iCustom(Symbol(),PERIOD_M3,"Heiken_Ashi");

if (iCustom_L3 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iCustom_L4=iCustom(Symbol(),PERIOD_M3,"Heiken_Ashi");

if (iCustom_L4 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iMACD_L5=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_L5 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iMACD_L6=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_L6 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iMACD_R6=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_R6 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iCustom_L7=iCustom(Symbol(),PERIOD_M3,"Heiken_Ashi");

if (iCustom_L7 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iCustom_L8=iCustom(Symbol(),PERIOD_M3,"Heiken_Ashi");

if (iCustom_L8 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

//Indicator Set as Series


ArraySetAsSeries(iMACD_L1_Value, true);


ArraySetAsSeries(iMACD_L2_Value, true);


ArraySetAsSeries(iMACD_R2_Value, true);


ArraySetAsSeries(iCustom_L3_Value, true);


ArraySetAsSeries(iCustom_L4_Value, true);


ArraySetAsSeries(iMACD_L5_Value, true);


ArraySetAsSeries(iMACD_L6_Value, true);


ArraySetAsSeries(iMACD_R6_Value, true);


ArraySetAsSeries(iCustom_L7_Value, true);


ArraySetAsSeries(iCustom_L8_Value, true);



//---
return;
}

//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
//The deinitialization function contains instructions that run only once, run after all
//the code on the expert advisor has been executed. The main purpose of this section is
//to deinitialize/delete variables.
void OnDeinit(const int reason)
{

Print("M-",_Symbol," EA deinit");
Print(__FUNCTION__,"_Uninitalization reason code =",reason);

Print(__FUNCTION__,"_UninitReason =",getUnitReasonText(_UninitReason));

Comment("");
//Delete arrows
ObjectsDeleteAll(0,0,OBJ_ARROW_BUY);
ObjectsDeleteAll(0,0,OBJ_ARROW_SELL);

//Indicator Release


IndicatorRelease(iMACD_L1);


IndicatorRelease(iMACD_L2);


IndicatorRelease(iMACD_R2);


IndicatorRelease(iCustom_L3);


IndicatorRelease(iCustom_L4);


IndicatorRelease(iMACD_L5);


IndicatorRelease(iMACD_L6);


IndicatorRelease(iMACD_R6);


IndicatorRelease(iCustom_L7);


IndicatorRelease(iCustom_L8);


//---
}

//+------------------------------------------------------------------+
//| expert OnTick function |
//+------------------------------------------------------------------+
//The OnTick function contains instructions that run every time a tick is received.
//This section is the main part of the expert advisor.

void OnTick()
{
//---
//Prepare trading flag
bool CanTrade = true;

//Prepare comment
string mycomment;
mycomment="This EA was created with Expert Advisor Visual Wizard v3.1 \n";
mycomment="";
if (TradeOrAlert)
{
mycomment=mycomment+" Trading Mode ON-";
}
else
{
mycomment=mycomment+" Alarm Mode ON-";
}

// Check trading time
MqlDateTime mdt;
TimeCurrent(mdt);

// Check trading time
if (UseTradingTime)
{
if (!(mdt.hour>=TradingTimeStart && mdt.hour<=TradingTimeEnd))
{
StringConcatenate(mycomment," Server Time=",mdt.hour,"h:",mdt.min,"m. | Current server time is NOT between trading time hours. | Trading Time is from ",TradingTimeStart," to ",TradingTimeEnd," hours");
Comment(mycomment);
CanTrade = false;
return;
}
else
{
StringConcatenate(mycomment," Server Time=",mdt.hour,"h:",mdt.min,"m. | Current server time is between trading time hours. | Trading Time is from ",TradingTimeStart," to ",TradingTimeEnd, " hours");
Comment(mycomment);
}
}

// Define string for email
if (SendMailMode)
{
subject = "EA: ";
StringConcatenate(subject,EAName," ");
mailstring = "email generated by Expert Advisor Visual Wizard v3.1 \n";
StringConcatenate(mailstring, "Server Time=",TimeToString(TimeCurrent(),TIME_DATE|TIME_SECONDS),". Terminal Time=",TimeToString(TimeLocal(),TIME_DATE|TIME_SECONDS),"\n");
}
// Check if trading is possible

if(IsStopped())
{
Print("M-",_Symbol," ERROR : EA was commanded to stop its operation!");
if (ShowWarnings) Alert("M-"+_Symbol+" ERROR : EA was commanded to stop its operation!");
if (SendMailMode)
{
StringConcatenate(subject,"EA was commanded to stop its operation","");
StringConcatenate(mailstring, "EA was commanded to stop its operation!\n","");
SendMail(subject, mailstring);
}
return;
}

if (!MQL5InfoInteger(MQL5_TRADE_ALLOWED) && TradeOrAlert && !CompletedBars)
{
Print("M-",_Symbol," ERROR : Trading is not allowed for this tick! Do not panic! This is an issue if it happens too many times in a row. Otherwise disregard this warning.");
if (ShowWarnings) Alert("M-"+_Symbol+" ERROR : Trading is not allowed for this tick! Do not panic! This is an issue if it happens too many times in a row. Otherwise disregard this warning.");

if (SendMailMode)
{
StringConcatenate(subject,"Trading is not allowed","");
StringConcatenate(mailstring, "Trading is not allowed for this tick! Do not panic! This is an issue if it happens too many times in a row. Otherwise disregard this warning.\n","");
SendMail(subject, mailstring);
}
CanTrade = false;
return;
}

// Check for completed bars if CompletedBars mode is on
if ((PreviousBarCount==Bars(_Symbol,PERIOD_CURRENT) && CompletedBars))
{
CanTrade = false;
//There are no new bars so do not trade
}


//Indicator CopyBuffer


if ( CopyBuffer(iMACD_L1,MAIN_LINE,0,1,iMACD_L1_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iMACD_L2,MAIN_LINE,0,1,iMACD_L2_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iMACD_R2,MAIN_LINE,1,1,iMACD_R2_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iCustom_L3,4,0,1,iCustom_L3_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iCustom_L4,4,0,1,iCustom_L4_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iMACD_L5,MAIN_LINE,0,1,iMACD_L5_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iMACD_L6,MAIN_LINE,0,1,iMACD_L6_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iMACD_R6,MAIN_LINE,1,1,iMACD_R6_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iCustom_L7,4,0,1,iCustom_L7_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iCustom_L8,4,0,1,iCustom_L8_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

// Trading code starts here
if (CanTrade)
{
if (TradeOrAlert)
{
// Check trading conditions

if ( (iCustom_L8_Value[0] == 0.00000) ) { CLOSESHORT(Symbol()) ;}

if ( (iCustom_L4_Value[0] == 1.00000) ) { CLOSELONG(Symbol()) ;}

if ( (iCustom_L7_Value[0] == 1.00000) && (iMACD_L6_Value[0] <= iMACD_R6_Value[0]) && (iMACD_L5_Value[0] < 0.00000) ) { SELL(Symbol(),S_Symbol_LS_0,S_Symbol_TP_0,S_Symbol_SL_0,S_Symbol_TS_0,"if ( (iCustom_L7_Value[0] == 1.00000) && (iMACD_L6_Value[0] <= iMACD_R6_Value[0]) && (iMACD_L5_Value[0] < 0.00000) )") ;}

if ( (iCustom_L3_Value[0] == 0.00000) && (iMACD_L2_Value[0] >= iMACD_R2_Value[0]) && (iMACD_L1_Value[0] > 0.00000) ) { BUY(Symbol(),B_Symbol_LS_0,B_Symbol_TP_0,B_Symbol_SL_0,B_Symbol_TS_0,"if ( (iCustom_L3_Value[0] == 0.00000) && (iMACD_L2_Value[0] >= iMACD_R2_Value[0]) && (iMACD_L1_Value[0] > 0.00000) )") ;}



// Check Trailing stops
CheckTrailingStop(Symbol(),POSITION_TYPE_SELL,MagicNumberShort,S_Symbol_TS_0);

CheckTrailingStop(Symbol(),POSITION_TYPE_BUY,MagicNumberLong,B_Symbol_TS_0);


}
else
{
// Alerts

if ( (iCustom_L8_Value[0] == 0.00000) ) { MolanisAlert("if ( (iCustom_L8_Value[0] == 0.00000) )","CLOSESHORT(Symbol())",Symbol()) ;}

if ( (iCustom_L4_Value[0] == 1.00000) ) { MolanisAlert("if ( (iCustom_L4_Value[0] == 1.00000) )","CLOSELONG(Symbol())",Symbol()) ;}

if ( (iCustom_L7_Value[0] == 1.00000) && (iMACD_L6_Value[0] <= iMACD_R6_Value[0]) && (iMACD_L5_Value[0] < 0.00000) ) { MolanisAlert("if ( (iCustom_L7_Value[0] == 1.00000) && (iMACD_L6_Value[0] <= iMACD_R6_Value[0]) && (iMACD_L5_Value[0] < 0.00000) )","SELL(Symbol(),0.01,0,0,0)",Symbol()) ;}

if ( (iCustom_L3_Value[0] == 0.00000) && (iMACD_L2_Value[0] >= iMACD_R2_Value[0]) && (iMACD_L1_Value[0] > 0.00000) ) { MolanisAlert("if ( (iCustom_L3_Value[0] == 0.00000) && (iMACD_L2_Value[0] >= iMACD_R2_Value[0]) && (iMACD_L1_Value[0] > 0.00000) )","BUY(Symbol(),0.01,0,0,0)",Symbol()) ;}


} //trading code ends here
}
// Count bars
PreviousBarCount=Bars(_Symbol,PERIOD_CURRENT); // To keep bar counter
//return;
}


//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
//| expert functions |
//+------------------------------------------------------------------+
//// DO NOT DELETE THIS HEADER
// DELETING THIS HEADER IS COPYRIGHT INFRIGMENT
// Copyright © 2010, Molanis
// YOU HAVE THE RIGHT TO PROFIT FROM ANY EA YOU CREATE WITH THIS SOFTWARE. HOWEVER,
// SELLING ANY OF THE FOLLOWING FUNCTIONS SEPARATELY OR AS A TEMPLATE IS COPYRIGHT INFRIGMENT.
// MOLANIS OWNS THE COPYRIGHT OF THE FOLLOWING FUNCTIONS AND AUTHORIZES YOU (A COMMERCIAL CLIENT) TO USE THEM AND SELL THEM
// AS PART OF YOUR COMMERCIAL EA. MOLANIS WILL NOT ASK FOR ANY MONETARY RETRIBUTION BUT ASK YOU TO KEEP ALL MOLANIS REFERENCES
// AND COPYRIGHT

//The expert function section contains all functions of the expert advisor.
//----functions start

//MolanisAlert shows alerts and send emails (if SendMailMode is ON) with alerts
/*
*** Generated with Expert Advisor Visual Wizard 3.1 ***
*** www.molanis.com ***
*** Released 2010-06-20 ***
*/
int MolanisAlert(string condition, string sygnaltype, string mypair)
{
if (SendMailMode)
{
double mybid=SymbolInfoDouble(mypair,SYMBOL_BID);
double myask=SymbolInfoDouble(mypair,SYMBOL_ASK);
subject = "EA Alert: ";
StringConcatenate(subject,EAName,". ",sygnaltype);
mailstring = "email generated by Expert Advisor Visual Wizard v3.1 \n";
StringConcatenate(mailstring, "Server Time=",TimeToString(TimeCurrent(),TIME_DATE|TIME_SECONDS),". Terminal Time=",TimeToString(TimeLocal(),TIME_DATE|TIME_SECONDS),"\n");
StringConcatenate(mailstring, "Alert: ",sygnaltype,"\nForex Signal: ",condition,"\n");
StringConcatenate(mailstring, "Price on : ", mypair," BID=",mybid," ASK=",myask,"\n");
StringConcatenate(mailstring, "Price on current chart: ", Symbol()," BID=",SymbolInfoDouble(_Symbol,SYMBOL_BID)," ASK=",SymbolInfoDouble(_Symbol,SYMBOL_ASK),"\n");
SendMail(subject, mailstring);
}

// Print and show alert
Print("Alert:",sygnaltype," Forex Signal: ",condition);
Alert("Alert:",sygnaltype," Forex Signal: ",condition);
if (PlaySounds)
{
PlaySound(MySound);
}
return(0);
}


//BUY opens a long position
/*
*** Generated with Expert Advisor Visual Wizard 3.1 ***
*** www.molanis.com ***
*** Released 2010-06-20 ***
*/
int BUY(string symbol_b, double lotsize_b, double takeprofit_b, double stoploss_b, double trailings_b, string condition_b)
{
//if conditions are true then open long position

//close shorts and go long
ClosePosition(symbol_b, POSITION_TYPE_SELL,MagicNumberShort);
Sleep(SleepTime);

if (ExecuteOrder(ORDER_TYPE_BUY, symbol_b, LotManagement(symbol_b,lotsize_b), !OrderIncludeTPSL,
stoploss_b, takeprofit_b, commentlong, MagicNumberLong, condition_b)>0)
{
//Executed - Insert code here if needed
} else
{
//Failure - Insert code here if needed
}

return(0);
}

//SELL opens a short position
/*
*** Generated with Expert Advisor Visual Wizard 3.1 ***
*** www.molanis.com ***
*** Released 2010-06-20 ***
*/
int SELL(string symbol_s, double lotsize_s, double takeprofit_s, double stoploss_s, double trailings_s, string condition_s)
{
//if conditions are true then open short position

//close longs and go short
ClosePosition(symbol_s,POSITION_TYPE_BUY,MagicNumberLong);
Sleep(SleepTime);

if (ExecuteOrder(ORDER_TYPE_SELL, symbol_s, LotManagement(symbol_s,lotsize_s), !OrderIncludeTPSL,
stoploss_s, takeprofit_s, commentshort, MagicNumberShort, condition_s)>0)
{
//Executed - Insert code here if needed
}
else
{
//Failure - Insert code here if needed
}

return(0);
}

//ClosePosition closes open positions
/*
*** Generated with Expert Advisor Visual Wizard 3.1 ***
*** www.molanis.com ***
*** Released 2010-06-20 ***
*/
int ClosePosition(string symbolclose, ENUM_POSITION_TYPE posType, int magicclose)
{
if(posType != POSITION_TYPE_BUY && posType != POSITION_TYPE_SELL)
{
Print("M-",_Symbol,"Closing all positions failed. Order type is wrong.");
if (ShowWarnings) Alert("M-",_Symbol,"Closing all positions failed. Order type is wrong.");
return(-1);
}

CPositionInfo posInfo;
CSymbolInfo symInfo;
CTrade trade;
symInfo.Name(symbolclose);


if (posInfo.Select(symbolclose))
if (posInfo.PositionType() == posType && (posInfo.Magic() == magicclose || posInfo.Magic() == 0))
{
int tries = 0;

if (!isTradingPossible())
Print("M-",_Symbol," Warning: Trading may not be possible. Trying to close orders.");

while (tries < MaxOrderRetry)
{
double vol = posInfo.Volume(),
profit = posInfo.Profit(),
openPrice = posInfo.PriceOpen(),
price = posInfo.PriceCurrent();

if (trade.PositionClose(posInfo.Symbol(), _Slippage))
{
Print("M-",_Symbol," Position Closed. Symbol:",symbolclose,". Lots:", vol, " Profit:", profit, " Open price=",DoubleToString(openPrice,symInfo.Digits())," Current price=",DoubleToString(price,symInfo.Digits()));
Print("M-",_Symbol,"Account Equity=",AccountInfoDouble(ACCOUNT_EQUITY),". Account Balance=",AccountInfoDouble(ACCOUNT_BALANCE),". Account Free Margin = ",AccountInfoDouble(ACCOUNT_FREEMARGIN));
Sleep(SleepTime);
if (SendMailMode)
{
//Prepare email
subject = "EA: ";
StringConcatenate(subject,EAName,". ",symbolclose," ",PositionTypetoString(posType)," position was closed. ");
mailstring = "email generated by Expert Advisor Visual Wizard v3.1 \n";
StringConcatenate(mailstring, "Server Time=",TimeToString(TimeCurrent(),TIME_DATE|TIME_SECONDS),". Terminal Time=",TimeToString(TimeLocal(),TIME_DATE|TIME_SECONDS),"\n");
StringConcatenate(mailstring, "M-Order Closed\nOrder Info : \n Order Closed Type=", PositionTypetoString(posType), ".\n Symbol=", symbolclose, ".\n Lot Size=", vol,
".\n Closed at price:",price,".\n Position was opened at price:",openPrice,".\n Profit:",profit);

SendMail(subject, mailstring);
}

return (0);
}
else
{
tries++;
int err=trade.ResultRetcode();
string msg="";
StringConcatenate(msg,"M-",_Symbol," Closing Order failed. Symbol:",symbolclose,". Lots:",vol,". Error:",err," ", trade.ResultRetcodeDescription()," ",ErrorCodeDescription(trade.ResultRetcodeDescription()));
Print("M-",_Symbol, " ",msg);
if (ShowWarnings) Alert("M-"+_Symbol +" "+msg);
if (SendMailMode)
{
//Prepare email
subject = "EA: ";
StringConcatenate(subject,EAName," WARNING:",symbolclose," ",PositionTypetoString(posType)," position could NOT be closed");
mailstring = "email SuperEA \n";
StringConcatenate(mailstring, "Server Time=",TimeToString(TimeCurrent(),TIME_DATE|TIME_SECONDS),". Terminal Time=",TimeToString(TimeLocal(),TIME_DATE|TIME_SECONDS),"\n");
StringConcatenate(mailstring, "M-Closing Order failed.\nSymbol:",symbolclose,".\n Lots:",vol,".\n Error:",err,"\n", trade.ResultRetcodeDescription());

SendMail(subject, mailstring);
}
Sleep(SleepTime);
}
}

Print("M-",_Symbol," Stopping Closing all positions. Too many errors when closing positions. Symbol:",symbolclose);
Print("M-",_Symbol," URGENT:Please verify your Internet Connection and Server response.");
if (ShowWarnings) Alert("M-"+_Symbol+" Stopping Closing all positions. Too many errors when closing positions. Symbol:",symbolclose);
if (ShowWarnings) Alert("M-"+_Symbol+" URGENT:Please verify your Internet Connection and Server response.");
}

return(-1);
}

//EnoughMoney checks whether there is enough money to open the position. Returns False when there is no money to trade
/*
*** Generated with Expert Advisor Visual Wizard 3.1 ***
*** www.molanis.com ***
*** Released 2010-06-20 ***

bool EnoughMoney(string symbol_em, double lotsize_em, double price_em)
{
CAccountInfo cacc;
if(cacc.FreeMarginCheck(symbol_em,ORDER_TYPE_BUY,lotsize_em,price_em) < 10 ||
cacc.FreeMarginCheck(symbol_em,ORDER_TYPE_SELL,lotsize_em,price_em) < 10)
{
Print("M-",_Symbol," NOT ENOUGH MONEY TO TRADE. Free margin is insufficient to trade a lot size of ",lotsize_em,". Current Free Margin=", cacc.FreeMargin());
if (ShowWarnings) Alert("M-"+_Symbol+" NOT ENOUGH MONEY TO TRADE. Free margin is insufficient to trade a lot size of ",lotsize_em,". Current Free Margin=", cacc.FreeMargin());
return(false);
}
else
{
return(true);
}
}

//ExecuteOrder opens a new position
/*
*** Generated with Expert Advisor Visual Wizard 3.1 ***
*** www.molanis.com ***
*** Released 2010-06-20 ***
*/
bool ExecuteOrder(ENUM_ORDER_TYPE ordertype_bn,
string symbol_bn,
double lotsize_bn,
const bool ecn,
double stoploss_bn,
double takeprofit_bn,
string comment_bn,
int magic_bn,
string condition_bn)
{

int digits_bn;
int errorcode_bn;
double PosVol;
bool golong_bn;

double points_bn;
double price_bn;
double fillprice_bn;

CTrade trade;
CSymbolInfo symInfo;
CPositionInfo posInfo;

symInfo.Name(symbol_bn);

//fix decimal movement
stoploss_bn=stoploss_bn*PipMultiplier;
takeprofit_bn=takeprofit_bn*PipMultiplier;
//Verify stops and alerts
if(takeprofit_bn<symInfo.StopsLevel() && takeprofit_bn>0)
{
Print("M-",_Symbol," Error: Take Profit must be greater than ",DoubleToString(symInfo.StopsLevel(),symInfo.Digits())," Please change your take profit in the EA properties before running this EA in a real account");
if (ShowWarnings) Alert("M-"+_Symbol+ " Error: Take Profit must be greater than "+DoubleToString(symInfo.StopsLevel(),symInfo.Digits())+" Please change your take profit in the EA properties before running this EA in a real account");
}


ENUM_POSITION_TYPE pType;

//Set ordertype boolean
switch (ordertype_bn)
{
case ORDER_TYPE_BUY: pType = POSITION_TYPE_BUY; golong_bn=true; break;
case ORDER_TYPE_SELL: pType = POSITION_TYPE_SELL; golong_bn=false; break;
default: Print("M-",_Symbol," ERROR : Wrong order type ", ordertype_bn); return(-1);
break;
}


// Check if there is enough money to close the position
symInfo.RefreshRates();

//Gets pair info to prepare price

digits_bn = symInfo.Digits();
points_bn = symInfo.Point();

//adjust lot
int tmpdecimal=1;

if (IsMicroAccount)
{
tmpdecimal=2;
}

double old_lot=lotsize_bn;

if ((NormalizeDouble(AccountInfoDouble(ACCOUNT_FREEMARGIN)*(MaximumPercentageatRisk/100)/1000.0,tmpdecimal)<lotsize_bn) && UseMaximumPercentageatRisk )
{
lotsize_bn = NormalizeDouble(AccountInfoDouble(ACCOUNT_FREEMARGIN)*(MaximumPercentageatRisk/100)/1000.0,tmpdecimal);
if (lotsize_bn<SymbolInfoDouble(symbol_bn,SYMBOL_VOLUME_MIN))
{
lotsize_bn = SymbolInfoDouble(symbol_bn,SYMBOL_VOLUME_MIN);
Print("M-",_Symbol," Lot adjusted from ",old_lot," to minimum size allowed by the server of ",lotsize_bn," but it DOES NOT comply with Maximum Risk % condition. User interaction is required!");
}
else
{
Print("M-",_Symbol," Lot adjusted from ",old_lot," to ",lotsize_bn," to comply with Maximum Risk condition. Each trade can risk only ",MaximumPercentageatRisk,"% of free margin.");
if(MathAbs(lotsize_bn/SymbolInfoDouble(symbol_bn,SYMBOL_VOLUME_STEP)-MathRound(lotsize_bn/SymbolInfoDouble(symbol_bn,SYMBOL_VOLUME_STEP)))>1.0E-10)
{
lotsize_bn=SymbolInfoDouble(symbol_bn,SYMBOL_VOLUME_STEP)*NormalizeDouble(lotsize_bn/SymbolInfoDouble(symbol_bn,SYMBOL_VOLUME_STEP),0);
Print("M-",_Symbol," Warning: Your calculated percentage at risk lot size of was not a multiple of minimal step",SymbolInfoDouble(symbol_bn,SYMBOL_VOLUME_STEP),". Lot size changed to",lotsize_bn);

}

}

}

//check previous deals / volumen
PosVol=PositionVolume(symbol_bn);
if (PosVol==0) {
Sleep(SleepTime);
PosVol=PositionVolume(symbol_bn);
if (PosVol==0) {
Sleep(SleepTime);
PosVol=PositionVolume(symbol_bn);
}
}

Print(symbol_bn," volume=",PosVol," lotsize=",lotsize_bn," sum=",PosVol+lotsize_bn, " maxlotsize=",MaxVolumePosition);
if ( NormalizeDouble( (PosVol+lotsize_bn),3 ) > NormalizeDouble(MaxVolumePosition,3) )
{
if (ShowWarnings) Print("M-",_Symbol," Warning : Can not execute new order for ",PositionTypetoString(pType)," for Symbol ",symbol_bn,". Maximum Volume ", MaxVolumePosition," reached.");
return(-1);
}

// go long set up
if (golong_bn)
{
price_bn = symInfo.Ask();
} else {
price_bn = symInfo.Bid();
}

if (!EnoughMoney(symbol_bn, lotsize_bn,price_bn))
{
Print("M-",_Symbol," Error: Not enough money to open position!");
if (ShowWarnings) Alert("M-"+_Symbol+" Error: Not enough money to open position!");
return(-1);
}

int tries = 1;
bool ecnOpened = false;

while(tries>0)
{
symInfo.RefreshRates();

// go long set up
if (golong_bn)
{
price_bn = symInfo.Ask();

if (stoploss_bn > 0)
{
//Verify stop loss if valid
stoploss_bn = NormalizeDouble(price_bn-stoploss_bn*points_bn, digits_bn);
//stoploss_bn = CheckStopLoss(symbol_bn, price_bn, stoploss_bn);
}

if (takeprofit_bn > 0)
{
//Verify take profit is valid
takeprofit_bn= NormalizeDouble(price_bn+takeprofit_bn*points_bn, digits_bn);
//takeprofit_bn = CheckTakeProfit(symbol_bn, price_bn, takeprofit_bn);
}

Print("M-",_Symbol," Prepare BUY order ",symbol_bn," Buy Order.Price : Ask = ",DoubleToString(price_bn,digits_bn),". Stoploss = ",DoubleToString(stoploss_bn,digits_bn),". Takeprofit = ",DoubleToString(takeprofit_bn,digits_bn)," Lotsize=",DoubleToString(lotsize_bn,digits_bn));
Print("M-",_Symbol," triggered by ",condition_bn);

}
else
{ // go short set up
price_bn = symInfo.Bid();

if (stoploss_bn > 0)
{
//Verify stop loss is valid
stoploss_bn = NormalizeDouble(price_bn+stoploss_bn*points_bn, digits_bn);
//stoploss_bn = CheckStopLoss(symbol_bn, price_bn, stoploss_bn);
}

if (takeprofit_bn>0)
{
//Verify take profit are valid
takeprofit_bn= NormalizeDouble(price_bn-takeprofit_bn*points_bn, digits_bn);
//takeprofit_bn = CheckTakeProfit(symbol_bn, price_bn, takeprofit_bn);
}
Print("M-",_Symbol," Prepare SELL order ",symbol_bn," Sell Order.Price : Bid = ",DoubleToString(price_bn,digits_bn),". Stoploss = ",DoubleToString(stoploss_bn,digits_bn),". Takeprofit = ",DoubleToString(takeprofit_bn,digits_bn)," Lotsize=",DoubleToString(lotsize_bn,digits_bn));
Print("M-",_Symbol," triggered by ",condition_bn);

}

// Verify order execution
if (!isTradingPossible())
{
Print("M-",_Symbol," Warning: Trading may not be possible. Trying to open a new position.");
}

trade.SetExpertMagicNumber(magic_bn);
trade.SetDeviationInPoints(_Slippage);

bool success = false;

success = trade.PositionOpen(symbol_bn,ordertype_bn,lotsize_bn,price_bn,stoploss_bn,takeprofit_bn,comment_bn);

errorcode_bn = trade.ResultRetcode();

if(success && (errorcode_bn==TRADE_RETCODE_PLACED || errorcode_bn==TRADE_RETCODE_DONE) )
{


posInfo.Select(symbol_bn);
if (!ecn) {
Print("M-",_Symbol, " Position Executed Successfully! Position Type=", PositionTypetoString(pType), ". Symbol=", symbol_bn);
Print("M-",_Symbol, " Price=",DoubleToString(price_bn,digits_bn), " FillPrice=", DoubleToString(posInfo.PriceOpen(),digits_bn), " Slippage=",DoubleToString((posInfo.PriceOpen()-price_bn),digits_bn));
Print("M-",_Symbol, " Account Equity=",AccountInfoDouble(ACCOUNT_EQUITY),". Account Balance=",AccountInfoDouble(ACCOUNT_BALANCE),". Account Free Margin = ",AccountInfoDouble(ACCOUNT_FREEMARGIN));
Sleep(SleepTime);
if (SendMailMode)
{
//Prepare email
subject = "EA: ";
StringConcatenate(subject,EAName,". ",symbol_bn," ",PositionTypetoString(pType)," position executed); ");
mailstring = "email generated by Expert Advisor Visual Wizard v3.1 \n";
StringConcatenate(mailstring, "Server Time=",TimeToString(TimeCurrent(),TIME_DATE|TIME_SECONDS),". Terminal Time=",TimeToString(TimeLocal(),TIME_DATE|TIME_SECONDS),"\n");
StringConcatenate(mailstring, "M-Order Executed Successfully!\nOrder Info : \n Order Type=", PositionTypetoString(pType), ".\n Symbol=", symbol_bn, ".\n Lot Size=",lotsize_bn,
".\n Price=",DoubleToString(price_bn,digits_bn), ".\n FillPrice=", DoubleToString(posInfo.PriceOpen(),digits_bn), ".\n _Slippage=",DoubleToString((posInfo.PriceOpen()-price_bn),digits_bn), ".\n SL=",DoubleToString(posInfo.StopLoss(),digits_bn),".\n TP=",DoubleToString(posInfo.TakeProfit(),digits_bn), ".\n Order time=",posInfo.Time(),
".\n Maximum Number of deals:", MaxVolumePosition,".\n Current Volume:",PositionVolume(symbol_bn));
SendMail(subject, mailstring);
}
if (PlaySounds)
{
PlaySound(MySound);
}
} else {
Print("M-",_Symbol, " ECN Step 1 Order Executed Successfully without stops! Position Type=", PositionTypetoString(pType), ". Symbol=", symbol_bn);
Print("M-",_Symbol, " Price=",DoubleToString(price_bn,digits_bn), " FillPrice=", DoubleToString(posInfo.PriceOpen(),digits_bn), " Slippage=",DoubleToString((posInfo.PriceOpen()-price_bn),digits_bn));
Print("M-",_Symbol, " ECN Step 2 Adding stops...");
success = trade.PositionModify(symbol_bn, stoploss_bn, takeprofit_bn);
errorcode_bn = trade.ResultRetcode();
//Print(errorcode_bn," ",ErrorCodeDescription(errorcode_bn));
//if(success && (errorcode_bn==TRADE_RETCODE_PLACED || errorcode_bn==TRADE_RETCODE_DONE) ) {
if( (errorcode_bn==TRADE_RETCODE_PLACED || errorcode_bn==TRADE_RETCODE_DONE) && (errorcode_bn!=TRADE_RETCODE_INVALID_STOPS) ) {
Print("M-",_Symbol, " ECN Position Step 2 Stops added Successfully! Position Type=", PositionTypetoString(pType), ". Symbol=", symbol_bn);

if (PlaySounds)
{
PlaySound(MySound);
}

if (SendMailMode)
{
//Prepare email
subject = "EA: ";
StringConcatenate(subject,EAName,". ",symbol_bn," ",PositionTypetoString(pType)," position executed); ");
mailstring = "email generated by Expert Advisor Visual Wizard v3.1 \n";
StringConcatenate(mailstring, "Server Time=",TimeToString(TimeCurrent(),TIME_DATE|TIME_SECONDS),". Terminal Time=",TimeToString(TimeLocal(),TIME_DATE|TIME_SECONDS),"\n");
StringConcatenate(mailstring, "M-Order Executed Successfully!\nOrder Info : \n Order Type=", PositionTypetoString(pType), ".\n Symbol=", symbol_bn, ".\n Lot Size=",lotsize_bn,
".\n Price=",DoubleToString(price_bn,digits_bn), ".\n FillPrice=", DoubleToString(posInfo.PriceOpen(),digits_bn), ".\n _Slippage=",DoubleToString((posInfo.PriceOpen()-price_bn),digits_bn), ".\n SL=",DoubleToString(posInfo.StopLoss(),digits_bn),".\n TP=",DoubleToString(posInfo.TakeProfit(),digits_bn), ".\n Order time=",posInfo.Time(),
".\n Maximum Number of deals:", MaxVolumePosition,".\n Current Volume:",PositionVolume(symbol_bn));
SendMail(subject, mailstring);
}

} else {
Print("M-",_Symbol, " ECN ERROR: Position Executed Successfully but stops may be missing! Position Type=", PositionTypetoString(pType), ". Symbol=", symbol_bn);
Print("M-",_Symbol, " Price=",DoubleToString(price_bn,digits_bn), " FillPrice=", DoubleToString(posInfo.PriceOpen(),digits_bn), " Slippage=",DoubleToString((posInfo.PriceOpen()-price_bn),digits_bn));
Print("M-",_Symbol, " Account Equity=",AccountInfoDouble(ACCOUNT_EQUITY),". Account Balance=",AccountInfoDouble(ACCOUNT_BALANCE),". Account Free Margin = ",AccountInfoDouble(ACCOUNT_FREEMARGIN));
if (PlaySounds)
{
PlaySound(MySound);
}
Sleep(SleepTime);
if (SendMailMode)
{
//Prepare email
subject = "EA: ";
StringConcatenate(subject,EAName,". ",symbol_bn," ",PositionTypetoString(pType)," position executed); ");
mailstring = "email generated by Expert Advisor Visual Wizard v3.1 \n";
StringConcatenate(mailstring, "Server Time=",TimeToString(TimeCurrent(),TIME_DATE|TIME_SECONDS),". Terminal Time=",TimeToString(TimeLocal(),TIME_DATE|TIME_SECONDS),"\n");
StringConcatenate(mailstring, "M-Order Executed Successfully for ECN but stops may be missing!\nOrder Info : \n Order Type=", PositionTypetoString(pType), ".\n Symbol=", symbol_bn, ".\n Lot Size=",lotsize_bn,
".\n Price=",DoubleToString(price_bn,digits_bn), ".\n FillPrice=", DoubleToString(posInfo.PriceOpen(),digits_bn), ".\n _Slippage=",DoubleToString((posInfo.PriceOpen()-price_bn),digits_bn), ".\n SL=",DoubleToString(posInfo.StopLoss(),digits_bn),".\n TP=",DoubleToString(posInfo.TakeProfit(),digits_bn), ".\n Order time=",posInfo.Time(),
".\n Maximum Number of deals:", MaxVolumePosition,".\n Current Volume:",PositionVolume(symbol_bn));
SendMail(subject, mailstring);
}

}

}
//Paint arrows
ObjCount++;
if (golong_bn)
{
if (!ObjectCreate(0, "Molanis"+ObjCount, OBJ_ARROW_BUY, 0, TimeCurrent(), price_bn))
{
Print("M-",_Symbol," Warning: ARROW UP marker coudn't be created.");
} else {
ObjectSetInteger(0, "Molanis"+ObjCount, OBJPROP_COLOR, Green);
Print("M-",_Symbol," Warning: ARROW UP marker created at ",price_bn, " named Molanis"+ObjCount);
ChartRedraw(0);
}
} else {
if (!ObjectCreate(0, "Molanis"+ObjCount, OBJ_ARROW_SELL, 0, TimeCurrent(), price_bn))
{
Print("M-",_Symbol," Warning: ARROW DOWN marker coudn't be created.");
} else {
ObjectSetInteger(0, "Molanis"+ObjCount, OBJPROP_COLOR, Red);
Print("M-",_Symbol," Warning: ARROW DOWN marker created at ",price_bn, " named Molanis"+ObjCount);
ChartRedraw(0);
}
}
return true;
}
else
{
//Retry if ERROR can be solved
if(errorcode_bn==TRADE_RETCODE_CONNECTION
|| errorcode_bn==TRADE_RETCODE_TIMEOUT || errorcode_bn==TRADE_RETCODE_INVALID_PRICE || errorcode_bn==TRADE_RETCODE_PRICE_OFF || errorcode_bn==TRADE_RETCODE_PRICE_CHANGED || errorcode_bn==TRADE_RETCODE_REQUOTE || errorcode_bn==TRADE_RETCODE_REJECT
|| errorcode_bn==TRADE_RETCODE_ERROR || errorcode_bn==TRADE_RETCODE_INVALID || errorcode_bn==TRADE_RETCODE_INVALID_VOLUME || errorcode_bn==TRADE_RETCODE_INVALID_STOPS || errorcode_bn==TRADE_RETCODE_INVALID_FILL) {

Print("M-",_Symbol, " ERROR: Server error. Sending order to server again. Retry intent number = ",tries);
tries++;
if (tries>MaxOrderRetry+1) {

Print("M-",_Symbol," ERROR: Could not open new position. Error=",errorcode_bn, " ",trade.ResultRetcodeDescription(),". Order Info : Position Type=", PositionTypetoString(pType) , ". Symbol=", symbol_bn, ". Lot Size=",lotsize_bn,
". Price=",DoubleToString(price_bn,digits_bn),". Stoploss = ",DoubleToString(stoploss_bn,digits_bn),". Takeprofit = ",DoubleToString(takeprofit_bn,digits_bn));
if (ShowWarnings) Alert("M-"+_Symbol+ " ERROR: Could not open new position. Error=",errorcode_bn, " ",trade.ResultRetcodeDescription(),". Order Info : Position Type=", PositionTypetoString(pType) , ". Symbol=", symbol_bn, ". Lot Size=",lotsize_bn,
". Price=",DoubleToString(price_bn,digits_bn),". Stoploss = ",DoubleToString(stoploss_bn,digits_bn),". Takeprofit = ",DoubleToString(takeprofit_bn,digits_bn));

if (SendMailMode)
{
subject = "EA: ";
StringConcatenate(subject,EAName," ",symbol_bn," ", PositionTypetoString(pType)," position FAILED");
mailstring = "email generated by Expert Advisor Visual Wizard v3.1 \n";
StringConcatenate(mailstring, "Server Time=",TimeToString(TimeCurrent(),TIME_DATE|TIME_SECONDS),". Terminal Time=",TimeToString(TimeLocal(),TIME_DATE|TIME_SECONDS),"\n");
StringConcatenate(mailstring, "WARNING: Could not open new position.\n Error=",errorcode_bn, "\n", trade.ResultRetcodeDescription(),".\n Order Info :\nOrder Type=", PositionTypetoString(pType), ".\n Symbol=", symbol_bn, ".\n Lot Size=",lotsize_bn,
". Price=",DoubleToString(price_bn,digits_bn),". Stoploss = ",DoubleToString(stoploss_bn,digits_bn),". Takeprofit = ",DoubleToString(takeprofit_bn,digits_bn));
SendMail(subject, mailstring);
}
return false;
}

Sleep(SleepTime);
} else {

Print("M-",_Symbol," ERROR: Could not open new position. Error=",errorcode_bn, " ",trade.ResultRetcodeDescription(),". Order Info : Position Type=", PositionTypetoString(pType) , ". Symbol=", symbol_bn, ". Lot Size=",lotsize_bn,
". Price=",DoubleToString(price_bn,digits_bn),". Stoploss = ",DoubleToString(stoploss_bn,digits_bn),". Takeprofit = ",DoubleToString(takeprofit_bn,digits_bn));
if (ShowWarnings) Alert("M-"+_Symbol+ " ERROR: Could not open new position. Error=",errorcode_bn, " ",trade.ResultRetcodeDescription(),". Order Info : Position Type=", PositionTypetoString(pType) , ". Symbol=", symbol_bn, ". Lot Size=",lotsize_bn,
". Price=",DoubleToString(price_bn,digits_bn),". Stoploss = ",DoubleToString(stoploss_bn,digits_bn),". Takeprofit = ",DoubleToString(takeprofit_bn,digits_bn));

if (SendMailMode)
{

subject = "EA: ";
StringConcatenate(subject,EAName," ",symbol_bn," ", PositionTypetoString(pType)," position FAILED");
mailstring = "email generated by Expert Advisor Visual Wizard v3.1 \n";
StringConcatenate(mailstring, "Server Time=",TimeToString(TimeCurrent(),TIME_DATE|TIME_SECONDS),". Terminal Time=",TimeToString(TimeLocal(),TIME_DATE|TIME_SECONDS),"\n");
StringConcatenate(mailstring, "WARNING: Could not open new position.\n Error=",errorcode_bn, "\n", trade.ResultRetcodeDescription(),".\n Order Info :\nOrder Type=", PositionTypetoString(pType), ".\n Symbol=", symbol_bn, ".\n Lot Size=",lotsize_bn,
". Price=",DoubleToString(price_bn,digits_bn),". Stoploss = ",DoubleToString(stoploss_bn,digits_bn),". Takeprofit = ",DoubleToString(takeprofit_bn,digits_bn));
SendMail(subject, mailstring);
}
return false;
}
}

} //close while


return false;
}


//Lot Management changes lot size. Part of money management
/*
*** Generated with Expert Advisor Visual Wizard 3.1 ***
*** www.molanis.com ***
*** Released 2010-06-20 ***
*/

double LotManagement(string symbol_lot,double lot_lot)
{
double lot= lot_lot; // get defined lotsize

if (!UseLotManagement) //if not using lot management
{


if(MathAbs(lot/SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP)-MathRound(lot/SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP) ))>1.0E-10)
{

lot=SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_STEP)*NormalizeDouble(lot/SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_STEP),0);
Print("M-",_Symbol," Warning: Your lot size of ",lot_lot," is not a multiple of minimal step ",SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP),". Lot size changed to ",lot);

}

if (lot<SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MIN))
{
lot=SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MIN);
Print("M-",_Symbol," Warning: Your lot size of ",lot_lot," is lower than the minimum size allowed by the server. Lot size changed to ",lot);
return(lot);
}

if (lot>SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MAX))
{
lot= SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MAX);
Print("M-",_Symbol," Warning: Your lot size of ",lot_lot," is higher than the maximum size allowed by the server. Lot size changed to ",lot);
return(lot);
}

return(lot);
}

//calculate number of losses/wins without a break


int losses = 0, gains=0; // number of losses/gain orders without a break
ulong ticket;
int ordersnumb=HistoryDealsTotal();
//losses
HistorySelect(0, TimeCurrent());
for(int i = ordersnumb-1; i >= 0; i--)
{
ticket = HistoryDealGetTicket(i);
if(ticket == 0)
{
Print("M-",_Symbol," Error in history when running Lot Management!");
break;
}


if(HistoryDealGetString(ticket,DEAL_SYMBOL)!=symbol_lot || HistoryDealGetInteger(ticket,DEAL_TYPE)>DEAL_TYPE_SELL) continue;

if(HistoryDealGetDouble(ticket,DEAL_PROFIT) > 0) break;
if(HistoryDealGetDouble(ticket,DEAL_PROFIT) < 0) losses++;
}

//wins
HistorySelect(0, TimeCurrent());
ordersnumb=HistoryDealsTotal();
for(int i = ordersnumb-1;i >= 0;i--)
{
if(!(ticket = HistoryDealGetTicket(i)))
{
Print("M-",_Symbol," Error in history when running Lot Management!");
break;
}
if(HistoryDealGetString(ticket,DEAL_SYMBOL)!=symbol_lot || HistoryDealGetInteger(ticket,DEAL_TYPE)>DEAL_TYPE_SELL) continue;
if(HistoryDealGetDouble(ticket,DEAL_PROFIT) < 0) break;
if(HistoryDealGetDouble(ticket,DEAL_PROFIT) > 0) gains++;
}

// 1 - Uses Decrease factor
// 2 - Uses a fix factor 75%,50%.25%
//set normalizedouble
int tmpdecimal=1;

if (IsMicroAccount)
{
tmpdecimal=2;
}
//adjusting lot size

if (LotManagementType==1)
{
if(ReductionFactor>0)
{
if(losses>=DecreaseLotAfterLoss) //decrease lot after DecreaseLotAfterLoss losses in a row
{
lot=NormalizeDouble(lot-(lot*losses/ReductionFactor),tmpdecimal);
if(MathAbs(lot/SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP)-MathRound(lot/SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP) ))>1.0E-10)
{
lot=SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_STEP)*NormalizeDouble(lot/SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_STEP),0);
//Print("M-",_Symbol," Warning: Your lot size of ",lot_lot," has a wrong lot step. Should be ",SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP),". Lot size changed to ",lot);

}

if (lot<SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MIN))
{
lot=SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MIN);
Print("M-",_Symbol," MoneyManagementType=1. Loss number=",losses,". Lot adjusted to minimum size allowed by server of ",lot, " from ",lot_lot);
} else if (lot>SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MAX))
{
lot=SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MAX);
Print("M-",_Symbol," MoneyManagementType=1. Loss number=",losses,". Lot adjusted to maximum size allowed by server of ",lot, " from ",lot_lot);

}
else
{
Print("M-",_Symbol," MoneyManagementType=1. Loss number=",losses,". Lot adjusted to ",lot, " from ",lot_lot);
}
}
}
}
else if (LotManagementType==2)
{
if (losses==2)
{
lot=NormalizeDouble(0.75*lot,tmpdecimal);
if(MathAbs(lot/SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP)-MathRound(lot/SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP) ))>1.0E-10)
{
lot=SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_STEP)*NormalizeDouble(lot/SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_STEP),0);
//Print("M-",_Symbol," Warning: Your lot size of ",lot_lot," has a wrong lot step. Should be ",SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP),". Lot size changed to ",lot);

}

if (lot<SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MIN))
{
lot=SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MIN);
Print("M-",_Symbol," MoneyManagementType=2. Two losses in a row. Loss number=",losses,". Lot adjusted to minimum size allowed by server of ",lot, " from ",lot_lot);
} else if (lot>SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MAX))
{
lot=SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MAX);
Print("M-",_Symbol," MoneyManagementType=2. Two losses in a row. Loss number=",losses,". Lot adjusted to maximum size allowed by server of ",lot, " from ",lot_lot);

}
else
{
Print("M-",_Symbol," MoneyManagementType=2. Two losses in a row. Adjust to 75% of previous lot size. Loss number=",losses,". Lot adjusted to ",lot, " from ",lot_lot);
}

}
if (losses==3)
{
lot=NormalizeDouble(0.50*lot,tmpdecimal);
if(MathAbs(lot/SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP)-MathRound(lot/SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP) ))>1.0E-10)
{
lot=SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_STEP)*NormalizeDouble(lot/SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_STEP),0);
//Print("M-",_Symbol," Warning: Your lot size of ",lot_lot," has a wrong lot step. Should be ",SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP),". Lot size changed to ",lot);

}

if (lot<SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MIN))
{
lot=SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MIN);
Print("M-",_Symbol," MoneyManagementType=2. Three losses in a row. Loss number=",losses,". Lot adjusted to minimum size allowed by server of ",lot, " from ",lot_lot);
} else if (lot>SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MAX))
{
lot=SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MAX);
Print("M-",_Symbol," MoneyManagementType=2. Three losses in a row. Loss number=",losses,". Lot adjusted to maximum size allowed by server of ",lot, " from ",lot_lot);

}
else
{
Print("M-",_Symbol," MoneyManagementType=2. Three losses in a row. Adjust to 50% of previous lot size. Loss number=",losses,". Lot adjusted to ",lot, " from ",lot_lot);
}


}
if (losses>=4)
{
lot=NormalizeDouble(0.25*lot,tmpdecimal);
if(MathAbs(lot/SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP)-MathRound(lot/SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP) ))>1.0E-10)
{
lot=SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_STEP)*NormalizeDouble(lot/SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_STEP),0);
//Print("M-",_Symbol," Warning: Your lot size of ",lot_lot," has a wrong lot step. Should be ",SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_STEP),". Lot size changed to ",lot);

}

if (lot<SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MIN))
{
lot=SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MIN);
Print("M-",_Symbol," MoneyManagementType=2. More than Three losses in a row. Loss number=",losses,". Lot adjusted to minimum size allowed by server of ",lot, " from ",lot_lot);
} else if (lot>SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MAX))
{
lot=SymbolInfoDouble(symbol_lot,SYMBOL_VOLUME_MAX);
Print("M-",_Symbol," MoneyManagementType=2. More than Three losses in a row. Loss number=",losses,". Lot adjusted to maximum size allowed by server of ",lot, " from ",lot_lot);

}
else
{
Print("M-",_Symbol," MoneyManagementType=2. More than Three losses in a row. Adjust to 25% of previous lot size. Loss number=",losses,". Lot adjusted to ",lot, " from ",lot_lot);
}


}
}
return(lot);
}



//PositionTypetoString This function Returs the string value of the order type
/*
*** Generated with Expert Advisor Visual Wizard 3.1 ***
*** www.molanis.com ***
*** Released 2010-06-20 ***
*/
string PositionTypetoString(ENUM_POSITION_TYPE ordertypecode)
{
if (ordertypecode == POSITION_TYPE_BUY)
return("POSITION_TYPE_BUY");

if (ordertypecode == POSITION_TYPE_SELL)
return("POSITION_TYPE_SELL");

return("Unknow order type");
}


//isTradingPossible checks if trading is possible.
/*
*** Generated with Expert Advisor Visual Wizard 3.1 ***
*** www.molanis.com ***
*** Released 2010-06-20 ***
*/

bool isTradingPossible()
{
//Check if trading is possible
bool tmpresponse=true;
if(!TerminalInfoInteger(TERMINAL_CONNECTED))
{
Print("M-",_Symbol, " URGENT ACTION REQUIRED : There is no connection to the server!");
if (ShowWarnings) Alert("URGENT ACTION REQUIRED : There is no connection to the server!");
tmpresponse=false;
}
if(IsStopped())
{
Print("M-",_Symbol, " ERROR : EA was commanded to stop its operation!");
if (ShowWarnings) Alert("ERROR : EA was commanded to stop its operation!");
tmpresponse=false;
}
if (!MQL5InfoInteger(MQL5_TRADE_ALLOWED)) {
Print("M-",_Symbol, " ERROR : Trading is not allowed at this moment!");
if (ShowWarnings) Alert("ERROR : Trading is not allowed at this moment!");
tmpresponse=false;
}
return(tmpresponse);
}


// CheckTrailingStop
// To adjust trailing stops
/*
*** Generated with Expert Advisor Visual Wizard 3.1 ***
*** www.molanis.com ***
*** Released 2010-06-20 ***
*/
int CheckTrailingStop(string symbol_ts, ENUM_POSITION_TYPE postype_ts,int magicnumber_ts, double tralingstop_ts)
{
if (tralingstop_ts <= 0)
return(0);


//verify type is ok
if(postype_ts != POSITION_TYPE_BUY && postype_ts != POSITION_TYPE_SELL)
{
Print("M-",_Symbol, " Check Trailing Stop failed. Order type is wrong.");
return(-1);
}

int errorcode_ts = 0;

CTrade trade;
CPositionInfo posInfo;

CSymbolInfo symInfo;
symInfo.Name(symbol_ts);

//Verify TS
if(tralingstop_ts*PipMultiplier<symInfo.StopsLevel() && tralingstop_ts>0)
{
Print("M-",_Symbol," Error: Trailing Stop must be greater than ",DoubleToString(symInfo.StopsLevel(),symInfo.Digits())," Please change your trailing stop in the EA properties before running this EA in a real account");
if (ShowWarnings) Alert("M-"+_Symbol+" Error: Trailing Stop must be greater than "+DoubleToString(symInfo.StopsLevel(),symInfo.Digits())+" Please change your trailing stop in the EA properties before running this EA in a real account");
}

if (posInfo.Select(symbol_ts))
if (posInfo.Magic() == magicnumber_ts)
{
symInfo.RefreshRates();

if (posInfo.PositionType() == POSITION_TYPE_SELL)
if (posInfo.PriceOpen() - symInfo.Ask() > tralingstop_ts * PipMultiplier * symInfo.Point())
if (posInfo.StopLoss() == 0 || posInfo.StopLoss() > symInfo.Ask() + tralingstop_ts * PipMultiplier * symInfo.Point())
{
double oldStop = posInfo.StopLoss(),
newStop = NormalizeDouble(symInfo.Ask() + tralingstop_ts * PipMultiplier * symInfo.Point(),symInfo.Digits());

if (trade.PositionModify(posInfo.Symbol(), newStop, posInfo.TakeProfit()))
{
Print("M-",_Symbol," Order to change SL using trailing stop for short position was accepted. Old SL=",DoubleToString(oldStop,symInfo.Digits())," New SL=",DoubleToString(newStop,symInfo.Digits()), " Ask=",symInfo.Ask());
}
else
{
errorcode_ts = trade.ResultRetcode();
Print("M-",_Symbol," Warning: Could not change SL value with trailing stop for short position. Error:",errorcode_ts," ");
Print("M-",_Symbol, " ",ErrorCodeDescription(errorcode_ts)," ",trade.ResultComment());
}
}

if (posInfo.PositionType() == POSITION_TYPE_BUY)
if (symInfo.Bid() - posInfo.PriceOpen() > tralingstop_ts * PipMultiplier * symInfo.Point())
if (posInfo.StopLoss() == 0 || posInfo.StopLoss() < symInfo.Bid() - tralingstop_ts * PipMultiplier * symInfo.Point())
{
double oldStop = posInfo.StopLoss(),
newStop = NormalizeDouble(symInfo.Bid() - tralingstop_ts * PipMultiplier * symInfo.Point(),symInfo.Digits());

if (trade.PositionModify(posInfo.Symbol(), newStop, posInfo.TakeProfit()))
{
Print("M-",_Symbol," Order to change SL using trailing stop for long position was accepted.. Old SL=",DoubleToString(oldStop,symInfo.Digits())," New SL=",DoubleToString(newStop,symInfo.Digits()), " Bid=",symInfo.Bid());
}
else
{
errorcode_ts = trade.ResultRetcode();
Print("M-",_Symbol," Warning: Could not change SL value with trailing stop for long position. Error:",errorcode_ts," ");//,ErrorDescription(errorcode_ts));
Print("M-",_Symbol, " ",ErrorCodeDescription(errorcode_ts)," ",trade.ResultComment());
}
}
}

return(1);
}

//+------------------------------------------------------------------+
//| Returns the size of position of pair - if it fails it returns -1 |
//+------------------------------------------------------------------+
double PositionVolume(string mysymbol)
{

CSymbolInfo symInfo;

bool Pos=PositionSelect(mysymbol);
if(Pos)
return(PositionGetDouble(POSITION_VOLUME));
else
{
symInfo.Name(mysymbol);
symInfo.RefreshRates();

Pos=PositionSelect(mysymbol);
if(Pos)
return(PositionGetDouble(POSITION_VOLUME));
else {
symInfo.Name(mysymbol);
symInfo.RefreshRates();
Pos=PositionSelect(mysymbol);
if(Pos)
return(PositionGetDouble(POSITION_VOLUME));
else {
Print("M-",_Symbol," Warning: Could not get position volume. Assigning volume of 0");
return(0);
}
}
}

}

int CLOSELONG(string symbol_s)
{

ClosePosition(symbol_s,POSITION_TYPE_BUY,MagicNumberLong);
Sleep(SleepTime);

return(0);
}

int CLOSESHORT(string symbol_b)
{

ClosePosition(symbol_b, POSITION_TYPE_SELL,MagicNumberShort);
Sleep(SleepTime);

return(0);
}


string getUnitReasonText(int reasonCode)
{
string text="";

switch(reasonCode)
{
case REASON_ACCOUNT:
text="Account was changed";break;
case REASON_CHARTCHANGE:
text="Symbol or timeframe was changed";break;
case REASON_CHARTCLOSE:
text="Chart was closed";break;
case REASON_PARAMETERS:
text="Input-parameter was changed";break;
case REASON_RECOMPILE:
text="Program "+__FILE__+" was recompiled";break;
case REASON_REMOVE:
text="Program "+__FILE__+" was removed from chart";break;
case REASON_TEMPLATE:
text="New template was applied to chart";break;
default:text="Unknow reason";
}

return text;
}


//+------------------------------------------------------------------+
//| returns trade server return code description |
//+------------------------------------------------------------------+
string ErrorCodeDescription(int return_code)
{
//---
switch(return_code)
{
//The return code 10009 shows that the OrderSend request was completed successfully, while 10008 shows that our order has been placed.
case TRADE_RETCODE_REQUOTE: return("Requote");
case TRADE_RETCODE_REJECT: return("Request rejected");
case TRADE_RETCODE_CANCEL: return("Request canceled by trader");
case TRADE_RETCODE_PLACED: return("Order placed");
case TRADE_RETCODE_DONE: return("Request is completed");
case TRADE_RETCODE_DONE_PARTIAL: return("Request is partially completed");
case TRADE_RETCODE_ERROR: return("Request processing error");
case TRADE_RETCODE_TIMEOUT: return("Request canceled by timeout");
case TRADE_RETCODE_INVALID: return("Invalid request");
case TRADE_RETCODE_INVALID_VOLUME: return("Invalid volume in the request");
case TRADE_RETCODE_INVALID_PRICE: return("Invalid price in the request");
case TRADE_RETCODE_INVALID_STOPS: return("Invalid stops in the request");
case TRADE_RETCODE_TRADE_DISABLED: return("Trade is disabled");
case TRADE_RETCODE_MARKET_CLOSED: return("Market is closed");
case TRADE_RETCODE_NO_MONEY: return("There is not enough money to fulfill the request");
case TRADE_RETCODE_PRICE_CHANGED: return("Prices changed");
case TRADE_RETCODE_PRICE_OFF: return("There are no quotes to process the request");
case TRADE_RETCODE_INVALID_EXPIRATION: return("Invalid order expiration date of in the request");
case TRADE_RETCODE_ORDER_CHANGED: return("Order state changed");
case TRADE_RETCODE_TOO_MANY_REQUESTS: return("Too frequent requests");
case TRADE_RETCODE_NO_CHANGES: return("No changes in request");
case TRADE_RETCODE_SERVER_DISABLES_AT: return("Autotrading disabled by server");
case TRADE_RETCODE_CLIENT_DISABLES_AT: return("Autotrading disabled by client terminal");
case TRADE_RETCODE_LOCKED: return("Request locked for processing");
case TRADE_RETCODE_FROZEN: return("Order or position frozen");
case TRADE_RETCODE_INVALID_FILL: return("Invalid order filling type");
case TRADE_RETCODE_CONNECTION: return("No connection with the trade server");
case TRADE_RETCODE_ONLY_REAL: return("Operation is allowed only for live accounts");
case TRADE_RETCODE_LIMIT_ORDERS: return("The number of pending orders has reached the limit");
case TRADE_RETCODE_LIMIT_VOLUME: return("The volume of orders and positions for the symbol has reached the limit");
}
//---
return("Invalid return code of the trade server");
}

//+------------------------------------------------------------------+
//| Get Low for specified bar index |
//+------------------------------------------------------------------+
double iLow(string symbol,ENUM_TIMEFRAMES timeframe,int index)
{
double low=0;
ArraySetAsSeries(Low,true);
int copied=CopyLow(symbol,timeframe,0,Bars(symbol,timeframe),Low);
if(copied>0 && index<copied) low=Low[index];
return(low);
}
//+------------------------------------------------------------------+
//| Get the High for specified bar index |
//+------------------------------------------------------------------+
double iHigh(string symbol,ENUM_TIMEFRAMES timeframe,int index)
{
double high=0;
ArraySetAsSeries(High,true);
int copied=CopyHigh(symbol,timeframe,0,Bars(symbol,timeframe),High);
if(copied>0 && index<copied) high=High[index];
return(high);
}
//+------------------------------------------------------------------+
//| Get the Open for specified bar index |
//+------------------------------------------------------------------+

double iOpen(string symbol,ENUM_TIMEFRAMES timeframe,int index)
{
double open=0;
ArraySetAsSeries(Open,true);
int copied=CopyOpen(symbol,timeframe,0,Bars(symbol,timeframe),Open);
if(copied>0 && index<copied) open=Open[index];
return(open);
}
//+------------------------------------------------------------------+
//| Get the Close for specified bar index |
//+------------------------------------------------------------------+
double iClose(string symbol,ENUM_TIMEFRAMES timeframe,int index)
{
double close=0;
ArraySetAsSeries(Close,true);
int copied=CopyClose(symbol,timeframe,0,Bars(symbol,timeframe),Close);
if(copied>0 && index<copied) close=Close[index];
return(close);
}

//----functions end

//}//end molanis

/*Summary
//Indicator Handle


int iMACD_L1;


int iMACD_L2;


int iMACD_R2;


int iCustom_L3;


int iCustom_L4;


int iMACD_L5;


int iMACD_L6;


int iMACD_R6;


int iCustom_L7;


int iCustom_L8;



//Indicator Arrays


double iMACD_L1_Value[];


double iMACD_L2_Value[];


double iMACD_R2_Value[];


double iCustom_L3_Value[];


double iCustom_L4_Value[];


double iMACD_L5_Value[];


double iMACD_L6_Value[];


double iMACD_R6_Value[];


double iCustom_L7_Value[];


double iCustom_L8_Value[];



//Indicator Handle Get Value


iMACD_L1=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_L1 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iMACD_L2=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_L2 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iMACD_R2=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_R2 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iCustom_L3=iCustom(Symbol(),PERIOD_M3,"Heiken_Ashi");

if (iCustom_L3 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iCustom_L4=iCustom(Symbol(),PERIOD_M3,"Heiken_Ashi");

if (iCustom_L4 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iMACD_L5=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_L5 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iMACD_L6=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_L6 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iMACD_R6=iMACD(Symbol(),PERIOD_M30,12,26,9,PRICE_CLOSE);

if (iMACD_R6 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iCustom_L7=iCustom(Symbol(),PERIOD_M3,"Heiken_Ashi");

if (iCustom_L7 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

iCustom_L8=iCustom(Symbol(),PERIOD_M3,"Heiken_Ashi");

if (iCustom_L8 < 0)

{

Alert("Error Creating Handles for indicators - error: ",GetLastError(),"!! Restart your EA again.");

}

//Indicator Set as Series


ArraySetAsSeries(iMACD_L1_Value, true);


ArraySetAsSeries(iMACD_L2_Value, true);


ArraySetAsSeries(iMACD_R2_Value, true);


ArraySetAsSeries(iCustom_L3_Value, true);


ArraySetAsSeries(iCustom_L4_Value, true);


ArraySetAsSeries(iMACD_L5_Value, true);


ArraySetAsSeries(iMACD_L6_Value, true);


ArraySetAsSeries(iMACD_R6_Value, true);


ArraySetAsSeries(iCustom_L7_Value, true);


ArraySetAsSeries(iCustom_L8_Value, true);



//Indicator Release


IndicatorRelease(iMACD_L1);


IndicatorRelease(iMACD_L2);


IndicatorRelease(iMACD_R2);


IndicatorRelease(iCustom_L3);


IndicatorRelease(iCustom_L4);


IndicatorRelease(iMACD_L5);


IndicatorRelease(iMACD_L6);


IndicatorRelease(iMACD_R6);


IndicatorRelease(iCustom_L7);


IndicatorRelease(iCustom_L8);



//Indicator CopyBuffer


if ( CopyBuffer(iMACD_L1,MAIN_LINE,0,1,iMACD_L1_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iMACD_L2,MAIN_LINE,0,1,iMACD_L2_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iMACD_R2,MAIN_LINE,1,1,iMACD_R2_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iCustom_L3,4,0,1,iCustom_L3_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iCustom_L4,4,0,1,iCustom_L4_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iMACD_L5,MAIN_LINE,0,1,iMACD_L5_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iMACD_L6,MAIN_LINE,0,1,iMACD_L6_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iMACD_R6,MAIN_LINE,1,1,iMACD_R6_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iCustom_L7,4,0,1,iCustom_L7_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

if ( CopyBuffer(iCustom_L8,4,0,1,iCustom_L8_Value)!=1 )

{

if (ShowWarnings) Alert("Error Copying indicator buffer - error: ",GetLastError(),"!! EA won't trade this tick or bar.");

return;

}

//Conditions
if ( (iCustom_L8_Value[0] == 0.00000) ) { CLOSESHORT(Symbol()) ;}

if ( (iCustom_L4_Value[0] == 1.00000) ) { CLOSELONG(Symbol()) ;}

if ( (iCustom_L7_Value[0] == 1.00000) && (iMACD_L6_Value[0] <= iMACD_R6_Value[0]) && (iMACD_L5_Value[0] < 0.00000) ) { SELL(Symbol(),S_Symbol_LS_0,S_Symbol_TP_0,S_Symbol_SL_0,S_Symbol_TS_0,"if ( (iCustom_L7_Value[0] == 1.00000) && (iMACD_L6_Value[0] <= iMACD_R6_Value[0]) && (iMACD_L5_Value[0] < 0.00000) )") ;}

if ( (iCustom_L3_Value[0] == 0.00000) && (iMACD_L2_Value[0] >= iMACD_R2_Value[0]) && (iMACD_L1_Value[0] > 0.00000) ) { BUY(Symbol(),B_Symbol_LS_0,B_Symbol_TP_0,B_Symbol_SL_0,B_Symbol_TS_0,"if ( (iCustom_L3_Value[0] == 0.00000) && (iMACD_L2_Value[0] >= iMACD_R2_Value[0]) && (iMACD_L1_Value[0] > 0.00000) )") ;}



//Alerts
if ( (iCustom_L8_Value[0] == 0.00000) ) { MolanisAlert("if ( (iCustom_L8_Value[0] == 0.00000) )","CLOSESHORT(Symbol())",Symbol()) ;}

if ( (iCustom_L4_Value[0] == 1.00000) ) { MolanisAlert("if ( (iCustom_L4_Value[0] == 1.00000) )","CLOSELONG(Symbol())",Symbol()) ;}

if ( (iCustom_L7_Value[0] == 1.00000) && (iMACD_L6_Value[0] <= iMACD_R6_Value[0]) && (iMACD_L5_Value[0] < 0.00000) ) { MolanisAlert("if ( (iCustom_L7_Value[0] == 1.00000) && (iMACD_L6_Value[0] <= iMACD_R6_Value[0]) && (iMACD_L5_Value[0] < 0.00000) )","SELL(Symbol(),0.01,0,0,0)",Symbol()) ;}

if ( (iCustom_L3_Value[0] == 0.00000) && (iMACD_L2_Value[0] >= iMACD_R2_Value[0]) && (iMACD_L1_Value[0] > 0.00000) ) { MolanisAlert("if ( (iCustom_L3_Value[0] == 0.00000) && (iMACD_L2_Value[0] >= iMACD_R2_Value[0]) && (iMACD_L1_Value[0] > 0.00000) )","BUY(Symbol(),0.01,0,0,0)",Symbol()) ;}

A minor misunderstanding. We mean that we give support in the forums so we encourage poeple to post in the forum. Email support is for installation and licensing issues.
We do not like to see code - it confusses people - we want to see the strategy file (.mol file)