//+------------------------------------------------------------------------------+// //) ____ _ _ ____ ____ ____ ____ __ __ __ ___ _____ __ __ (// //) ( ___)( \/ )( _ \( _ \( ___)( ___)( \/ ) /__\ / __)( _ )( \/ ) (// //) )__) ) ( )(_) )) / )__) )__) ) ( /(__)\ ( (__ )(_)( ) ( (// //) (__) (_/\_)(____/(_)\_)(____)(____)(_/\/\_)(__)(__)()\___)(_____)(_/\/\_) (// //) http://fxdreema.com Copyright 2016, fxDreema (// //+------------------------------------------------------------------------------+// #property copyright "" #property link "https://fxdreema.com" /************************************************************************************************************************/ // +------------------------------------------------------------------------------------------------------------------+ // // | INPUT PARAMETERS, GLOBAL VARIABLES, CONSTANTS, IMPORTS and INCLUDES | // // | System and Custom variables and other definitions used in the project | // // +------------------------------------------------------------------------------------------------------------------+ // /************************************************************************************************************************/ //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // System constants (project settings) // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// //-- #define PROJECT_ID "mt5-2058" //-- // Point Format Rules #define POINT_FORMAT_RULES "0.001=0.01,0.000001=0.0001" //-- // Events On/Off #define ENABLE_EVENT_TICK 1 // enable "Tick" event #define ENABLE_EVENT_TRADE 0 // enable "Trade" event #define ENABLE_EVENT_TIMER 0 // enable "Timer" event //-- // Settings for events #define ON_TIMER_PERIOD 5 // Timer event period (in seconds) //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // System constants (predefined constants) // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// //-- #define TLOBJPROP_TIME1 801 #define OBJPROP_TL_PRICE_BY_SHIFT 802 #define OBJPROP_TL_SHIFT_BY_PRICE 803 #define OBJPROP_FIBOVALUE 804 #define OBJPROP_FIBOPRICEVALUE 805 #define OBJPROP_FIRSTLEVEL 806 #define OBJPROP_TIME1 807 #define OBJPROP_TIME2 808 #define OBJPROP_TIME3 809 #define OBJPROP_PRICE1 810 #define OBJPROP_PRICE2 811 #define OBJPROP_PRICE3 812 #define OBJPROP_BARSHIFT1 813 #define OBJPROP_BARSHIFT2 814 #define OBJPROP_BARSHIFT3 815 #define SEL_CURRENT 0 #define SEL_INITIAL 1 //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // Imports, Constants, Variables // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// //-- // Constants (Input Parameters) input string sym_1 = "";input string sym_2 = "";input string sym_3 = "";input double group = 1;input double profit_level = 0;input int MagicStart = 2058; // Magic Number, kind of... class c { public: static string sym_1; static string sym_2; static string sym_3; static double group; static double profit_level; static int MagicStart; }; string c::sym_1; string c::sym_2; string c::sym_3; double c::group; double c::profit_level; int c::MagicStart; //-- // Variables (Global Variables) class v { public: static double sinth_ask; }; double v::sinth_ask; //-- // Externs (Global Variables) input string inp4 = "(4) Buy now"; input double inp4_VolumeSize = 0.1; input string inp5 = "(5) Sell now"; input double inp5_VolumeSize = 0.1; input string inp6 = "(6) Sell now"; input double inp6_VolumeSize = 0.1; input string inp7 = "(7) Time filter"; input string inp7_TimeStart = "00:00"; input string inp7_TimeEnd = "00:01"; class _externs { public: static string inp4; static double inp4_VolumeSize; static string inp5; static double inp5_VolumeSize; static string inp6; static double inp6_VolumeSize; static string inp7; static string inp7_TimeStart; static string inp7_TimeEnd; }; string _externs::inp4 = inp4; double _externs::inp4_VolumeSize = inp4_VolumeSize; string _externs::inp5 = inp5; double _externs::inp5_VolumeSize = inp5_VolumeSize; string _externs::inp6 = inp6; double _externs::inp6_VolumeSize = inp6_VolumeSize; string _externs::inp7 = inp7; string _externs::inp7_TimeStart = inp7_TimeStart; string _externs::inp7_TimeEnd = inp7_TimeEnd; //VVVVVVVVVVVVVVVVVVVVVVVVV// // System global variables // //^^^^^^^^^^^^^^^^^^^^^^^^^// //-- int FXD_CURRENT_FUNCTION_ID = 0; double FXD_MILS_INIT_END = 0; int FXD_TICKS_FROM_START = 0; int FXD_MORE_SHIFT = 0; bool FXD_DRAW_SPREAD_INFO = false; bool FXD_FIRST_TICK_PASSED = false; bool FXD_BREAK = false; bool FXD_CONTINUE = false; string FXD_CURRENT_SYMBOL = ""; int FXD_BLOCKS_COUNT = 8; //- for use in OnChart() event struct fxd_onchart { int id; long lparam; double dparam; string sparam; }; fxd_onchart FXD_ONCHART; //VVVVVVVVVVVVVVVVVVV// // System structures // //^^^^^^^^^^^^^^^^^^^// struct position { ulong position_id; long type, magic; datetime time; double volume, price_open, sl, tp, price_current, comission, swap, profit; string symbol, comment; }; struct order { datetime time_setup, time_expiration, time_done; long type, state, type_filling, type_time, magic, position_id; ulong ticket; double volume_initial, volume_current, price_open, sl, tp, price_current, price_stoplimit; string symbol, comment; }; position EGV_PositionsList[]; position EGV_PositionsList0[]; order EGV_OrderList[]; order EGV_OrderList0[]; //-- // Variables for On/Off bool disabled[8]; /************************************************************************************************************************/ // +------------------------------------------------------------------------------------------------------------------+ // // | EVENT FUNCTIONS | // // | These are the main functions that controls the whole project | // // +------------------------------------------------------------------------------------------------------------------+ // /************************************************************************************************************************/ //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // This function is executed once when the program starts // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// int OnInit() { // Initiate Constants c::sym_1 = sym_1; c::sym_2 = sym_2; c::sym_3 = sym_3; c::group = group; c::profit_level = profit_level; c::MagicStart = MagicStart; // Initiate Externs _externs::inp4 = inp4; _externs::inp4_VolumeSize = inp4_VolumeSize; _externs::inp5 = inp5; _externs::inp5_VolumeSize = inp5_VolumeSize; _externs::inp6 = inp6; _externs::inp6_VolumeSize = inp6_VolumeSize; _externs::inp7 = inp7; _externs::inp7_TimeStart = inp7_TimeStart; _externs::inp7_TimeEnd = inp7_TimeEnd; // do or do not not initilialize on reload if (UninitializeReason() != 0) { if (UninitializeReason() == REASON_CHARTCHANGE) { // if the symbol is the same, do not reload, otherwise continue below if (FXD_CURRENT_SYMBOL == Symbol()) {return INIT_SUCCEEDED;} } else { return INIT_SUCCEEDED; } } FXD_CURRENT_SYMBOL = Symbol(); v::sinth_ask = 0; Comment(""); for (int i=ObjectsTotal(ChartID()); i>=0; i--) { string name = ObjectName(ChartID(), i); if (StringSubstr(name,0,8) == "fxd_cmnt") {ObjectDelete(ChartID(), name);} } ChartRedraw(); // This is needed for OnTrade event BuildPositionsList(EGV_PositionsList0); BuildOrdersList(EGV_OrderList0); //-- set initial local and server time TimeAtStart("set"); //-- set initial balance AccountBalanceAtStart(); //-- draw the initial spread info meter FXD_DRAW_SPREAD_INFO = !(MQLInfoInteger(MQL_TESTER) && !MQLInfoInteger(MQL_VISUAL_MODE)); if (FXD_DRAW_SPREAD_INFO) DrawSpreadInfo(); //-- draw initial status DrawStatus("waiting for tick..."); if (ENABLE_EVENT_TIMER) { OnTimerSet(ON_TIMER_PERIOD); } FXD_MILS_INIT_END = (double)GetTickCount(); FXD_FIRST_TICK_PASSED = false; // reset is needed when changing inputs return(INIT_SUCCEEDED); } //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // This function is executed on every incoming tick // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// // This is the native MQL4 on-tick function void OnTick() { FXD_TICKS_FROM_START++; if (FXD_TICKS_FROM_START == 1) DrawStatus("working"); //-- special system actions if (FXD_DRAW_SPREAD_INFO) DrawSpreadInfo(); TicksData(""); // Collect ticks (if needed) TicksPerSecond(false, true); // Collect ticks per second OCODriver(); // Check and close OCO orders block1(0); block7(0); return; } //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // This function is executed on trade events - open, close, modify // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// void OnTrade() { OnTradeQueue(1); OnTradeQueue(-1); } //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // This function is executed on a period basis // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// void OnTimer() { } //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // This function is executed when chart event happens // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// void OnChartEvent( const int id, // Event ID const long& lparam, // Parameter of type long event const double& dparam, // Parameter of type double event const string& sparam // Parameter of type string events ) { //-- write parameter to the system global variables FXD_ONCHART.id = id; FXD_ONCHART.lparam = lparam; FXD_ONCHART.dparam = dparam; FXD_ONCHART.sparam = sparam; return; } //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // This function is executed once when the program ends // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// void OnDeinit(const int reason) { int reson = UninitializeReason(); if (reson == REASON_CHARTCHANGE || reson == REASON_PARAMETERS || reason == REASON_TEMPLATE) {return;} //-- if Timer was set, kill it here EventKillTimer(); DrawStatus("Stopped"); DrawSpreadInfo(); if (MQLInfoInteger(MQL_TESTER)) { Print("Backtested in "+DoubleToString((GetTickCount()-FXD_MILS_INIT_END)/1000, 2)+" seconds"); double tc = GetTickCount()-FXD_MILS_INIT_END; if (tc > 0) { Print("Average ticks per second: "+DoubleToString(FXD_TICKS_FROM_START/tc, 0)); } } if (MQLInfoInteger(MQL_PROGRAM_TYPE) == PROGRAM_EXPERT) { switch(UninitializeReason()) { case REASON_PROGRAM : Print("Expert Advisor self terminated"); break; case REASON_REMOVE : Print("Expert Advisor removed from the chart"); break; case REASON_RECOMPILE : Print("Expert Advisorhas been recompiled"); break; case REASON_CHARTCHANGE : Print("Symbol or chart period has been changed"); break; case REASON_CHARTCLOSE : Print("Chart has been closed"); break; case REASON_PARAMETERS : Print("Input parameters have been changed by a user"); break; case REASON_ACCOUNT : Print("Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings"); break; case REASON_TEMPLATE : Print("A new template has been applied"); break; case REASON_INITFAILED : Print("OnInit() handler has returned a nonzero value"); break; case REASON_CLOSE : Print("Terminal has been closed"); break; } } return; } /************************************************************************************************************************/ // +------------------------------------------------------------------------------------------------------------------+ // // | Functions of blocks | // // | Functions that contain the actual code of the blocks and their input parameters as well | // // +------------------------------------------------------------------------------------------------------------------+ // /************************************************************************************************************************/ // Block 3 void block0(int _parent_=0) { if (disabled[0] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=0; static string OrdersScope = "group"; static string OrdersGroup; OrdersGroup = c::group; static string SymbolScope = "all"; static string SYMBOL; SYMBOL = CurrentSymbol(); static string BuysOrSells = "both"; bool exist=false; for (int pos=PositionsTotal()-1; pos>=0; pos--) { if (LoadOrder(PositionGetSymbol(pos))) { if (FilterOrderBy(OrdersScope,OrdersGroup, SymbolScope,SYMBOL, BuysOrSells)) { exist=true; break; } } } if (exist==false) { block4(0); block5(0); block6(0); } else {/* Yellow Output */} } // Block 7 void block1(int _parent_=0) { if (disabled[1] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=1; static string GroupMode = "group"; static string Group; Group = c::group; static string MarketMode = "all"; static string Market; Market = CurrentSymbol(); static string BuysOrSells = "both"; static string ProfitMode = "money"; double ProfitAmount = c::profit_level; double ProfitAmountPips = 10; double avg_price=0; double avg_load=0; double avg_lots=0; // Average sum of lots - it can be negative double profit_money=0; double profit_pips=0; double pips_sum=0; int trades_count=0; for (int pos=PositionsTotal()-1; pos>=0; pos--) { if (LoadOrder(PositionGetSymbol(pos))) { if (FilterOrderBy(GroupMode,Group, MarketMode,Market, BuysOrSells)) { profit_money=profit_money+attrProfit()+attrSwap()+attrCommission(); if (IsOrderTypeBuy()==true) { pips_sum=pips_sum+toPips(attrClosePrice()-attrOpenPrice()); avg_load=avg_load+(attrOpenPrice()*attrLots()); avg_lots=avg_lots+attrLots(); } else { pips_sum=pips_sum+toPips(attrOpenPrice()-attrClosePrice()); avg_load=avg_load-(attrOpenPrice()*attrLots()); avg_lots=avg_lots-attrLots(); } trades_count++; } } } if (ProfitMode=="money" || ProfitMode=="pips") { avg_price=0; if (avg_lots!=0) {avg_price=(avg_load/avg_lots);} if (avg_price!=0) { if (avg_lots>0) {profit_pips=bid()-avg_price;} else {profit_pips=avg_price-ask();} profit_pips=toPips(profit_pips,Symbol()); } } if ( (ProfitMode=="money" && (profit_money>ProfitAmount)) || (ProfitMode=="pips" && (profit_pips>ProfitAmountPips)) || (ProfitMode=="pips-sum" && (pips_sum>ProfitAmountPips)) ) { block2(1); } else {/* Yellow Output */} } // Block 8 void block2(int _parent_=0) { if (disabled[2] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=2; static string OrdersScope = "group"; static string OrdersGroup; OrdersGroup = c::group; static string SymbolScope = "all"; static string SYMBOL; SYMBOL = CurrentSymbol(); static string BuysOrSells = "both"; int OrderMinutes = 0; static string MeasureMode = "money"; double PipsAmount = 0; double MoneyAmount = 0; double Deviation = 4; color ArrowColor = clrDeepPink; int closed_count=0; bool finished=false; while (finished==false) { int count=0; for (int pos=PositionsTotal()-1; pos>=0; pos--) { if (LoadPosition(PositionGetTicket(pos))) { if (FilterOrderBy(OrdersScope,OrdersGroup, SymbolScope,SYMBOL, BuysOrSells)) { datetime time_diff = TimeCurrent()-attrOpenTime(); if (time_diff < 0) {time_diff = 0;} // this actually happens sometimes if (time_diff >= 60*OrderMinutes) { SetSymbol(SYMBOL); if ( (MeasureMode=="money" && (attrProfit()+attrCommission()+attrSwap())>MoneyAmount) || (MeasureMode=="pips" && ((IsOrderTypeBuy() && SymbolBid()-attrOpenPrice()>toDigits(PipsAmount)) || (IsOrderTypeSell() && OrderOpenPrice()-SymbolAsk()>toDigits(PipsAmount)))) ) { if (CloseTrade(attrTicket(),Deviation)) {closed_count++;} count++; } } } } } if (count==0) {finished=true;} } block3(2); } // Block 9 void block3(int _parent_=0) { if (disabled[3] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=3; static string OrdersScope = "group"; static string OrdersGroup; OrdersGroup = c::group; static string SymbolScope = "all"; static string SYMBOL; SYMBOL = CurrentSymbol(); static string BuysOrSells = "both"; int OrderMinutes = 0; double Deviation = 4; int closed_count=0; bool finished = false; while (finished==false) { int count=0; int total=PositionsTotal(); for (int pos=total-1; pos>=0; pos--) { if (LoadPosition(PositionGetTicket(pos))) { if (FilterOrderBy(OrdersScope,OrdersGroup, SymbolScope,SYMBOL, BuysOrSells)) { datetime time_diff = TimeCurrent()-attrOpenTime(); if (time_diff < 0) {time_diff = 0;} // this actually happens sometimes if (time_diff >= 60*OrderMinutes) { //int success = CloseOrder(attrSymbol(),Deviation); if (CloseTrade(attrTicket(), Deviation)) { closed_count++; } else {Print("Position close problem :(");} count++; } } } } if (count == 0) {finished = true;} } /* Orange Output */ } // Block 10 void block4(int _parent_=0) { if (disabled[4] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=4; static string OrdersGroup; OrdersGroup = c::group; static string SYMBOL; SYMBOL = c::sym_1; static string VolumeMode = "fixed"; double VolumeSize = _externs::inp4_VolumeSize; double VolumeSizeRisk = 50; double VolumeRisk = 2.5; double VolumePercent = 100; double VolumeBlockPercent = 3; double FixedRatioUnitSize = 0.01; double FixedRatioDelta = 20; double mmMgInitialLots = 0.1; double mmMgMultiplyOnLoss = 2; double mmMgMultiplyOnProfit = 1; double mmMgAddLotsOnLoss = 0; double mmMgAddLotsOnProfit = 0; int mmMgResetOnLoss = 0; int mmMgResetOnProfit = 1; double mm1326InitialLots = 0.1; bool mm1326Reverse = false; double mmFiboInitialLots = 0.1; double mmDalembertInitialLots = 0.1; bool mmDalembertReverse = false; double mmLabouchereInitialLots = 0.1; static string mmLabouchereList = "1,2,3,4,5,6"; bool mmLabouchereReverse = false; double mmSeqBaseLots = 0.1; static string mmSeqOnLoss = "3,2,6"; static string mmSeqOnProfit; mmSeqOnProfit = "1"; double mmSeqReverse = false; double VolumeUpperLimit = 0; static string StopLossMode = "none"; double StopLossPips = 100; double StopLossPercentTP = 100; static string TakeProfitMode = "none"; double TakeProfitPips = 100; double TakeProfitPercentSL = 100; double Slippage = 4; static string MyComment = "Long position"; SetSymbol(SYMBOL); //-- stops ------------------------------------------------------------------ double sll=0, slp=0, tpl=0, tpp=0; if (StopLossMode == "percentTP") { if (tpp > 0) {slp = tpp*StopLossPercentTP/100;} if (tpl > 0) {slp = toPips(MathAbs(SymbolAsk(SYMBOL) - tpl), SYMBOL)*StopLossPercentTP/100;} } if (TakeProfitMode == "percentSL") { if (slp > 0) {tpp = slp*TakeProfitPercentSL/100;} if (sll > 0) {tpp = toPips(MathAbs(SymbolAsk(SYMBOL) - sll), SYMBOL)*TakeProfitPercentSL/100;} } //-- lots ------------------------------------------------------------------- double lots=0; double pre_sll=sll; if (pre_sll==0) {pre_sll=SymbolAsk(SYMBOL);} double pre_sl_pips=toPips(SymbolAsk(SYMBOL)-(pre_sll-toDigits(slp,SYMBOL))); lots=DynamicLots(VolumeMode, VolumeSize); lots = AlignLots(lots, 0, VolumeUpperLimit); //-- send ------------------------------------------------------------------- bool success=BuyNow(SYMBOL, lots, sll, tpl, slp, tpp, Slippage, (MagicStart+(int)OrdersGroup), MyComment); if (success>0) {/* Orange Output */} else {/* Gray Output */} } // Block 11 void block5(int _parent_=0) { if (disabled[5] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=5; static string OrdersGroup; OrdersGroup = c::group; static string SYMBOL; SYMBOL = c::sym_2; static string VolumeMode = "fixed"; double VolumeSize = _externs::inp5_VolumeSize; double VolumeSizeRisk = 50; double VolumeRisk = 2.5; double VolumePercent = 100; double VolumeBlockPercent = 3; double FixedRatioUnitSize = 0.01; double FixedRatioDelta = 20; double mmMgInitialLots = 0.1; double mmMgMultiplyOnLoss = 2; double mmMgMultiplyOnProfit = 1; double mmMgAddLotsOnLoss = 0; double mmMgAddLotsOnProfit = 0; int mmMgResetOnLoss = 0; int mmMgResetOnProfit = 1; double mm1326InitialLots = 0.1; bool mm1326Reverse = false; double mmFiboInitialLots = 0.1; double mmDalembertInitialLots = 0.1; bool mmDalembertReverse = false; double mmLabouchereInitialLots = 0.1; static string mmLabouchereList = "1,2,3,4,5,6"; bool mmLabouchereReverse = false; double mmSeqBaseLots = 0.1; static string mmSeqOnLoss = "3,2,6"; static string mmSeqOnProfit; mmSeqOnProfit = "1"; bool mmSeqReverse = false; double VolumeUpperLimit = 0; static string StopLossMode = "none"; double StopLossPips = 100; double StopLossPercentTP = 100; static string TakeProfitMode = "none"; double TakeProfitPips = 100; double TakeProfitPercentSL = 100; double Slippage = 4; static string MyComment = "Short position"; SetSymbol(SYMBOL); //-- stops ------------------------------------------------------------------ double sll=0, slp=0, tpl=0, tpp=0; if (StopLossMode == "percentTP") { if (tpp > 0) {slp = tpp*StopLossPercentTP/100;} if (tpl > 0) {slp = toPips(MathAbs(SymbolAsk(SYMBOL) - tpl), SYMBOL)*StopLossPercentTP/100;} } if (TakeProfitMode == "percentSL") { if (slp > 0) {tpp = slp*TakeProfitPercentSL/100;} if (sll > 0) {tpp = toPips(MathAbs(SymbolAsk(SYMBOL) - sll), SYMBOL)*TakeProfitPercentSL/100;} } //-- lots ------------------------------------------------------------------- double lots=0; double pre_sll=sll; if (pre_sll==0) {pre_sll=SymbolBid(SYMBOL);} double pre_sl_pips=toPips((pre_sll+toDigits(slp,SYMBOL))-SymbolBid(SYMBOL)); lots=DynamicLots(VolumeMode, VolumeSize); lots = AlignLots(lots, 0, VolumeUpperLimit); //-- send ------------------------------------------------------------------- bool success=SellNow(SYMBOL, lots, sll, tpl, slp, tpp, Slippage, (MagicStart+(int)OrdersGroup), MyComment); if (success>0) {/* Orange Output */} else {/* Gray Output */} } // Block 12 void block6(int _parent_=0) { if (disabled[6] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=6; static string OrdersGroup; OrdersGroup = c::group; static string SYMBOL; SYMBOL = c::sym_3; static string VolumeMode = "fixed"; double VolumeSize = _externs::inp6_VolumeSize; double VolumeSizeRisk = 50; double VolumeRisk = 2.5; double VolumePercent = 100; double VolumeBlockPercent = 3; double FixedRatioUnitSize = 0.01; double FixedRatioDelta = 20; double mmMgInitialLots = 0.1; double mmMgMultiplyOnLoss = 2; double mmMgMultiplyOnProfit = 1; double mmMgAddLotsOnLoss = 0; double mmMgAddLotsOnProfit = 0; int mmMgResetOnLoss = 0; int mmMgResetOnProfit = 1; double mm1326InitialLots = 0.1; bool mm1326Reverse = false; double mmFiboInitialLots = 0.1; double mmDalembertInitialLots = 0.1; bool mmDalembertReverse = false; double mmLabouchereInitialLots = 0.1; static string mmLabouchereList = "1,2,3,4,5,6"; bool mmLabouchereReverse = false; double mmSeqBaseLots = 0.1; static string mmSeqOnLoss = "3,2,6"; static string mmSeqOnProfit; mmSeqOnProfit = "1"; bool mmSeqReverse = false; double VolumeUpperLimit = 0; static string StopLossMode = "none"; double StopLossPips = 100; double StopLossPercentTP = 100; static string TakeProfitMode = "none"; double TakeProfitPips = 100; double TakeProfitPercentSL = 100; double Slippage = 4; static string MyComment = "Short position"; SetSymbol(SYMBOL); //-- stops ------------------------------------------------------------------ double sll=0, slp=0, tpl=0, tpp=0; if (StopLossMode == "percentTP") { if (tpp > 0) {slp = tpp*StopLossPercentTP/100;} if (tpl > 0) {slp = toPips(MathAbs(SymbolAsk(SYMBOL) - tpl), SYMBOL)*StopLossPercentTP/100;} } if (TakeProfitMode == "percentSL") { if (slp > 0) {tpp = slp*TakeProfitPercentSL/100;} if (sll > 0) {tpp = toPips(MathAbs(SymbolAsk(SYMBOL) - sll), SYMBOL)*TakeProfitPercentSL/100;} } //-- lots ------------------------------------------------------------------- double lots=0; double pre_sll=sll; if (pre_sll==0) {pre_sll=SymbolBid(SYMBOL);} double pre_sl_pips=toPips((pre_sll+toDigits(slp,SYMBOL))-SymbolBid(SYMBOL)); lots=DynamicLots(VolumeMode, VolumeSize); lots = AlignLots(lots, 0, VolumeUpperLimit); //-- send ------------------------------------------------------------------- bool success=SellNow(SYMBOL, lots, sll, tpl, slp, tpp, Slippage, (MagicStart+(int)OrdersGroup), MyComment); if (success>0) {/* Orange Output */} else {/* Gray Output */} } // Block 14 void block7(int _parent_=0) { if (disabled[7] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=7; static string ServerOrLocalTime = "server"; static string TimeStartMode = "text"; static string TimeStart; TimeStart = _externs::inp7_TimeStart; int TimeStartYear = 0; int TimeStartMonth = 0; int TimeStartDay = 0; int TimeStartHour = 1; int TimeStartMinute = 0; int TimeStartSecond = 0; static string TimeEndMode = "text"; static string TimeEnd; TimeEnd = _externs::inp7_TimeEnd; int TimeEndYear = 0; int TimeEndMonth = 0; int TimeEndDay = 0; int TimeEndHour = 1; int TimeEndMinute = 1; int TimeEndSecond = 0; int TimeEndRelYears = 0; int TimeEndRelMonths = 0; int TimeEndRelDays = 0; int TimeEndRelHours = 0; int TimeEndRelMinutes = 1; int TimeEndRelSeconds = 0; datetime t0=0; datetime t1=0; datetime tx=0; datetime now=0; int mode_time = 0; mode_time = 0; now=TimeCurrent(); //-- start time t0=TimeFromString(mode_time, TimeStart); //-- end time t1=TimeFromString(mode_time, TimeEnd); if (TimeEndMode=="relative") { MqlDateTime tm; TimeToStruct(t0, tm); tm.year += TimeEndRelYears; tm.mon += TimeEndRelMonths; tm.day += TimeEndRelDays; tm.hour += TimeEndRelHours; tm.min += TimeEndRelMinutes; tm.sec += TimeEndRelSeconds; t1 = StructToTime(tm); if (t1 < t0) {t1 = t1+86400;} } if ((now>=t0 && now<t1) || (t0>t1 && (now>=t0 || now<t1))) { block0(7); } else {/* Yellow Output */} } double ic_value_value(double Value) { return(Value); } /************************************************************************************************************************/ // +------------------------------------------------------------------------------------------------------------------+ // // | FUNCTIONS | // // | System and Custom functions used in the program | // // +------------------------------------------------------------------------------------------------------------------+ // /************************************************************************************************************************/ double AccountBalance() {return(AccountInfoDouble(ACCOUNT_BALANCE));} double AccountBalanceAtStart() { // This function MUST be run once at pogram's start static double memory=0; if (memory==0) {memory=AccountInfoDouble(ACCOUNT_BALANCE);} return(memory); } double AccountEquity() {return(AccountInfoDouble(ACCOUNT_EQUITY));} double AccountFreeMargin() {return(AccountInfoDouble(ACCOUNT_FREEMARGIN));} double AlignLots(double lots, double lowerlots=0, double upperlots=0) { string symbol=GetSymbol(); double LotStep=SymbolLotStep(symbol); double LotSize=SymbolLotSize(symbol); double MinLots=SymbolMinLot(symbol); double MaxLots=SymbolMaxLot(symbol); if (lots==EMPTY_VALUE) {lots=0;} lots=MathRound(lots/LotStep)*LotStep; if (lots<MinLots) {lots=MinLots;} if (lots>MaxLots) {lots=MaxLots;} if (lowerlots > 0) { lowerlots = MathRound(lowerlots/LotStep)*LotStep; if (lots < lowerlots) {lots = lowerlots;} } if (upperlots > 0) { upperlots = MathRound(upperlots/LotStep)*LotStep; if (lots > upperlots) {lots = upperlots;} } return (lots); } double AlignStopLoss( string symbol, int type, double price, double slo=0, // original sl, used when modifying double sll=0, double slp=0, bool consider_freezelevel=false ) { double sl=0; if (MathAbs(sll)==EMPTY_VALUE) {sll=0;} if (MathAbs(slp)==EMPTY_VALUE) {slp=0;} if (sll==0 && slp==0) {return(0);} // no sl - return 0 if (price<=0) {Print("AlignStopLoss() error: No price entered");return(-1);} double point =SymbolInfoDouble(symbol,SYMBOL_POINT); int digits =(int)SymbolInfoInteger(symbol,SYMBOL_DIGITS); slp=slp*PipValue(symbol)*point; //-- buy-sell identifier --------------------------------------------- int bs=1; if ( type==ORDER_TYPE_BUY || type==ORDER_TYPE_BUY_STOP || type==ORDER_TYPE_BUY_LIMIT || type==ORDER_TYPE_BUY_STOP_LIMIT ) { bs=1; } else if ( type==ORDER_TYPE_SELL || type==ORDER_TYPE_SELL_STOP || type==ORDER_TYPE_SELL_LIMIT || type==ORDER_TYPE_SELL_STOP_LIMIT ) { bs=-1; } //-- prices that will be used ---------------------------------------- double askbid=price; double bidask=price; if (type==ORDER_TYPE_BUY || type==ORDER_TYPE_SELL) { double ask =SymbolInfoDouble(symbol,SYMBOL_ASK); double bid =SymbolInfoDouble(symbol,SYMBOL_BID); askbid=ask; bidask=bid; if (bs<0) { askbid=bid; bidask=ask; } } //-- build sl level -------------------------------------------------- if (sll==0 && slp!=0) {sll=price;} if (sll>0) {sl=sll-slp*bs;} if (sl<0) {return(-1);} sl=NormalizeDouble(sl,digits); slo = NormalizeDouble(slo,digits); if (sl == slo) {return sl;} //-- build limit levels ---------------------------------------------- double minstops=(double)SymbolInfoInteger(symbol,SYMBOL_TRADE_STOPS_LEVEL); if (consider_freezelevel==true) { double freezelevel=(double)SymbolInfoInteger(symbol,SYMBOL_TRADE_FREEZE_LEVEL); if (freezelevel>minstops) {minstops=freezelevel;} } minstops=NormalizeDouble(minstops*point,digits); double sllimit=bidask-minstops*bs; // SL min price level //-- check and align sl, print errors -------------------------------- //-- do not do it when the stop is the same as the original if (sl>0) { /*if (sl==askbid) { sl=0; } else */ if ((bs>0 && sl>askbid) || (bs<0 && sl<askbid)) { string abstr=""; if (bs>0) {abstr="Bid";} else {abstr="Ask";} Print( "Error: Invalid SL requested (", DoubleToStr(sl,digits), " for ",abstr," price ", bidask, ")" ); return(-1); } else if ((bs>0 && sl>sllimit) || (bs<0 && sl<sllimit)) { Print( "Warning: Too short SL requested (", DoubleToStr(sl,digits), " or ", DoubleToStr(MathAbs(sl-askbid)/point,0), " points), minimum will be taken (", DoubleToStr(sllimit,digits), " or ", DoubleToStr(MathAbs(askbid-sllimit)/point,0), " points)" ); sl=sllimit; return(sl); } } // align by the ticksize double ticksize = SymbolInfoDouble(symbol, SYMBOL_TRADE_TICK_SIZE); sl = MathRound(sl/ticksize)*ticksize; return(sl); } double AlignTakeProfit( string symbol, int type, double price, double tpo=0, // original tp, used when modifying double tpl=0, double tpp=0, bool consider_freezelevel=false ) { double tp=0; if (MathAbs(tpl)==EMPTY_VALUE) {tpl=0;} if (MathAbs(tpp)==EMPTY_VALUE) {tpp=0;} if (tpl==0 && tpp==0) {return(0);} // no tp - return 0 if (price<=0) {Print("AlignTakeProfit() error: No price entered");return(-1);} double point =SymbolInfoDouble(symbol,SYMBOL_POINT); int digits =(int)SymbolInfoInteger(symbol,SYMBOL_DIGITS); tpp=tpp*PipValue(symbol)*point; //-- buy-sell identifier --------------------------------------------- int bs=1; if ( type==ORDER_TYPE_BUY || type==ORDER_TYPE_BUY_STOP || type==ORDER_TYPE_BUY_LIMIT || type==ORDER_TYPE_BUY_STOP_LIMIT ) { bs=1; } else if ( type==ORDER_TYPE_SELL || type==ORDER_TYPE_SELL_STOP || type==ORDER_TYPE_SELL_LIMIT || type==ORDER_TYPE_SELL_STOP_LIMIT ) { bs=-1; } //-- prices that will be used ---------------------------------------- double askbid=price; double bidask=price; if (type==ORDER_TYPE_BUY || type==ORDER_TYPE_SELL) { double ask =SymbolInfoDouble(symbol,SYMBOL_ASK); double bid =SymbolInfoDouble(symbol,SYMBOL_BID); askbid=ask; bidask=bid; if (bs<0) { askbid=bid; bidask=ask; } } //-- build tp level --------------------------------------------------- if (tpl==0 && tpp!=0) {tpl=price;} if (tpl>0) {tp=tpl+tpp*bs;} if (tp<0) {return(-1);} tp=NormalizeDouble(tp,digits); tpo = NormalizeDouble(tpo,digits); if (tp == tpo) {return tp;} //-- build limit levels ---------------------------------------------- double minstops=(double)SymbolInfoInteger(symbol,SYMBOL_TRADE_STOPS_LEVEL); if (consider_freezelevel==true) { double freezelevel=(double)SymbolInfoInteger(symbol,SYMBOL_TRADE_FREEZE_LEVEL); if (freezelevel>minstops) {minstops=freezelevel;} } minstops=NormalizeDouble(minstops*point,digits); double tplimit=bidask+minstops*bs; // TP min price level //-- check and align tp, print errors -------------------------------- //-- do not do it when the stop is the same as the original if (tp>0 && tp != tpo) { /*if (tp==askbid) { tp=0; } else */ if ((bs>0 && tp<bidask) || (bs<0 && tp>bidask)) { string abstr=""; if (bs>0) {abstr="Bid";} else {abstr="Ask";} Print( "Error: Invalid TP requested (", DoubleToStr(tp,digits), " for ",abstr," price ", bidask, ")" ); return(-1); } else if ((bs>0 && tp<tplimit) || (bs<0 && tp>tplimit)) { Print( "Warning: Too short TP requested (", DoubleToStr(tp,digits), " or ", DoubleToStr(MathAbs(tp-askbid)/point,0), " points), minimum will be taken (", DoubleToStr(tplimit,digits), " or ", DoubleToStr(MathAbs(askbid-tplimit)/point,0), " points)" ); tp=tplimit; return(tp); } } // align by the ticksize double ticksize = SymbolInfoDouble(symbol, SYMBOL_TRADE_TICK_SIZE); tp = MathRound(tp/ticksize)*ticksize; return(tp); } template<typename T> int ArraySearch(T &array[], T value) { static int index; static int size; index = -1; size = ArraySize(array); for (int i=0; i<size; i++) { if (array[i] == value) { index = i; break; } } return index; } template<typename T> bool ArrayStripKey(T &array[], int key) { int x = 0; int size = ArraySize(array); for (int i=0; i<size; i++) { if (i != key) { array[x] = array[i]; x++; } } if (x < size) { ArrayResize(array, x); return true; // stripped } return false; // not stripped } int BuildOrdersList(order &list[]) { int last_error=0; int total=OrdersTotal(); int temp_value=(int)MathMax(total,1); ArrayResize(list,temp_value); int orders_count=0; for(int i=total-1; i>=0; i--) { if(!OrderGetTicket(i)) { last_error=GetLastError(); Print("BuildOrdersList() - Error #",last_error); continue; } else { list[i].ticket =OrderGetTicket(i); list[i].time_setup =(datetime)OrderGetInteger(ORDER_TIME_SETUP); list[i].time_expiration =(datetime)OrderGetInteger(ORDER_TIME_EXPIRATION); list[i].time_done =(datetime)OrderGetInteger(ORDER_TIME_DONE); list[i].type =OrderGetInteger(ORDER_TYPE); list[i].state =OrderGetInteger(ORDER_STATE); list[i].type_filling =OrderGetInteger(ORDER_TYPE_FILLING); list[i].type_time =OrderGetInteger(ORDER_TYPE_TIME); list[i].magic =OrderGetInteger(ORDER_MAGIC); list[i].position_id =OrderGetInteger(ORDER_POSITION_ID); list[i].volume_initial =OrderGetDouble(ORDER_VOLUME_INITIAL); list[i].volume_current =OrderGetDouble(ORDER_VOLUME_CURRENT); list[i].price_open =OrderGetDouble(ORDER_PRICE_OPEN); list[i].sl =OrderGetDouble(ORDER_SL); list[i].tp =OrderGetDouble(ORDER_TP); list[i].price_current =OrderGetDouble(ORDER_PRICE_CURRENT); list[i].price_stoplimit =OrderGetDouble(ORDER_PRICE_STOPLIMIT); list[i].symbol =OrderGetString(ORDER_SYMBOL); list[i].comment =OrderGetString(ORDER_COMMENT); orders_count++; } } temp_value=(int)MathMax(orders_count,1); ArrayResize(list,temp_value); return(orders_count); } int BuildPositionsList(position &list[]) { int last_error=0; int total=PositionsTotal(); int temp_value=(int)MathMax(total,1); ArrayResize(list, temp_value); int positions_count=0; for(int i=total-1; i>=0; i--) { if(!PositionSelect(PositionGetSymbol(i))) { last_error=GetLastError(); Print("PositionSelect() - Error #",last_error); continue; } else { // If the position is found, then put its info to the array list[i].position_id =PositionGetInteger(POSITION_IDENTIFIER); list[i].type =PositionGetInteger(POSITION_TYPE); list[i].time =(datetime)PositionGetInteger(POSITION_TIME); list[i].magic =PositionGetInteger(POSITION_MAGIC); list[i].volume =PositionGetDouble(POSITION_VOLUME); list[i].price_open =PositionGetDouble(POSITION_PRICE_OPEN); list[i].sl =PositionGetDouble(POSITION_SL); list[i].tp =PositionGetDouble(POSITION_TP); list[i].price_current =PositionGetDouble(POSITION_PRICE_CURRENT); list[i].comission =PositionGetDouble(POSITION_COMMISSION); list[i].swap =PositionGetDouble(POSITION_SWAP); list[i].profit =PositionGetDouble(POSITION_PROFIT); list[i].symbol =PositionGetString(POSITION_SYMBOL); list[i].comment =PositionGetString(POSITION_COMMENT); positions_count++; } } temp_value=(int)MathMax(positions_count,1); ArrayResize(list,temp_value); return(positions_count); } int BuyNow( string symbol, double lots, double sll, double tpl, double slp, double tpp, double slippage=0, int magic=0, string comment="" ) { bool success=OrderCreate( symbol, POSITION_TYPE_BUY, lots, 0, sll, tpl, slp, tpp, slippage, magic, comment, 0 ); return(success); } int CheckForTradingError(int error_code=-1, string msg_prefix="") { // return 0 -> no error // return 1 -> overcomable error // return 2 -> fatal error int retval=0; static int tryouts=0; //-- error check ----------------------------------------------------- switch(error_code) { //-- no error case 0: retval=0; break; //-- overcomable errors case TRADE_RETCODE_REQUOTE: case TRADE_RETCODE_REJECT: case TRADE_RETCODE_ERROR: case TRADE_RETCODE_TIMEOUT: case TRADE_RETCODE_INVALID_VOLUME: case TRADE_RETCODE_INVALID_PRICE: case TRADE_RETCODE_INVALID_STOPS: case TRADE_RETCODE_INVALID_EXPIRATION: case TRADE_RETCODE_PRICE_CHANGED: case TRADE_RETCODE_PRICE_OFF: case TRADE_RETCODE_TOO_MANY_REQUESTS: case TRADE_RETCODE_NO_CHANGES: case TRADE_RETCODE_CONNECTION: retval=1; break; //-- critical errors default: retval=2; break; } if (error_code > 0) { string msg = ""; if (retval == 1) { StringConcatenate(msg, msg_prefix,": ",ErrorMessage(error_code),". Retrying in 5 seconds.."); Sleep(500); } else if (retval == 2) { StringConcatenate(msg, msg_prefix,": ",ErrorMessage(error_code)); } Print(msg); } if (retval==0) { tryouts=0; } else if (retval==1) { tryouts++; if (tryouts>=10) { tryouts=0; retval=2; } else { Print("retry #"+(string)tryouts+" of 10"); } } return(retval); } bool CloseOrder(string symbol, double deviation=0) { bool success=false; if (PositionSelect(symbol)) { success=CloseOrder(symbol,PositionGetDouble(POSITION_VOLUME),deviation); } OnTrade(); return(success); } bool CloseOrder(string symbol, double volume, double deviation) { volume=AlignLots(volume); bool success=false; if (PositionSelect(symbol)) { int total=PositionsTotal(); double price=0; //-- type --------------------------------------------------------- ENUM_POSITION_TYPE ContraType=0; if (PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_BUY) { ContraType=POSITION_TYPE_SELL; price=SymbolInfoDouble(symbol,SYMBOL_BID); } else if (PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_SELL) { ContraType=POSITION_TYPE_BUY; price=SymbolInfoDouble(symbol,SYMBOL_ASK); } //-- comment ------------------------------------------------------ string comment=""; if (volume>PositionGetDouble(POSITION_VOLUME)) { volume=PositionGetDouble(POSITION_VOLUME); } if (volume==PositionGetDouble(POSITION_VOLUME)) { comment="Position #"+IntegerToString(PositionGetInteger(POSITION_IDENTIFIER))+" closed"; } else { comment="Position #"+IntegerToString(PositionGetInteger(POSITION_IDENTIFIER))+" partially closed"; } //-- send --------------------------------------------------------- success=OrderCreate( symbol, ContraType, volume, price, 0, 0, 0, 0, deviation, PositionGetInteger(POSITION_MAGIC), comment, ORDER_TIME_GTC, // not important 0 // not inportant ); } else { Print("Cannot close a position: There is no opened position on ",symbol); } OnTrade(); return(success); } bool CloseTrade(ulong ticket, ulong deviation=0) { //Print("begin " + PositionsTotal()); bool success=false; if (!PositionSelectByTicket(ticket)) {return(false);} string symbol = PositionGetString(POSITION_SYMBOL); long magic = PositionGetInteger(POSITION_MAGIC); while(true) { //-- close -------------------------------------------------------- MqlTradeRequest request; MqlTradeResult result; MqlTradeCheckResult check_result; ZeroMemory(request); ZeroMemory(result); ZeroMemory(check_result); if((ENUM_POSITION_TYPE)PositionGetInteger(POSITION_TYPE) == POSITION_TYPE_BUY) { //--- prepare request for close BUY position request.type = ORDER_TYPE_SELL; request.price = SymbolInfoDouble(symbol,SYMBOL_BID); } else { //--- prepare request for close SELL position request.type = ORDER_TYPE_BUY; request.price = SymbolInfoDouble(symbol,SYMBOL_ASK); } request.action = TRADE_ACTION_DEAL; request.position = ticket; request.symbol = symbol; request.volume = PositionGetDouble(POSITION_VOLUME); request.magic = magic; request.deviation = (int)(deviation*PipValue(symbol)); // filling type if (IsFillingTypeAllowed(symbol, SYMBOL_FILLING_FOK)) request.type_filling = ORDER_FILLING_FOK; else if (IsFillingTypeAllowed(symbol, SYMBOL_FILLING_IOC)) request.type_filling = ORDER_FILLING_IOC; else if (IsFillingTypeAllowed(symbol, ORDER_FILLING_RETURN)) // just in case request.type_filling = ORDER_FILLING_RETURN; int success = OrderSend(request, result); //-- error check -------------------------------------------------- if (!success || (result.retcode!=TRADE_RETCODE_DONE && result.retcode!=TRADE_RETCODE_PLACED && result.retcode!=TRADE_RETCODE_DONE_PARTIAL)) { string errmsgpfx="Closing position/trade error"; int erraction=CheckForTradingError(result.retcode, errmsgpfx); switch(erraction) { case 0: break; // no error case 1: continue; // overcomable error case 2: break; // fatal error } return false; } //-- finish work -------------------------------------------------- if (result.retcode==TRADE_RETCODE_DONE || result.retcode==TRADE_RETCODE_PLACED || result.retcode==TRADE_RETCODE_DONE_PARTIAL) { while (true) { if (!PositionSelectByTicket(ticket)) {break;} Sleep(10); } } break; } //Print("end " + PositionsTotal()); OnTrade(); return true; } string CurrentSymbol(string symbol="") { static string memory=""; if (symbol!="") {memory=symbol;} else if (memory=="") {memory=Symbol();} return(memory); } bool DeleteOrder(ulong ticket) { while(true) { MqlTradeRequest request; MqlTradeResult result; MqlTradeCheckResult check_result; ZeroMemory(request); ZeroMemory(result); ZeroMemory(check_result); request.order=ticket; request.action=TRADE_ACTION_REMOVE; request.comment="Pending order canceled"; if (!OrderCheck(request,check_result)) { Print("OrderCheck() failed: "+(string)check_result.comment+" ("+(string)check_result.retcode+")"); return false; } bool success = OrderSend(request,result); //-- error check -------------------------------------------------- if (!success || result.retcode!=TRADE_RETCODE_DONE) { string errmsgpfx="Delete order error"; int erraction=CheckForTradingError(result.retcode, errmsgpfx); switch(erraction) { case 0: break; // no error case 1: continue; // overcomable error case 2: break; // fatal error } return(false); } //-- finish work -------------------------------------------------- if (result.retcode==TRADE_RETCODE_DONE) { //== Wait until MT5 updates it's cache int w; for (w=0; w<5000; w++) { if (!OrderSelect(ticket)) {break;} Sleep(1); } if (w==5000) { Print("Check error: Delete order"); } if (OrderSelect(ticket)) { Print("Something went wrong with the order"); return false; } } break; } OnTrade(); return(true); } string DoubleToStr(double d, int dig){return(DoubleToString(d,dig));} void DrawSpreadInfo() { static bool allow_draw = true; if (allow_draw==false) {return;} if (MQLInfoInteger(MQL_TESTER) && !MQLInfoInteger(MQL_VISUAL_MODE)) {allow_draw=false;} // Allowed to draw only once in testing mode static bool passed = false; static double max_spread = 0; static double min_spread = EMPTY_VALUE; static double avg_spread = 0; static double avg_add = 0; static double avg_cnt = 0; double custom_point = CustomPoint(Symbol()); double current_spread = 0; if (custom_point > 0) { current_spread = (SymbolInfoDouble(Symbol(),SYMBOL_ASK)-SymbolInfoDouble(Symbol(),SYMBOL_BID))/custom_point; } if (current_spread > max_spread) {max_spread = current_spread;} if (current_spread < min_spread) {min_spread = current_spread;} avg_cnt++; avg_add = avg_add + current_spread; avg_spread = avg_add / avg_cnt; int x=0; int y=0; string name; // create objects if (passed == false) { passed=true; name="fxd_spread_current_label"; if (ObjectFind(0, name)==-1) { ObjectCreate(0, name, OBJ_LABEL, 0, 0, 0); ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x+1); ObjectSetInteger(0, name, OBJPROP_YDISTANCE, y+1); ObjectSetInteger(0, name, OBJPROP_CORNER, CORNER_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_HIDDEN, true); ObjectSetInteger(0, name, OBJPROP_FONTSIZE, 18); ObjectSetInteger(0, name, OBJPROP_COLOR, clrDarkOrange); ObjectSetString(0, name, OBJPROP_FONT, "Arial"); ObjectSetString(0, name, OBJPROP_TEXT, "Spread:"); } name="fxd_spread_max_label"; if (ObjectFind(0, name)==-1) { ObjectCreate(0, name, OBJ_LABEL, 0, 0, 0); ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x+148); ObjectSetInteger(0, name, OBJPROP_YDISTANCE, y+17); ObjectSetInteger(0, name, OBJPROP_CORNER, CORNER_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_HIDDEN, true); ObjectSetInteger(0, name, OBJPROP_FONTSIZE, 7); ObjectSetInteger(0, name, OBJPROP_COLOR, clrOrangeRed); ObjectSetString(0, name, OBJPROP_FONT, "Arial"); ObjectSetString(0, name, OBJPROP_TEXT, "max:"); } name="fxd_spread_avg_label"; if (ObjectFind(0, name)==-1) { ObjectCreate(0, name, OBJ_LABEL, 0, 0, 0); ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x+148); ObjectSetInteger(0, name, OBJPROP_YDISTANCE, y+9); ObjectSetInteger(0, name, OBJPROP_CORNER, CORNER_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_HIDDEN, true); ObjectSetInteger(0, name, OBJPROP_FONTSIZE, 7); ObjectSetInteger(0, name, OBJPROP_COLOR, clrDarkOrange); ObjectSetString(0, name, OBJPROP_FONT, "Arial"); ObjectSetString(0, name, OBJPROP_TEXT, "avg:"); } name="fxd_spread_min_label"; if (ObjectFind(0, name)==-1) { ObjectCreate(0, name, OBJ_LABEL, 0, 0, 0); ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x+148); ObjectSetInteger(0, name, OBJPROP_YDISTANCE, y+1); ObjectSetInteger(0, name, OBJPROP_CORNER, CORNER_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_HIDDEN, true); ObjectSetInteger(0, name, OBJPROP_FONTSIZE, 7); ObjectSetInteger(0, name, OBJPROP_COLOR, clrGold); ObjectSetString(0, name, OBJPROP_FONT, "Arial"); ObjectSetString(0, name, OBJPROP_TEXT, "min:"); } name="fxd_spread_current"; if (ObjectFind(0, name)==-1) { ObjectCreate(0, name, OBJ_LABEL, 0, 0, 0); ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x+93); ObjectSetInteger(0, name, OBJPROP_YDISTANCE, y+1); ObjectSetInteger(0, name, OBJPROP_CORNER, CORNER_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_HIDDEN, true); ObjectSetInteger(0, name, OBJPROP_FONTSIZE, 18); ObjectSetInteger(0, name, OBJPROP_COLOR, clrDarkOrange); ObjectSetString(0, name, OBJPROP_FONT, "Arial"); ObjectSetString(0, name, OBJPROP_TEXT, "0"); } name="fxd_spread_max"; if (ObjectFind(0, name)==-1) { ObjectCreate(0, name, OBJ_LABEL, 0, 0, 0); ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x+173); ObjectSetInteger(0, name, OBJPROP_YDISTANCE, y+17); ObjectSetInteger(0, name, OBJPROP_CORNER, CORNER_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_HIDDEN, true); ObjectSetInteger(0, name, OBJPROP_FONTSIZE, 7); ObjectSetInteger(0, name, OBJPROP_COLOR, clrOrangeRed); ObjectSetString(0, name, OBJPROP_FONT, "Arial"); ObjectSetString(0, name, OBJPROP_TEXT, "0"); } name="fxd_spread_avg"; if (ObjectFind(0, name)==-1) { ObjectCreate(0, name, OBJ_LABEL, 0, 0, 0); ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x+173); ObjectSetInteger(0, name, OBJPROP_YDISTANCE, y+9); ObjectSetInteger(0, name, OBJPROP_CORNER, CORNER_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_HIDDEN, true); ObjectSetInteger(0, name, OBJPROP_FONTSIZE, 7); ObjectSetInteger(0, name, OBJPROP_COLOR, clrDarkOrange); ObjectSetString(0, name, OBJPROP_FONT, "Arial"); ObjectSetString(0, name, OBJPROP_TEXT, "0"); } name="fxd_spread_min"; if (ObjectFind(0, name)==-1) { ObjectCreate(0, name, OBJ_LABEL, 0, 0, 0); ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x+173); ObjectSetInteger(0, name, OBJPROP_YDISTANCE, y+1); ObjectSetInteger(0, name, OBJPROP_CORNER, CORNER_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_HIDDEN, true); ObjectSetInteger(0, name, OBJPROP_FONTSIZE, 7); ObjectSetInteger(0, name, OBJPROP_COLOR, clrGold); ObjectSetString(0, name, OBJPROP_FONT, "Arial"); ObjectSetString(0, name, OBJPROP_TEXT, "0"); } } ObjectSetString(0, "fxd_spread_current", OBJPROP_TEXT, DoubleToStr(current_spread,2)); ObjectSetString(0, "fxd_spread_max", OBJPROP_TEXT, DoubleToStr(max_spread,2)); ObjectSetString(0, "fxd_spread_avg", OBJPROP_TEXT, DoubleToStr(avg_spread,2)); ObjectSetString(0, "fxd_spread_min", OBJPROP_TEXT, DoubleToStr(min_spread,2)); } string DrawStatus(string text="") { static string memory; if (text=="") { return(memory); } static bool passed = false; int x=210; int y=0; string name; //-- draw the objects once if (passed == false) { passed = true; name="fxd_status_title"; ObjectCreate(0,name, OBJ_LABEL, 0, 0, 0); ObjectSetInteger(0,name, OBJPROP_BACK, false); ObjectSetInteger(0, name, OBJPROP_CORNER, CORNER_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_HIDDEN, true); ObjectSetInteger(0,name, OBJPROP_XDISTANCE, x); ObjectSetInteger(0,name, OBJPROP_YDISTANCE, y+17); ObjectSetString(0,name, OBJPROP_TEXT, "Status"); ObjectSetString(0,name, OBJPROP_FONT, "Arial"); ObjectSetInteger(0,name, OBJPROP_FONTSIZE, 7); ObjectSetInteger(0,name, OBJPROP_COLOR, clrGray); name="fxd_status_text"; ObjectCreate(0,name, OBJ_LABEL, 0, 0, 0); ObjectSetInteger(0,name, OBJPROP_BACK, false); ObjectSetInteger(0, name, OBJPROP_CORNER, CORNER_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_ANCHOR, ANCHOR_LEFT_LOWER); ObjectSetInteger(0, name, OBJPROP_HIDDEN, true); ObjectSetInteger(0,name, OBJPROP_XDISTANCE, x+2); ObjectSetInteger(0,name, OBJPROP_YDISTANCE, y+1); ObjectSetString(0,name, OBJPROP_FONT, "Arial"); ObjectSetInteger(0,name, OBJPROP_FONTSIZE, 12); ObjectSetInteger(0,name, OBJPROP_COLOR, clrAqua); } //-- update the text when needed if (text != memory) { memory=text; ObjectSetString(0,"fxd_status_text", OBJPROP_TEXT, text); } return(text); } double DynamicLots(string mode="balance", double value=0, double sl=0, string align="align") { double size=0; string symbol=GetSymbol(); double LotStep=SymbolLotStep(symbol); double LotSize=SymbolLotSize(symbol); double MinLots=SymbolMinLot(symbol); double MaxLots=SymbolMaxLot(symbol); double TickValue=SymbolInfoDouble(symbol,SYMBOL_TRADE_TICK_VALUE); double margin_required=0; bool ocm = OrderCalcMargin(ORDER_TYPE_BUY,symbol,1,ask(symbol),margin_required); // This is the MODE_MARGINREQUIRED analog in MQL5 //if (value>MaxLots) {value=value/LotSize;} // Money-to-Lot conversion if (mode=="fixed" || mode=="lots") {size=value;} else if (mode=="block-equity") {size=(value/100)*AccountEquity()/margin_required;} else if (mode=="block-balance") {size=(value/100)*AccountBalance()/margin_required;} else if (mode=="block-freemargin") {size=(value/100)*AccountFreeMargin()/margin_required;} else if (mode=="equity") {size=(value/100)*AccountEquity()/(LotSize*TickValue);} else if (mode=="balance") {size=(value/100)*AccountBalance()/(LotSize*TickValue);} else if (mode=="freemargin") {size=(value/100)*AccountFreeMargin()/(LotSize*TickValue);} else if (mode=="equityRisk") {size=((value/100)*AccountEquity())/(sl*TickValue*PipValue(symbol));} else if (mode=="balanceRisk"){size=((value/100)*AccountBalance())/(sl*TickValue*PipValue(symbol));} else if (mode=="freemarginRisk") {size=((value/100)*AccountFreeMargin())/(sl*TickValue*PipValue(symbol));} else if (mode=="fixedRisk") {size=(value)/(sl*TickValue*PipValue(symbol));} else if (mode=="fixedRatio" || mode=="RJFR") { ///// // Ryan Jones Fixed Ratio MM static data static double RJFR_start_lots=0; static double RJFR_delta=0; static double RJFR_units=1; static double RJFR_target_lower=0; static double RJFR_target_upper=0; ///// if (RJFR_start_lots<=0) {RJFR_start_lots=value;} if (RJFR_start_lots<MinLots) {RJFR_start_lots=MinLots;} if (RJFR_delta<=0) {RJFR_delta=sl;} if (RJFR_target_upper<=0) { RJFR_target_upper=AccountEquity()+(RJFR_units*RJFR_delta); Print("Fixed Ratio MM: Units=>",RJFR_units,"; Delta=",RJFR_delta,"; Upper Target Equity=>",RJFR_target_upper); } if (AccountEquity()>=RJFR_target_upper) { while(true) { Print("Fixed Ratio MM going up to ",(RJFR_start_lots*(RJFR_units+1))," lots: Equity is above Upper Target Equity (",AccountEquity(),">=",RJFR_target_upper,")"); RJFR_units++; RJFR_target_lower=RJFR_target_upper; RJFR_target_upper=RJFR_target_upper+(RJFR_units*RJFR_delta); Print("Fixed Ratio MM: Units=>",RJFR_units,"; Delta=",RJFR_delta,"; Lower Target Equity=>",RJFR_target_lower,"; Upper Target Equity=>",RJFR_target_upper); if (AccountEquity()<RJFR_target_upper) {break;} } } else if (AccountEquity()<=RJFR_target_lower) { while(true) { if (AccountEquity()>RJFR_target_lower) {break;} if (RJFR_units>1) { Print("Fixed Ratio MM going down to ",(RJFR_start_lots*(RJFR_units-1))," lots: Equity is below Lower Target Equity | ", AccountEquity()," <= ",RJFR_target_lower,")"); RJFR_target_upper=RJFR_target_lower; RJFR_target_lower=RJFR_target_lower-((RJFR_units-1)*RJFR_delta); RJFR_units--; Print("Fixed Ratio MM: Units=>",RJFR_units,"; Delta=",RJFR_delta,"; Lower Target Equity=>",RJFR_target_lower,"; Upper Target Equity=>",RJFR_target_upper); } else {break;} } } size=RJFR_start_lots*RJFR_units; } if (size==EMPTY_VALUE) {size=0;} static bool alert_min_lots=false; if (size<MinLots && alert_min_lots==false) {alert_min_lots=true; Alert("You want to trade ",size," lot, but your broker's minimum is ",MinLots," lot. The trade/order will continue with ",MinLots," lot instead of ",size," lot. The same rule will be applied for next trades/orders with desired lot size lower than the minimum. You will not see this message again until you restart the program."); } size=MathRound(size/LotStep)*LotStep; if (align=="align") { if (size<MinLots) {size=MinLots;} if (size>MaxLots) {size=MaxLots;} } return (size); } string ErrorMessage(int error_code=-1) { string e = ""; if (error_code<0) {error_code=GetLastError();} switch(error_code) { //--- success case 0: return("The operation completed successfully"); //--- Runtime case 4001: e = "Unexpected internal error"; break; case 4002: e = "Wrong parameter in the inner call of the client terminal function"; break; case 4003: e = "Wrong parameter when calling the system function"; break; case 4004: e = "Not enough memory to perform the system function"; break; case 4005: e = "The structure contains objects of strings and/or dynamic arrays and/or structure of such objects and/or classes"; break; case 4006: e = "Array of a wrong type, wrong size, or a damaged object of a dynamic array"; break; case 4007: e = "Not enough memory for the relocation of an array, or an attempt to change the size of a static array"; break; case 4008: e = "Not enough memory for the relocation of string"; break; case 4009: e = "Not initialized string"; break; case 4010: e = "Invalid date and/or time"; break; case 4011: e = "Requested array size exceeds 2 GB"; break; case 4012: e = "Wrong pointer"; break; case 4013: e = "Wrong type of pointer"; break; case 4014: e = "System function is not allowed to call"; break; case 4015: e = "The names of the dynamic and the static resource match"; break; case 4016: e = "Resource with this name has not been found in EX5"; break; case 4017: e = "Unsupported resource type or its size exceeds 16 Mb"; break; case 4018: e = "The resource name exceeds 63 characters"; break; //-- Charts case 4101: e = "Wrong chart ID"; break; case 4102: e = "Chart does not respond"; break; case 4103: e = "Chart not found"; break; case 4104: e = "No Expert Advisor in the chart that could handle the event"; break; case 4105: e = "Chart opening error"; break; case 4106: e = "Failed to change chart symbol and period"; break; case 4107: e = "Wrong parameter for timer"; break; case 4108: e = "Failed to create timer"; break; case 4109: e = "Wrong chart property ID"; break; case 4110: e = "Error creating screenshots"; break; case 4111: e = "Error navigating through chart"; break; case 4112: e = "Error applying template"; break; case 4113: e = "Subwindow containing the indicator was not found"; break; case 4114: e = "Error adding an indicator to chart"; break; case 4115: e = "Error deleting an indicator from the chart"; break; case 4116: e = "Indicator not found on the specified chart"; break; //-- Graphical Objects case 4201: e = "Error working with a graphical object"; break; case 4202: e = "Graphical object was not found"; break; case 4203: e = "Wrong ID of a graphical object property"; break; case 4204: e = "Unable to get date corresponding to the value"; break; case 4205: e = "Unable to get value corresponding to the date"; break; //-- Market Info case 4301: e = "Unknown symbol"; break; case 4302: e = "Symbol is not selected in MarketWatch"; break; case 4303: e = "Wrong identifier of a symbol property"; break; case 4304: e = "Time of the last tick is not known (no ticks)"; break; case 4305: e = "Error adding or deleting a symbol in MarketWatch"; break; //-- History Access case 4401: e = "Requested history not found"; break; case 4402: e = "Wrong ID of the history property"; break; //-- Global Variables case 4501: e = "Global variable of the client terminal is not found"; break; case 4502: e = "Global variable of the client terminal with the same name already exists"; break; case 4510: e = "Email sending failed"; break; case 4511: e = "Sound playing failed"; break; case 4512: e = "Wrong identifier of the program property"; break; case 4513: e = "Wrong identifier of the terminal property"; break; case 4514: e = "File sending via ftp failed"; break; case 4515: e = "Failed to send a notification"; break; case 4516: e = "Invalid parameter for sending a notification - an empty string or NULL has been passed to the SendNotification() function"; break; case 4517: e = "Wrong settings of notifications in the terminal (ID is not specified or permission is not set)"; break; case 4518: e = "Too frequent sending of notifications"; break; //-- Custom Indicator Buffers case 4601: e = "Not enough memory for the distribution of indicator buffers"; break; case 4602: e = "Wrong indicator buffer index"; break; //-- Custom Indicator Properties case 4603: e = "Wrong ID of the custom indicator property"; break; //-- Account case 4701: e = "Wrong account property ID"; break; case 4751: e = "Wrong trade property ID"; break; case 4752: e = "Trading by Expert Advisors prohibited"; break; case 4753: e = "Position not found"; break; case 4754: e = "Order not found"; break; case 4755: e = "Deal not found"; break; case 4756: e = "Trade request sending failed"; break; //-- Indicators case 4801: e = "Unknown symbol"; break; case 4802: e = "Indicator cannot be created"; break; case 4803: e = "Not enough memory to add the indicator"; break; case 4804: e = "The indicator cannot be applied to another indicator"; break; case 4805: e = "Error applying an indicator to chart"; break; case 4806: e = "Requested data not found"; break; case 4807: e = "Wrong indicator handle"; break; case 4808: e = "Wrong number of parameters when creating an indicator"; break; case 4809: e = "No parameters when creating an indicator"; break; case 4810: e = "The first parameter in the array must be the name of the custom indicator"; break; case 4811: e = "Invalid parameter type in the array when creating an indicator"; break; case 4812: e = "Wrong index of the requested indicator buffer"; break; //-- Depth of Market case 4901: e = "Depth Of Market can not be added"; break; case 4902: e = "Depth Of Market can not be removed"; break; case 4903: e = "The data from Depth Of Market can not be obtained"; break; case 4904: e = "Error in subscribing to receive new data from Depth Of Market"; break; //-- File Operations case 5001: e = "More than 64 files cannot be opened at the same time"; break; case 5002: e = "Invalid file name"; break; case 5003: e = "Too long file name"; break; case 5004: e = "File opening error"; break; case 5005: e = "Not enough memory for cache to read"; break; case 5006: e = "File deleting error"; break; case 5007: e = "A file with this handle was closed, or was not opening at all"; break; case 5008: e = "Wrong file handle"; break; case 5009: e = "The file must be opened for writing"; break; case 5010: e = "The file must be opened for reading"; break; case 5011: e = "The file must be opened as a binary one"; break; case 5012: e = "The file must be opened as a text"; break; case 5013: e = "The file must be opened as a text or CSV"; break; case 5014: e = "The file must be opened as CSV"; break; case 5015: e = "File reading error"; break; case 5016: e = "String size must be specified, because the file is opened as binary"; break; case 5017: e = "A text file must be for string arrays, for other arrays - binary"; break; case 5018: e = "This is not a file, this is a directory"; break; case 5019: e = "File does not exist"; break; case 5020: e = "File can not be rewritten"; break; case 5021: e = "Wrong directory name"; break; case 5022: e = "Directory does not exist"; break; case 5023: e = "This is a file, not a directory"; break; case 5024: e = "The directory cannot be removed"; break; case 5025: e = "Failed to clear the directory (probably one or more files are blocked and removal operation failed)"; break; case 5026: e = "Failed to write a resource to a file"; break; //-- String Casting case 5030: e = "No date in the string"; break; case 5031: e = "Wrong date in the string"; break; case 5032: e = "Wrong time in the string"; break; case 5033: e = "Error converting string to date"; break; case 5034: e = "Not enough memory for the string"; break; case 5035: e = "The string length is less than expected"; break; case 5036: e = "Too large number, more than ULONG_MAX"; break; case 5037: e = "Invalid format string"; break; case 5038: e = "Amount of format specifiers more than the parameters"; break; case 5039: e = "Amount of parameters more than the format specifiers"; break; case 5040: e = "Damaged parameter of string type"; break; case 5041: e = "Position outside the string"; break; case 5042: e = "0 added to the string end, a useless operation"; break; case 5043: e = "Unknown data type when converting to a string"; break; case 5044: e = "Damaged string object"; break; //-- Operations with Arrays case 5050: e = "Copying incompatible arrays. String array can be copied only to a string array, and a numeric array - in numeric array only"; break; case 5051: e = "The receiving array is declared as AS_SERIES, and it is of insufficient size"; break; case 5052: e = "Too small array, the starting position is outside the array"; break; case 5053: e = "An array of zero length"; break; case 5054: e = "Must be a numeric array"; break; case 5055: e = "Must be a one-dimensional array"; break; case 5056: e = "Timeseries cannot be used"; break; case 5057: e = "Must be an array of type double"; break; case 5058: e = "Must be an array of type float"; break; case 5059: e = "Must be an array of type long"; break; case 5060: e = "Must be an array of type int"; break; case 5061: e = "Must be an array of type short"; break; case 5062: e = "Must be an array of type char"; break; //-- Operations with OpenCL case 5100: e = "OpenCL functions are not supported on this computer"; break; case 5101: e = "Internal error occurred when running OpenCL"; break; case 5102: e = "Invalid OpenCL handle"; break; case 5103: e = "Error creating the OpenCL context"; break; case 5104: e = "Failed to create a run queue in OpenCL"; break; case 5105: e = "Error occurred when compiling an OpenCL program"; break; case 5106: e = "Too long kernel name (OpenCL kernel)"; break; case 5107: e = "Error creating an OpenCL kernel"; break; case 5108: e = "Error occurred when setting parameters for the OpenCL kernel"; break; case 5109: e = "OpenCL program runtime error"; break; case 5110: e = "Invalid size of the OpenCL buffer"; break; case 5111: e = "Invalid offset in the OpenCL buffer"; break; case 5112: e = "Failed to create an OpenCL buffer"; break; //-- Operations with WebRequest case 5200: e = "Invalid URL"; break; case 5201: e = "Failed to connect to specified URL"; break; case 5202: e = "Timeout exceeded"; break; case 5203: e = "HTTP request failed"; break; //-- trading errors case 10004: e = "Requote occured"; break; case 10006: e = "Order is not accepted by the server"; break; case 10007: e = "Request canceled by trader"; break; case 10010: e = "Only part of the request was completed"; break; case 10011: e = "Request processing error"; break; case 10012: e = "Request canceled by timeout"; break; case 10013: e = "Invalid request"; break; case 10014: e = "Invalid volume"; break; case 10015: e = "Invalid price"; break; case 10016: e = "Invalid SL or TP"; break; case 10017: e = "Trading is disabled"; break; case 10018: e = "Market is closed"; break; case 10019: e = "Not enough money to trade"; break; case 10020: e = "Prices changed"; break; case 10021: e = "There are no quotes to process the request"; break; case 10022: e = "Invalid expiration date in the order request"; break; case 10023: e = "Order state changed"; break; case 10024: e = "Too frequent requests"; break; case 10025: e = "No changes in request"; break; case 10026: e = "Autotrading is disabled by the server"; break; case 10027: e = "Autotrading is disabled by the client terminal"; break; case 10028: e = "Request locked for processing"; break; case 10029: e = "Order or trade frozen"; break; case 10030: e = "Invalid order filling type"; break; case 10031: e = "No connection with the trade server"; break; case 10032: e = "Operation is allowed only for live accounts"; break; case 10033: e = "The number of pending orders has reached the limit"; break; case 10034: e = "The volume of orders and trades for the symbol has reached the limit"; break; case 10035: e = "Incorrect or prohibited order type"; break; case 10036: e = "Position with the specified POSITION_IDENTIFIER has already been closed"; break; //-- User-Defined Errors case 65536: e = "User defined errors"; break; default: e = "Unknown error"; } StringConcatenate(e, e," (",error_code,")"); return e; } bool FilterOrderBy(string group_mode="all", string group="0", string market_mode="all", string market="", string BuysOrSells="both", string LimitsOrStops="", int unused = 0, bool onTrade = false) { //-- db static string markets[]; static string market0 = "-"; static int markets_size = 0; static string groups[]; static string group0 = "-"; static int groups_size = 0; //-- local variables bool type_pass = false; bool market_pass = false; bool group_pass = false; int i; long type; ulong magic_number; string symbol; // Trades if (onTrade == false) { type = OrderType(); magic_number = OrderMagicNumber(); symbol = OrderSymbol(); } else { type = e_attrType(); magic_number = e_attrMagicNumber(); symbol = e_attrSymbol(); } // Trades && History trades if (LimitsOrStops=="") { if ( (BuysOrSells=="both" && (type==ORDER_TYPE_BUY || type==ORDER_TYPE_SELL)) || (BuysOrSells=="buys" && type==ORDER_TYPE_BUY) || (BuysOrSells=="sells" && type==ORDER_TYPE_SELL) ) { type_pass = true; } } // Pending orders else { type = OrderGetInteger(ORDER_TYPE); if ( (BuysOrSells=="both" && (type==ORDER_TYPE_BUY_LIMIT || type==ORDER_TYPE_BUY_STOP || type==ORDER_TYPE_SELL_LIMIT || type==ORDER_TYPE_SELL_STOP)) || (BuysOrSells=="buys" && (type==ORDER_TYPE_BUY_LIMIT || type==ORDER_TYPE_BUY_STOP)) || (BuysOrSells=="sells" && (type==ORDER_TYPE_SELL_LIMIT || type==ORDER_TYPE_SELL_STOP)) ) { if ( (LimitsOrStops=="both" && (type==ORDER_TYPE_BUY_STOP || type==ORDER_TYPE_SELL_STOP || type==ORDER_TYPE_BUY_LIMIT || type==ORDER_TYPE_SELL_LIMIT)) || (LimitsOrStops=="stops" && (type==ORDER_TYPE_BUY_STOP || type==ORDER_TYPE_SELL_STOP)) || (LimitsOrStops=="limits" && (type==ORDER_TYPE_BUY_LIMIT || type==ORDER_TYPE_SELL_LIMIT)) ) { type_pass = true; } } } if (type_pass == false) {return false;} //-- check group if (group_mode=="group") { if (group == "") { if (magic_number==MagicStart) { group_pass=true; } } else { if (group0!=group) { group0=group; StringExplode(",",group,groups); groups_size = ArraySize(groups); for(i=0; i<groups_size; i++) { groups[i]=StringTrim(groups[i]); if (groups[i]=="") {groups[i]="0";} } } for(i=0; i<groups_size; i++) { if (magic_number==(MagicStart+(int)groups[i])) { group_pass=true; break; } } } } else if (group_mode=="all" || (group_mode=="manual" && magic_number==0)) { group_pass = true; } if (group_pass == false) {return false;} // check market if (market_mode=="all") { market_pass=true; } else { if (symbol == market) { market_pass = true; } else { if (market0!=market) { market0=market; if (market=="") { markets_size = 1; ArrayResize(markets,1); markets[0]=Symbol(); } else { StringExplode(",",market,markets); markets_size = ArraySize(markets); for(i=0; i<markets_size; i++) { markets[i]=StringTrim(markets[i]); if (markets[i]=="") {markets[i]=Symbol();} } } } for(i=0; i<markets_size; i++) { if (symbol==markets[i]) { market_pass = true; break; } } } } if (market_pass == false) {return false;} return(true); } string GetSymbol(string symbol="") { static string memory=""; if (symbol=="") { if (memory=="") {memory=Symbol();} } else {memory=symbol;} return(memory); } bool IsFillingTypeAllowed(string symbol,int fill_type) { //--- Obtain the value of the property that describes allowed filling modes int filling=(int)SymbolInfoInteger(symbol,SYMBOL_FILLING_MODE); //--- Return true, if mode fill_type is allowed return((filling & fill_type)==fill_type); } bool IsOrderTypeBuy() { if (LoadedType()==1){ if (PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_BUY) {return(true);} else {return(false);} } if (LoadedType()==3) { if ( HistoryOrderGetInteger(OrderTicket(),ORDER_TYPE)==ORDER_TYPE_BUY ) {return(true);} else {return(false);} } if (LoadedType()==4) { if ( HistoryOrderGetInteger(OrderTicket(),ORDER_TYPE)==ORDER_TYPE_BUY_LIMIT || HistoryOrderGetInteger(OrderTicket(),ORDER_TYPE)==ORDER_TYPE_BUY_STOP ) {return(true);} else {return(false);} } if ( OrderGetInteger(ORDER_TYPE)==ORDER_TYPE_BUY_LIMIT || OrderGetInteger(ORDER_TYPE)==ORDER_TYPE_BUY_STOP ) {return(true);} else {return(false);} return(false); } bool IsOrderTypeSell() { if (LoadedType()==1){if (PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_SELL) {return(true);} else {return(false);}} if (LoadedType()==3) { if ( HistoryOrderGetInteger(OrderTicket(),ORDER_TYPE)==ORDER_TYPE_SELL ) {return(true);} else {return(false);} } if (LoadedType()==4) { if ( HistoryOrderGetInteger(OrderTicket(),ORDER_TYPE)==ORDER_TYPE_SELL_LIMIT || HistoryOrderGetInteger(OrderTicket(),ORDER_TYPE)==ORDER_TYPE_SELL_STOP ) {return(true);} else {return(false);} } if ( OrderGetInteger(ORDER_TYPE)==ORDER_TYPE_SELL_LIMIT || OrderGetInteger(ORDER_TYPE)==ORDER_TYPE_SELL_STOP ) {return(true);} else {return(false);} return(false); } bool LoadOrder(string symbol) { bool success = PositionSelect(symbol); if (success) { LoadedType(1); OrderTicket((ulong)PositionGetInteger(POSITION_IDENTIFIER)); } return success; } bool LoadOrder(ulong ticket) { bool success = OrderSelect(ticket); if (success) { LoadedType(2); OrderTicket(ticket); } return success; } bool LoadPosition(ulong ticket) { bool success = PositionSelectByTicket(ticket); if (success) { LoadedType(1); OrderTicket(ticket); } return success; } int LoadedType(int type=0) { // 1 - position // 2 - pending order // 3 - history position // 4 - history pending order static int memory; if (type>0) {memory=type;} return(memory); } int OCODriver() { static ulong last_known_ticket = 0; static ulong orders1[]; static ulong orders2[]; int i, size; int total = OrdersTotal(); for (int pos=total-1; pos>=0; pos--) { if (LoadOrder(OrderGetTicket(pos))) { ulong ticket = OrderTicket(); //-- end here if we reach the last known ticket if (ticket == last_known_ticket) {break;} //-- set the last known ticket, only if this is the first iteration if (pos == total-1) { last_known_ticket = ticket; } //-- we are searching for pending orders, skip trades if (OrderType() <= ORDER_TYPE_SELL) {continue;} //-- if (StringSubstr(OrderComment(), 0, 5) == "[oco:") { int ticket_oco = StrToInteger(StringSubstr(OrderComment(), 5, StringLen(OrderComment())-1)); bool found = false; size = ArraySize(orders2); for (i=0; i<size; i++) { if (orders2[i] == ticket_oco) { found = true; break; } } if (found == false) { ArrayResize(orders1, size+1); ArrayResize(orders2, size+1); orders1[size] = ticket_oco; orders2[size] = ticket; } } } } size = ArraySize(orders1); int dbremove = false; for (i=0; i<size; i++) { if (LoadOrder(orders1[i]) == false || OrderType() <= ORDER_TYPE_SELL) { if (LoadOrder(orders2[i])) { if (DeleteOrder(orders2[i])) { dbremove = true; } } else { dbremove = true; } if (dbremove == true) { ArrayStripKey(orders1, i); ArrayStripKey(orders2, i); } } } size = ArraySize(orders2); dbremove = false; for (i=0; i<size; i++) { if (LoadOrder(orders2[i]) == false || OrderType() <= ORDER_TYPE_SELL) { if (LoadOrder(orders1[i])) { if (DeleteOrder(orders1[i])) { dbremove = true; } } else { dbremove = true; } if (dbremove == true) { ArrayStripKey(orders1, i); ArrayStripKey(orders2, i); } } } return true; } bool OnTimerSet(double seconds) { if (seconds<=0) { EventKillTimer(); } else if (seconds < 1) { return (EventSetMillisecondTimer((int)(seconds*1000))); } else { return (EventSetTimer((int)seconds)); } return true; } bool OnTradeDetector() { static int lastOrdersTotal =OrdersTotal(); // Number of orders at the time of previous OnTrade() call static int lastPositionsTotal =PositionsTotal(); // Number of positions at the time of previous OnTrade() call int i=0; ulong ticket=0; int last_error=0; long state=0; bool event=false; int positions_count =BuildPositionsList(EGV_PositionsList); int orders_count =BuildOrdersList(EGV_OrderList); HistorySelect(0, TimeCurrent()); if (lastOrdersTotal < OrdersTotal()) { ticket=OrderGetTicket(OrdersTotal()-1); // Select the last order bool success = OrderSelect(ticket); state = OrderGetInteger(ORDER_STATE); if (state == ORDER_STATE_STARTED) { //Print("Order #",ticket," has arrived for processing"); } else if (state == ORDER_STATE_PLACED) { // Event: New order created Print("Pending order type ",(int)OrderGetInteger(ORDER_TYPE)," #", ticket," accepted!"); UpdateEventValues(EGV_OrderList[OrdersTotal()-1],"new",""); event=true; } } else if(lastOrdersTotal > OrdersTotal()) { // Select the order that is missing in the new list int size=ArraySize(EGV_OrderList); int size0=ArraySize(EGV_OrderList0); for (i=size0-1; i>=0; i--) { ticket=EGV_OrderList0[i].ticket; bool found=false; for (int j=size-1; j>=0; j--) { if (ticket==EGV_OrderList[j].ticket) {found=true;break;} } if (found==false) { break; } } if (i<0) {i=0;} // Now load that order HistoryOrderSelect(ticket); state = HistoryOrderGetInteger(ticket,ORDER_STATE); if (state==0 && GetLastError()==ERR_TRADE_ORDER_NOT_FOUND) {state=2;} //Print("Last order ticket = ",ticket, "| state = ",state, "| GetLastError= ",GetLastError()); // If order is not found, generate an error ResetLastError(); last_error=GetLastError(); if (last_error>0){Print("Error #",last_error," Order ",ticket," was not found!");} ResetLastError(); if (state == ORDER_STATE_CANCELED) { Print("Order #",ticket," has been cancelled."); UpdateEventValues(EGV_OrderList0[i],"close",""); event=true; } else if (state == ORDER_STATE_EXPIRED) { Print("Order #",ticket," expired."); UpdateEventValues(EGV_OrderList0[i],"expire",""); event=true; } else // If order is fully executed, analyze the last deal if (state == ORDER_STATE_FILLED) { ulong deal_ticket=HistoryDealGetTicket(HistoryDealsTotal()-1); long deal_type=HistoryDealGetInteger(deal_ticket,DEAL_TYPE); // 0 - BUY, 1 - SELL string text=""; switch((int)HistoryDealGetInteger(deal_ticket,DEAL_ENTRY)) { // Entering the market case DEAL_ENTRY_IN: if (deal_type==DEAL_TYPE_BUY) {text="Buy";} else if (deal_type==DEAL_TYPE_SELL) {text="Sell";} Print(" Order #",HistoryDealGetInteger(deal_ticket,DEAL_ORDER)," invoked deal #",deal_ticket); if (PositionSelect(HistoryDealGetString(deal_ticket,DEAL_SYMBOL))) { // Position has just been opened if (PositionGetDouble(POSITION_VOLUME) == HistoryDealGetDouble(deal_ticket,DEAL_VOLUME)) { Print(text," position has been opened on pair ",HistoryDealGetString(deal_ticket,DEAL_SYMBOL)); UpdateEventValues(deal_ticket,"new","fromorder"); event=true; } else // Position has been incremented if (PositionGetDouble(POSITION_VOLUME) > HistoryDealGetDouble(deal_ticket,DEAL_VOLUME)) { Print(text," position has incremented on pair ",HistoryDealGetString(deal_ticket,DEAL_SYMBOL)); UpdateEventValues(deal_ticket,"increment","fromorder"); event=true; } else // Position has been decremented if (PositionGetDouble(POSITION_VOLUME) < HistoryDealGetDouble(deal_ticket,DEAL_VOLUME)) { Print(text," position has decremented on pair ",HistoryDealGetString(deal_ticket,DEAL_SYMBOL)); UpdateEventValues(deal_ticket,"decrement","fromorder"); event=true; } } break; // Exiting the market case DEAL_ENTRY_OUT: if (deal_type==DEAL_TYPE_BUY) {text="Sell";} else if (deal_type==DEAL_TYPE_SELL) {text="Buy";} Print(HistoryDealGetInteger(deal_ticket,DEAL_ORDER)," order invoked deal #",deal_ticket); // If position, we tried to close, is still present, then we have closed only part of it if (PositionSelect(HistoryDealGetString(deal_ticket,DEAL_SYMBOL)) == true) { Print("Part of ",text," position has been closed on pair ",HistoryDealGetString(deal_ticket,DEAL_SYMBOL)," with profit = ",HistoryDealGetDouble(deal_ticket,DEAL_PROFIT)); UpdateEventValues(deal_ticket,"closepart","fromorder"); event=true; } else // If position is not found, then it is fully closed { Print(text," position has been closed on pair ",HistoryDealGetString(deal_ticket,DEAL_SYMBOL)," with profit = ",HistoryDealGetDouble(deal_ticket,DEAL_PROFIT)); UpdateEventValues(deal_ticket,"close","fromorder"); event=true; } break; // Reverse case DEAL_ENTRY_INOUT: Print(HistoryDealGetInteger(deal_ticket,DEAL_ORDER)," order invoked deal #",deal_ticket); switch((int)deal_type) { case 0: Print("Sell is reversed to Buy on pair ",HistoryDealGetString(deal_ticket,DEAL_SYMBOL)," resulting profit = ",HistoryDealGetDouble(deal_ticket,DEAL_PROFIT)); break; case 1: Print("Buy is reversed to Sell on pair ",HistoryDealGetString(deal_ticket,DEAL_SYMBOL)," resulting profit = ",HistoryDealGetDouble(deal_ticket,DEAL_PROFIT)); break; default: Print("Unprocessed code of type: ",deal_type); break; } UpdateEventValues(deal_ticket,"reverse","fromorder"); event=true; break; // Indicates the state record case DEAL_ENTRY_STATE: //Print("Unprocessed code of direction: ",HistoryDealGetInteger(deal_ticket,DEAL_TYPE)); break; } } } else if (lastPositionsTotal<PositionsTotal()) { ulong deal_ticket=HistoryDealGetTicket(HistoryDealsTotal()-1); // New position opened UpdateEventValues(deal_ticket,"new",""); event=true; } else if (lastPositionsTotal>PositionsTotal()) { ulong deal_ticket=HistoryDealGetTicket(HistoryDealsTotal()-1); // Position closed UpdateEventValues(deal_ticket,"close",""); e_attrMagicNumber(true, EGV_PositionsList0[i].magic); // for some reason magic number can be get only once in the normal way event=true; } if ((lastPositionsTotal == PositionsTotal()) && (lastOrdersTotal == OrdersTotal())) { for (i=0; i<positions_count; i++) { // Position reverse if (EGV_PositionsList0[i].type != EGV_PositionsList[i].type) { Print(EGV_PositionsList[i].symbol+" volume reversed from "+ (string)EGV_PositionsList0[i].type +" to "+ (string)EGV_PositionsList[i].type); UpdateEventValues(EGV_PositionsList[i],"reverse",""); event=true; } // Position modified SL and/or TP if ((EGV_PositionsList0[i].sl != EGV_PositionsList[i].sl) && (EGV_PositionsList0[i].tp != EGV_PositionsList[i].tp)) { Print(EGV_PositionsList[i].symbol+" Stop Loss changed from "+ (string)EGV_PositionsList0[i].sl +" to "+ (string)EGV_PositionsList[i].sl); Print(EGV_PositionsList[i].symbol+" Take Profit changed from "+ (string)EGV_PositionsList0[i].tp +" to "+ (string)EGV_PositionsList[i].tp); UpdateEventValues(EGV_PositionsList[i],"modify","sltp"); event=true; } else { if (EGV_PositionsList0[i].sl != EGV_PositionsList[i].sl) { Print(EGV_PositionsList[i].symbol+" Stop Loss changed from "+ (string)EGV_PositionsList0[i].sl +" to "+ (string)EGV_PositionsList[i].sl); UpdateEventValues(EGV_PositionsList[i],"modify","sl"); event=true; } if (EGV_PositionsList0[i].tp != EGV_PositionsList[i].tp) { Print(EGV_PositionsList[i].symbol+" Take Profit changed from "+ (string)EGV_PositionsList0[i].tp +" to "+ (string)EGV_PositionsList[i].tp); UpdateEventValues(EGV_PositionsList[i],"modify","tp"); event=true; } } // Check position increment/decrement if (EGV_PositionsList0[i].volume < EGV_PositionsList[i].volume) { Print(EGV_PositionsList[i].symbol+" volume incremented from "+ (string)EGV_PositionsList0[i].volume +" to "+ (string)EGV_PositionsList[i].volume); UpdateEventValues(EGV_PositionsList[i],"increment",""); event=true; } else if (EGV_PositionsList0[i].volume > EGV_PositionsList[i].volume) { Print(EGV_PositionsList[i].symbol+" volume decremented from "+ (string)EGV_PositionsList0[i].volume +" to "+ (string)EGV_PositionsList[i].volume); UpdateEventValues(EGV_PositionsList[i],"decrement",""); event=true; } } for (i=0; i<orders_count; i++) { if ((EGV_OrderList0[i].sl != EGV_OrderList[i].sl) && (EGV_OrderList0[i].tp != EGV_OrderList[i].tp)) { Print("Order "+(string)EGV_OrderList[i].ticket+" has changed Stop Loss from "+ (string)EGV_OrderList0[i].sl +" to "+ (string)EGV_OrderList[i].sl); Print("Order "+(string)EGV_OrderList[i].ticket+" has changed Take Profit from "+ (string)EGV_OrderList0[i].tp +" to "+ (string)EGV_OrderList[i].tp); UpdateEventValues(EGV_OrderList[i],"modify","sltp"); event=true; } else { if (EGV_OrderList0[i].sl != EGV_OrderList[i].sl) { Print("Order "+(string)EGV_OrderList[i].ticket+" has changed Stop Loss from "+ (string)EGV_OrderList0[i].sl +" to "+ (string)EGV_OrderList[i].sl); UpdateEventValues(EGV_OrderList[i],"modify","sl"); event=true; } if (EGV_OrderList0[i].tp != EGV_OrderList[i].tp) { Print("Order "+(string)EGV_OrderList[i].ticket+" has changed Take Profit from "+ (string)EGV_OrderList0[i].tp +" to "+ (string)EGV_OrderList[i].tp); UpdateEventValues(EGV_OrderList[i],"modify","tp"); event=true; } } if (EGV_OrderList0[i].price_open != EGV_OrderList[i].price_open) { Print("Order "+(string)EGV_OrderList[i].ticket+" has changed Open Price from "+ (string)EGV_OrderList0[i].price_open +" to "+ (string)EGV_OrderList[i].price_open); UpdateEventValues(EGV_OrderList[i],"modify","price"); event=true; } if (EGV_OrderList0[i].time_expiration != EGV_OrderList[i].time_expiration) { Print("Order "+(string)EGV_OrderList[i].time_expiration+" has changed Expiration from "+ (string)EGV_OrderList0[i].time_expiration +" to "+ (string)EGV_OrderList[i].time_expiration); UpdateEventValues(EGV_OrderList[i],"modify","expiration"); event=true; } } } BuildPositionsList(EGV_PositionsList0); BuildOrdersList(EGV_OrderList0); lastOrdersTotal =OrdersTotal(); lastPositionsTotal =PositionsTotal(); if (event==true) {return(true);} else {return(false);} } int OnTradeQueue(int queue=0) { static int mem=0; mem=mem+queue; return(mem); } double OrderClosePrice() { if (LoadedType()==1){ if (PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_BUY) {return(SymbolInfoDouble(PositionGetString(POSITION_SYMBOL),SYMBOL_ASK));} if (PositionGetInteger(POSITION_TYPE)==POSITION_TYPE_SELL) {return(SymbolInfoDouble(PositionGetString(POSITION_SYMBOL),SYMBOL_BID));} } if (LoadedType()==3){return(HistoryDealGetDouble(attrTicket(),DEAL_PRICE));} if (LoadedType()==4){return(HistoryDealGetDouble(attrTicket(),DEAL_PRICE));} return(OrderGetDouble(ORDER_PRICE_CURRENT)); } string OrderComment() { if (LoadedType()==1){return(PositionGetString(POSITION_COMMENT));} if (LoadedType()==3){return(HistoryOrderGetString(HistoryDealGetInteger(OrderTicket(),DEAL_POSITION_ID),ORDER_COMMENT));} if (LoadedType()==4){return(HistoryOrderGetString(OrderTicket(),ORDER_COMMENT));} return(OrderGetString(ORDER_COMMENT)); } double OrderCommission() { if (LoadedType()==1){return(PositionGetDouble(POSITION_COMMISSION));} if (LoadedType()==3){return(HistoryDealGetDouble(OrderTicket(),DEAL_COMMISSION));} if (LoadedType()==4){return(0);} return(0); } bool OrderCreate( string symbol="", int type=ORDER_TYPE_BUY, double lots=0, double op=0, double sll=0, double tpl=0, double slp=0, double tpp=0, double slippage=0, ulong magic=0, string comment=NULL, ENUM_ORDER_TYPE_TIME type_time=ORDER_TIME_GTC, datetime expiration=0, bool oco = false ) { OnTrade(); // When position is closed by sl or tp, this event is not fired (by MetaTrader) until the end of the tick, and if a new position is opened, it will be missed. uint time0=GetTickCount(); bool closing = false; double lots0 = 0; long type0 = type; if (type == POSITION_TYPE_BUY || type == POSITION_TYPE_SELL) { if (PositionSelect(symbol)) { if ((int)PositionGetInteger(POSITION_TYPE) != type) { closing = true; } lots0 = NormalizeDouble(PositionGetDouble(POSITION_VOLUME), 5); type0 = PositionGetInteger(POSITION_TYPE); } } ulong ticket=-1; int bs=1; if ( type==ORDER_TYPE_SELL || type==ORDER_TYPE_SELL_STOP || type==ORDER_TYPE_SELL_LIMIT ) {bs=-1;} // Positive when Buy, negative when Sell if (symbol=="") {symbol=Symbol();} lots=AlignLots(lots); int digits = 0; double ask=0, bid=0, point=0, ticksize=0; double sl=0, tp=0; bool successed = false; //-- attempts to send position/order --------------------------------- while(true) { digits = (int)SymbolInfoInteger(symbol,SYMBOL_DIGITS); ask = SymbolInfoDouble(symbol,SYMBOL_ASK); bid = SymbolInfoDouble(symbol,SYMBOL_BID); point = SymbolInfoDouble(symbol,SYMBOL_POINT); ticksize = SymbolInfoDouble(symbol, SYMBOL_TRADE_TICK_SIZE); //- not enough money check: fix maximum possible lot by margin required, or quit if ((type==POSITION_TYPE_BUY || type==POSITION_TYPE_SELL) && closing==false) { double LotStep =SymbolLotStep(symbol); double MinLots =SymbolMinLot(symbol); double margin_required =0; bool ocm = OrderCalcMargin((ENUM_ORDER_TYPE)type,symbol,1,ask(symbol),margin_required); static bool not_enough_message = false; if (margin_required != 0) { double max_size_by_margin = AccountFreeMargin()/margin_required; if (lots > max_size_by_margin) { double lots_old = lots; lots = max_size_by_margin; if (lots<MinLots) { if (not_enough_message==false) { Print("Not enough money to trade :( The robot is still working, waiting for some funds to appear..."); } not_enough_message = true; return(false); } else { lots = MathFloor(lots/LotStep)*LotStep; Print("Not enough money to trade "+DoubleToString(lots_old, 2)+", the volume to trade will be the maximum possible of "+DoubleToString(lots, 2)); } } } not_enough_message = false; } if (type==ORDER_TYPE_BUY || type==ORDER_TYPE_SELL) { op=ask; if (bs<0) { op=bid; } } op=NormalizeDouble(op, digits); if (op<0 || op>=EMPTY_VALUE) {break;} if (sll<0) {break;} if (slp<0) {break;} if (tpl<0) {break;} if (tpp<0) {break;} //-- SL and TP ---------------------------------------------------- sl=AlignStopLoss(symbol, type, op, 0, NormalizeDouble(sll,digits), slp); if (sl<0) {break;} tp=AlignTakeProfit(symbol, type, op, 0, NormalizeDouble(tpl,digits), tpp); if (tp<0) {break;} sl = NormalizeDouble(sl,digits); tp = NormalizeDouble(tp,digits); //-- send --------------------------------------------------------- MqlTradeRequest request; MqlTradeResult result; MqlTradeCheckResult check_result; ZeroMemory(request); ZeroMemory(result); ZeroMemory(check_result); ENUM_SYMBOL_TRADE_EXECUTION exec =(ENUM_SYMBOL_TRADE_EXECUTION)SymbolInfoInteger(symbol,SYMBOL_TRADE_EXEMODE); //if (expiration==0) {type_time=ORDER_TIME_GTC;} //-- fix prices by ticksize op = MathRound(op/ticksize)*ticksize; sl = MathRound(sl/ticksize)*ticksize; tp = MathRound(tp/ticksize)*ticksize; request.symbol = symbol; request.type = (ENUM_ORDER_TYPE)type; request.volume = lots; request.price = op; request.deviation = (ulong)(slippage*PipValue(symbol)); request.sl = sl; request.tp = tp; request.comment = comment; request.magic = magic; request.type_time = type_time; request.expiration = expiration; //-- request action if (type>ORDER_TYPE_SELL) { request.action = TRADE_ACTION_PENDING; } else { request.action = TRADE_ACTION_DEAL; } //-- filling type // check ORDER_FILLING_RETURN for pending orders only if (type > ORDER_TYPE_SELL) { if (IsFillingTypeAllowed(symbol, ORDER_FILLING_RETURN)) request.type_filling = ORDER_FILLING_RETURN; else if (IsFillingTypeAllowed(symbol, ORDER_FILLING_FOK)) request.type_filling = ORDER_FILLING_FOK; else if (IsFillingTypeAllowed(symbol, ORDER_FILLING_IOC)) request.type_filling = ORDER_FILLING_IOC; } else { // in case of positions I would check for SYMBOL_FILLING_ and then set ORDER_FILLING_ // this is because it appears that IsFillingTypeAllowed() works correct with SYMBOL_FILLING_, but then the position works correctly with ORDER_FILLING_ // FOK and IOC integer values are not the same for ORDER and SYMBOL if (IsFillingTypeAllowed(symbol, SYMBOL_FILLING_FOK)) request.type_filling = ORDER_FILLING_FOK; else if (IsFillingTypeAllowed(symbol, SYMBOL_FILLING_IOC)) request.type_filling = ORDER_FILLING_IOC; else if (IsFillingTypeAllowed(symbol, ORDER_FILLING_RETURN)) // just in case request.type_filling = ORDER_FILLING_RETURN; } if (!OrderCheck(request,check_result)) { Print("OrderCheck() failed: "+(string)check_result.comment+" ("+(string)check_result.retcode+")"); return false; } int success=OrderSend(request,result); //-- check security flag ------------------------------------------ if (successed == true) { Print("The program will be removed because of suspicious attempt to create a new position"); ExpertRemove(); Sleep(10000); break; } if (success) {successed = true;} //-- error check -------------------------------------------------- if (!success || (result.retcode!=TRADE_RETCODE_DONE && result.retcode!=TRADE_RETCODE_PLACED && result.retcode!=TRADE_RETCODE_DONE_PARTIAL)) { string errmsgpfx="New position error"; if (type>ORDER_TYPE_SELL) { errmsgpfx="New pending order error"; } int erraction=CheckForTradingError(result.retcode, errmsgpfx); switch(erraction) { case 0: break; // no error case 1: continue; // overcomable error case 2: break; // fatal error } return(false); } //-- finish work -------------------------------------------------- if (result.retcode==TRADE_RETCODE_DONE || result.retcode==TRADE_RETCODE_PLACED || result.retcode==TRADE_RETCODE_DONE_PARTIAL) { ticket = result.order; //== Whatever was created, we need to wait until MT5 updates it's cache //-- Synchronize: Position if (type<=ORDER_TYPE_SELL) { if (AccountInfoInteger(ACCOUNT_MARGIN_MODE) == ACCOUNT_MARGIN_MODE_RETAIL_NETTING) { if (closing == false) { //- new position: 2 situations here - new position or add to position //- ... because of that we will check the lot size instead of PositionSelect while (true) { if (PositionSelect(symbol) && (lots0 != NormalizeDouble(PositionGetDouble(POSITION_VOLUME), 5))) {break;} Sleep(10); } } else { //- closing position: full if (lots0 == NormalizeDouble(result.volume, 5)) { while (true) { if (!PositionSelect(symbol)) {break;} Sleep(10); } } //- closing position: partial else if (lots0 > NormalizeDouble(result.volume, 5)) { while (true) { if (PositionSelect(symbol) && (lots0 != NormalizeDouble(PositionGetDouble(POSITION_VOLUME), 5))) {break;} Sleep(10); } } else if (lots0 < NormalizeDouble(result.volume, 5)) { //-- position reverse while (true) { if (PositionSelect(symbol) && (type0 != PositionGetInteger(POSITION_TYPE))) {break;} Sleep(10); } } } } else if (AccountInfoInteger(ACCOUNT_MARGIN_MODE) == ACCOUNT_MARGIN_MODE_RETAIL_HEDGING) { if (closing == false) { while (true) { if (PositionSelectByTicket(ticket)) {break;} Sleep(10); } } } } //-- Synchronize: Order else { while (true) { if (LoadOrder(result.order)) {break;} Sleep(10); } } } break; } if (oco == true && ticket > 0) { sl = (sl > 0) ? NormalizeDouble(MathAbs(op-sl), digits) : 0; tp = (tp > 0) ? NormalizeDouble(MathAbs(op-tp), digits) : 0; int typeoco = type; if (typeoco == ORDER_TYPE_BUY_STOP) { typeoco = ORDER_TYPE_SELL_STOP; op = bid - MathAbs(op-ask); } else if (typeoco == ORDER_TYPE_BUY_LIMIT) { typeoco = ORDER_TYPE_SELL_LIMIT; op = bid + MathAbs(op-ask); } else if (typeoco == ORDER_TYPE_SELL_STOP) { typeoco = ORDER_TYPE_BUY_STOP; op = ask + MathAbs(op-bid); } else if (typeoco == ORDER_TYPE_SELL_LIMIT) { typeoco = ORDER_TYPE_BUY_LIMIT; op = ask - MathAbs(op-bid); } if (typeoco == ORDER_TYPE_BUY_STOP || typeoco == ORDER_TYPE_BUY_LIMIT) { sl = (sl > 0) ? op - sl : 0; tp = (tp > 0) ? op + tp : 0; } else { sl = (sl > 0) ? op + sl : 0; tp = (tp > 0) ? op - tp : 0; } comment = "[oco:"+(string)ticket+"]"; OrderCreate(symbol,typeoco,lots,op,sl,tp,0,0,slippage,magic,comment,type_time,expiration,false); } OnTrade(); return(true); } double OrderLots() { if (LoadedType()==1){return(NormalizeDouble(PositionGetDouble(POSITION_VOLUME), 5));} if (LoadedType()==3){return(NormalizeDouble(HistoryDealGetDouble(attrTicket(),DEAL_VOLUME), 5));} if (LoadedType()==4){return(NormalizeDouble(HistoryOrderGetDouble(attrTicket(),ORDER_VOLUME_INITIAL), 5));} return(NormalizeDouble(OrderGetDouble(ORDER_VOLUME_CURRENT), 5)); } int OrderMagicNumber() { if (LoadedType()==1){return((int)PositionGetInteger(POSITION_MAGIC));} if (LoadedType()==3){return((int)HistoryOrderGetInteger(HistoryDealGetInteger(OrderTicket(),DEAL_POSITION_ID),ORDER_MAGIC));} if (LoadedType()==4){return((int)HistoryOrderGetInteger(OrderTicket(),ORDER_MAGIC));} return((int)OrderGetInteger(ORDER_MAGIC)); } double OrderOpenPrice() { if (LoadedType()==1){return(PositionGetDouble(POSITION_PRICE_OPEN));} if (LoadedType()==3){return(HistoryOrderGetDouble(HistoryDealGetInteger(OrderTicket(),DEAL_POSITION_ID),ORDER_PRICE_OPEN));} if (LoadedType()==4){return(HistoryOrderGetDouble(OrderTicket(),ORDER_PRICE_OPEN));} return(OrderGetDouble(ORDER_PRICE_OPEN)); } datetime OrderOpenTime() { if (LoadedType()==1){return((datetime)PositionGetInteger(POSITION_TIME));} if (LoadedType()==3){return((datetime)HistoryOrderGetInteger(HistoryDealGetInteger(OrderTicket(),DEAL_POSITION_ID),ORDER_TIME_SETUP));} if (LoadedType()==4){return((datetime)HistoryOrderGetInteger(OrderTicket(),ORDER_TIME_SETUP));} return((datetime)OrderGetInteger(ORDER_TIME_SETUP)); } double OrderProfit() { if (LoadedType()==1){return(PositionGetDouble(POSITION_PROFIT));} if (LoadedType()==3){return(HistoryDealGetDouble(OrderTicket(),DEAL_PROFIT));} if (LoadedType()==4){return(0);} return(0); } double OrderSwap() { if (LoadedType()==1){return(PositionGetDouble(POSITION_SWAP));} if (LoadedType()==3){return(HistoryDealGetDouble(OrderTicket(),DEAL_SWAP));} if (LoadedType()==4){return(0);} return(0); } string OrderSymbol() { if (LoadedType()==1){return(PositionGetString(POSITION_SYMBOL));} if (LoadedType()==3){return(HistoryDealGetString(OrderTicket(),DEAL_SYMBOL));} if (LoadedType()==4){return(HistoryOrderGetString(OrderTicket(),ORDER_SYMBOL));} return(OrderGetString(ORDER_SYMBOL)); } ulong OrderTicket(ulong Ticket=0) { static ulong memory; // Ticket memory if (Ticket>0) {memory=Ticket;} // Set Ticket return(memory); // Get Ticket } int OrderType() { if (LoadedType()==1){return((int)PositionGetInteger(POSITION_TYPE));} if (LoadedType()==3){ int OT=(int)HistoryDealGetInteger(OrderTicket(),DEAL_TYPE); if(OT==1){return(0);} if(OT==0){return(1);} return(OT); } if (LoadedType()==4){return((int)HistoryOrderGetInteger(OrderTicket(),ORDER_TYPE));} return((int)OrderGetInteger(ORDER_TYPE)); } double PipValue(string symbol="") { if (symbol=="") {symbol=GetSymbol();} return(CustomPoint(symbol)/SymbolInfoDouble(symbol,SYMBOL_POINT)); /* if (symbol=="") {symbol=GetSymbol();} int digits=(int)SymbolInfoInteger(symbol,SYMBOL_DIGITS); if ((digits==2 || digits==4)) {return((int)(POINT_FORMAT/0.0001));} if ((digits==3 || digits==5)) {return((int)(POINT_FORMAT/0.00001));} if ((digits==6)) {return((int)(POINT_FORMAT/0.000001));} return(1); */ } int SellNow( string symbol, double lots, double sll, double tpl, double slp, double tpp, double slippage=0, int magic=0, string comment="" ) { bool success=OrderCreate( symbol, POSITION_TYPE_SELL, lots, 0, sll, tpl, slp, tpp, slippage, magic, comment, 0 ); return(success); } string SetSymbol(string symbol="") { if (symbol=="") {symbol=Symbol();} GetSymbol(symbol); return(symbol); } int StrToInteger(string value){return((int)StringToInteger(value));} void StringExplode(string sDelimiter, string sExplode, string &sReturn[]){ int ilBegin = -1,ilEnd = 0; int ilElement=0; while (ilEnd != -1){ ilEnd = StringFind(sExplode, sDelimiter, ilBegin+1); ArrayResize(sReturn,ilElement+1); sReturn[ilElement] = ""; if (ilEnd == -1){ if (ilBegin+1 != StringLen(sExplode)){ sReturn[ilElement] = StringSubstr(sExplode, ilBegin+1, StringLen(sExplode)); } } else { if (ilBegin+1 != ilEnd){ sReturn[ilElement] = StringSubstr(sExplode, ilBegin+1, ilEnd-ilBegin-1); } } ilBegin = StringFind(sExplode, sDelimiter,ilEnd); ilElement++; } } void StringExplode(string sDelimiter, string sExplode, int &sReturn[]){ int ilBegin = -1,ilEnd = 0; int ilElement=0; while (ilEnd != -1){ ilEnd = StringFind(sExplode, sDelimiter, ilBegin+1); ArrayResize(sReturn,ilElement+1); sReturn[ilElement] = 0; if (ilEnd == -1){ if (ilBegin+1 != StringLen(sExplode)){ sReturn[ilElement] = (int)StringToInteger(StringSubstr(sExplode, ilBegin+1, StringLen(sExplode))); } } else { if (ilBegin+1 != ilEnd){ sReturn[ilElement] = (int)StringToInteger(StringSubstr(sExplode, ilBegin+1, ilEnd-ilBegin-1)); } } ilBegin = StringFind(sExplode, sDelimiter,ilEnd); ilElement++; } } void StringExplode(string sDelimiter, string sExplode, double &sReturn[]){ int ilBegin = -1,ilEnd = 0; int ilElement=0; while (ilEnd != -1){ ilEnd = StringFind(sExplode, sDelimiter, ilBegin+1); ArrayResize(sReturn,ilElement+1); sReturn[ilElement] = 0; if (ilEnd == -1){ if (ilBegin+1 != StringLen(sExplode)){ sReturn[ilElement] = (double)StringToDouble(StringSubstr(sExplode, ilBegin+1, StringLen(sExplode))); } } else { if (ilBegin+1 != ilEnd){ sReturn[ilElement] = (double)StringToDouble(StringSubstr(sExplode, ilBegin+1, ilEnd-ilBegin-1)); } } ilBegin = StringFind(sExplode, sDelimiter,ilEnd); ilElement++; } } string StringTrim(string text) { StringTrimRight(text); StringTrimLeft(text); return(text); } double SymbolAsk(string symbol="") { if (symbol=="") {symbol=GetSymbol();} return(SymbolInfoDouble(symbol,SYMBOL_ASK)); } double SymbolBid(string symbol="") { if (symbol=="") {symbol=GetSymbol();} return(SymbolInfoDouble(symbol,SYMBOL_BID)); } double SymbolLotSize(string symbol="") { if (symbol=="") {symbol=Symbol();} return SymbolInfoDouble(symbol,SYMBOL_TRADE_CONTRACT_SIZE); } double SymbolLotStep(string symbol="") { if (symbol=="") {symbol=Symbol();} return SymbolInfoDouble(symbol,SYMBOL_VOLUME_STEP); } double SymbolMaxLot(string symbol="") { if (symbol=="") {symbol=Symbol();} return (SymbolInfoDouble(symbol,SYMBOL_VOLUME_MAX)); } double SymbolMinLot(string symbol="") { if (symbol=="") {symbol=Symbol();} return (SymbolInfoDouble(symbol,SYMBOL_VOLUME_MIN)); } double TicksData(string symbol="", int type=0, int shift=0) { //return(MarketInfo(symbol,type)); static bool collecting_ticks=false; //static string feeded_symbols[]; static string symbols[]; static int zero_sid[]; static double memoryASK[][100]; static double memoryBID[][100]; int sid=0, size=0, i=0, id=0; double ask=0, bid=0, retval=0; bool exists=false; if (ArraySize(symbols)==0) { ArrayResize(symbols,1); ArrayResize(zero_sid,1); ArrayResize(memoryASK,1); ArrayResize(memoryBID,1); symbols[0] = _Symbol; } if (type>0 && shift>0) {collecting_ticks=true;} if (collecting_ticks==false) { if (type>0 && shift==0) { // going to get ticks } else {return(0);} } if (symbol=="") {symbol=_Symbol;} if (type==0) { //StringExplode(",",symbol,feeded_symbols); //for (s=0; s<ArraySize(feeded_symbols); s++) //{ //symbol=feeded_symbols[s]; //if (symbol=="") {symbol=Symbol();} exists=false; size=ArraySize(symbols); if (size==0) {ArrayResize(symbols, 1);} for (i=0; i<size; i++) { if (symbols[i]==symbol) {exists=true; sid=i; break;} } if (exists==false) { int newsize=ArraySize(symbols)+1; ArrayResize(symbols,newsize); symbols[newsize-1]=symbol; ArrayResize(zero_sid,newsize); ArrayResize(memoryASK,newsize); ArrayResize(memoryBID,newsize); sid=newsize; } if (sid>=0) { ask=SymbolInfoDouble(symbol,SYMBOL_ASK); bid=SymbolInfoDouble(symbol,SYMBOL_BID); if (bid==0 && MQLInfoInteger(MQL_TESTER)) { Print("Ticks data collector error: "+symbol+" cannot be backtested. Only the current symbol can be backtested. The EA will be terminated."); ExpertRemove(); } if (symbol==_Symbol || ask!=memoryASK[sid][0] || bid!=memoryBID[sid][0]) { memoryASK[sid][zero_sid[sid]]=ask; memoryBID[sid][zero_sid[sid]]=bid; zero_sid[sid]=zero_sid[sid]+1; if (zero_sid[sid]==100) {zero_sid[sid]=0;} } } //} } else { if (shift<=0) { if (type==SYMBOL_ASK) { return(SymbolInfoDouble(symbol,SYMBOL_ASK)); } else if (type==SYMBOL_BID) { return(SymbolInfoDouble(symbol,SYMBOL_BID)); } else { double mid=((SymbolInfoDouble(symbol,SYMBOL_ASK)+SymbolInfoDouble(symbol,SYMBOL_BID))/2); return(mid); } } else { size=ArraySize(symbols); for (i=0; i<size; i++) { if (symbols[i]==symbol) {sid=i;} } if (shift<100) { id=zero_sid[sid]-shift-1; if(id<0) {id=id+100;} if (type==SYMBOL_ASK) { retval=(memoryASK[sid][id]); if (retval==0) {retval=SymbolInfoDouble(symbol,SYMBOL_ASK);} } else if (type==SYMBOL_BID) { retval=(memoryBID[sid][id]); if (retval==0) {retval=SymbolInfoDouble(symbol,SYMBOL_BID);} } //Print(shift+" "+id+" "+retval); } } } return(retval); } int TicksPerSecond(bool get_max = false, bool set = false) { static datetime time0 = 0; datetime time1 = TimeLocal(); static int ticks, tps, tpsmax; if (set == true) { if (time1 > time0) { if (time1-time0 > 1) { tps = 0; } else { tps = ticks; } time0 = time1; ticks = 0; } ticks++; if (tps > tpsmax) {tpsmax = tps;} } if (get_max) { return tpsmax; } return tps; } datetime TimeAtStart(string cmd="server") { static datetime local=0; static datetime server=0; if (cmd=="local") {return(local);} else if (cmd=="server") {return(server);} else if (cmd=="set") { local=TimeLocal(); server=TimeCurrent(); } return(0); } datetime TimeFromString(int mode_time, string stamp) { datetime t = 0; if (mode_time == 0) t = TimeCurrent(); else if (mode_time == 1) t = TimeLocal(); else if (mode_time == 2) t = TimeGMT(); int stamplen = StringLen(stamp); if (stamplen < 9) { int thour = TimeHour(t); int tminute = TimeMinute(t); int tseconds = TimeSeconds(t); int hour = (int)StringSubstr(stamp, 0, 2); int minute = (int)StringSubstr(stamp, 3, 2); int second = 0; if (stamplen > 5) { second = (int)StringSubstr(stamp, 6, 2); } datetime t1 = (datetime)(t - (thour-hour)*3600 - (tminute - minute)*60 - (tseconds-second)); return t1; } return StringToTime(stamp); } int TimeHour(datetime time) { MqlDateTime tm; TimeToStruct(time,tm); return(tm.hour); } int TimeMinute(datetime time) { MqlDateTime tm; TimeToStruct(time,tm); return(tm.min); } int TimeSeconds(datetime time) { MqlDateTime tm; TimeToStruct(time,tm); return(tm.sec); } void UpdateEventValues(ulong deal_ticket, string e_reason="", string e_detail="") { e_Reason(true, e_reason); e_ReasonDetail(true, e_detail); e_attrClosePrice (true,HistoryDealGetDouble(deal_ticket,DEAL_PRICE)); e_attrCloseTime (true,0); e_attrComment (true,HistoryDealGetString(deal_ticket,DEAL_COMMENT)); e_attrCommission (true,HistoryDealGetDouble(deal_ticket,DEAL_COMMISSION)); e_attrExpiration (true,0); e_attrLots (true,HistoryDealGetDouble(deal_ticket,DEAL_VOLUME)); e_attrMagicNumber(true,HistoryOrderGetInteger(HistoryDealGetInteger(deal_ticket,DEAL_POSITION_ID),ORDER_MAGIC)); e_attrOpenPrice (true,HistoryDealGetDouble(deal_ticket,DEAL_PRICE)); e_attrOpenTime (true,HistoryDealGetInteger(deal_ticket,DEAL_TIME)); e_attrProfit (true,HistoryDealGetDouble(deal_ticket,DEAL_PROFIT)); e_attrStopLoss (true,HistoryOrderGetDouble(HistoryDealGetInteger(deal_ticket,DEAL_ORDER),ORDER_SL)); e_attrSymbol (true,HistoryDealGetString(deal_ticket,DEAL_SYMBOL)); e_attrSwap (true,HistoryDealGetDouble(deal_ticket,DEAL_SWAP)); e_attrTakeProfit (true,HistoryOrderGetDouble(HistoryDealGetInteger(deal_ticket,DEAL_ORDER),ORDER_TP)); e_attrTicket (true,deal_ticket); int type=(int)HistoryDealGetInteger(deal_ticket,DEAL_TYPE); if (e_reason=="close") { if (type==0) {type=1;} else if (type==1) {type=0;} } e_attrType(true,type); } void UpdateEventValues(position &data, string e_reason="", string e_detail="") { e_Reason (true,e_reason); e_ReasonDetail (true,e_detail); e_attrClosePrice (true,data.price_current); e_attrCloseTime (true,0); e_attrComment (true,data.comment); e_attrCommission (true,data.comission); e_attrExpiration (true,0); e_attrLots (true,data.volume); e_attrMagicNumber(true,data.magic); e_attrOpenPrice (true,data.price_open); e_attrOpenTime (true,data.time); e_attrProfit (true,data.profit); e_attrStopLoss (true,data.sl); e_attrSymbol (true,data.symbol); e_attrSwap (true,data.swap); e_attrTakeProfit (true,data.tp); e_attrTicket (true,data.position_id); if (e_reason=="close") { if (data.type==0) {data.type=1;} else if (data.type==1) {data.type=0;} } e_attrType (true,(int)data.type); } void UpdateEventValues(order &data, string e_reason="", string e_detail="") { e_Reason(true, e_reason); e_ReasonDetail(true, e_detail); e_attrClosePrice (true,data.price_current); e_attrCloseTime (true,data.time_done); e_attrComment (true,data.comment); e_attrCommission (true,0); e_attrExpiration (true,data.time_expiration); e_attrLots (true,data.volume_current); e_attrMagicNumber(true,data.magic); e_attrOpenPrice (true,data.price_open); e_attrOpenTime (true,data.time_setup); e_attrProfit (true,0); e_attrStopLoss (true,data.sl); e_attrSymbol (true,data.symbol); e_attrSwap (true,0); e_attrTakeProfit (true,data.tp); e_attrTicket (true,data.ticket); e_attrType (true,(int)data.type); } double ask(string symbol="") { if (symbol=="") {symbol=GetSymbol();} return(SymbolInfoDouble(symbol,SYMBOL_ASK)); } double attrClosePrice() {return OrderClosePrice();} double attrCommission() {return OrderCommission();} double attrLots() {return OrderLots();} double attrOpenPrice() {return OrderOpenPrice();} datetime attrOpenTime() {return OrderOpenTime();} double attrProfit() {return OrderProfit();} double attrSwap() {return OrderSwap();} string attrSymbol() {return OrderSymbol();} ulong attrTicket(ulong ticket=0) {return OrderTicket(ticket);} double bid(string symbol="") { if (symbol=="") {symbol=GetSymbol();} return(SymbolInfoDouble(symbol,SYMBOL_BID)); } string e_Reason(bool set=false, string inp="") { static string mem[250]; int queue=OnTradeQueue()-1; if(set==true){ mem[queue]=inp; } return(mem[queue]); } string e_ReasonDetail(bool set=false, string inp="") {static string mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} double e_attrClosePrice(bool set=false, double inp=-1) {static double mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} datetime e_attrCloseTime(bool set=false, datetime inp=-1) {static datetime mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} string e_attrComment(bool set=false, string inp="") {static string mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} double e_attrCommission(bool set=false, double inp=0) {static double mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} datetime e_attrExpiration(bool set=false, datetime inp=0) {static datetime mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} double e_attrLots(bool set=false, double inp=-1) {static double mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} ulong e_attrMagicNumber(bool set=false, ulong inp=-1) {static ulong mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} double e_attrOpenPrice(bool set=false, double inp=-1) {static double mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} datetime e_attrOpenTime(bool set=false,datetime inp=-1) {static datetime mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} double e_attrProfit(bool set=false, double inp=0) {static double mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} double e_attrStopLoss(bool set=false, double inp=-1) {static double mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} double e_attrSwap(bool set=false, double inp=0) {static double mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} string e_attrSymbol(bool set=false, string inp="") {static string mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} double e_attrTakeProfit(bool set=false, double inp=-1) {static double mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} ulong e_attrTicket(bool set=false, ulong inp=-1) {static ulong mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} int e_attrType(bool set=false, int inp=-1) {static int mem[250];int queue=OnTradeQueue()-1;if(set==true){mem[queue]=inp;}return(mem[queue]);} double toDigits(double pips,string symbol="") { if (symbol=="") {symbol=GetSymbol();} return( NormalizeDouble( pips*PipValue(symbol)*SymbolInfoDouble(symbol,SYMBOL_POINT), (int)SymbolInfoInteger(symbol,SYMBOL_DIGITS) ) ); } double toPips(double digits,string symbol="") { if (symbol=="") {symbol=GetSymbol();} return(digits/(PipValue(symbol)*SymbolInfoDouble(symbol,SYMBOL_POINT))); } int CustomDigits(string symbol="") { if (symbol == "") {symbol = GetSymbol();} double point = CustomPoint(symbol); if (point==0) {return(0);} int digits=0; while(true) { if (point>=1) {break;} point = point*10; digits++; } return(digits); } double CustomPoint(string symbol="") { static string symbols[]; static double points[]; static string last_symbol = "-"; static double last_point = 0; static int last_i = 0; static int size = 0; //-- variant A) use the cache for the last used symbol if (symbol == "") {symbol = GetSymbol();} if (symbol == last_symbol) { return(last_point); } //-- variant B) search in the array cache int i = last_i; int start_i = i; bool found = false; if (size>0) { while(true) { if (symbols[i] == symbol) { last_symbol = symbol; last_point = points[i]; last_i = i; return(last_point); } i++; if (i >= size) { i=0; } if (i == start_i) {break;} } } //-- variant C) add this symbol to the cache i = size; size = size+1; ArrayResize(symbols, size); ArrayResize(points, size); symbols[i] = symbol; points[i] = 0; last_symbol = symbol; last_i = i; //-- unserialize rules from FXD_POINT_FORMAT_RULES string rules[]; StringExplode(",", POINT_FORMAT_RULES, rules); int rules_count = ArraySize(rules); if (rules_count > 0) { string rule[]; for (int r=0; r < rules_count; r++) { StringExplode("=", rules[r], rule); //-- a single rule must contain 2 parts, [0] from and [1] to if (ArraySize(rule) != 2) {continue;} double from = StringToDouble(rule[0]); double to = StringToDouble(rule[1]); //-- "to" must be a positive number, different than 0 if (to <= 0) {continue;} //-- "from" can be a number or a string // a) string if (from == 0 && StringLen(rule[0]) > 0) { string s_from = rule[0]; int pos = StringFind(s_from, "?"); if (pos < 0) // ? not found { if (StringFind(symbol, s_from) == 0) {points[i] = to;} } else if (pos == 0) // ? is the first symbol => match the second symbol { if (StringFind(symbol, StringSubstr(s_from, 1), 3) == 3) {points[i] = to;} } else if (pos > 0) // ? is the second symbol => match the first symbol { if (StringFind(symbol, StringSubstr(s_from, 0, pos)) == 0) {points[i] = to;} } } // b) number if (from == 0) {continue;} if (SymbolInfoDouble(symbol, SYMBOL_POINT) == from) { points[i] = to; } } } if (points[i] == 0) {points[i] = SymbolInfoDouble(symbol, SYMBOL_POINT);} last_point=points[i]; return(last_point); } // Blocks Lookup Functions string fxdBlocksLookupTable[8] = {"3","7","8","9","10","11","12","14"}; int fxdBlocksLookupTableTranslateID(string id) { return ArraySearch(fxdBlocksLookupTable, id); } string fxdBlocksLookupTableTranslateID(int id) { return fxdBlocksLookupTable[id]; } int fxdBlockToggle(int id) { disabled[id] = !disabled[id]; return disabled[id]; } void fxdBlockTurnOn(int id) { disabled[id] = false; } void fxdBlockTurnOff(int id) { disabled[id] = true; } bool fxdBlockRun(int id=0) { switch(id) { case 0: block0(); break; case 1: block1(); break; case 2: block2(); break; case 3: block3(); break; case 4: block4(); break; case 5: block5(); break; case 6: block6(); break; case 7: block7(); break; default: return false; } return true; } void fxdBlockGetNextBlocks(int id, int &list[]) { switch(id) { case 0: ArrayResize(list, 1); list[0]=7; break; case 2: ArrayResize(list, 1); list[0]=1; break; case 3: ArrayResize(list, 1); list[0]=2; break; case 4: ArrayResize(list, 1); list[0]=0; break; case 5: ArrayResize(list, 1); list[0]=0; break; case 6: ArrayResize(list, 1); list[0]=0; break; default: ArrayResize(list, 0); } } void fxdBlockGetNextBlocks(string id, int &list[]) { fxdBlockGetNextBlocks(fxdBlocksLookupTableTranslateID(id), list); } class FxdWaiting { private: int beginning_id; ushort bank [][2][20]; // 2 banks, 20 possible parallel waiting blocks per chain of blocks ushort state [][2]; // second dimention values: 0 - count of the blocks put on hold, 1 - current bank id public: void Initialize(int count) { ArrayResize(bank, count); ArrayResize(state, count); } bool Run(int id = 0) { beginning_id = id; int range = ArrayRange(state, 0); if (range < id+1) { ArrayResize(bank, id+1); ArrayResize(state, id+1); // set values to 0, otherwise they have random values for (int ii=range; ii<id+1; ii++) { state[ii][0] = 0; state[ii][1] = 0; } } // are there blocks put on hold? int count = state[id][0]; int bank_id = state[id][1]; // if no block are put on hold -> escape if (count == 0) {return false;} else { state[id][0] = 0; // null the count state[id][1] = (bank_id) ? 0 : 1; // switch to the other bank } //== now we will run the blocks put on hold for (int i = 0; i < count; i++) { int block_to_run = bank[id][bank_id][i]; //Print(count + " " + block_to_run); fxdBlockRun(block_to_run); } //state[id][0] = 0; return true; } void Accumulate(int block_id = 0) { int count = ++state[beginning_id][0]; int bank_id = state[beginning_id][1]; bank[beginning_id][bank_id][count-1] = (ushort)block_id; } }; FxdWaiting fxdWait; //+------------------------------------------------------------------+ //| END | //| Created with fxDreema EA Builder https://fxdreema.com/ | //+------------------------------------------------------------------+ /*<fxdreema:eNrtW1tv2zgW/itB5mUWSAe6+qICA+TS7A7gNNk4HWCeDFqiHW5kUUtSbT1F/vse3iRKsZoEUTrtrPvQ2jyH50Ke7/CjKqNkknzhie8nhyktCpwKQgt++BYlo+QLSXz4EEqFODlcEZxnh295Mk4Oz96dH3+Y3chvo+SQ04qlWH4BM2MzKBBbY2EGJ4dv70kSPN/aZJe1qbIWPt9a+MBakBz6njIXDWXOV+biocwFytzoWeZg46Id6wYO7u/V8DKn6Z3a5oncZrmUgS/NT1QdCEZzJY1tcVyyDDM+T2mpooUo1oxWpTJci/9ph6SVJGlpzLebJc1rA2FyiPLchD3/4+Lkcia/eMmhnXBSbfklm+NcRsKTCIKm4hYy4MlUB4lIgZmR3ZD0znjOCEfLHMMKLRNPrxL+LDDTZe0lX+7VwpLMXXYwSfgirbigGztxYtdJL6Bc3y0XeGP8bGiG84UxA3be0yvKicEPDIHfEjG0weAbTFPKMu7kCOZKAoir44Q15SnKsREWlG2QWiEfZnAsbQnKVBKhxqYK35fbHTifw/qz3msukKjUtMAUEC3oaiVVPb14GRKojuxeqQgidCQ6s4PSpGaCg/lqVYxNsJHjlVCFN4n19gpaqsgiT5oEjU+ICGdPaCXKSnDXBoExqeHrsLD5qgyAxZTb5CEsWcQovZM1VmRvUppTZiDx0/H0dHp+bsq0lkAeP9mEVlA9bz5hsr4Vbt5+IItMlvIbLrY6f1uRUQOMBZQTQ00xQe18RIzIoqtLDCA77gPVVI7BJAWXC6iiLqJiI9sFJYjnArE7LOzEFpK06IlI0tauGF0R4YSxoQXemrU8pRuoO9ugflX/BnbO8QbWXvcWcO1BmKUaX+T4I87tuKt7RUrudt2hoTweAspg8PQWp3cfdOSvjeWgH8tD4DeITToHenMOfq4KhlFO/sTZPx5Fczxuo9mP4/9TNE/60Oz7398ZqZNXDi9IUQnMzZp5duYFRrxieBfsVVMAoDrwdidKtYciWLUz/JEge0bAeGSNHTNGP53WOyepZs7OMC6vSHH3Cl1gMtCBfoPusO4Br36gj552oEuWatdcUsxmfFSPD9I0wMJpTjk2TUMuf00B+ONdo8sB4udzAO9lXSMaTYJl1O0aUrJSf75p75j29Y7xj9Y6dsN8cARPh0BwZGr4m7Hy+Akg9npAPBBw/bgG7pPROgraaA2j+AdBqypaeRUeHLG+1wfZqHMl7gNlC3daxrebhW9L53eaVxv3/F2RzzhrS+dA0gyavV98m0ojuyb8ztDp2GtPtSKYGvwSK1loZVeYpVgf36Ek4nrqxIpPJMAcHXtFljlnbmCmDBrg+nIx8wov1N82cWfxbEn/buVOZhD66eX19bvTm98u3zf1fa9DO5ercy37zoeCCLswkZzu+bbyG6UznGuQQHCBZ+WbzcX6N5hOUD6j+lB3AphohYsqF6TMt5fFjHLb/AJly+tqODcEBXPdX6TOcZZJFy0jOo5pR6FloxXqNQbE7rAwbon7YvDDYNSfbGhVruGuxnhdhCjXn7WNc7KkvTaCQKqcQW/cLDETjyxsrdfjMFARzdCSVuktZrjf3KitOCNc2Orzj4Kj8Cg6io9GzVo3qn25Ktdz/N8TxPEOh74RN1sBs0NwNWrN3rkVgRH2uR5Z1H0oS8xmZENat3eYPoe2LP3aVhHJQ6jAXbG9WjuIHjtSDeebq44K+MlyqzQIouvMv4Jn6bUc1Gs7pa/5zQb16zagrziO3MvEro1sKezYymlLrjdzPusoBXIzG7Vvtp3Sbzmw36dtqPScDez5aVsKVuY5KUu0xu51F/bpYntKNxt7dkIeM1qsneenLyTLviSZ3g6a4FJo83ztxRx6pO4J7+mn16bO0fPvv0PQ5bHK76DQCX79Tjs4SfafSZI9b+JpSHwvJNl/JZIc7EnyniTvSfKeJO9J8p4k70ny354kg7X5LWXiL2DJ/gAsWbYQnOd/ X5o80Qk+iSd33/8IX/5/P88lyquV950R5eCViHK4J8p7orwnynuivCfKe6K8J8p7ovx6RDnYE+VhiXIYeB2iHO+JctRHlAOdjKogBoffJZtRqIUbsrHlwNW4PUOlYC4Qc/ujgCBMFddik7znJaY/uHP/wIh1EnLsFvp1KedwrYVnaOuKXJv/ohVrtcLYNareuOqyt1o8x7AkWfeNTCl+V2Q7Eh3XQidNvzOvm2TgWOyk6NWiToKNtQfphY05N7mucEdqcS28xrmMss1bR65YhdqWR64c4uX9xmXQD0ixY7z1Hpz/UEEH71h4YVMObFNuV6ruaO6mdpt0NMR7c2aXz0kuDJ5+3LffbWUerOpsHnl6EbWa8nT8rV93X3o4mIR/8evu9w/6r1aeyO0TghRrnbqnsgHHJaP/walYFEj3YzmU2nZihWJb2pLAn+F+IqxCKssPFevK8B8I9+Lfs7h+TIAEXqQMI2F+2haPYt+LR6ErhxImq62WjydR7E/Cqb1uoTVJF9y2+0he4uOJrew1Q+XtgjICJKt5r1XWDS1v6AkVCkZ601AqyEeIpQfYgeSHhBNYy0VOlgyx7cJ9hNNgTlJwq6mA2acnSxHqly14q8fUa1NSUogFq8zumc7RVOWK6ehjxUN18w9kebfI6b3+pWd30kRP8rrzRmbcN8QZVrHiQIoJExXKYaVp/TOfgjYL40gXMimFEMM+p9oEhlTXuEi3O4xInY58wczvjJzHIV0VlD04MeH2XAguS6Y+Mc0OKgNamm5T2BwoU0Iz23vlwwdbzVDChNUFY1Go2z7UWiGaH1DKfqjf/VTM1GnajUQfC9DKHJRwwQBqNQwwTxkpWx6Vhfoy4nRA89/oPf6CV/EX9voLB/dn4LLD39p5hNrxl9Fq2ZwLj/urzyHTxZzftnUdP9QYKABPY6zbpn3zG0IO8L9dIPl4thtSWzpsODCKoCE7RwP0APlMSk2WYLn/H4pUFwk= :fxdreema>*/