//+------------------------------------------------------------------------------+// //) ____ _ _ ____ ____ ____ ____ __ __ __ ___ _____ __ __ (// //) ( ___)( \/ )( _ \( _ \( ___)( ___)( \/ ) /__\ / __)( _ )( \/ ) (// //) )__) ) ( )(_) )) / )__) )__) ) ( /(__)\ ( (__ )(_)( ) ( (// //) (__) (_/\_)(____/(_)\_)(____)(____)(_/\/\_)(__)(__)()\___)(_____)(_/\/\_) (// //) http://fxdreema.com Copyright 2016, fxDreema (// //+------------------------------------------------------------------------------+// #property copyright "" #property link "https://fxdreema.com" //#property strict /************************************************************************************************************************/ // +------------------------------------------------------------------------------------------------------------------+ // // | 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 "mt4-6065" //-- // Point Format Rules #define POINT_FORMAT_RULES "0.001=0.01,0.00001=0.0001,0.000001=0.0001" //-- // Events On/Off #define ENABLE_EVENT_TICK 0 // enable "Tick" event #define ENABLE_EVENT_TRADE 1 // enable "Trade" event #define ENABLE_EVENT_TIMER 0 // enable "Timer" event //-- // Virtual Stops #define VIRTUAL_STOPS_ENABLED 0 // enable virtual stops #define VIRTUAL_STOPS_TIMEOUT 0 // virtual stops timeout #define USE_EMERGENCY_STOPS "no" // "yes" to use emergency (hard stops) when virtual stops are in use. "always" to use EMERGENCY_STOPS_ADD as emergency stops when there is no virtual stop. #define EMERGENCY_STOPS_REL 0 // use 0 to disable hard stops when virtual stops are enabled. Use a value >=0 to automatically set hard stops with virtual. Example: if 2 is used, then hard stops will be 2 times bigger than virtual ones. #define EMERGENCY_STOPS_ADD 0 // add pips to relative size of emergency stops (hard stops) //-- // Settings for events #define ON_TRADE_REALTIME 0 // #define ON_TIMER_PERIOD 60 // 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_BARSHIFT1 807 #define OBJPROP_BARSHIFT2 808 #define OBJPROP_BARSHIFT3 809 #define SEL_CURRENT 0 #define SEL_INITIAL 1 //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // Imports, Constants, Variables // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// //-- // Constants (Input Parameters) input int MagicStart = 6264; // Magic Number, kind of... class c { public: static int MagicStart; }; int c::MagicStart; //-- // Variables (Global Variables) class v { public: }; //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; bool FXD_CHART_IS_OFFLINE = false; bool FXD_ONTIMER_TAKEN = false; bool FXD_ONTIMER_TAKEN_IN_MILLISECONDS = false; double FXD_ONTIMER_TAKEN_TIME = 0; bool USE_VIRTUAL_STOPS = VIRTUAL_STOPS_ENABLED; string FXD_CURRENT_SYMBOL = ""; int FXD_BLOCKS_COUNT = 10; datetime FXD_TICKSKIP_UNTIL = 0; //- for use in OnChart() event struct fxd_onchart { int id; long lparam; double dparam; string sparam; }; fxd_onchart FXD_ONCHART; //-- // Variables for On/Off bool disabled[10]; /************************************************************************************************************************/ // +------------------------------------------------------------------------------------------------------------------+ // // | 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::MagicStart = MagicStart; // 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(); 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(); //-- disable virtual stops in optimization, because graphical objects does not work // http://docs.mql4.com/runtime/testing if (IsOptimization()) { USE_VIRTUAL_STOPS = false; } //-- 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..."); //-- working with offline charts if (MQLInfoInteger(MQL_PROGRAM_TYPE) == PROGRAM_EXPERT) { FXD_CHART_IS_OFFLINE = ChartGetInteger(0, CHART_IS_OFFLINE); } if (MQLInfoInteger(MQL_PROGRAM_TYPE) != PROGRAM_SCRIPT) { if (FXD_CHART_IS_OFFLINE == true || (ENABLE_EVENT_TRADE == 1 && ON_TRADE_REALTIME == 1)) { FXD_ONTIMER_TAKEN = true; EventSetMillisecondTimer(1); } 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 // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// 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) if (OrdersTotal()) // this makes things faster { if (USE_VIRTUAL_STOPS) {VirtualStopsDriver();} ExpirationDriver(); OCODriver(); // Check and close OCO orders } if (ENABLE_EVENT_TRADE) {OnTradeListener();} FeedStatistics(); // skip ticks if (TimeLocal() < FXD_TICKSKIP_UNTIL) {return;} return; } //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // This function is executed on a period basis // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// void OnTimer() { //-- to simulate ticks in offline charts, Timer is used instead of infinite loop //-- the next function checks for changes in price and calls OnTick() manually if (FXD_CHART_IS_OFFLINE && RefreshRates()) { OnTick(); } if (ON_TRADE_REALTIME == 1) { OnTradeListener(); } static datetime t0 = 0; datetime t = 0; bool ok = false; if (FXD_ONTIMER_TAKEN) { if (FXD_ONTIMER_TAKEN_TIME > 0) { if (FXD_ONTIMER_TAKEN_IN_MILLISECONDS == true) { t = GetTickCount(); } else { t = TimeLocal(); } if ((t - t0) >= FXD_ONTIMER_TAKEN_TIME) { t0 = t; ok = true; } } if (ok == false) { return; } } } //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; } //VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV// // This function is executed on trade events - open, close, modify // //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// void EventTrade() { block0(0); OnTradeQueue(-1); } /************************************************************************************************************************/ // +------------------------------------------------------------------------------------------------------------------+ // // | Functions of blocks | // // | Functions that contain the actual code of the blocks and their input parameters as well | // // +------------------------------------------------------------------------------------------------------------------+ // /************************************************************************************************************************/ // Block 11 void block0(int _parent_=0) { if (disabled[0] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=0; static string OrdersScope = "group"; static string OrdersGroup = ""; static string SymbolScope = "symbol"; static string SYMBOL; SYMBOL = CurrentSymbol(); static string BuysOrSells = "both"; bool exist = false; for (int pos=OrdersTotal()-1; pos>=0; pos--) { if (!OrderSelect(pos, SELECT_BY_POS, MODE_TRADES)) {continue;} if (FilterOrderBy(OrdersScope, OrdersGroup, SymbolScope, SYMBOL, BuysOrSells)) { exist = true; break; } } if (exist == false) {/* Orange Output */} else { block1(0); } } // Block 12 void block1(int _parent_=0) { if (disabled[1] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=1; static string OnProfitMode = "fixed"; double OnProfitPips = 12; double OnProfitPercentSL = 50; double OnProfitPercentTP = 50; static string BEoffsetMode = "pips"; double BEPoffsetPips = 2; static string OrdersScope = "group"; static string OrdersGroup = ""; static string SymbolScope = "symbol"; static string SYMBOL; SYMBOL = CurrentSymbol(); static string BuysOrSells = "both"; for (int pos=OrdersTotal()-1; pos>=0; pos--) { if (!OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) {continue;} if (!FilterOrderBy(OrdersScope,OrdersGroup, SymbolScope,SYMBOL, BuysOrSells)) {continue;} double PipsToSet=0; SetSymbol(attrSymbol()); if (OnProfitMode=="fixed") {PipsToSet = OnProfitPips;} else if (OnProfitMode=="percentSL") {PipsToSet = toPips(MathAbs(attrOpenPrice()-attrStopLoss()))*OnProfitPercentSL/100;} else if (OnProfitMode=="percentTP") {PipsToSet = toPips(MathAbs(attrOpenPrice()-attrTakeProfit()))*OnProfitPercentTP/100;} if ( (attrType()==OP_BUY && (SymbolAsk()-attrOpenPrice() > toDigits(PipsToSet)) && (attrStopLoss() < attrOpenPrice())) || (attrType()==OP_SELL && (attrOpenPrice()-SymbolBid() > toDigits(PipsToSet)) && ((attrStopLoss() > attrOpenPrice()) || attrStopLoss()==0)) ) { double be_offset=0; if (BEoffsetMode=="pips") { be_offset=toDigits(BEPoffsetPips); if (attrType()==OP_SELL ) {be_offset=be_offset*(-1);} } ModifyStops(attrTicket(),attrOpenPrice()+be_offset,attrTakeProfit()); } } block2(1); } // Block 13 void block2(int _parent_=0) { if (disabled[2] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=2; static string OrdersScope = "group"; static string OrdersGroup = ""; static string SymbolScope = "symbol"; static string SYMBOL; SYMBOL = CurrentSymbol(); static string BuysOrSells = "both"; int TrailWhat = 1; int TrailingReferencePrice = 0; static string TrailingStopMode = "dynamic"; double tStopPips = 40; double tStopMoney = 10; static string tStopMultiple = "20/5, 30/10"; double tStopPercentTP = 100; double tStopPercentProfit = 50; static string TrailingStepMode = "fixed"; double tStepPips = 1; double tStepPercentTS = 10; static string TrailingStartMode = "none"; double tStartPips = 10; double tStartPercentTS = 100; double tStartPercentSL = 10; double tStartPercentTP = 10; static string TrailingTPmode = "none"; double tTPpips = 20; double tTPpercentTS = 200; color LevelColor = DeepPink; for (int pos=0; pos<OrdersTotal(); pos++) { if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) { if (FilterOrderBy(OrdersScope,OrdersGroup, SymbolScope,SYMBOL, BuysOrSells)) { SetSymbol(attrSymbol()); int polarity=1; // 1 = buy, -1 = sell double askbid=0; double bidask=0; double sltp=0; double tpsl=0; if (TrailWhat>0) { sltp=attrStopLoss(); tpsl=attrTakeProfit(); } else { sltp=attrTakeProfit(); tpsl=attrStopLoss(); } if (attrType()==OP_BUY) { polarity=1; askbid=SymbolAsk(); bidask=SymbolBid(); if (TrailingReferencePrice == 1) { askbid=SymbolBid(); bidask=SymbolAsk(); } } else if (attrType()==OP_SELL) { polarity=-1; askbid=SymbolBid(); bidask=SymbolAsk(); if (TrailingReferencePrice == 1) { askbid=SymbolAsk(); bidask=SymbolBid(); } } if (TrailingReferencePrice == 2) { askbid = (SymbolAsk() + SymbolBid()) / 2; bidask = askbid; } // Trailing Stop Size double t_stop=0; if (TrailingStopMode=="fixed") {t_stop = tStopPips;} else if (TrailingStopMode=="percentTP") {t_stop = (MathAbs(toPips(attrOpenPrice()-tpsl)))*(tStopPercentTP/100);} else if (TrailingStopMode=="percentProfit") {t_stop = (MathAbs(toPips(askbid-attrOpenPrice())))*(tStopPercentProfit/100);} else if (TrailingStopMode=="dynamic" || TrailingStopMode=="dynamicSize" || TrailingStopMode=="function") { // TODO: ftStop is now used for both, dynamic and dynamicSize - separate it t_stop=ic_indicators_iMA((int)20, (int)0, (int)MODE_SMA, (int)PRICE_CLOSE, (string)CurrentSymbol(), (int)PERIOD_D1, (int)0); if (TrailingStopMode=="dynamic") { if (polarity==1) {t_stop=toPips(SymbolAsk()-t_stop);} else {t_stop=toPips(t_stop-SymbolBid());} } } else if (TrailingStopMode == "dynamicDigits") { t_stop=0; t_stop = toPips(t_stop); } else if (TrailingStopMode=="money") { t_stop=10; double lotsize = MarketInfo(attrSymbol(), MODE_LOTSIZE); double tickvalue = (MarketInfo(attrSymbol(), MODE_TICKVALUE)/MarketInfo(attrSymbol(), MODE_TICKSIZE))*MarketInfo(attrSymbol(), MODE_POINT); t_stop = t_stop / (attrLots() * PipValue()); t_stop = t_stop / tickvalue; } // Trailing Start Level double t_start=0; if (TrailingStartMode=="none") {t_start = -EMPTY_VALUE;} else if (TrailingStartMode=="zero") {t_start = 0;} else if (TrailingStartMode=="fixed") {t_start = tStartPips;} else if (TrailingStartMode=="percentTS") {t_start = t_stop*(tStartPercentTS/100);} else if (TrailingStartMode=="percentTP") {t_start = (MathAbs(toPips(attrOpenPrice()-tpsl)))*(tStartPercentTP/100);} else if (TrailingStartMode=="percentSL") {t_start = (MathAbs(toPips(attrOpenPrice()-sltp)))*(tStartPercentSL/100);} else if (TrailingStartMode=="function") {t_start = 0;} // Trailing Step Size double t_step=0; if (TrailingStepMode=="fixed") {t_step = tStepPips;} else if (TrailingStepMode=="percentTS") {t_step = t_stop*(tStepPercentTS/100);} // Trailing Take Profit double t_opp=0; if (TrailingTPmode=="none") {t_opp = tpsl;} else if (TrailingTPmode=="clear") {t_opp = 0;} else if (TrailingTPmode=="fixed") {t_opp = TrailWhat*(attrOpenPrice()+(polarity*toDigits(tTPpips)));} else if (TrailingTPmode=="percentTS") {t_opp = TrailWhat*(attrOpenPrice()+(polarity*toDigits(t_stop*(tTPpercentTS/100))));} else if (TrailingTPmode=="function") {t_opp = ic_value_value((double)0);} // this mode is located here because it overrides Start, Stop and Step // the idea here is to use Start as target profits if (TrailingStopMode == "multiple") { bool next = false; string tmp1[]; string tmp2[]; StringExplode(",", tStopMultiple, tmp1); for (int i=ArraySize(tmp1)-1; i>=0; i--) { StringExplode("/", tmp1[i], tmp2); if (ArraySize(tmp2) != 2) {continue;} // trailing start will be used as the treshold level double new_start = StrToDouble(StringTrim(tmp2[0])); // the regular trailing start is bigger than this level -> skip if (new_start < t_start) {continue;} // check whether the current price<->op distance is bigger than some of the desired levels if (polarity*TrailWhat*toPips(askbid-attrOpenPrice()) >= new_start) { // and setup parameters so SL will be moved //t_step = 0; t_start = new_start; t_stop = polarity*TrailWhat*toPips(askbid-attrOpenPrice()) - StrToDouble(StringTrim(tmp2[1])); next = true; break; } } if (next == false) {continue;} } double stopslevel=MarketInfo(attrSymbol(),MODE_STOPLEVEL); stopslevel=toDigits(stopslevel/PipValue(),attrSymbol()); double fsl=0; double limit=0; if (t_stop<=0) {continue;} if (attrType()==OP_BUY && TrailWhat*(askbid-attrOpenPrice())>toDigits(t_start)) { if ((TrailWhat*(askbid-sltp)>=toDigits(t_stop+t_step)) || sltp==0) { // consider minimum stop fsl = MathAbs(askbid-toDigits(t_stop)); limit = bidask - stopslevel*TrailWhat; if (fsl>limit) {fsl=limit;} if (TrailWhat==1) { // trail SL if (sltp==0 || sltp<fsl) { ModifyStops(attrTicket(),askbid-toDigits(t_stop),t_opp,LevelColor); } } else { // trail TP if (sltp==0 || sltp>fsl) { ModifyStops(attrTicket(),t_opp,askbid+toDigits(t_stop),LevelColor); } } } } else if (attrType()==OP_SELL && TrailWhat*(attrOpenPrice()-askbid)>toDigits(t_start)) { if ((TrailWhat*(sltp-askbid)>=toDigits(t_stop+t_step)) || sltp==0) { // consider minimum stop fsl = MathAbs(askbid+toDigits(t_stop)); limit = bidask+stopslevel*TrailWhat; if (fsl<limit) {fsl=limit;} if (TrailWhat==1) { // trail SL if (sltp==0 || sltp>fsl) { ModifyStops(attrTicket(),askbid+toDigits(t_stop),t_opp,LevelColor); } } else { // trail TP if (sltp==0 || sltp<fsl) { ModifyStops(attrTicket(),t_opp,askbid-toDigits(t_stop),LevelColor); } } } } } } } block8(2); block9(2); } // Block 14 void block3(int _parent_=0) { if (disabled[3] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=3; int crossover = 0; int crosswidth = 1; bool o1=false, o2=false; for (int i=0; i<=crossover; i++) { // i=0 - normal pass, i=1 - crossover pass // Left operand of the condition IndicatorMoreShift(true,i*crosswidth); double Lo=ic_prices_prices((string)"ASK", (int)0, (string)CurrentSymbol()); if (MathAbs(Lo) == EMPTY_VALUE) {return;} // Right operand of the condition IndicatorMoreShift(true,i*crosswidth); double Ro=ic_indicators_iBands((int)20, (int)0, (double)2, (int)PRICE_CLOSE, (int)1, (string)CurrentSymbol(), (int)CurrentTimeframe(), (int)0); if (MathAbs(Ro) == EMPTY_VALUE) {return;} // Conditions if (Lo>=Ro) {if(i==0){o1=true;}}else{if(i==0){o2=true;}else{o2=false;}} if (crossover==1) {if (Ro>=Lo) {if(i==0){o2=true;}}else{if(i==1){o1=false;}}} } IndicatorMoreShift(true,0); // reset // Outputs if (o1==true) {/* Orange Output */} else if (o2==true) { block4(3); } } // Block 15 void block4(int _parent_=0) { if (disabled[4] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=4; double Slippage = 4; color ArrowColor = DeepPink; if (FXD_BREAK==true) {return;} LoopedResume(); bool success=false; if (attrType()<2) { success=CloseTrade(attrTicket(),Slippage,ArrowColor); } else { success=DeleteOrder(attrTicket(),ArrowColor); } if (success==true) {/* Orange Output */} else {/* Gray Output */} } // Block 16 void block5(int _parent_=0) { if (disabled[5] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=5; int crossover = 0; int crosswidth = 1; bool o1=false, o2=false; for (int i=0; i<=crossover; i++) { // i=0 - normal pass, i=1 - crossover pass // Left operand of the condition IndicatorMoreShift(true,i*crosswidth); double Lo=ic_prices_prices((string)"ASK", (int)0, (string)CurrentSymbol()); if (MathAbs(Lo) == EMPTY_VALUE) {return;} // Right operand of the condition IndicatorMoreShift(true,i*crosswidth); double Ro=ic_indicators_iBands((int)20, (int)0, (double)2, (int)PRICE_CLOSE, (int)2, (string)CurrentSymbol(), (int)CurrentTimeframe(), (int)0); if (MathAbs(Ro) == EMPTY_VALUE) {return;} // Conditions if (Lo<=Ro) {if(i==0){o1=true;}}else{if(i==0){o2=true;}else{o2=false;}} if (crossover==1) {if (Ro<=Lo) {if(i==0){o2=true;}}else{if(i==1){o1=false;}}} } IndicatorMoreShift(true,0); // reset // Outputs if (o1==true) {/* Orange Output */} else if (o2==true) { block4(5); } } // Block 17 void block6(int _parent_=0) { if (disabled[6] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=6; static string OrdersScope = "group"; static string OrdersGroup = ""; static string SymbolScope = "symbol"; static string SYMBOL; SYMBOL = CurrentSymbol(); static string BuysOrSells = "buys"; bool exist = false; for (int pos=OrdersTotal()-1; pos>=0; pos--) { if (!OrderSelect(pos, SELECT_BY_POS, MODE_TRADES)) {continue;} if (FilterOrderBy(OrdersScope, OrdersGroup, SymbolScope, SYMBOL, BuysOrSells)) { exist = true; break; } } if (exist == true) {/* Orange Output */} else { block3(6); } } // Block 18 void block7(int _parent_=0) { if (disabled[7] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=7; static string OrdersScope = "group"; static string OrdersGroup = ""; static string SymbolScope = "symbol"; static string SYMBOL; SYMBOL = CurrentSymbol(); static string BuysOrSells = "sells"; bool exist = false; for (int pos=OrdersTotal()-1; pos>=0; pos--) { if (!OrderSelect(pos, SELECT_BY_POS, MODE_TRADES)) {continue;} if (FilterOrderBy(OrdersScope, OrdersGroup, SymbolScope, SYMBOL, BuysOrSells)) { exist = true; break; } } if (exist == true) {/* Orange Output */} else { block5(7); } } // Block 19 void block8(int _parent_=0) { if (disabled[8] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=8; static string OrdersScope = "group"; static string OrdersGroup = ""; static string SymbolScope = "symbol"; static string SYMBOL; SYMBOL = CurrentSymbol(); static string BuysOrSells = "both"; static string LoopDirection = "newest-to-oldest"; int LoopSkip = 0; int LoopEvery = 0; int LoopLimit = 0; int PassEnd = 0; int saved_ticket = attrTicketInLoop(); // This ticket number will be reloaded at the end of this loop, so if we are in another overlapping loop - it will continue using it's last used ticket number int count=0; int skip=-1; int every=0; double profits_list[]; ArrayResize(profits_list,0); int tickets_list[]; ArrayResize(tickets_list,0); bool get_from_array = false; int i_start = 0; int i_stop = 0; int i_inc = 0; int i = 0; if (LoopDirection == "newest-to-oldest") { i_start = OrdersTotal()-1; i_stop = 0; i_inc = -1; } else if (LoopDirection == "oldest-to-newest") { i_start = 0; i_stop = OrdersTotal()-1; i_inc = 1; } else if (LoopDirection=="profitable-first" || LoopDirection=="profitable-last") { int last_index = -1; get_from_array = true; // Collect data for (int pos=0; pos<OrdersTotal(); pos++) { if (!OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) continue; if (!FilterOrderBy(OrdersScope,OrdersGroup, SymbolScope,SYMBOL, BuysOrSells)) continue; int size = ArraySize(tickets_list); int ticket = attrTicket(); double profit = attrProfit() + attrSwap() + attrCommission(); ArrayResize(tickets_list,size+1); ArrayResize(profits_list,size+1); tickets_list[size] = ticket; profits_list[size] = profit; last_index = size; int is_smallest = true; if (last_index == 0) continue; // shift for (i=0; i<last_index; i++) { if (profit < profits_list[i]) { if (i==0 || profit >= profits_list[i-1]) { for (int j=last_index; j>i; j--) { profits_list[j] = profits_list[j-1]; tickets_list[j] = tickets_list[j-1]; } profits_list[i] = profit; tickets_list[i] = ticket; break; } } } // At this moment array index 0 is the least profitable trade } //if (LoopDirection=="profitable-first") i_start = last_index; i_stop = 0; i_inc = -1; if (LoopDirection=="profitable-last") { i_start = 0; i_stop = last_index; i_inc = 1; } } i = i_start - i_inc; while(true) { if (i == i_stop) {break;} i = i + i_inc; // simulate break and continue functionality in loop blocks if (FXD_CONTINUE==true) {FXD_BREAK=false; FXD_CONTINUE=false;} else if (FXD_BREAK==true) {FXD_BREAK=false; FXD_CONTINUE=false; break;} if (get_from_array) { if (!OrderSelect(tickets_list[i],SELECT_BY_TICKET,MODE_TRADES)) {continue;} } else if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) {continue;} if (!FilterOrderBy(OrdersScope,OrdersGroup, SymbolScope,SYMBOL, BuysOrSells)) {continue;} skip++; if (LoopSkip <= skip && (count<LoopLimit || LoopLimit==0)) { if (LoopEvery>0) { every++; if (every<LoopEvery) {continue;} else {every=0;} } count++; attrTicketInLoop(attrTicket()); /* Orange Output */ if (count==LoopLimit) break; } if (LoopDirection == "oldest-to-newest") { // if trade was closed meanwhile if (i_stop > OrdersTotal()-1) { i_stop = OrdersTotal()-1; i--; } } } attrTicketInLoop(saved_ticket); // Reloading Ticket number from the overlapping loop (if any) FXD_BREAK=false; FXD_CONTINUE=false; if (PassEnd==0 || (PassEnd==1 && count>0) || (PassEnd==2 && count==0)) { block6(8); } } // Block 20 void block9(int _parent_=0) { if (disabled[9] || FXD_BREAK) {return;} FXD_CURRENT_FUNCTION_ID=9; static string OrdersScope = "group"; static string OrdersGroup = ""; static string SymbolScope = "symbol"; static string SYMBOL; SYMBOL = CurrentSymbol(); static string BuysOrSells = "both"; static string LoopDirection = "newest-to-oldest"; int LoopSkip = 0; int LoopEvery = 0; int LoopLimit = 0; int PassEnd = 0; int saved_ticket = attrTicketInLoop(); // This ticket number will be reloaded at the end of this loop, so if we are in another overlapping loop - it will continue using it's last used ticket number int count=0; int skip=-1; int every=0; double profits_list[]; ArrayResize(profits_list,0); int tickets_list[]; ArrayResize(tickets_list,0); bool get_from_array = false; int i_start = 0; int i_stop = 0; int i_inc = 0; int i = 0; if (LoopDirection == "newest-to-oldest") { i_start = OrdersTotal()-1; i_stop = 0; i_inc = -1; } else if (LoopDirection == "oldest-to-newest") { i_start = 0; i_stop = OrdersTotal()-1; i_inc = 1; } else if (LoopDirection=="profitable-first" || LoopDirection=="profitable-last") { int last_index = -1; get_from_array = true; // Collect data for (int pos=0; pos<OrdersTotal(); pos++) { if (!OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) continue; if (!FilterOrderBy(OrdersScope,OrdersGroup, SymbolScope,SYMBOL, BuysOrSells)) continue; int size = ArraySize(tickets_list); int ticket = attrTicket(); double profit = attrProfit() + attrSwap() + attrCommission(); ArrayResize(tickets_list,size+1); ArrayResize(profits_list,size+1); tickets_list[size] = ticket; profits_list[size] = profit; last_index = size; int is_smallest = true; if (last_index == 0) continue; // shift for (i=0; i<last_index; i++) { if (profit < profits_list[i]) { if (i==0 || profit >= profits_list[i-1]) { for (int j=last_index; j>i; j--) { profits_list[j] = profits_list[j-1]; tickets_list[j] = tickets_list[j-1]; } profits_list[i] = profit; tickets_list[i] = ticket; break; } } } // At this moment array index 0 is the least profitable trade } //if (LoopDirection=="profitable-first") i_start = last_index; i_stop = 0; i_inc = -1; if (LoopDirection=="profitable-last") { i_start = 0; i_stop = last_index; i_inc = 1; } } i = i_start - i_inc; while(true) { if (i == i_stop) {break;} i = i + i_inc; // simulate break and continue functionality in loop blocks if (FXD_CONTINUE==true) {FXD_BREAK=false; FXD_CONTINUE=false;} else if (FXD_BREAK==true) {FXD_BREAK=false; FXD_CONTINUE=false; break;} if (get_from_array) { if (!OrderSelect(tickets_list[i],SELECT_BY_TICKET,MODE_TRADES)) {continue;} } else if (!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) {continue;} if (!FilterOrderBy(OrdersScope,OrdersGroup, SymbolScope,SYMBOL, BuysOrSells)) {continue;} skip++; if (LoopSkip <= skip && (count<LoopLimit || LoopLimit==0)) { if (LoopEvery>0) { every++; if (every<LoopEvery) {continue;} else {every=0;} } count++; attrTicketInLoop(attrTicket()); /* Orange Output */ if (count==LoopLimit) break; } if (LoopDirection == "oldest-to-newest") { // if trade was closed meanwhile if (i_stop > OrdersTotal()-1) { i_stop = OrdersTotal()-1; i--; } } } attrTicketInLoop(saved_ticket); // Reloading Ticket number from the overlapping loop (if any) FXD_BREAK=false; FXD_CONTINUE=false; if (PassEnd==0 || (PassEnd==1 && count>0) || (PassEnd==2 && count==0)) { block7(9); } } double ic_indicators_iMA(int MAperiod, int MAshift, int MAmethod, int AppliedPrice, string SYMBOL, int TIMEFRAME, int SHIFT) { SHIFT=SHIFT+IndicatorMoreShift(); double retval=iMA(SYMBOL,TIMEFRAME,MAperiod,MAshift,MAmethod,AppliedPrice,SHIFT); SetLastIndicatorData(retval,SYMBOL,TIMEFRAME,SHIFT); return(retval); } double ic_value_value(double Value) { return(Value); } double ic_prices_prices(string Price, int TickID, string SYMBOL) { double retval=0; TickID=TickID+IndicatorMoreShift(); if (Price=="ASK") {retval=TicksData(SYMBOL,MODE_ASK,TickID);} else if (Price=="BID") {retval=TicksData(SYMBOL,MODE_BID,TickID);} else if (Price=="MID") {retval=((TicksData(SYMBOL,MODE_ASK,TickID)+TicksData(SYMBOL,MODE_BID,TickID))/2);} retval = NormalizeDouble(retval, (int)SymbolInfoInteger(SYMBOL, SYMBOL_DIGITS)); return(retval); } double ic_indicators_iBands(int BandsPeriod, int BandsShift, double Deviation, int AppliedPrice, int mode, string SYMBOL, int TIMEFRAME, int SHIFT) { SHIFT=SHIFT+IndicatorMoreShift(); double retval=iBands(SYMBOL,TIMEFRAME,BandsPeriod,Deviation,BandsShift,AppliedPrice,mode,SHIFT); SetLastIndicatorData(retval,SYMBOL,TIMEFRAME,SHIFT); return(retval); } /************************************************************************************************************************/ // +------------------------------------------------------------------------------------------------------------------+ // // | Functions | // // | System and Custom functions used in the program | // // +------------------------------------------------------------------------------------------------------------------+ // /************************************************************************************************************************/ double AccountBalanceAtStart() { // This function MUST be run once at pogram's start static double memory=0; if (memory==0) {memory=AccountBalance();} return(memory); } 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 =MarketInfo(symbol,MODE_POINT); int digits =(int)MarketInfo(symbol,MODE_DIGITS); slp = slp*PipValue(symbol)*point; //-- buy-sell identifier --------------------------------------------- int bs=1; if ( type==OP_BUY || type==OP_BUYSTOP || type==OP_BUYLIMIT ) { bs=1; } else if ( type==OP_SELL || type==OP_SELLSTOP || type==OP_SELLLIMIT ) { bs=-1; } //-- prices that will be used ---------------------------------------- double askbid=price; double bidask=price; if (type==OP_BUY || type==OP_SELL) { double ask =MarketInfo(symbol,MODE_ASK); double bid =MarketInfo(symbol,MODE_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=MarketInfo(symbol,MODE_STOPLEVEL); if (consider_freezelevel==true) { double freezelevel=MarketInfo(symbol,MODE_FREEZELEVEL); 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)) { if (USE_VIRTUAL_STOPS) { return(sl); } 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 = MarketInfo(symbol, MODE_TICKSIZE); 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 = MarketInfo(symbol,MODE_POINT); int digits = (int)MarketInfo(symbol,MODE_DIGITS); tpp=tpp*PipValue(symbol)*point; //-- buy-sell identifier --------------------------------------------- int bs=1; if ( type==OP_BUY || type==OP_BUYSTOP || type==OP_BUYLIMIT ) { bs=1; } else if ( type==OP_SELL || type==OP_SELLSTOP || type==OP_SELLLIMIT ) { bs=-1; } //-- prices that will be used ---------------------------------------- double askbid=price; double bidask=price; if (type==OP_BUY || type==OP_SELL) { double ask =MarketInfo(symbol,MODE_ASK); double bid =MarketInfo(symbol,MODE_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=MarketInfo(symbol,MODE_STOPLEVEL); if (consider_freezelevel==true) { double freezelevel=MarketInfo(symbol,MODE_FREEZELEVEL); 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) { /*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 ", askbid, ")" ); return(-1); } else if ((bs>0 && tp<tplimit) || (bs<0 && tp>tplimit)) { if (USE_VIRTUAL_STOPS) { return(tp); } 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 = MarketInfo(symbol, MODE_TICKSIZE); 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 ArrayStrip(T &array[], T value) { int x = 0; int size = ArraySize(array); for (int i=0; i<size; i++) { if (array[i] != value) { array[x] = array[i]; x++; } } if (x < size) { ArrayResize(array, x); return true; // stripped } return false; // not stripped } 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 } template<typename T> bool ArrayValue(T &array[], T value) { int size = ArraySize(array); if (size > 0) { // search for the value int index = ArrayBsearch(array, value); if (array[index] == value) { // value found -> exit return false; // no value added } } // value does not exists -> add it ArrayResize(array, size+1); array[size] = value; return true; // value added } int CheckForTradingError(int error_code=-1, string msg_prefix="") { // return 0 -> no error // return 1 -> overcomable error // return 2 -> fatal error if (error_code<0) { error_code=GetLastError(); } int retval=0; static int tryouts=0; //-- error check ----------------------------------------------------- switch(error_code) { //-- no error case 0: retval=0; break; //-- overcomable errors case 1: // No error returned RefreshRates(); retval=1; break; case 4: //ERR_SERVER_BUSY if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Retrying.."));} Sleep(1000); RefreshRates(); retval=1; break; case 6: //ERR_NO_CONNECTION if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Retrying.."));} while(!IsConnected()) {Sleep(100);} while(IsTradeContextBusy()) {Sleep(50);} RefreshRates(); retval=1; break; case 128: //ERR_TRADE_TIMEOUT if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Retrying.."));} RefreshRates(); retval=1; break; case 129: //ERR_INVALID_PRICE if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Retrying.."));} if (!IsTesting()) {while(RefreshRates()==false) {Sleep(1);}} retval=1; break; case 130: //ERR_INVALID_STOPS if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Waiting for a new tick to retry.."));} if (!IsTesting()) {while(RefreshRates()==false) {Sleep(1);}} retval=1; break; case 135: //ERR_PRICE_CHANGED if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Waiting for a new tick to retry.."));} if (!IsTesting()) {while(RefreshRates()==false) {Sleep(1);}} retval=1; break; case 136: //ERR_OFF_QUOTES if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Waiting for a new tick to retry.."));} if (!IsTesting()) {while(RefreshRates()==false) {Sleep(1);}} retval=1; break; case 137: //ERR_BROKER_BUSY if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Retrying.."));} Sleep(1000); retval=1; break; case 138: //ERR_REQUOTE if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Waiting for a new tick to retry.."));} if (!IsTesting()) {while(RefreshRates()==false) {Sleep(1);}} retval=1; break; case 142: //This code should be processed in the same way as error 128. if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Retrying.."));} RefreshRates(); retval=1; break; case 143: //This code should be processed in the same way as error 128. if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Retrying.."));} RefreshRates(); retval=1; break; /*case 145: //ERR_TRADE_MODIFY_DENIED if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Waiting for a new tick to retry.."));} while(RefreshRates()==false) {Sleep(1);} return(1); */ case 146: //ERR_TRADE_CONTEXT_BUSY if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code),". Retrying.."));} while(IsTradeContextBusy()) {Sleep(50);} RefreshRates(); retval=1; break; //-- critical errors default: if (msg_prefix!="") {Print(StringConcatenate(msg_prefix,": ",ErrorMessage(error_code)));} retval=2; break; } 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 CloseTrade(int ticket, double slippage=0, color arrowcolor=CLR_NONE) { bool success=false; if (!OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) {return(false);} while(true) { //-- wait if needed ----------------------------------------------- WaitTradeContextIfBusy(); //-- close -------------------------------------------------------- success=OrderClose(ticket,attrLots(),attrClosePrice(),(int)(slippage*PipValue(attrSymbol())),arrowcolor); if (success==true) { if (USE_VIRTUAL_STOPS) { VirtualStopsDriver("clear",ticket); } RegisterEvent("trade"); return(true); } //-- errors ------------------------------------------------------- int erraction=CheckForTradingError(GetLastError(), "Closing trade #"+(string)ticket+" error"); switch(erraction) { case 0: break; // no error case 1: continue; // overcomable error case 2: break; // fatal error } break; } return(false); } string CurrentSymbol(string symbol="") { static string memory=""; if (symbol!="") {memory=symbol;} else if (memory=="") {memory=Symbol();} return(memory); } ENUM_TIMEFRAMES CurrentTimeframe(ENUM_TIMEFRAMES tf=-1) { static ENUM_TIMEFRAMES memory=0; if (tf>=0) {memory=tf;} return(memory); } bool DeleteOrder(int ticket, color arrowcolor) { bool success=false; if (!OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) {return(false);} while(true) { //-- wait if needed ----------------------------------------------- WaitTradeContextIfBusy(); //-- delete ------------------------------------------------------- success=OrderDelete(ticket,arrowcolor); if (success==true) { if (USE_VIRTUAL_STOPS) { VirtualStopsDriver("clear",ticket); } RegisterEvent("trade"); return(true); } //-- error check -------------------------------------------------- int erraction=CheckForTradingError(GetLastError(), "Deleting order #"+(string)ticket+" error"); switch(erraction) { case 0: break; // no error case 1: continue; // overcomable error case 2: break; // fatal error } break; } return(false); } 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); } string ErrorMessage(int error_code=-1) { string e = ""; if (error_code < 0) {error_code = GetLastError();} switch(error_code) { //-- codes returned from trade server case 0: return(""); case 1: e = "No error returned"; break; case 2: e = "Common error"; break; case 3: e = "Invalid trade parameters"; break; case 4: e = "Trade server is busy"; break; case 5: e = "Old version of the client terminal"; break; case 6: e = "No connection with trade server"; break; case 7: e = "Not enough rights"; break; case 8: e = "Too frequent requests"; break; case 9: e = "Malfunctional trade operation (never returned error)"; break; case 64: e = "Account disabled"; break; case 65: e = "Invalid account"; break; case 128: e = "Trade timeout"; break; case 129: e = "Invalid price"; break; case 130: e = "Invalid Sl or TP"; break; case 131: e = "Invalid trade volume"; break; case 132: e = "Market is closed"; break; case 133: e = "Trade is disabled"; break; case 134: e = "Not enough money"; break; case 135: e = "Price changed"; break; case 136: e = "Off quotes"; break; case 137: e = "Broker is busy (never returned error)"; break; case 138: e = "Requote"; break; case 139: e = "Order is locked"; break; case 140: e = "Only long trades allowed"; break; case 141: e = "Too many requests"; break; case 145: e = "Modification denied because order too close to market"; break; case 146: e = "Trade context is busy"; break; case 147: e = "Expirations are denied by broker"; break; case 148: e = "Amount of open and pending orders has reached the limit"; break; case 149: e = "Hedging is prohibited"; break; case 150: e = "Prohibited by FIFO rules"; break; //-- mql4 errors case 4000: e = "No error"; break; case 4001: e = "Wrong function pointer"; break; case 4002: e = "Array index is out of range"; break; case 4003: e = "No memory for function call stack"; break; case 4004: e = "Recursive stack overflow"; break; case 4005: e = "Not enough stack for parameter"; break; case 4006: e = "No memory for parameter string"; break; case 4007: e = "No memory for temp string"; break; case 4008: e = "Not initialized string"; break; case 4009: e = "Not initialized string in array"; break; case 4010: e = "No memory for array string"; break; case 4011: e = "Too long string"; break; case 4012: e = "Remainder from zero divide"; break; case 4013: e = "Zero divide"; break; case 4014: e = "Unknown command"; break; case 4015: e = "Wrong jump"; break; case 4016: e = "Not initialized array"; break; case 4017: e = "dll calls are not allowed"; break; case 4018: e = "Cannot load library"; break; case 4019: e = "Cannot call function"; break; case 4020: e = "Expert function calls are not allowed"; break; case 4021: e = "Not enough memory for temp string returned from function"; break; case 4022: e = "System is busy"; break; case 4050: e = "Invalid function parameters count"; break; case 4051: e = "Invalid function parameter value"; break; case 4052: e = "String function internal error"; break; case 4053: e = "Some array error"; break; case 4054: e = "Incorrect series array using"; break; case 4055: e = "Custom indicator error"; break; case 4056: e = "Arrays are incompatible"; break; case 4057: e = "Global variables processing error"; break; case 4058: e = "Global variable not found"; break; case 4059: e = "Function is not allowed in testing mode"; break; case 4060: e = "Function is not confirmed"; break; case 4061: e = "Send mail error"; break; case 4062: e = "String parameter expected"; break; case 4063: e = "Integer parameter expected"; break; case 4064: e = "Double parameter expected"; break; case 4065: e = "Array as parameter expected"; break; case 4066: e = "Requested history data in update state"; break; case 4099: e = "End of file"; break; case 4100: e = "Some file error"; break; case 4101: e = "Wrong file name"; break; case 4102: e = "Too many opened files"; break; case 4103: e = "Cannot open file"; break; case 4104: e = "Incompatible access to a file"; break; case 4105: e = "No order selected"; break; case 4106: e = "Unknown symbol"; break; case 4107: e = "Invalid price parameter for trade function"; break; case 4108: e = "Invalid ticket"; break; case 4109: e = "Trade is not allowed in the expert properties"; break; case 4110: e = "Longs are not allowed in the expert properties"; break; case 4111: e = "Shorts are not allowed in the expert properties"; break; //-- objects errors case 4200: e = "Object is already exist"; break; case 4201: e = "Unknown object property"; break; case 4202: e = "Object is not exist"; break; case 4203: e = "Unknown object type"; break; case 4204: e = "No object name"; break; case 4205: e = "Object coordinates error"; break; case 4206: e = "No specified subwindow"; break; case 4207: e = "Graphical object error"; break; case 4210: e = "Unknown chart property"; break; case 4211: e = "Chart not found"; break; case 4212: e = "Chart subwindow not found"; break; case 4213: e = "Chart indicator not found"; break; case 4220: e = "Symbol select error"; break; case 4250: e = "Notification error"; break; case 4251: e = "Notification parameter error"; break; case 4252: e = "Notifications disabled"; break; case 4253: e = "Notification send too frequent"; break; //-- ftp errors case 4260: e = "FTP server is not specified"; break; case 4261: e = "FTP login is not specified"; break; case 4262: e = "FTP connection failed"; break; case 4263: e = "FTP connection closed"; break; case 4264: e = "FTP path not found on server"; break; case 4265: e = "File not found in the MQL4\\Files directory to send on FTP server"; break; case 4266: e = "Common error during FTP data transmission"; break; //-- filesystem errors case 5001: e = "Too many opened files"; break; case 5002: e = "Wrong file name"; break; case 5003: e = "Too long file name"; break; case 5004: e = "Cannot open file"; break; case 5005: e = "Text file buffer allocation error"; break; case 5006: e = "Cannot delete file"; break; case 5007: e = "Invalid file handle (file closed or was not opened)"; break; case 5008: e = "Wrong file handle (handle index is out of handle table)"; break; case 5009: e = "File must be opened with FILE_WRITE flag"; break; case 5010: e = "File must be opened with FILE_READ flag"; break; case 5011: e = "File must be opened with FILE_BIN flag"; break; case 5012: e = "File must be opened with FILE_TXT flag"; break; case 5013: e = "File must be opened with FILE_TXT or FILE_CSV flag"; break; case 5014: e = "File must be opened with FILE_CSV flag"; break; case 5015: e = "File read error"; break; case 5016: e = "File write error"; break; case 5017: e = "String size must be specified for binary file"; break; case 5018: e = "Incompatible file (for string arrays-TXT, for others-BIN)"; break; case 5019: e = "File is directory, not file"; break; case 5020: e = "File does not exist"; break; case 5021: e = "File cannot be rewritten"; break; case 5022: e = "Wrong directory name"; break; case 5023: e = "Directory does not exist"; break; case 5024: e = "Specified file is not directory"; break; case 5025: e = "Cannot delete directory"; break; case 5026: e = "Cannot clean directory"; break; //-- other errors case 5027: e = "Array resize error"; break; case 5028: e = "String resize error"; break; case 5029: e = "Structure contains strings or dynamic arrays"; break; //-- http request 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; default: e = "Unknown error"; } e = StringConcatenate(e, " (", error_code, ")"); return e; } void ExpirationDriver() { static int last_checked_ticket; static int db_tickets[]; static int db_expirations[]; static int total; total = OrdersTotal(); static int size; size = 0; static int do_reset; do_reset=false; static string print; static int i; //-- check expirations and close trades size = ArraySize(db_tickets); if (size>0) { if (total==0) { ArrayResize(db_tickets, 0); ArrayResize(db_expirations, 0); } else { for (i=0; i<size; i++) { WaitTradeContextIfBusy(); if (!OrderSelect(db_tickets[i],SELECT_BY_TICKET, MODE_TRADES)) {continue;} if (OrderSymbol() != Symbol()) {continue;} if (TimeCurrent() >= OrderOpenTime()+db_expirations[i]) { //-- trying to skip conflicts with the same functionality running from neighbour EA WaitTradeContextIfBusy(); if (!OrderSelect(db_tickets[i],SELECT_BY_TICKET, MODE_TRADES)) {continue;} if (OrderCloseTime()>0) {continue;} //-- closing the trade if (CloseTrade(OrderTicket())) { print = "#"+(string)OrderTicket()+" was closed due to expiration"; Print(print); last_checked_ticket=0; do_reset = true; total = OrdersTotal(); } } } } } //-- check the ticket of the newest trade if (do_reset==false && total>0) { if (OrderSelect(total-1,SELECT_BY_POS)) { if (OrderTicket()!=last_checked_ticket) { do_reset = true; } } } //-- rebuild the database of trades with expirations if (do_reset==true) { static string comment; ArrayResize(db_tickets, 0); ArrayResize(db_expirations, 0); for (int pos=0; pos<total; pos++) { if (!OrderSelect(pos,SELECT_BY_POS)) {continue;} last_checked_ticket = OrderTicket(); comment = OrderComment(); int exp_pos_begin = StringFind(comment, "[exp:"); if (exp_pos_begin >= 0) { exp_pos_begin = exp_pos_begin+5; int exp_pos_end = StringFind(comment, "]", exp_pos_begin); if (exp_pos_end == -1) {continue;} size = ArraySize(db_tickets); ArrayResize(db_tickets, size+1); ArrayResize(db_expirations, size+1); db_tickets[size] = OrderTicket(); db_expirations[size] = (int)StringToInteger(StringSubstr(comment, exp_pos_begin, exp_pos_end)); } } } } bool FeedStatistics(){GetStatistics();return(0);} bool FilterOrderBy(string group_mode="all", string group="0", string market_mode="all", string market="", string BuysOrSells="both", string LimitsOrStops="both", int TradesOrders=0, bool onTrade = false) { // TradesOrders=0 - trades only // TradesOrders=1 - orders only // TradesOrders=2 - trades and orders //-- 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, type, 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(); } if (TradesOrders==0) { if ( (BuysOrSells=="both" && (type==OP_BUY || type==OP_SELL)) || (BuysOrSells=="buys" && type==OP_BUY) || (BuysOrSells=="sells" && type==OP_SELL) ) { type_pass = true; } } // Pending orders else if (TradesOrders==1) { if ( (BuysOrSells=="both" && (type==OP_BUYLIMIT || type==OP_BUYSTOP || type==OP_SELLLIMIT || type==OP_SELLSTOP)) || (BuysOrSells=="buys" && (type==OP_BUYLIMIT || type==OP_BUYSTOP)) || (BuysOrSells=="sells" && (type==OP_SELLLIMIT || type==OP_SELLSTOP)) ) { if ( (LimitsOrStops=="both" && (type==OP_BUYSTOP || type==OP_SELLSTOP || type==OP_BUYLIMIT || type==OP_SELLLIMIT)) || (LimitsOrStops=="stops" && (type==OP_BUYSTOP || type==OP_SELLSTOP)) || (LimitsOrStops=="limits" && (type==OP_BUYLIMIT || type==OP_SELLLIMIT)) ) { type_pass = true; } } } //-- Trades and orders -------------------------------------------- else { if ( (BuysOrSells=="both") || (BuysOrSells=="buys" && (type==OP_BUY || type==OP_BUYLIMIT || type==OP_BUYSTOP)) || (BuysOrSells=="sells" && (type==OP_SELL || type==OP_SELLLIMIT || type==OP_SELLSTOP)) ) { 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]=StringTrimRight(groups[i]); groups[i]=StringTrimLeft(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]=StringTrimRight(markets[i]); markets[i]=StringTrimLeft(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; } double GetStatistics(string get="") { if (false) {FeedStatistics();} ////// // main static variables static datetime start_time=-1; static double initial_money=-1; static double total_net_profit=-1; int shorts_now_count=0; int longs_now_count=0; static int shorts_hist_count=0; static int longs_hist_count=0; static double longs_hist_profit=0; static double longs_hist_loss=0; static double shorts_hist_profit=0; static double shorts_hist_loss=0; static double longs_hist_profit_count=0; static double longs_hist_loss_count=0; static double shorts_hist_profit_count=0; static double shorts_hist_loss_count=0; static double largest_profit_trade=0; static double smallest_profit_trade=0; static double largest_loss_trade=0; static double smallest_loss_trade=0; static double profit_trades_count=0; static double loss_trades_count=0; static double average_profit_trade=0; static double average_loss_trade=0; static int consec_wins=0; static int consec_loss=0; static double last_profit=0; static bool consec_check_started=false; static int max_consec_wins=0; static int max_consec_loss=0; static double avg_consec_wins=0; static double avg_consec_loss=0; static int consec_profits_count=0; static int consec_losses_count=0; static double profit_factor=1; static double gross_profit=0; static double gross_loss=0; static double drawdown_abs=0; static double drawdown_rel=0; static double drawdown_max=0; static double maxpeak=0; static double minpeak=0; static double drawdown_balance_abs=0; static double drawdown_balance_rel=0; static double drawdown_balance_max=0; static double max_balance_peak=0; static double min_balance_peak=0; double profit_factor_live=0; double gross_profit_now=0; double gross_profit_live=0; double gross_loss_now=0; double gross_loss_live=0; ////// ////// // system static variables static int last_checked_trades_ticket=-1; static int last_checked_history_ticket=-1; static int orders_history_total=0; static int orders_history_total_checked=0; static int orders_total=0; double retval=0; ////// int pos=0; if (initial_money==-1) {initial_money=AccountEquity();} if (start_time==-1) {start_time=TimeCurrent();} total_net_profit=AccountEquity()-initial_money; if (OrdersHistoryTotal()!=orders_history_total) { orders_history_total=OrdersHistoryTotal(); for (pos=OrdersHistoryTotal()-1; pos>=0; pos--) { if (OrderSelect(pos,SELECT_BY_POS,MODE_HISTORY)) { //if (OrderOpenTime()>=start_time) { if (orders_history_total > orders_history_total_checked) { orders_history_total_checked++; double PureProfit=OrderProfit()+OrderCommission()+OrderSwap(); if (PureProfit>largest_profit_trade) {largest_profit_trade=PureProfit;} if (PureProfit<largest_loss_trade) {largest_loss_trade=PureProfit;} if (PureProfit>0 && (PureProfit<smallest_profit_trade || smallest_profit_trade==0)) {smallest_profit_trade=PureProfit;} if (PureProfit<0 && (PureProfit>smallest_loss_trade || smallest_loss_trade==0)) {smallest_loss_trade=PureProfit;} if (OrderType()==OP_BUY) {longs_hist_count++;} if (OrderType()==OP_SELL) {shorts_hist_count++;} if (PureProfit>0) { if (OrderType()==OP_BUY) {longs_hist_profit_count++; longs_hist_profit=longs_hist_profit+PureProfit;} if (OrderType()==OP_SELL) {shorts_hist_profit_count++; shorts_hist_profit=shorts_hist_profit+PureProfit;} gross_profit=gross_profit+PureProfit; profit_trades_count++; average_profit_trade=gross_profit/profit_trades_count; if (last_profit>0 || consec_check_started==false) { consec_check_started=true; consec_wins++; } else {consec_wins=1; consec_loss=0; consec_profits_count++;} if (consec_wins>max_consec_wins) {max_consec_wins=consec_wins;} avg_consec_wins=profit_trades_count/(consec_profits_count+1); last_profit=PureProfit; } else if (PureProfit<0) { if (OrderType()==OP_BUY) {longs_hist_loss_count++; longs_hist_loss=longs_hist_loss+PureProfit;} if (OrderType()==OP_SELL) {shorts_hist_loss_count++; shorts_hist_loss=shorts_hist_loss+PureProfit;} gross_loss=gross_loss+PureProfit; loss_trades_count++; average_loss_trade=gross_loss/loss_trades_count; if (last_profit<0 || consec_check_started==false) { consec_check_started=true; consec_loss++; } else { consec_loss=1; consec_wins=0; consec_losses_count++; } if (consec_loss>max_consec_loss) { max_consec_loss=consec_loss; } avg_consec_loss=loss_trades_count/(consec_losses_count+1); last_profit=PureProfit; } } //} else {break;} } } } // Equity: Drawdown Maximum && Drawdown Relative if (AccountEquity()>maxpeak) {maxpeak=AccountEquity();} if ((maxpeak-AccountEquity())>drawdown_max) {drawdown_max=(maxpeak-AccountEquity()); drawdown_rel=NormalizeDouble((drawdown_max/maxpeak)*100,2);} // Equity: Drawdown Absolute if ((AccountEquity()<initial_money && (initial_money-AccountEquity())>drawdown_abs) || drawdown_abs==0) {drawdown_abs=(initial_money-AccountEquity());} // Balance: Drawdown Maximum && Drawdown Relative if (AccountBalance()>max_balance_peak) {max_balance_peak=AccountBalance();} if ((max_balance_peak-AccountBalance())>drawdown_balance_max) {drawdown_balance_max=(max_balance_peak-AccountBalance()); drawdown_balance_rel=NormalizeDouble((drawdown_balance_max/max_balance_peak)*100,2);} // Balance: Drawdown Absolute if ((AccountBalance()<initial_money && (initial_money-AccountBalance())>drawdown_balance_abs) || drawdown_balance_abs==0) {drawdown_balance_abs=(initial_money-AccountBalance());} if (get!="") { for (pos=OrdersTotal()-1; pos>=0; pos--) { if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) { //if (OrderOpenTime()>=start_time) { if (OrderType()==OP_BUY) {longs_now_count++;} else if (OrderType()==OP_SELL) {shorts_now_count++;} if (OrderProfit()+OrderCommission()+OrderSwap()>0) { gross_profit_now=gross_profit_now+OrderProfit()+OrderCommission()+OrderSwap(); } else if (OrderProfit()+OrderCommission()+OrderSwap()<0) { gross_loss_now=gross_loss_now+OrderProfit()+OrderCommission()+OrderSwap(); } if (OrderTicket()>last_checked_trades_ticket) { last_checked_trades_ticket=OrderTicket(); } //} else {break;} } } // Profit Factor if (gross_loss<0) { profit_factor=MathAbs(NormalizeDouble(gross_profit/gross_loss,2)); } else { profit_factor=MathAbs(NormalizeDouble(gross_profit,2)); } if (profit_factor==0) {profit_factor=1;} // Gross Profit / Loss (Live) gross_profit_live=gross_profit+gross_profit_now; gross_loss_live=gross_loss+gross_loss_now; // Profit Factor (Live) if ((gross_loss+gross_loss_now)<0) { profit_factor_live=MathAbs(NormalizeDouble(((gross_profit+gross_profit_now)/(gross_loss+gross_loss_now)),2)); } else { profit_factor_live=MathAbs(NormalizeDouble((gross_profit+gross_profit_now),2)); } if (profit_factor_live==0) {profit_factor_live=1;} // Total Trades int longs_total_count =longs_hist_count+longs_now_count; int shorts_total_count =shorts_hist_count+shorts_now_count; int trades_hist_count =longs_hist_count+shorts_hist_count; int trades_now_count =longs_now_count+shorts_now_count; int trades_total_count =longs_total_count+shorts_total_count; if (get=="initial_money") {return(initial_money);} //--- if (get=="profit_factor_history"){return(profit_factor);} if (get=="profit_factor_total") {return(profit_factor_live);} //--- if (get=="gross_profit_history") {return(gross_profit);} if (get=="gross_profit_now") {return(gross_profit_now);} if (get=="gross_profit_total") {return(gross_profit_live);} //--- if (get=="gross_loss_history") {return(gross_loss);} if (get=="gross_loss_now") {return(gross_loss_now);} if (get=="gross_loss_total") {return(gross_loss_live);} //--- if (get=="trades_count_history") {return(trades_hist_count);} if (get=="trades_count_now") {return(trades_now_count);} if (get=="trades_count_total") {return(trades_total_count);} //--- if (get=="longs_count_history") {return(longs_hist_count);} if (get=="longs_count_now") {return(longs_now_count);} if (get=="longs_count_total") {return(longs_total_count);} //--- if (get=="shorts_count_history") {return(shorts_hist_count);} if (get=="shorts_count_now") {return(shorts_now_count);} if (get=="shorts_count_total") {return(shorts_total_count);} //--- if (get=="drawdown_equity_relative") {return(drawdown_rel);} if (get=="drawdown_equity_absolute") {return(drawdown_abs);} if (get=="drawdown_equity_maximal") {return(drawdown_max);} //--- if (get=="drawdown_balance_relative") {return(drawdown_balance_rel);} if (get=="drawdown_balance_absolute") {return(drawdown_balance_abs);} if (get=="drawdown_balance_maximal") {return(drawdown_balance_max);} //--- if (get=="consec_wins_max" || get=="consec_wins_maximum" || get=="consec_wins_maximal") {return(max_consec_wins);} if (get=="consec_wins_avg" || get=="consec_wins_average") {return(avg_consec_wins);} //--- //--- if (get=="consec_losses_max" || get=="consec_losses_maximum" || get=="consec_losses_maximal") {return(max_consec_loss);} if (get=="consec_losses_avg" || get=="consec_losses_average") {return(avg_consec_loss);} } return(-1); } string GetSymbol(string symbol="") { static string memory=""; if (symbol=="") { if (memory=="") {memory=Symbol();} } else {memory=symbol;} return(memory); } /******************************************************/ /* Checks if element exist in array */ /* Returns "true" if exists and "false" if not exists */ /******************************************************/ template<typename T> bool InArray(T &array[], T value) { int index = ArrayBsearch(array, value); return (index > -1 && array[index] == value); } int IndicatorMoreShift(bool set=false, int shift=0) { static int mem; if (set==true) {mem=shift;} else { int return_val=mem; mem=0; // reset return(return_val); } return(mem); } int LastIndicatorShift(bool set=false, int shift=0) { static int mem; if (set==true) {mem=shift;} return(mem); } string LastIndicatorSymbol(bool set=false, string symbol="") { static string mem; if (set==true) {mem=symbol;} return(mem); } int LastIndicatorTimeframe(bool set=false, int timeframe=0) { static int mem; if (set==true) {mem=timeframe;} return(mem); } double LastIndicatorValue(bool set=false, double value=0) { static double mem; if (set==true) {mem=value;} return(mem); } int LoopedResume() { if (attrTicketInLoop()>0 && attrTicketInLoop()!=attrTicket()) { //Alert(attrTicketInLoop()); return(OrderSelect(attrTicketInLoop(),SELECT_BY_TICKET)); } return(0); /* static int ticket; if (set==true) { if (attrTicket()>0) {ticket=attrTicket();} return(true); } else { if (ticket>0 && ticket!=attrTicket()) { OrderSelect(ticket,SELECT_BY_TICKET); } return(true); } return(false);*/ } bool ModifyOrder( int ticket, double op, double sll=0, double tpl=0, double slp=0, double tpp=0, datetime exp=0, color clr=CLR_NONE, bool ontrade_event=true) { //----------------------------------------------------------------------- int bs=1; if ( OrderType()==OP_SELL || OrderType()==OP_SELLSTOP || OrderType()==OP_SELLLIMIT ) {bs=-1;} // Positive when Buy, negative when Sell while(true) { uint time0 = GetTickCount(); WaitTradeContextIfBusy(); if (!OrderSelect(ticket,SELECT_BY_TICKET)) { return(false); } string symbol = OrderSymbol(); int type = OrderType(); double ask = SymbolInfoDouble(symbol, SYMBOL_ASK); double bid = SymbolInfoDouble(symbol, SYMBOL_BID); int digits = SymbolInfoInteger(symbol, SYMBOL_DIGITS); double point = SymbolInfoDouble(symbol, SYMBOL_POINT); double stoplevel = point * SymbolInfoInteger(symbol, SYMBOL_TRADE_STOPS_LEVEL); double freezelevel = point * SymbolInfoInteger(symbol, SYMBOL_TRADE_FREEZE_LEVEL); if (OrderType()<2) {op=OrderOpenPrice();} else {op=NormalizeDouble(op,digits);} sll = NormalizeDouble(sll, digits); tpl = NormalizeDouble(tpl, digits); if (op<0 || op>=EMPTY_VALUE) {break;} if (sll<0) {break;} if (slp<0) {break;} if (tpl<0) {break;} if (tpp<0) {break;} //-- OP ----------------------------------------------------------- // https://book.mql4.com/appendix/limits if (type == OP_BUYLIMIT) { if (ask - op < stoplevel) {op = ask - stoplevel;} if (ask - op <= freezelevel) {op = ask - freezelevel - point;} } else if (type == OP_BUYSTOP) { if (op - ask < stoplevel) {op = ask + stoplevel;} if (op - ask <= freezelevel) {op = ask + freezelevel + point;} } else if (type == OP_SELLLIMIT) { if (op - bid < stoplevel) {op = bid + stoplevel;} if (op - bid <= freezelevel) {op = bid + freezelevel + point;} } else if (type == OP_SELLSTOP) { if (bid - op < stoplevel) {op = bid - stoplevel;} if (bid - op < freezelevel) {op = bid - freezelevel - point;} } op = NormalizeDouble(op, digits); //-- SL and TP ---------------------------------------------------- double sl=0, tp=0, vsl=0, vtp=0; sl = AlignStopLoss(symbol, type, op, attrStopLoss(), sll, slp); if (sl < 0) {break;} tp = AlignTakeProfit(symbol, type, op, attrTakeProfit(), tpl, tpp); if (tp < 0) {break;} if (USE_VIRTUAL_STOPS) { //-- virtual SL and TP -------------------------------------------- vsl = sl; vtp = tp; sl = 0; tp = 0; double askbid = ask; if (bs < 0) {askbid = bid;} if (vsl>0 || USE_EMERGENCY_STOPS=="always") { if (EMERGENCY_STOPS_REL>0 || EMERGENCY_STOPS_ADD>0) { sl=vsl-EMERGENCY_STOPS_REL*MathAbs(askbid-vsl)*bs; if (sl<=0) {sl=askbid;} sl=sl-toDigits(EMERGENCY_STOPS_ADD,symbol)*bs; } } if (vtp>0 || USE_EMERGENCY_STOPS=="always") { if (EMERGENCY_STOPS_REL>0 || EMERGENCY_STOPS_ADD>0) { tp=vtp+EMERGENCY_STOPS_REL*MathAbs(vtp-askbid)*bs; if (tp<=0) {tp=askbid;} tp=tp+toDigits(EMERGENCY_STOPS_ADD,symbol)*bs; } } vsl=NormalizeDouble(vsl,digits); vtp=NormalizeDouble(vtp,digits); } sl=NormalizeDouble(sl,digits); tp=NormalizeDouble(tp,digits); //-- modify ------------------------------------------------------- ResetLastError(); if (USE_VIRTUAL_STOPS) { if (vsl!=attrStopLoss() || vtp!=attrTakeProfit()) { VirtualStopsDriver("set", ticket, vsl, vtp, toPips(MathAbs(op-vsl), symbol), toPips(MathAbs(vtp-op), symbol)); } } bool success=false; if ( (OrderType()>1 && op!=NormalizeDouble(OrderOpenPrice(),digits)) || sl!=NormalizeDouble(OrderStopLoss(),digits) || tp!=NormalizeDouble(OrderTakeProfit(),digits) || exp!=OrderExpiration() ) { success=OrderModify(ticket,op,sl,tp,exp,clr); } //-- error check -------------------------------------------------- int erraction=CheckForTradingError(GetLastError(), "Modify error"); switch(erraction) { case 0: break; // no error case 1: continue; // overcomable error case 2: break; // fatal error } //-- finish work -------------------------------------------------- if (success==true) { if (!IsTesting() && !IsVisualMode()) Print("Operation details: Speed "+(string)(GetTickCount()-time0)+" ms"); if (ontrade_event == true) { OrderModified(ticket); RegisterEvent("trade"); } if (OrderSelect(ticket,SELECT_BY_TICKET)) {} return(true); } break; } return(false); } bool ModifyStops(int ticket, double sl=-1, double tp=-1, color clr=CLR_NONE) { return(ModifyOrder(ticket,attrOpenPrice(),sl,tp,0,0,attrExpiration(),clr)); } int OCODriver() { static int last_known_ticket = 0; static int orders1[]; static int orders2[]; int i, size; int total = OrdersTotal(); for (int pos=total-1; pos>=0; pos--) { if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) { int 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() <= OP_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 (OrderSelect(orders1[i], SELECT_BY_TICKET, MODE_TRADES) == false || OrderType() <= OP_SELL) { if (OrderSelect(orders2[i], SELECT_BY_TICKET, MODE_TRADES)) { if (DeleteOrder(orders2[i],clrWhite)) { 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 (OrderSelect(orders2[i], SELECT_BY_TICKET, MODE_TRADES) == false || OrderType() <= OP_SELL) { if (OrderSelect(orders1[i], SELECT_BY_TICKET, MODE_TRADES)) { if (DeleteOrder(orders1[i],clrWhite)) { dbremove = true; } } else { dbremove = true; } if (dbremove == true) { ArrayStripKey(orders1, i); ArrayStripKey(orders2, i); } } } return true; } bool OnTimerSet(double seconds) { if (FXD_ONTIMER_TAKEN) { if (seconds<=0) { FXD_ONTIMER_TAKEN_IN_MILLISECONDS = false; FXD_ONTIMER_TAKEN_TIME = 0; } else if (seconds < 1) { FXD_ONTIMER_TAKEN_IN_MILLISECONDS = true; FXD_ONTIMER_TAKEN_TIME = seconds*1000; } else { FXD_ONTIMER_TAKEN_IN_MILLISECONDS = false; FXD_ONTIMER_TAKEN_TIME = seconds; } return true; } if (seconds<=0) { EventKillTimer(); } else if (seconds < 1) { return (EventSetMillisecondTimer((int)(seconds*1000))); } else { return (EventSetTimer((int)seconds)); } return true; } void OnTradeListener() { if (!ENABLE_EVENT_TRADE) {return;} int i=-1, j=-1, k=-1; int ti=-1; int ty=-1; int size=-1; static datetime start_time=-1; int pos=0; if (start_time==-1) {start_time=TimeCurrent();} string e_reason=""; string e_detail=""; /////// // TRADES AND ORDERS int tickets_now[]; ArrayResize(tickets_now,0); int tn=0; static int memory_ti[]; static int memory_ty[]; static double memory_sl[]; static double memory_tp[]; static double memory_vl[]; static bool loaded=false; int total=OrdersTotal(); // initial fill of the local DB if (loaded==false) { loaded=true; for (pos=total-1; pos>=0; pos--) { if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) { ArrayResize(memory_ti,tn+1); ArrayResize(memory_ty,tn+1); ArrayResize(memory_sl,tn+1); ArrayResize(memory_tp,tn+1); ArrayResize(memory_vl,tn+1); memory_ti[tn]=OrderTicket(); memory_ty[tn]=OrderType(); memory_sl[tn]=attrStopLoss(); memory_tp[tn]=attrTakeProfit(); memory_vl[tn]=OrderLots(); tn++; } } return; } tn=0; bool pending_opens=false; for (pos=total-1; pos>=0; pos--) { if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) { ArrayResize(tickets_now,tn+1); tickets_now[tn]=OrderTicket(); tn++; // Trades and Orders i=-1; ti=-1; ty=-1; size=ArraySize(memory_ti); if (size>0) { for (i=0; i<size; i++) { if (memory_ti[i]==OrderTicket()) { if (memory_ty[i]==OrderType()) { ty=OrderType(); } else { pending_opens=true; } ti=OrderTicket(); break; } } } // Order become a trade if (ti>0 && ty<0) { memory_ti[i]=OrderTicket(); memory_ty[i]=OrderType(); memory_sl[i]=attrStopLoss(); memory_tp[i]=attrTakeProfit(); memory_vl[i]=OrderLots(); e_reason="new"; e_detail=""; break; } // New trade/order opened else if (ti<0 && ty<0) { ArrayResize(memory_ti,size+1); memory_ti[size]=OrderTicket(); ArrayResize(memory_ty,size+1); memory_ty[size]=OrderType(); ArrayResize(memory_sl,size+1); memory_sl[size]=attrStopLoss(); ArrayResize(memory_tp,size+1); memory_tp[size]=attrTakeProfit(); ArrayResize(memory_vl,size+1); memory_vl[size]=OrderLots(); e_reason="new"; e_detail=""; break; } // Check for Lots, SL or TP modification else if (ty>=0 && i>-1) { if (memory_vl[i]!=OrderLots()) { memory_vl[i]=OrderLots(); e_reason="modify"; e_detail="lots"; break; } else { if (memory_sl[i]!=attrStopLoss()) {memory_sl[i]=attrStopLoss(); e_reason="modify"; e_detail="sl"; break;} if (memory_tp[i]!=attrTakeProfit()) {memory_tp[i]=attrTakeProfit(); e_reason="modify"; if (e_detail=="sl") {e_detail="sltp";} else {e_detail="tp";} break;} } } } } // Check for closed orders/trades bool missing=true; if (e_reason=="" && pending_opens==false && ArraySize(tickets_now)<ArraySize(memory_ti)) { for(i=ArraySize(memory_ti)-1; i>=0; i--) { // for each ticket in the memory... for(j=0; j<ArraySize(tickets_now); j++) { // check if trade exists now if (memory_ti[i]==tickets_now[j]) {missing=false; break;} } if (missing==true) { if (OrderSelect(memory_ti[i],SELECT_BY_TICKET)) { // This can happen more than once ArrayStripKey(memory_ti,i); ArrayStripKey(memory_ty,i); ArrayStripKey(memory_sl,i); ArrayStripKey(memory_tp,i); ArrayStripKey(memory_vl,i); e_reason="closed"; e_detail=""; break; } } missing=true; } } // TRADES AND ORDERS /////// if (e_reason!="") { UpdateEventValues(e_reason,e_detail); EventTrade(); OnTradeListener(); if (USE_VIRTUAL_STOPS && e_reason=="closed") { ObjectDelete("#"+(string)OrderTicket()+" sl"); ObjectDelete("#"+(string)OrderTicket()+" tp"); } return; } } int OnTradeQueue(int queue=0) { static int mem=0; mem=mem+queue; return(mem); } bool OrderModified(double id=-1, string action="set") { static double memory[]; if (id==-1) { id=OrderTicket(); action="get"; } else if (id>-1 && action!="clear") { action="set"; } bool modified_status=InArray(memory,id); if (action=="set") { //- Set Trade ID ArrayValue(memory,id); return(true); } else if (action=="clear") { //- Unset Trade ID ArrayStrip(memory,id); return(true); } else if (action=="get") { //- Get State return(modified_status); } Print("Error: The second parameter of the function \"OrderModified\" should be \"set\", \"get\" or \"clear\""); return (false); } double PipValue(string symbol="") { if (symbol=="") {symbol=GetSymbol();} return(CustomPoint(symbol)/MarketInfo(symbol,MODE_POINT)); /* if (symbol=="") {symbol=GetSymbol();} int digits=MarketInfo(symbol,MODE_DIGITS); if ((digits==2 || digits==4)) {return(POINT_FORMAT/0.0001);} if ((digits==3 || digits==5)) {return(POINT_FORMAT/0.00001);} if ((digits==6)) {return(POINT_FORMAT/0.000001);} return(1); */ } // Collect events, if any void RegisterEvent(string command="") { int ticket=OrderTicket(); OnTradeListener(); ticket=OrderSelect(ticket,SELECT_BY_TICKET); return; } void SetLastIndicatorData(double value=0, string symbol="", int timeframe=0, int shift=0) { LastIndicatorValue(true,value); LastIndicatorSymbol(true,symbol); LastIndicatorTimeframe(true,timeframe); LastIndicatorShift(true,shift); IndicatorMoreShift(true,0); // reset return; } string SetSymbol(string symbol="") { if (symbol=="") {symbol=Symbol();} GetSymbol(symbol); return(symbol); } void StringExplode(string delimiter, string explode, string &sReturn[]) { static int ilBegin; ilBegin = -1; static int ilEnd; ilEnd = 0; static int ilElement; ilElement = 0; static string sDelimiter; sDelimiter = delimiter; static string sExplode; sExplode = explode; 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 delimiter, string explode, int &sReturn[]) { static int ilBegin; ilBegin = -1; static int ilEnd; ilEnd = 0; static int ilElement; ilElement = 0; static string sDelimiter; sDelimiter = delimiter; static string sExplode; sExplode = explode; 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)StrToInteger(StringSubstr(sExplode, ilBegin+1, StringLen(sExplode))); } } else { if (ilBegin+1 != ilEnd){ sReturn[ilElement] = (int)StrToInteger(StringSubstr(sExplode, ilBegin+1, ilEnd-ilBegin-1)); } } ilBegin = StringFind(sExplode, sDelimiter,ilEnd); ilElement++; } } void StringExplode(string delimiter, string explode, double &sReturn[]) { static int ilBegin; ilBegin = -1; static int ilEnd; ilEnd = 0; static int ilElement; ilElement = 0; static string sDelimiter; sDelimiter = delimiter; static string sExplode; sExplode = explode; 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)StrToDouble(StringSubstr(sExplode, ilBegin+1, StringLen(sExplode))); } } else { if (ilBegin+1 != ilEnd){ sReturn[ilElement] = (double)StrToDouble(StringSubstr(sExplode, ilBegin+1, ilEnd-ilBegin-1)); } } ilBegin = StringFind(sExplode, sDelimiter,ilEnd); ilElement++; } } string StringTrim(string text) { static string t; t = text; t = StringTrimRight(t); t = StringTrimLeft(t); return(t); } double SymbolAsk(string symbol="") { if (symbol=="") {symbol=GetSymbol();} return(MarketInfo(symbol,MODE_ASK)); } double SymbolBid(string symbol="") { if (symbol=="") {symbol=GetSymbol();} return(MarketInfo(symbol,MODE_BID)); } 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); 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=MarketInfo(symbol,MODE_ASK); bid=MarketInfo(symbol,MODE_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==MODE_ASK) { return(MarketInfo(symbol, MODE_ASK)); } else if (type==MODE_BID) { return(MarketInfo(symbol, MODE_BID)); } else { double mid=((MarketInfo(symbol, MODE_ASK)+MarketInfo(symbol, MODE_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==MODE_ASK) { retval=(memoryASK[sid][id]); if (retval==0) {retval=MarketInfo(symbol,MODE_ASK);} } else if (type==MODE_BID) { retval=(memoryBID[sid][id]); if (retval==0) {retval=MarketInfo(symbol,MODE_BID);} } //Print(shift+" "+id+" "+retval); } } } return(retval); } 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); } void UpdateEventValues(string e_reason="",string e_detail="") { OnTradeQueue(1); e_Reason(true,e_reason); e_ReasonDetail(true,e_detail); e_attrClosePrice (true,attrClosePrice()); e_attrComment (true,attrComment()); e_attrCommission (true,attrCommission()); e_attrExpiration (true,attrExpiration()); e_attrLots (true,attrLots()); e_attrMagicNumber(true,attrMagicNumber()); e_attrOpenPrice (true,attrOpenPrice()); e_attrProfit (true,attrProfit()); e_attrStopLoss (true,attrStopLoss()); e_attrSymbol (true,attrSymbol()); e_attrTakeProfit (true,attrTakeProfit()); e_attrTicket (true,attrTicket()); e_attrType (true,attrType()); e_attrOpenTime(true,attrOpenTime()); e_attrCloseTime(true,attrCloseTime()); e_attrSwap(true,attrSwap()); } double VirtualStopsDriver(string _command="", int _ti=-1, double _sl=0, double _tp=0, double _slp=0, double _tpp=0) { if (!USE_VIRTUAL_STOPS) {return(0);} // Virtual stops are not enabled => stop here static int mem_to_ti[]; // tickets static int mem_to[]; // timeouts static int last_checked_ticket=0; static string command; command=_command; static int ti; ti=_ti; static double sl; sl=_sl; static double tp; tp=_tp; static double slp; slp=_slp; static double tpp; tpp=_tpp; static int i; i=0; static int ii; ii=-1; static int size; size=0; static int error; error=0; static int pos; static int total; static string name; static double ask, bid; static string print; // Listen trades/orders if (command=="" || command=="listen") { //-- delete lines of virtual stops of manually closed trades ------ total = OrdersHistoryTotal(); if (total>0) { static int prev_ticket; prev_ticket=0; for (pos=total-1; pos>=0; pos--) { if (OrderSelect(pos,SELECT_BY_POS,MODE_HISTORY)) { if (OrderTicket()==last_checked_ticket) {break;} prev_ticket=OrderTicket(); static bool clear; clear=true; name = "#"+(string)OrderTicket()+" sl"; if (ObjectFind(name)<0) { error=GetLastError(); } else { clear=false; ObjectDelete(name); } name = "#"+(string)OrderTicket()+" tp"; if (ObjectFind(name)<0) { clear=true; error=GetLastError(); } else { clear=false; ObjectDelete(name); } } } if (prev_ticket==0) {prev_ticket=OrderTicket();} last_checked_ticket = prev_ticket; } //-- parse trades ------------------------------------------------- total = OrdersTotal(); for (pos=0; pos<total; pos++) { if (OrderSelect(pos,SELECT_BY_POS)) { static int ticket; static string symbol; static double lots; static double cp; ticket = OrderTicket(); symbol = OrderSymbol(); lots = OrderLots(); cp = OrderClosePrice(); // check SL and TP static double sl_lvl; static double tp_lvl; name = "#"+(string)ticket+" sl"; sl_lvl = ObjectGet(name,OBJPROP_PRICE1); name = "#"+(string)ticket+" tp"; tp_lvl = ObjectGet(name,OBJPROP_PRICE1); // close trade/order if (OrderType()==OP_BUY) { bid = MarketInfo(symbol,MODE_BID); if ((sl_lvl>0 && bid<=sl_lvl) || (tp_lvl>0 && bid>=tp_lvl)) { if (VIRTUAL_STOPS_TIMEOUT>0 && (sl_lvl>0 && bid<=sl_lvl)) { i=ArraySearch(mem_to_ti, ticket); if (i<0) { // start timeout size = ArraySize(mem_to_ti); ArrayResize(mem_to_ti, size+1); ArrayResize(mem_to, size+1); mem_to_ti[size] = ticket; mem_to[size] = (int)TimeLocal(); print = StringConcatenate("#",ticket," timeout of ",VIRTUAL_STOPS_TIMEOUT," seconds started"); Print(print); return(0); } else { if (TimeLocal()-mem_to[i] <= VIRTUAL_STOPS_TIMEOUT) {return(0);} } } if (OrderClose(ticket, lots, cp, 0, clrNONE)) { OnTradeListener(); // check this before deleting the lines name = "#"+(string)OrderTicket()+" sl"; ObjectDelete(name); name = "#"+(string)OrderTicket()+" tp"; ObjectDelete(name); } return(0); } else { if (VIRTUAL_STOPS_TIMEOUT>0) { i=ArraySearch(mem_to_ti,ticket); if (i>=0) { ArrayStripKey(mem_to_ti,i); ArrayStripKey(mem_to,i); } } } } else if (OrderType()==OP_SELL) { ask = MarketInfo(symbol,MODE_ASK); if ((sl_lvl>0 && ask>=sl_lvl) || (tp_lvl>0 && ask<=tp_lvl)) { if (VIRTUAL_STOPS_TIMEOUT>0 && (sl_lvl>0 && ask>=sl_lvl)) { i=ArraySearch(mem_to_ti, ticket); if (i<0) { // start timeout size = ArraySize(mem_to_ti); ArrayResize(mem_to_ti, size+1); ArrayResize(mem_to, size+1); mem_to_ti[size] = ticket; mem_to[size] = (int)TimeLocal(); print = StringConcatenate("#",ticket," timeout of ",VIRTUAL_STOPS_TIMEOUT," seconds started"); Print(print); return(0); } else { if (TimeLocal()-mem_to[i] <= VIRTUAL_STOPS_TIMEOUT) {return(0);} } } if (OrderClose(ticket, lots, cp, 0, clrNONE)) { OnTradeListener(); // check this before deleting the lines name = "#"+(string)OrderTicket()+" sl"; ObjectDelete(name); name = "#"+(string)OrderTicket()+" tp"; ObjectDelete(name); } return(0); } else { if (VIRTUAL_STOPS_TIMEOUT>0) { i=ArraySearch(mem_to_ti,ticket); if (i>=0) { ArrayStripKey(mem_to_ti,i); ArrayStripKey(mem_to,i); } } } } } } } // Set SL and TP else if ((command=="set" || command=="modify" || command=="clear" || command=="partial") && ti>-1) { static string settext; // update record (add/modify) name = "#"+(string)ti+" sl"; if (sl>0) { if (ObjectFind(name)==-1) { ObjectCreate(name,OBJ_HLINE,0,0,sl); ObjectSet(name,OBJPROP_WIDTH,1); ObjectSet(name,OBJPROP_COLOR,DeepPink); ObjectSet(name,OBJPROP_STYLE,STYLE_DOT); settext = name+" (virtual)"; ObjectSetText(name, settext); error=GetLastError(); } else { ObjectSet(name,OBJPROP_PRICE1,sl); } } else {ObjectDelete(name);} name="#"+(string)ti+" tp"; if (tp>0) { if (ObjectFind(name)==-1) { ObjectCreate(name,OBJ_HLINE,0,0,tp); ObjectSet(name,OBJPROP_WIDTH,1); ObjectSet(name,OBJPROP_COLOR,DodgerBlue); ObjectSet(name,OBJPROP_STYLE,STYLE_DOT); settext = name+" (virtual)"; ObjectSetText(name, settext); error=GetLastError(); } else { ObjectSet(name, OBJPROP_PRICE1, tp); } } else { ObjectDelete(name); } // print message if (command=="set" || command=="modify") { print = command+" #"+(string)ti+": virtual sl "+DoubleToStr(sl,Digits)+" tp "+DoubleToStr(tp,Digits); Print(print); } return(1); } // Get SL or TP else if ((command=="get sl" || command=="get tp") && ti>0) { if (command=="get sl") { name = "#"+(string)ti+" sl"; if (ObjectFind(name) == -1) {error=GetLastError();return(0);} return(ObjectGet(name, OBJPROP_PRICE1)); } else if (command=="get tp") { name = "#"+(string)ti+" tp"; if (ObjectFind(name) == -1) {error=GetLastError();return(0);} return(ObjectGet(name, OBJPROP_PRICE1)); } return(0); } return(1); } void WaitTradeContextIfBusy() { if(IsTradeContextBusy()) { while(true) { Sleep(1); if(!IsTradeContextBusy()) { RefreshRates(); break; } } } return; } double attrClosePrice(string sel="") { return(OrderClosePrice()); } datetime attrCloseTime(string sel="") { return(OrderCloseTime()); } string attrComment(string sel="") { return(OrderComment()); } double attrCommission(string sel="") { if (sel=="e" || sel=="event") {return(e_attrCommission());} return(OrderCommission()); } datetime attrExpiration(string sel="") { return(OrderExpiration()); } double attrLots(string sel="") { return(OrderLots()); } int attrMagicNumber(string sel="") { return(OrderMagicNumber()); } double attrOpenPrice(string sel="") { return(OrderOpenPrice()); } datetime attrOpenTime(string sel="") { return(OrderOpenTime()); } double attrProfit(string sel="") { return(OrderProfit()); } double attrStopLoss() { if (USE_VIRTUAL_STOPS) {return(VirtualStopsDriver("get sl",OrderTicket()));} return(OrderStopLoss()); } double attrSwap(string sel="") { return(OrderSwap()); } string attrSymbol(string sel="") { return(OrderSymbol()); } double attrTakeProfit() { if (USE_VIRTUAL_STOPS) {return(VirtualStopsDriver("get tp",OrderTicket()));} return(OrderTakeProfit()); } int attrTicket() { return(OrderTicket()); } int attrTicketInLoop(int ticket=0) { static int t; if (ticket>0) {t=ticket;} return(t); } int attrType() { return(OrderType()); } string e_Reason(bool set=false, string inp="") { static string mem[]; int queue=OnTradeQueue()-1; if(set==true){ ArrayResize(mem,queue+1); mem[queue]=inp; } return(mem[queue]); } string e_ReasonDetail(bool set=false, string inp="") {static string mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} double e_attrClosePrice(bool set=false, double inp=-1) {static double mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} datetime e_attrCloseTime(bool set=false, datetime inp=-1) {static datetime mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} string e_attrComment(bool set=false, string inp="") {static string mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} double e_attrCommission(bool set=false, double inp=0) {static double mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} datetime e_attrExpiration(bool set=false, datetime inp=0) {static datetime mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} double e_attrLots(bool set=false, double inp=-1) {static double mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} int e_attrMagicNumber(bool set=false, int inp=-1) {static int mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} double e_attrOpenPrice(bool set=false, double inp=-1) {static double mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} datetime e_attrOpenTime(bool set=false, datetime inp=-1) {static datetime mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} double e_attrProfit(bool set=false, double inp=0) {static double mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} double e_attrStopLoss(bool set=false, double inp=-1) {static double mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} double e_attrSwap(bool set=false, double inp=0) {static double mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} string e_attrSymbol(bool set=false, string inp="") {static string mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} double e_attrTakeProfit(bool set=false, double inp=-1) {static double mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} int e_attrTicket(bool set=false, int inp=-1) {static int mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} int e_attrType(bool set=false, int inp=-1) {static int mem[];int queue=OnTradeQueue()-1;if(set==true){ArrayResize(mem,queue+1);mem[queue]=inp;}return(mem[queue]);} double toDigits(double pips, string symbol="") { if (symbol=="") {symbol=GetSymbol();} return( NormalizeDouble( pips*PipValue(symbol)*MarketInfo(symbol,MODE_POINT), (int)MarketInfo(symbol,MODE_DIGITS) ) ); } double toPips(double digits,string symbol="") { if (symbol=="") {symbol=GetSymbol();} return(digits/(PipValue(symbol)*MarketInfo(symbol,MODE_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[10] = {"11","12","13","14","15","16","17","18","19","20"}; 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; case 8: block8(); break; case 9: block9(); break; default: return false; } return true; } void fxdBlockGetNextBlocks(int id, int &list[]) { switch(id) { case 1: ArrayResize(list, 1); list[0]=0; break; case 2: ArrayResize(list, 1); list[0]=1; break; case 3: ArrayResize(list, 1); list[0]=6; break; case 4: ArrayResize(list, 2); list[0]=3;list[1]=5; break; case 5: ArrayResize(list, 1); list[0]=7; break; case 6: ArrayResize(list, 1); list[0]=8; break; case 7: ArrayResize(list, 1); list[0]=9; break; case 8: ArrayResize(list, 1); list[0]=2; break; case 9: ArrayResize(list, 1); list[0]=2; 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:eNrtWm1v4zYS/iuB+6UHXK56tWRv7wDHL63RZO3Gbg/3SVAkymEjiwJFZ9co8t9vhhRlyStv4q6TLrLxF0vkcDSceZ4ZilTY9/p/Fn3T7HcilmUkEpRlRedd2DeN/p+0b8CVjRJuv5NQksadd0W/2+9M3/8+vl6WNwXb8IjgjdXvmGbZKkK+IkK3Wp13D7Rvtqnz+p3ReDL47bJdn9Wqz5b6rOPNc1rVuVKdfby67mfUOcer81rVOVKde7w6v1VdV6rr/oVY2K36elKfd7x5vVZ1nlTnn8o8y5D6ekebhwNbzAOfPjzI9puURXc1spgIb8vEh/iST4KzVPa7mmQzHhNeLCKWy6eALSvONjle77p/0k1Gv6N7Ftv1DUurgWirbClvFv+7uphd7o252GyLGV+QFI0o+g5YzMQtmF/0e8q+kGaEl4YseRhL3WB7TIvwJiXgoxtIAdLv5KMgXKUGmOyD9AWNG6QHpbQIok0h2FqP9LWblAOl3YUg6/JBaxaTNFB6TDDwPZvlJCOxcoRshWfnIQ/XBJ4P2hnjcVGbKGjMKWSuylaYShGFqXZTxvg6lG6CIHUKgroE43IitowadsEUOu8wn+yu7epaRbsQodjIYVYJI5axJEFRQ3k3DkVYWfYgRQQVqXbqe3YmtI9BH4yVTin1wfiUJALVub4LIjaMZjnem6aB6kDiQ0hFLSZsI/KNKOo6KLShhKlMIuWtVAAao0JPHCaHEA6jO0RgFp9HLGW8JNl3g96wN5mUyKh6wB3faXAlAJ/zD4SubkV9zhhEjfwAMMPDHWIAH/chp4isGo5MC3GJ8T4vxFZ5S2mDmVuHGGXKRhw7y+acJVRcsVhzKqEfiYJUrX9O86JRUxBZVScB3mdicVlKuMYBieW8KQFXF2MVSm2Ag4hUzzJt7J6rfm0AOM9qEv715QPrRPnggpPwbnxPsjmjmXhF+cDqlZM7IzC7sxynd/Y9CaNblST+8YQsYTSyhGW7R2cJ48uyhNP1rRtnP0tgTyJ/L5sr7EO5Anz9NZVfOTlgF03/exuKTgUrAIVVdtBsdU0SwkkWkTmnakkCUirndHdSCwi+zjvg93ibhWsalc8Q2FtLe46hYS/UuIxsNWENna5U1yYVNFf+xalYxg/uP89s44dSztHK60nRRjWq32/2qwzaSJwwh0SKVLCs8gdqp1lMI8nLgF4NyuRQj6lfxvlqkBNOWdxYs3nYXtzSRNT9JqUhbdwqabydjcbBQulHaA3yPKUk3nkchs6vp8NxMLycLcaHgo3hnF6NJ9eDq3F5Px9fT2ejYGSWMFv8PJ0sG0GEscPZ9fV4uJzO3u9w/CANS8SIrmiNszvnWEiMdEMCmTKKFtc4ZTr6HcUaoQfDECxVh8ZdK4IPG9gEIMnbKq+CH8lrRc+sQYdU0Fk0EejVVYe8XlQzwGsNwNBZL+lquFt11dXXkLkvUFX8QwrmjX5PwRb6W0Jj6tDcawfvJ6L9yDzB187OIcv5+lNvgEVgZL7zhFUtTLB9zw2WcoOD08Cpvcwc4OoSylw61CUCdI4IgiO7e5blh32K5YfdTLPWc68+urXVh1FbfRi11Ye8dmqrErfW3j3tCqXG8jPwYX7c8qTrNF9ibOcbX544h5YndsnAS9bCR5hujuWoCNTfZ/J9VbZgzGDxSxmhJY3upqMmRI9J9h4+bA041aXkP/8uL67b7PWatfsizOI2m6sVmRSYf1rC0SLZt9gv4z3MHfc0xJ3KxuvU0wq4o1j+WPnbr+n66UfV8sdBdNKs55wg68HwIYMAVt59xoSnpvDFiWrf5M+nJbOZlvD+hfdWJpPRcND7C3srT086uP4GwWyFt5h83IPvRmXbIqV5Hq40LxwdsQHn7MOL1W33FHXbw1QKL2rxMGUFUfuJzw1ls7lzcApYIzhwAo9C2turtF3f+NJKax4J6STxI1VP/97twu4rqbE/vqYaa72mGtt9q7GPJiTfNb7FGut9 9ad/0PIsZds70W7/NHm9p3/T5Imnf12jyR7Xcr/V0z//q2YUQk1dPwOl/DdKnY5Svu2+UUpRqnfwQN34yg7JcFmO73EjytVnafrsKyMfSCHOBTtnaQxXJRpQdnFH8+YCE1vH94RvP22+pGsqas0QpnlYFOMs3i08n4HZvVMw21BTeJmX2xOtIRHJE8bP5C7y8mlfwuy92jr2ixN3ODaM4bhtE3kifwfoK4GMH5mdnMKW8Ubhv5fClvFG4SdT2PP2KOwY3ziF1RE/uEvQbKWI29NTCIEm9yQ4iFbUmnP2B9ApyAApmlAXF2fVWZ36qqIpK7YVocnHnHCh6RkBJIMU3mI35eYvTPTq10tH+wTQAOZwAn/yU0THt4ye5zp+1zfrIgBtmmwPiazDFY2CQp2bwyuO1cUzTAsPm2lBwXFBSm94yLdBlaca3DF7O0lJsENyiDO6JjwoCPgQ6YMvVKUV8ouJgG/KONn6A3cNt4Szdelw41+GYZZ0F6z0CzSa1Wfs+4M8NWh/WLdsNqvv1fcH+nrgZ0Y+qOywKUhwT7nYhGmAJ7L6yD+TA5Q7a70BukJyRpEbvYgqCDhoRbJo26IEZfb6A07SxlZci0gYxw0RuMDv2kQR1D5ZEDS6qxSo3mgbQUj1Jzzlu4OH5SrMbwPGKUjtdiFB65LlS3bBhEy6VWoHZGWieIySENcQkFxrgSdBYSmkfnz4w/8B8RD0hA== :fxdreema>*/