Posts made by james

Thank you for the speedy reply - as always, very impressive!

What about .xml? I can save a .mq4 in .xml. But when I ask fxdreema to load this file, nothing appears to happen, apart from a "1" in a pink circle beside the "fxdreema" logo.

Is it possible to load from .xml?

Thanks again.

Hello

My project .mq4 file is present, and visible to MT4, but when I click "load project from file" in fxdreema I get "no record found". I did not create this .mq4 file myself.

Do I need to some other import step?

Thanks.

James.

Thanks for the very quick reply, fxDreema.

I was using downloaded tick data from Dukascopy, and transforming it into MT4 history files using the excellent Tick Data Suite.

After I'd done some more research on this problem I decided re-install everything, and also give another broker a go. The first broker confusingly called its pairs GBPJPYSB (spread bet), whereas the second used the normal GBPJPY (even for spread bet). The tests seemed to work fine with the first broker (99%, etc) apart from the "Tester: exchange rate cannot be calculated" error at the start.

The key, therefore is the name of the pair. If the name of the history files don't exactly match the pair name the broker gives them (in my case GBPJPYSB instead of GBPJPY), then this error occurs.

Birt (of Birt's eareveiw.net - home of Tick Data Suite) said: "Just for future reference, FXT files created while connected to a broker that uses a suffix for the currency pair names will not work properly on brokers that do not use a suffix and vice-versa. In case you have to perform such a switch, you either have to recreate the FXT using the new broker or you have to hexedit the FXT and remove the suffix (or add it)."

Hopefully this information will assist someone else in the future who stumbles across this problem, and searches for an answer.

Anyway, all's well now.

Thanks again.

I'm using MT4 build 451 together with Tick Data Suite Loader to do back testing.

I'm consistently getting the following error message in journal, although the EA seems to run:

"Tester: exchange rate cannot be calculated"

I've read elsewhere that this occurs if you don't use the correct currency on your account, but I'm finding this occurs over all currencies.

I've tried to use MT4 build 416, but that complains that the EA is corrupt, which it isn't.

Just wondered
1 - if anyone could shed any light on this
2 - does it matter for back testing, or can the message be ignored?

Hi

Great! Thanks. That seems to be working now!

Thanks again.

The on-line platform is clearly doing something a bit different as the .mq4 files it exports are bigger. The compiled .ex4 files (always compiled in MT4) are the same size.

I also tried another test:

• export the failing EA ("desktop test 2") to an .xml file from the desktop platform
• import this EA to the on-line platform
• immediately and without any other mouse actions, save this as a .mq4
• compile this in MT4
• run it

...and guess what! The EA now works! I can only surmise that the on-line platform is doing or not doing something the desktop one is or isn't! Over to you!

And thank you, again!

Here's the EA with errors, "desktop test 2" ...

//+------------------------------------------------------------------------------+//
//) ____ _ _ ____ ____ ____ ____ __ __ __ ___ _____ __ __ (//
//) ( )( / )( _ ( _ ( )( )( / ) /\ / )( _ )( / ) (//
//) )) ) ( )() )) / )) )) ) ( /()\ ( (__ )()( ) ( (//
//) (__) (/_)(/()_)()(_)(//_)()()()_)(___)(//_) (//
//) http://fxdreema.com Copyright  2012, fxDreema (//
//+------------------------------------------------------------------------------+//
#property copyright ""
#property link "http://fxdreema.com"

///////
// Advanced system settings
#define POINT_FORMAT 0.0001 // Relative to EURUSD. 0.0001 to use 4-digits format, 0.00001 to use 5-digits format
#define USE_VIRTUAL_STOPS "no" // Use "yes" or "no"
//--
#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)
//--
#define EVENTS_MODE "tick" // Use "period" to listen every EVENTS_CYCLE_PERIOD milliseconds or "tick" to listen only when a new tick is received
#define EVENTS_CYCLE_PERIOD 1 // Time delay in events listener while in "period" mode. The smaller period - the faster events reaction. Use "1" as minimum
#define EVENT_TIMER_PERIOD 60 // Timer event period (in seconds)
//--
#define ENABLE_EVENT_TICK 1 // "Tick" event: 1 - enable, 0 - disable
#define ENABLE_EVENT_TRADE 0 // "Trade" event: 1 - enable, 0 - disable
#define ENABLE_EVENT_TIMER 0 // "Timer" event: 1 - enable, 0 - disable
//--
#define SIMULATE_TICKS 0 // Use this for offline charts - feed the EA with ticks coming from a certain market (SIMULATE_TICKS_MARKET). Options: 1 - enable, 0 - disable
#define SIMULATE_TICKS_MARKET "EURUSD" // When SIMULATE_TICKS is enabled, feed the EA with ticks coming from the chosen market
///////

#define detect_broker_digits 0

// Standard global variables
extern string inpstd="-= System =-";
extern int MagicStart=1421; // Magic Start (MagicNumber=MagicStart+Group#)

// On-Off switches for blocks
bool tick1=true; // If trade/order exists
bool tick2=true; // Just pass
bool tick3=true; // Just pass
bool tick4=true; // Comment on chart (low level)

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT INITIALIZATION SECTOR |//
//| Runs only once when expert loads |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

int init()
{
int logo_x=230; int logo_y=0;
string name="fxdreema_logo1";
if (ObjectFind(name)==-1) {
ObjectCreate (name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_BACK, false);
ObjectSet (name, OBJPROP_XDISTANCE, logo_x-1);
ObjectSet (name, OBJPROP_YDISTANCE, logo_y+1);
ObjectSetText (name, "g", 16, "Webdings", C'0x11,0x11,0x11');
}

name="fxdreema_logo2";
if (ObjectFind(name)==-1) {
   ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
   ObjectSet      (name, OBJPROP_BACK, false);
   ObjectSet      (name, OBJPROP_XDISTANCE, logo_x+20);
   ObjectSet      (name, OBJPROP_YDISTANCE, logo_y+1);
   ObjectSetText  (name, "gggg", 16, "Webdings", White);
}

name="fxdreema_logo3";
if (ObjectFind(name)==-1) {
   ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
   ObjectSet      (name, OBJPROP_BACK, false);
   ObjectSet      (name, OBJPROP_XDISTANCE, logo_x);
   ObjectSet      (name, OBJPROP_YDISTANCE, logo_y);
   ObjectSetText  (name, "fx", 18, "Arial", Magenta);
}

name="fxdreema_logo4";
if (ObjectFind(name)==-1) {
   ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
   ObjectSet      (name, OBJPROP_BACK, false);
   ObjectSet      (name, OBJPROP_XDISTANCE, logo_x+20);
   ObjectSet      (name, OBJPROP_YDISTANCE, logo_y);
   ObjectSetText  (name, "dreema", 18, "Arial", DimGray);
}

DrawStatus("Starting...");
ListOfIDsConnectedToMe(""); // calculate only

//Comment("Program "+WindowExpertName( ) +" loaded at "+TimeToStr(TimeLocal(),TIME_DATE|TIME_SECONDS));
if (SIMULATE_TICKS==1) {EventsListener(); EventsListener();}
return(0);
}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT START (TICK) SECTOR |//
//| Runs at every new tick (begins with "start()" function) |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

int start() {static int p=0; if (p!=Period()) {DrawStatus("Working"); p=Period();} EventsListener(); return(0);}
int EventTick()
{ TicksFromStart("update");
tick1();
// Main beginning on the graph
DrawSpreadInfo();
return(0);
}
////////////////////////////////////////////
// Define block 1 (If trade/order exists) //
void tick1(string parent="")
{if (tick1==true) {
//////
// Inputs
string OrdersScope = "all" ; // Group mode <== [group|manual|all]
int OrdersGroup = 0 ; // Group # (empty=Default)
string SymbolScope = "all" ; // Market mode <== [all|symbol]
string SYMBOL = Symbol() ; // Market (empty=Current)
string BuysOrSells = "both" ; // Filter by type <== **
// Inputs
//////

	LoopedStop();
	bool exist=false;
	for (int pos=OrdersTotal()-1; pos>=0; pos--) {
	   if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) {
	      if (SymbolScope=="all" || attrSymbol()==SYMBOL) {
	         if (OrdersScope=="all" || attrMagicNumber()==MagicStart+OrdersGroup) {
	            if (
	               (BuysOrSells=="buys"  && (attrType()==OP_BUY || attrType()==OP_BUYLIMIT || attrType()==OP_BUYSTOP))
	               ||
	               (BuysOrSells=="sells" && (attrType()==OP_SELL || attrType()==OP_SELLLIMIT || attrType()==OP_SELLSTOP))
	               ||
	               (BuysOrSells=="both")
	               )
	            {
	               exist=true; break;
	}  }  }  }  }
	LoopedResume();
	if (exist==true) {tick2("1");} else {tick3("1");}
}}

////////////////////////////////
// Define block 2 (Just pass) //
void tick2(string _parent_="")
{if (tick2==true) {
	tick4("2");
}}

////////////////////////////////
// Define block 3 (Just pass) //
void tick3(string _parent_="")
{if (tick3==true) {
	tick4("3");
}}

///////////////////////////////////////////////////
// Define block 4 (Comment on chart (low level)) //
void tick4(string _parent_="")
{if (tick4==true) {
	Comment(
	"Account free margin is ",DoubleToStr(AccountFreeMargin(),2),"\n",
	"Current time is ",TimeToStr(TimeCurrent())
	);
	/* Next blocks in chain */
}}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT TARDE EVENTS SECTOR |//
//| Runs when the Trade event occurs |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

void EventTrade()
{

}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT TIMER EVENTS SECTOR |//
//| Runs when the Timer event occurs |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

void EventTimer()
{

}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT DEINITIALIZATION SECTOR |//
//| Runs only once when expert unloads |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

int deinit()
{
DrawStatus("Stopped");
switch(UninitializeReason())
{
case REASON_CHARTCLOSE: Print("Unitialize: Chart closed"); break;
case REASON_REMOVE: Print("Unitialize: Expert removed from chart"); break;
case REASON_RECOMPILE: Print("Unitialize: Expert recompiled"); break;
case REASON_CHARTCHANGE:Print("Unitialize: Symbol or timeframe changed on the chart"); break;
case REASON_PARAMETERS: Print("Unitialize: Inputs parameters was changed by user"); break;
case REASON_ACCOUNT: Print("Unitialize: Other account activated"); break;
}

return(0);

}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| FUNCTIONS, USED IN THIS EXPERT ADVISOR |//
//| Custom and System functions |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

bool LoopedStop(string action="set")
{
   LoopedResume("set");
   return(true);
}

string attrSymbol(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrSymbol());}
   return(OrderSymbol());
}

int attrMagicNumber(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrMagicNumber());}
   return(OrderMagicNumber());
}

double attrType(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrType());}
   return(OrderType());
}

bool LoopedResume(string action="set")
{
   static int ticket;
   if (action=="set") {
      ticket=OrderTicket(); return(true);
   } else {
      OrderSelect(ticket,SELECT_BY_TICKET); return(true);
   }
   return(false);
}

void EventsListener(string action="listen",string command="")
{
   ///////
   // Define used variables
   int i=-1, j=-1, k=-1; int ti=-1; int ty=-1;
   int size=-1;
   static int start_time=-1;
   static double tt0=0;
   static double ask0=0;
   static double bid0=0;
   static bool initial_pass=false;
   static int history_total=0;
   static int history_total_checked=0;
   static int shorts_hist_count=0;
   static int longs_hist_count=0;
   
   //-- Virtual stops
   static string vs_memory_id[];
   static double vs_memory_sl[];
   static double vs_memory_tp[];
   int vs_id;
   
   int pos=0;
   
   // Define used variables
   ///////
   
   // Event: Timer
   if (ENABLE_EVENT_TIMER==1)
   {
      static double t0=0; // old time
      if (!TimerStopped()) {
         double t; // will be current time
         double tx;
         static double tx0;
         bool milli=false;
         if (TimerPeriod()>=1 || (TimerPeriod()<0 && EVENT_TIMER_PERIOD>0) || IsTesting() || IsVisualMode()) {t=TimeLocal();} else {t=GetTickCount(); milli=true;}
         if (TimerPeriod()>=0) {tx=TimerPeriod();} else {tx=EVENT_TIMER_PERIOD;}
         if (milli==true) {tx=tx*1000;}
         if (tx!=tx0) {t0=0;}
      
         if (t>=t0+tx) {t0=t; tx0=tx; EventTimer();}
      }
   }
   
   // Endless loop (only in case of EA running on Demo or Real)
   bool loop_it=true;
   while(loop_it==true && !IsStopped() && (IsTesting() || IsVisualMode() || IsExpertEnabled())) {
      if (initial_pass==true && !IsTesting()) {DrawEPSMeter();}
   
      //////
      // in case of testing - make it to pass once
      if (IsStopped() || IsTesting() || IsVisualMode() || EVENTS_MODE=="tick" || action=="register") {loop_it=false;}
      //////
      
      //////
      // in case of Script - pass 1st tick and start looping on 2'nd tick
      if (initial_pass==false) {loop_it=false; initial_pass=true;}
      //////
      
      //-- Event: EventTrade()
      if (ENABLE_EVENT_TRADE==1)
      {
         if (start_time==-1) {start_time=TimeCurrent();}
         bool e=false;
      
         ///////
         // HISTORY TRADES
         /*
         int total=OrdersHistoryTotal();
         if (total!=history_total) {
            history_total=total;
            for (pos=total-1; pos>=0; pos--) {
               if (OrderSelect(pos,SELECT_BY_POS,MODE_HISTORY)) {
                  if (OrderOpenTime()>=start_time) {
                     if (history_total>history_total_checked) {
                        history_total_checked++;
                     
                        if (OrderType()==OP_BUY) {longs_hist_count++;}
                        if (OrderType()==OP_SELL) {shorts_hist_count++;}
                     
                     }
                  } else {break;}
               }
            }
         }
         */
         // HISTORY TRADES
         ///////
      
         ///////
         // 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;
         
         static int total_trades0=0; int total_trades=OrdersTotal();
         
         // Load memory_ti with current trades if started now or EA reloaded
         if (loaded==false) {loaded=true;
           for (pos=total_trades-1; pos>=0; pos--) {
              if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) {//Alert(OrderType());
                 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]=attrLots();
                 
                 
                 tn++;
               }
            }
            return;
         }
         tn=0; bool pending_opens=false;
         
         for (pos=total_trades-1; pos>=0; pos--) {
            if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) {
               //if (OrderOpenTime()>=start_time) {
                  ArrayResize(tickets_now,tn+1);
                  tickets_now[tn]=OrderTicket();
                  tn++;

                  // Trades and Orders
                  // 1. Add new trade to memory, if not inside
                  i=-1; ti=-1; ty=-1; size=ArraySize(memory_ti);

                  if (size>0){
                    for (i=0; i<size; i++) {
                       if (memory_ti*==OrderTicket()) {
                          if (memory_ty*==OrderType()) {ty=OrderType();} else {pending_opens=true;}
                          ti=OrderTicket(); break;
                       }
                    }
                    
                  }
                  if (ti>0 && ty<0) {
                     
                    memory_ti*=attrTicket();
                    memory_ty*=OrderType();
                    
                    memory_sl*=attrStopLoss();
                    memory_tp*=attrTakeProfit();
                    memory_vl*=attrLots();
                    UpdateEventValues("Trade","new",""); EventTrade();
                  }
                  else if (ti<0 && ty<0) {

                    ArrayResize(memory_ti,size+1); memory_ti*=attrTicket();
                    ArrayResize(memory_ty,size+1); memory_ty*=attrType();
                    ArrayResize(memory_sl,size+1); memory_sl*=attrStopLoss();
                    ArrayResize(memory_tp,size+1); memory_tp*=attrTakeProfit();
                    ArrayResize(memory_vl,size+1); memory_vl*=attrLots();
                    UpdateEventValues("Trade","new",""); EventTrade();
                  }
                  
                  // 2. Check for SL or TP modification
                  else if (ty<0 && i>-1) {
                    e=false;
                    if (memory_sl*!=attrStopLoss())   {memory_sl*=attrStopLoss(); e=true; UpdateEventValues("Trade","modify","sl");}
                    if (memory_tp*!=attrTakeProfit()) {memory_tp*=attrTakeProfit(); if (e==true) {UpdateEventValues("Trade","modify","sltp");} else {e=true; UpdateEventValues("Trade","modify","tp");}}
                    if (e==true) {EventTrade(); e=false;}
                    if (memory_vl*!=attrLots())       {memory_vl*=attrLots(); e=true; UpdateEventValues("Trade","modify","lots");}
                  }
               //} else {break;}
            }
         }
         
         // There are closed orders/trades
         bool missing=true;
         
         if (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*==tickets_now[j]) {missing=false; break;}
               }
               if (missing==true) {
                  if (OrderSelect(memory_ti*,SELECT_BY_TICKET))
                  {
                     // This can happen more than once
                     ArrayStripKeyI(memory_ti,i);
                     ArrayStripKeyI(memory_ty,i);
                     ArrayStripKey(memory_sl,i);
                     ArrayStripKey(memory_tp,i);
                     ArrayStripKey(memory_vl,i);
                     ObjectDelete("#"+OrderTicket()+" sl");
                     ObjectDelete("#"+OrderTicket()+" tp");
                     UpdateEventValues("Trade","closed","");
                     EventTrade(); e=false;
                  }
               }
               missing=true;
            }
            //ArrayIntersectI(memory_ti,tickets_now); // Remove closed orders from memory
         }
         // TRADES AND ORDERS
         ///////
      }
      //-- Event: EventTick()
      if (ENABLE_EVENT_TICK==1)
      {
         if (action=="listen") {
            if (EVENTS_MODE!="tick") {
               string market_for_ticks=Symbol();
               if (SIMULATE_TICKS==1) {market_for_ticks=SIMULATE_TICKS_MARKET;}
               double ask=MarketInfo(market_for_ticks,MODE_ASK);
               double bid=MarketInfo(market_for_ticks,MODE_BID);
               double tt=MarketInfo(market_for_ticks,MODE_TIME);
            }
            if ((EVENTS_MODE=="tick" || (tt!=tt0 || ask!=ask0 || bid!=bid0))) {tt0=tt; ask0=ask; bid0=bid;
               VirtualStopsDriver("listen"); // will work only if this is used: #define USE_VIRTUAL_STOPS "yes"
               EventTick();
            }
         }
      }
      
      
      /*
      int obj_total=ObjectsTotal();
      string name;
      for(i=0;i<obj_total;i++)
      {
         name=ObjectName(i);
         //Print(i,"Object name for object #",i," is " + name);
         //Print(ObjectGetValueByShift(name, 0));

      }
      */

      if (loop_it==true) {Sleep(EVENTS_CYCLE_PERIOD);} // Endless loop resolution
   }
}

void UpdateEventValues(string e_type="",string e_reason="",string e_detail="")
{
   e_Reason(e_reason);
   e_ReasonDetail("set",e_detail);
   if (e_type=="Trade" || e_type=="EventTrade") {
      e_attrClosePrice ("set",attrClosePrice());
      e_attrComment    ("set",attrComment());
      e_attrCommission ("set",attrCommission());
      e_attrExpiration ("set",attrExpiration());
      e_attrLots       ("set",attrLots());
      e_attrMagicNumber("set",attrMagicNumber());
      e_attrOpenPrice  ("set",attrOpenPrice());
      e_attrProfit     ("set",attrProfit());
      e_attrStopLoss   ("set",attrStopLoss());
      e_attrSymbol     ("set",attrSymbol());
      e_attrTakeProfit ("set",attrTakeProfit());
      e_attrTicket     ("set",attrTicket());
      e_attrType       ("set",attrType());
      // Not set, just execute without reason
      e_attrOpenTime();
      e_attrSwap();
   }
}

int TicksFromStart(string cmd="read")
{
   static int ticks=0;
   if (cmd=="update") {ticks++; if (ticks<0) ticks=0;}
   return(ticks);
}

string DrawStatus(string text)
{
   static string memory;
   if (text=="getCurrentStatus") {return(memory);}
   
   int strlen=StringLen(text);
   string rect1; for (int i=1; i<=strlen; i++) {rect1=rect1+"g";}
	int x=340; int y=0;
   string name;

   static bool draw_status1=true;
   if (draw_status1==true) {draw_status1=false;
      name="StatusTitle";
      if (ObjectFind(name)==-1) {
         ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
         ObjectSet      (name, OBJPROP_BACK, false);
         ObjectSet      (name, OBJPROP_XDISTANCE, x);
         ObjectSet      (name, OBJPROP_YDISTANCE, y);
         ObjectSetText  (name, "Status", 7, "Arial", Gray);
      }
   }
   
   if (text!=memory) {memory=text;
      name="StatusText";
      if (ObjectFind(name)==-1) {
         ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
         ObjectSet      (name, OBJPROP_BACK, false);
         ObjectSet      (name, OBJPROP_XDISTANCE, x+2);
         ObjectSet      (name, OBJPROP_YDISTANCE, y+8);
      }
      ObjectSetText  (name, text, 12, "Arial", LightBlue);
   }
   return(text);
}

int PipValue(string symbol="")
{
   if (symbol=="") {symbol=Symbol();}
   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);
}

double toDigits(double pips,string symbol="")
{
	if (symbol=="") {symbol=GetSymbol();}
   return(
      NormalizeDouble(
         pips*PipValue()*MarketInfo(symbol,MODE_POINT),
         MarketInfo(symbol,MODE_DIGITS)
      )
   );
}

double toPips(double digits,string symbol="")
{
   if (symbol=="") {symbol=GetSymbol();}
   return(digits/(PipValue()*MarketInfo(symbol,MODE_POINT)));
}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| FUNCTIONS, CALLED FROM FUNCTIONS |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

string e_attrSymbol(string cmd="", string inp="") {static string mem; if(cmd=="set"){mem=inp;} return(mem);}

int e_attrMagicNumber(string cmd="", int inp=-1) {static int mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

int e_attrType(string cmd="", int inp=-1) {static int mem; if(cmd=="set"){mem=inp;} return(mem);}

bool TimerStopped() {if (TimerStop(-1)==1) {return(true);} return(false);}

double TimerPeriod(double t=-1) {static double time=-1; if (t>=0){time=t;} if (t>-1){TimerStop(0);} return(time);}

void DrawEPSMeter()
{
   static int frames=0;
   static int frame=0;
   static int eps=0;
   static int time0=0;
   static int direction=0;
   
   int tl=TimeLocal();
   if (tl>time0) {
      time0=tl; eps=frame; frame=0;
      int x=0; int y=0;
      string name="fxdreema_eps_meter";
      if (ObjectFind(name)==-1) {
         ObjectDelete(name);
         ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
         ObjectSet   (name, OBJPROP_CORNER, 3);
         ObjectSet   (name, OBJPROP_XDISTANCE, x+1);
         ObjectSet   (name, OBJPROP_YDISTANCE, y+1);
      }
      ObjectSetText(name, "Events per second: "+eps, 10, "Arial", DarkSeaGreen);
   } else {
   frame++; frames++;
   }
   
   /*
   if (direction==0) {
      
      if (frames==20) {Comment(fps,"fps |");}
      if (frames==40) {Comment(fps,"fps ||");}
      if (frames==60) {Comment(fps,"fps |||");}
         if (frames==80) {Comment(fps,"fps ||||");}
         if (frames==100) {Comment(fps,"fps |||||");}
         if (frames==120) {Comment(fps,"fps ||||||");}
         if (frames==140) {Comment(fps,"fps |||||||");}
         if (frames==160) {Comment(fps,"fps ||||||||");}
         if (frames==180) {Comment(fps,"fps |||||||||");}
         if (frames==200) {Comment(fps,"fps ||||||||||"); frames=0; direction=1;}
      }
      if (direction==1) {
         if (frames==20)  {Comment(fps+"fps ||||||||||");}
         if (frames==40)  {Comment(fps+"fps |||||||||");}
         if (frames==60)  {Comment(fps+"fps ||||||||");}
         if (frames==80)  {Comment(fps+"fps |||||||");}
         if (frames==100) {Comment(fps+"fps ||||||");}
         if (frames==120) {Comment(fps+"fps |||||");}
         if (frames==140) {Comment(fps+"fps ||||");}
         if (frames==160) {Comment(fps+"fps |||");}
         if (frames==180) {Comment(fps+"fps ||");}
         if (frames==200) {Comment(fps+"fps |"); frames=0; direction=0;}
      }
      */
}

double attrStopLoss(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrStopLoss());}
   if (USE_VIRTUAL_STOPS=="yes" && sel=="") {return(VirtualStopsDriver("get sl",OrderTicket()));}
   return(OrderStopLoss());
}

double attrTakeProfit(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrTakeProfit());}
   if (USE_VIRTUAL_STOPS=="yes" && sel=="") {return(VirtualStopsDriver("get tp",OrderTicket()));}
   return(OrderTakeProfit());
}

double attrLots(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrLots());}
   return(OrderLots());
}

int attrTicket(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrTicket());}
   return(OrderTicket());
}

bool ArrayStripKeyI(int &array[], int key)
{
   bool stripped=false;
   int size=ArraySize(array);
   if (size>0)
   {
      int i=0; int x=0;
      for (i=0; i<size; i++)
      {
         if (i!=key)
         {
            array[x]=array*;
            x++;
         } else {
            stripped=true;  
         }
      }
      ArrayResize(array,x);
   }
   return (stripped);
}

bool ArrayStripKey(double &array[], double key)
{
   bool stripped=false;
   int size=ArraySize(array);
   if (size>0)
   {
      int i=0; int x=0;
      for (i=0; i<size; i++)
      {
         if (i!=key)
         {
            array[x]=array*;
            x++;
         } else {
            stripped=true;  
         }
      }
      ArrayResize(array,x);
   }
   return (stripped);
}

double VirtualStopsDriver(string command="", int ti=-1, double sl=0, double tp=0, double slp=0, double tpp=0)
{
   int i, ii=-1, size;
   //static int    mem_ti[];
   //static double mem_sl[];
   //static double mem_tp[];
   //static double mem_vl[];
   if (USE_VIRTUAL_STOPS!="yes") {return;} // Virtual stops are not enabled => stop here
   
   // Set SL and TP
   if ((command=="set" || command=="modify" || command=="clear" || command=="partial") && ti>-1)
   {
      // update record (add/modify)
      string name="";
      name="#"+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);
            ObjectSetText(name,name+" (virtual)");
         }
         else {ObjectSet(name,OBJPROP_PRICE1,sl);}
      } else {ObjectDelete(name);}
      name="#"+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);
            ObjectSetText(name,name+" (virtual)");
         }
         else {ObjectSet(name,OBJPROP_PRICE1,tp);}
      } else {ObjectDelete(name);}
      // print message
      if (command=="set" || command=="modify") Print(command+" #"+ti+": virtual sl "+DoubleToStr(sl,Digits)+" tp "+DoubleToStr(tp,Digits));
      return(1);
   }
   
   // Get SL or TP
   if ((command=="get sl" || command=="get tp") && ti>-1)
   {
      if (command=="get sl") return(ObjectGet("#"+ti+" sl",OBJPROP_PRICE1));
      else if (command=="get tp") return(ObjectGet("#"+ti+" tp",OBJPROP_PRICE1));
      return(0);
   }
   
   // Listen trades/orders
   if (command=="" || command=="listen")
   {
      for (int pos=0; pos<OrdersTotal(); pos++) {
         if (OrderSelect(pos,SELECT_BY_POS)) {
            // check SL and TP
            double sl_lvl=ObjectGet("#"+OrderTicket()+" sl",OBJPROP_PRICE1);
            double tp_lvl=ObjectGet("#"+OrderTicket()+" tp",OBJPROP_PRICE1);
            // close trade/order
            if (OrderType()==OP_BUY) {
               double bid=MarketInfo(OrderSymbol(),MODE_BID);
               if ((sl_lvl>0 && bid<=sl_lvl) || (tp_lvl>0 && bid>=tp_lvl)) {
                  if (OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,CLR_NONE))
                  {
                     ObjectDelete("#"+OrderTicket()+" sl");
                     ObjectDelete("#"+OrderTicket()+" tp");
                  }
                  return;
               }
            }
            else if (OrderType()==OP_SELL) {
               double ask=MarketInfo(OrderSymbol(),MODE_ASK);
               if ((sl_lvl>0 && ask>=sl_lvl) || (tp_lvl>0 && ask<=tp_lvl)) {
                  if (OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,CLR_NONE))
                  {
                     ObjectDelete("#"+OrderTicket()+" sl");
                     ObjectDelete("#"+OrderTicket()+" tp");
                  }
                  return;
               }
            }
         }
      }
   }
   return(1);
}

string e_Reason(string inp="") {static string mem; if(inp!=""){mem=inp;} return(mem);}

string e_ReasonDetail(string cmd="", string inp="") {static string mem; if(cmd=="set"){mem=inp;} return(mem);}

double e_attrClosePrice(string cmd="", double inp=-1) {static double mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

double attrClosePrice(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrClosePrice());}
   return(OrderClosePrice());
}

string e_attrComment(string cmd="", string inp="") {static string mem; if(cmd=="set"){mem=inp;} return(mem);}

string attrComment(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrComment());}
   return(OrderComment());
}

double e_attrCommission(string cmd="", double inp=0) {static double mem=0; if(cmd=="set"){mem=inp;} return(mem);}

double attrCommission(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrCommission());}
   return(OrderCommission());
}

datetime e_attrExpiration(string cmd="", datetime inp=0) {static datetime mem=0; if(cmd=="set"){mem=inp;} return(mem);}

datetime attrExpiration(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrExpiration());}
   return(OrderExpiration());
}

double e_attrLots(string cmd="",double inp=-1) {static double mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

double e_attrOpenPrice(string cmd="", double inp=-1) {static double mem; if(cmd=="set"){mem=inp;} return(mem);}

double attrOpenPrice(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrOpenPrice());}
   return(OrderOpenPrice());
}

double e_attrProfit(string cmd="", double inp=0) {static double mem; if(cmd=="set"){mem=inp;} return(mem);}

double attrProfit(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrProfit());}
   return(OrderProfit());
}

double e_attrStopLoss(string cmd="", double inp=-1) {static double mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

double e_attrTakeProfit(string cmd="", double inp=-1) {
   static double mem=-1;
   static double pips=0;
   double price;
   if(cmd=="pipsFromHere"){
      if (e_attrTakeProfit()>0) {
         if (e_attrType()==OP_BUY || e_attrType()==OP_BUYSTOP || e_attrType()==OP_BUYLIMIT)
         {
            price=SymbolAsk(e_attrSymbol());
            pips=toPips(MathAbs(price-e_attrTakeProfit()),e_attrSymbol());
         }
         else
         {
            price=SymbolBid(e_attrSymbol());
            pips=toPips(MathAbs(price-e_attrTakeProfit()),e_attrSymbol());
         }
      }
   }
   if(cmd=="set"){mem=inp;}
   return(mem);
}

int e_attrTicket(string cmd="", int inp=-1) {static int mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

datetime e_attrOpenTime(string cmd="",datetime inp=-1) {static datetime mem; if(cmd=="set"){mem=inp;} return(mem);}

double e_attrSwap(string cmd="", double inp=0) {static double mem; if(cmd=="set"){mem=inp;} return(mem);}

string GetSymbol(string symbol="")
{
   static string memory="";
   if (memory=="") {memory=Symbol();}
   if (symbol=="") {return(memory);}
   if (symbol!="") {memory=symbol; return(memory);}
   return(Symbol());
}

int TimerStop(int s=1) {static int stopped=0; if (s==0 || s==1){stopped=s;} return(stopped);}

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));
}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| PERMANENT FUNCTIONS |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

string ListOfIDsConnectedToMe(string src) {
static bool passed=false;
static string ids[]; ArrayResize(ids,3);
static string lst[]; ArrayResize(lst,3);
if (passed==false) {passed=true;
ids[0]="2";lst[0]="1";
ids[1]="3";lst[1]="1";
ids[2]="4";lst[2]="3,2";
}
if (src!="") {
int i=0; int maxi=ArraySize(ids); for (i=0; i<maxi; i++) {if (ids*==src) {return(lst*); break;}}
}
return("");
}
void DrawSpreadInfo() {
static bool allow_draw=true;
if (allow_draw==false) {return;}
if ((IsTesting()/||IsVisualMode()/)) {if (allow_draw==true) {allow_draw=false;}} // Allowed to draw only once in testing mode

double pip_value=0;
int digits=MarketInfo(Symbol(),MODE_DIGITS);
if ((digits==2 || digits==4)) {pip_value=(POINT_FORMAT/0.0001);}
if ((digits==3 || digits==5)) {pip_value=(POINT_FORMAT/0.00001);}
if ((digits==6))              {pip_value=(POINT_FORMAT/0.000001);}

static double max_spread=0;
static double min_spread=0;
static double avg_spread=0;
static double avg_add=0;
static double avg_cnt=0;
double current_spread=(MarketInfo(Symbol(),MODE_ASK)-MarketInfo(Symbol(),MODE_BID))/(pip_value*MarketInfo(Symbol(),MODE_POINT));
if (current_spread>max_spread) {max_spread=current_spread;}
if (current_spread<min_spread || min_spread==0) {min_spread=current_spread;}
avg_add=avg_add+current_spread; avg_cnt++;
avg_spread=avg_add/avg_cnt;

int x=0; int y=0;
string name="current_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+1);
ObjectSet (name, OBJPROP_YDISTANCE, y+1);
}
ObjectSetText(name, "Spread: "+DoubleToStr(current_spread,2), 18, "Arial", DarkOrange);

name="max_spread_label";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+148);
ObjectSet (name, OBJPROP_YDISTANCE, x+17);
ObjectSetText(name, "max:", 7, "Arial", OrangeRed);
}
name="max_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+173);
ObjectSet (name, OBJPROP_YDISTANCE, y+17);
}
ObjectSetText(name, DoubleToStr(max_spread,2), 7, "Arial", OrangeRed);

name="avg_spread_label";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+148);
ObjectSet (name, OBJPROP_YDISTANCE, y+9);
ObjectSetText(name, "avg:", 7, "Arial", DarkOrange);
}
name="avg_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+173);
ObjectSet (name, OBJPROP_YDISTANCE, y+9);
}
ObjectSetText(name, DoubleToStr(avg_spread,2), 7, "Arial", DarkOrange);

name="min_spread_label";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+148);
ObjectSet (name, OBJPROP_YDISTANCE, y+1);
ObjectSetText(name, "min:", 7, "Arial", Gold);
}
name="min_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+173);
ObjectSet (name, OBJPROP_YDISTANCE, y+1);
}
ObjectSetText(name, DoubleToStr(min_spread,2), 7, "Arial", Gold);
}
//+------------------------------------------------------------------+
//| END |
//| Created with fxDreema EA Builder http://fxdreema.com/ |
//+------------------------------------------------------------------+

Hi there,

So, to make sure I wasn't the weakest link I created 2 new EAs, "on-line test 2" and "desktop test 2", created on-line and on the desktop variants respectively. Their code was as before, simple and identical.

I then compiled and ran them, and this screenshot shows the result:

Seems odd that although I deleted the old EAs "on-line test" and "desktop test", and then re-created them this didn't seem to work.

Anyway, as the screenshot shows, "on-line test 2" seems to work, and "desktop test 2" still doesn't.

Would you like me to send the code of these two again?

......
tests 2.jpg

Hi

Thanks for uploading the updated build 023. And yes, I'm OK with the pips. They are just the ones each market seems to offer.

I've run some tests, and here are the results:

In order to run the tests, I deleted both test EAs, "on-line test" and "desktop test" from fxDreema (on-line and desktop) and MT4. I then re-created them, and compiled them in MT4. In both cases the compiler said; "Function "toDigits" is not referenced and will be removed from exp-file", which appeared to be associated with the very first line of script, which is a comment line above the "#property copyright "" " line.

For the EA created on line I ran the following:

Forex (EURUSD)
CFD (AALUK)
Futures (Brent)
Indices (SP500, UK100)

In no case did the "comment on chart (Low level)" display anything.
In no case did an error appear in the Journal.

Then, for the EA created in the desktop flavour of the platform I ran the same markets, but achieved slightly different results:

Forex (EURUSD) -- no comment displayed, no error in Journal
CFD (AALUK) -- no comment displayed, no error in Journal
Futures (Brent) -- no comment displayed, no error in Journal
Indices (SP500, UK100) -- no comment displayed, BUT one error in Journal

SP500 Journal error: 2012.11.28 11:28:43 2012.10.19 13:59 desktop test SP500SB,M1: zero divide
UK100 Journal error: 2012.11.28 11:28:26 2012.11.13 14:51 desktop test UK100SB,M1: zero divide

So now, although the online composed EA doesn't produce any errors, neither does it seem to work any more!

The EAs are very simple, and, apart from the "If trade/order exists" block, are simply fxDreema defaults. The image attached shows the minor change in the "If trade/order exists" block:

For the sake of completeness, I also attach the following screen shot:

This shows the output from a more complex EA, running and showing a load of comments printed on the chart, all running and updating every tick. I created this EA yesterday on the online platform. The EA created on the desktop flavour yesterday failed in the same way my basic tests are now.

Thanks again for your help and attention. I'm looking forward to progressing with your wonderful system as I've much EA developing and testing to do!

......
tests.jpg
sp500chart.jpg

Would be very grateful for your ideas on this. I am running the most up to date desktop version, Build 023.

I can't understand why two identical EAs but composed on different flavours of the platform should behave differently.

Thanks.

...and "Desktop test"...

//+------------------------------------------------------------------------------+//
//) ____ _ _ ____ ____ ____ ____ __ __ __ ___ _____ __ __ (//
//) ( )( / )( _ ( _ ( )( )( / ) /\ / )( _ )( / ) (//
//) )) ) ( )() )) / )) )) ) ( /()\ ( (__ )()( ) ( (//
//) (__) (/_)(/()_)()(_)(//_)()()()_)(___)(//_) (//
//) http://fxdreema.com Copyright  2012, fxDreema (//
//+------------------------------------------------------------------------------+//
#property copyright ""
#property link "http://fxdreema.com"

///////
// Advanced system settings
#define POINT_FORMAT 0.0001 // Relative to EURUSD. 0.0001 to use 4-digits format, 0.00001 to use 5-digits format
#define USE_VIRTUAL_STOPS "no" // Use "yes" or "no"
//--
#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)
//--
#define EVENTS_MODE "tick" // Use "period" to listen every EVENTS_CYCLE_PERIOD milliseconds or "tick" to listen only when a new tick is received
#define EVENTS_CYCLE_PERIOD 1 // Time delay in events listener while in "period" mode. The smaller period - the faster events reaction. Use "1" as minimum
#define EVENT_TIMER_PERIOD 60 // Timer event period (in seconds)
//--
#define ENABLE_EVENT_TICK 1 // "Tick" event: 1 - enable, 0 - disable
#define ENABLE_EVENT_TRADE 0 // "Trade" event: 1 - enable, 0 - disable
#define ENABLE_EVENT_TIMER 0 // "Timer" event: 1 - enable, 0 - disable
//--
#define SIMULATE_TICKS 0 // Use this for offline charts - feed the EA with ticks coming from a certain market (SIMULATE_TICKS_MARKET). Options: 1 - enable, 0 - disable
#define SIMULATE_TICKS_MARKET "EURUSD" // When SIMULATE_TICKS is enabled, feed the EA with ticks coming from the chosen market
///////

#define detect_broker_digits 0

// Standard global variables
extern string inpstd="-= System =-";
extern int MagicStart=1063; // Magic Start (MagicNumber=MagicStart+Group#)

// On-Off switches for blocks
bool tick1=true; // If trade/order exists
bool tick2=true; // Just pass
bool tick3=true; // Just pass
bool tick4=true; // Comment on chart (low level)

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT INITIALIZATION SECTOR |//
//| Runs only once when expert loads |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

int init()
{
int logo_x=230; int logo_y=0;
string name="fxdreema_logo1";
if (ObjectFind(name)==-1) {
ObjectCreate (name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_BACK, false);
ObjectSet (name, OBJPROP_XDISTANCE, logo_x-1);
ObjectSet (name, OBJPROP_YDISTANCE, logo_y+1);
ObjectSetText (name, "g", 16, "Webdings", C'0x11,0x11,0x11');
}

name="fxdreema_logo2";
if (ObjectFind(name)==-1) {
   ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
   ObjectSet      (name, OBJPROP_BACK, false);
   ObjectSet      (name, OBJPROP_XDISTANCE, logo_x+20);
   ObjectSet      (name, OBJPROP_YDISTANCE, logo_y+1);
   ObjectSetText  (name, "gggg", 16, "Webdings", White);
}

name="fxdreema_logo3";
if (ObjectFind(name)==-1) {
   ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
   ObjectSet      (name, OBJPROP_BACK, false);
   ObjectSet      (name, OBJPROP_XDISTANCE, logo_x);
   ObjectSet      (name, OBJPROP_YDISTANCE, logo_y);
   ObjectSetText  (name, "fx", 18, "Arial", Magenta);
}

name="fxdreema_logo4";
if (ObjectFind(name)==-1) {
   ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
   ObjectSet      (name, OBJPROP_BACK, false);
   ObjectSet      (name, OBJPROP_XDISTANCE, logo_x+20);
   ObjectSet      (name, OBJPROP_YDISTANCE, logo_y);
   ObjectSetText  (name, "dreema", 18, "Arial", DimGray);
}

DrawStatus("Starting...");
ListOfIDsConnectedToMe(""); // calculate only

//Comment("Program "+WindowExpertName( ) +" loaded at "+TimeToStr(TimeLocal(),TIME_DATE|TIME_SECONDS));
if (SIMULATE_TICKS==1) {EventsListener(); EventsListener();}
return(0);
}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT START (TICK) SECTOR |//
//| Runs at every new tick (begins with "start()" function) |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

int start() {static int p=0; if (p!=Period()) {DrawStatus("Working"); p=Period();} EventsListener(); return(0);}
int EventTick()
{ TicksFromStart("update");
tick1();
// Main beginning on the graph
DrawSpreadInfo();
return(0);
}
////////////////////////////////////////////
// Define block 1 (If trade/order exists) //
void tick1(string parent="")
{if (tick1==true) {
//////
// Inputs
string OrdersScope = "all" ; // Group mode <== [group|manual|all]
int OrdersGroup = 0 ; // Group # (empty=Default)
string SymbolScope = "all" ; // Market mode <== [all|symbol]
string SYMBOL = Symbol() ; // Market (empty=Current)
string BuysOrSells = "both" ; // Filter by type <== **
// Inputs
//////

	LoopedStop();
	bool exist=false;
	for (int pos=OrdersTotal()-1; pos>=0; pos--) {
	   if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) {
	      if (SymbolScope=="all" || attrSymbol()==SYMBOL) {
	         if (OrdersScope=="all" || attrMagicNumber()==MagicStart+OrdersGroup) {
	            if (
	               (BuysOrSells=="buys"  && (attrType()==OP_BUY || attrType()==OP_BUYLIMIT || attrType()==OP_BUYSTOP))
	               ||
	               (BuysOrSells=="sells" && (attrType()==OP_SELL || attrType()==OP_SELLLIMIT || attrType()==OP_SELLSTOP))
	               ||
	               (BuysOrSells=="both")
	               )
	            {
	               exist=true; break;
	}  }  }  }  }
	LoopedResume();
	if (exist==true) {tick2("1");} else {tick3("1");}
}}

////////////////////////////////
// Define block 2 (Just pass) //
void tick2(string _parent_="")
{if (tick2==true) {
	tick4("2");
}}

////////////////////////////////
// Define block 3 (Just pass) //
void tick3(string _parent_="")
{if (tick3==true) {
	tick4("3");
}}

///////////////////////////////////////////////////
// Define block 4 (Comment on chart (low level)) //
void tick4(string _parent_="")
{if (tick4==true) {
	Comment(
	
	"Account free margin is ",DoubleToStr(AccountFreeMargin(),2),"\n",
	"Current time is ",TimeToStr(TimeCurrent())
	
	);
	/* Next blocks in chain */
}}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT TARDE EVENTS SECTOR |//
//| Runs when the Trade event occurs |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

void EventTrade()
{

}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT TIMER EVENTS SECTOR |//
//| Runs when the Timer event occurs |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

void EventTimer()
{

}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT DEINITIALIZATION SECTOR |//
//| Runs only once when expert unloads |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

int deinit()
{
DrawStatus("Stopped");
switch(UninitializeReason())
{
case REASON_CHARTCLOSE: Print("Unitialize: Chart closed"); break;
case REASON_REMOVE: Print("Unitialize: Expert removed from chart"); break;
case REASON_RECOMPILE: Print("Unitialize: Expert recompiled"); break;
case REASON_CHARTCHANGE:Print("Unitialize: Symbol or timeframe changed on the chart"); break;
case REASON_PARAMETERS: Print("Unitialize: Inputs parameters was changed by user"); break;
case REASON_ACCOUNT: Print("Unitialize: Other account activated"); break;
}

return(0);

}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| FUNCTIONS, USED IN THIS EXPERT ADVISOR |//
//| Custom and System functions |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

bool LoopedStop(string action="set")
{
   LoopedResume("set");
   return(true);
}

string attrSymbol(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrSymbol());}
   return(OrderSymbol());
}

int attrMagicNumber(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrMagicNumber());}
   return(OrderMagicNumber());
}

double attrType(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrType());}
   return(OrderType());
}

bool LoopedResume(string action="set")
{
   static int ticket;
   if (action=="set") {
      ticket=OrderTicket(); return(true);
   } else {
      OrderSelect(ticket,SELECT_BY_TICKET); return(true);
   }
   return(false);
}

void EventsListener(string action="listen",string command="")
{
   ///////
   // Define used variables
   int i=-1, j=-1, k=-1; int ti=-1;
   int size=-1;
   static int start_time=-1;
   static double tt0=0;
   static double ask0=0;
   static double bid0=0;
   static bool initial_pass=false;
   static int history_total=0;
   static int history_total_checked=0;
   static int shorts_hist_count=0;
   static int longs_hist_count=0;
   
   //-- Virtual stops
   static string vs_memory_id[];
   static double vs_memory_sl[];
   static double vs_memory_tp[];
   int vs_id;
   
   int pos=0;
   
   // Define used variables
   ///////
   
   // Event: Timer
   if (ENABLE_EVENT_TIMER==1)
   {
      static double t0=0; // old time
      if (!TimerStopped()) {
         double t; // will be current time
         double tx;
         static double tx0;
         bool milli=false;
         if (TimerPeriod()>=1 || (TimerPeriod()<0 && EVENT_TIMER_PERIOD>0) || IsTesting() || IsVisualMode()) {t=TimeLocal();} else {t=GetTickCount(); milli=true;}
         if (TimerPeriod()>=0) {tx=TimerPeriod();} else {tx=EVENT_TIMER_PERIOD;}
         if (milli==true) {tx=tx*1000;}
         if (tx!=tx0) {t0=0;}
      
         if (t>=t0+tx) {t0=t; tx0=tx; EventTimer();}
      }
   }
   
   // Endless loop (only in case of EA running on Demo or Real)
   bool loop_it=true;
   while(loop_it==true && !IsStopped() && (IsTesting() || IsVisualMode() || IsExpertEnabled())) {
      if (initial_pass==true && !IsTesting()) {DrawEPSMeter();}
   
      //////
      // in case of testing - make it to pass once
      if (IsStopped() || IsTesting() || IsVisualMode() || EVENTS_MODE=="tick" || action=="register") {loop_it=false;}
      //////
      
      //////
      // in case of Script - pass 1st tick and start looping on 2'nd tick
      if (initial_pass==false) {loop_it=false; initial_pass=true;}
      //////
      
      //-- Event: EventTick()
      if (ENABLE_EVENT_TICK==1)
      {
         if (action=="listen") {
            if (EVENTS_MODE!="tick") {
               string market_for_ticks=Symbol();
               if (SIMULATE_TICKS==1) {market_for_ticks=SIMULATE_TICKS_MARKET;}
               double ask=MarketInfo(market_for_ticks,MODE_ASK);
               double bid=MarketInfo(market_for_ticks,MODE_BID);
               double tt=MarketInfo(market_for_ticks,MODE_TIME);
            }
            if ((EVENTS_MODE=="tick" || (tt!=tt0 || ask!=ask0 || bid!=bid0))) {tt0=tt; ask0=ask; bid0=bid;
               VirtualStopsDriver("listen"); // will work only if this is used: #define USE_VIRTUAL_STOPS "yes"
               EventTick();
            }
         }
      }
      
      //-- Event: EventTrade()
      if (ENABLE_EVENT_TRADE==1)
      {
         if (start_time==-1) {start_time=TimeCurrent();}
         bool e=false;
      
         ///////
         // HISTORY TRADES
         /*
         int total=OrdersHistoryTotal();
         if (total!=history_total) {
            history_total=total;
            for (pos=total-1; pos>=0; pos--) {
               if (OrderSelect(pos,SELECT_BY_POS,MODE_HISTORY)) {
                  if (OrderOpenTime()>=start_time) {
                     if (history_total>history_total_checked) {
                        history_total_checked++;
                     
                        if (OrderType()==OP_BUY) {longs_hist_count++;}
                        if (OrderType()==OP_SELL) {shorts_hist_count++;}
                     
                     }
                  } else {break;}
               }
            }
         }
         */
         // HISTORY TRADES
         ///////
      
         ///////
         // TRADES AND ORDERS
         int tickets_now[]; ArrayResize(tickets_now,0);
         int tn=0;
         static int    memory_ti[];
         static double memory_sl[];
         static double memory_tp[];
         static double memory_vl[];
         static bool loaded=false;
         
         static int total_trades0=0; int total_trades=OrdersTotal();
         
         // Load memory_ti with current trades if started now or EA reloaded
         if (loaded==false) {loaded=true;
           for (pos=total_trades-1; pos>=0; pos--) {
              if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) {
                 ArrayResize(memory_ti,tn+1);
                 ArrayResize(memory_sl,tn+1);
                 ArrayResize(memory_tp,tn+1);
                 ArrayResize(memory_vl,tn+1);
                 memory_ti[tn]=OrderTicket();
                 memory_sl[tn]=attrStopLoss();
                 memory_tp[tn]=attrTakeProfit();
                 memory_vl[tn]=attrLots();
                 
                 tn++;
               }
            }
         }
         tn=0;
         
         for (pos=total_trades-1; pos>=0; pos--) {
            if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) {
               //if (OrderOpenTime()>=start_time) {
                  ArrayResize(tickets_now,tn+1);
                  tickets_now[tn]=OrderTicket();
                  tn++;
               
                  // Trades and Orders
                  // 1. Add new trade to memory, if not inside
                  i=-1; ti=-1; size=ArraySize(memory_ti); if (size>0){for (i=0; i<size; i++) {if (memory_ti*==OrderTicket()) {ti=OrderTicket(); break;}}}
                  
                  if (ti<0) {
                    ArrayResize(memory_ti,size+1); memory_ti*=attrTicket();
                    ArrayResize(memory_sl,size+1); memory_sl*=attrStopLoss();
                    ArrayResize(memory_tp,size+1); memory_tp*=attrTakeProfit();
                    ArrayResize(memory_vl,size+1); memory_vl*=attrLots();
                    //if (OrderOpenTime()>=start_time) {
                        UpdateEventValues("Trade","new",""); EventTrade();
                    //}
                  }
                  
                  // 2. Check for SL or TP modification
                  else if (i>-1) {
                    e=false;
                    if (memory_sl*!=attrStopLoss())   {memory_sl*=attrStopLoss(); e=true; UpdateEventValues("Trade","modify","sl");}
                    if (memory_tp*!=attrTakeProfit()) {memory_tp*=attrTakeProfit(); if (e==true) {UpdateEventValues("Trade","modify","sltp");} else {e=true; UpdateEventValues("Trade","modify","tp");}}
                    if (e==true) {EventTrade(); e=false;}
                    if (memory_vl*!=attrLots())       {memory_vl*=attrLots(); e=true; UpdateEventValues("Trade","modify","lots");}
                  }
               //} else {break;}
            }
         }
      
         // There are closed orders/trades
         bool missing=true;
         
         if (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*==tickets_now[j]) {missing=false; break;}
               }
               if (missing==true) {
                  if (OrderSelect(memory_ti*,SELECT_BY_TICKET))
                  {
                     // This can happen more than once
                     ArrayStripKeyI(memory_ti,i);
                     ArrayStripKey(memory_sl,i);
                     ArrayStripKey(memory_tp,i);
                     ArrayStripKey(memory_vl,i);
                     ObjectDelete("#"+OrderTicket()+" sl");
                     ObjectDelete("#"+OrderTicket()+" tp");
                     UpdateEventValues("Trade","closed","");
                     EventTrade(); e=false;
                  }
               }
               missing=true;
            }
            //ArrayIntersectI(memory_ti,tickets_now); // Remove closed orders from memory
         }
         // TRADES AND ORDERS
         ///////
      }
      /*
      int obj_total=ObjectsTotal();
      string name;
      for(i=0;i<obj_total;i++)
      {
         name=ObjectName(i);
         //Print(i,"Object name for object #",i," is " + name);
         //Print(ObjectGetValueByShift(name, 0));

      }
      */

      if (loop_it==true) {Sleep(EVENTS_CYCLE_PERIOD);} // Endless loop resolution
   }
}

void UpdateEventValues(string e_type="",string e_reason="",string e_detail="")
{
   e_Reason(e_reason);
   e_ReasonDetail("set",e_detail);
   if (e_type=="Trade" || e_type=="EventTrade") {
      e_attrClosePrice ("set",attrClosePrice());
      e_attrComment    ("set",attrComment());
      e_attrCommission ("set",attrCommission());
      e_attrExpiration ("set",attrExpiration());
      e_attrLots       ("set",attrLots());
      e_attrMagicNumber("set",attrMagicNumber());
      e_attrOpenPrice  ("set",attrOpenPrice());
      e_attrProfit     ("set",attrProfit());
      e_attrStopLoss   ("set",attrStopLoss());
      e_attrSymbol     ("set",attrSymbol());
      e_attrTakeProfit ("set",attrTakeProfit());
      e_attrTicket     ("set",attrTicket());
      e_attrType       ("set",attrType());
   }
}

int TicksFromStart(string cmd="read")
{
   static int ticks=0;
   if (cmd=="update") {ticks++; if (ticks<0) ticks=0;}
   return(ticks);
}

string DrawStatus(string text)
{
   static string memory;
   if (text=="getCurrentStatus") {return(memory);}
   
   int strlen=StringLen(text);
   string rect1; for (int i=1; i<=strlen; i++) {rect1=rect1+"g";}
	int x=340; int y=0;
   string name;

   static bool draw_status1=true;
   if (draw_status1==true) {draw_status1=false;
      name="StatusTitle";
      if (ObjectFind(name)==-1) {
         ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
         ObjectSet      (name, OBJPROP_BACK, false);
         ObjectSet      (name, OBJPROP_XDISTANCE, x);
         ObjectSet      (name, OBJPROP_YDISTANCE, y);
         ObjectSetText  (name, "Status", 7, "Arial", Gray);
      }
   }
   
   if (text!=memory) {memory=text;
      name="StatusText";
      if (ObjectFind(name)==-1) {
         ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
         ObjectSet      (name, OBJPROP_BACK, false);
         ObjectSet      (name, OBJPROP_XDISTANCE, x+2);
         ObjectSet      (name, OBJPROP_YDISTANCE, y+8);
      }
      ObjectSetText  (name, text, 12, "Arial", LightBlue);
   }
   return(text);
}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| FUNCTIONS, CALLED FROM FUNCTIONS |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

string e_attrSymbol(string cmd="", string inp="") {static string mem; if(cmd=="set"){mem=inp;} return(mem);}

int e_attrMagicNumber(string cmd="", int inp=-1) {static int mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

int e_attrType(string cmd="", int inp=-1) {static int mem; if(cmd=="set"){mem=inp;} return(mem);}

bool TimerStopped() {if (TimerStop(-1)==1) {return(true);} return(false);}

double TimerPeriod(double t=-1) {static double time=-1; if (t>=0){time=t;} if (t>-1){TimerStop(0);} return(time);}

void DrawEPSMeter()
{
   static int frames=0;
   static int frame=0;
   static int eps=0;
   static int time0=0;
   static int direction=0;
   
   int tl=TimeLocal();
   if (tl>time0) {
      time0=tl; eps=frame; frame=0;
      int x=0; int y=0;
      string name="fxdreema_eps_meter";
      if (ObjectFind(name)==-1) {
         ObjectDelete(name);
         ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
         ObjectSet   (name, OBJPROP_CORNER, 3);
         ObjectSet   (name, OBJPROP_XDISTANCE, x+1);
         ObjectSet   (name, OBJPROP_YDISTANCE, y+1);
      }
      ObjectSetText(name, "Events per second: "+eps, 10, "Arial", DarkSeaGreen);
   } else {
   frame++; frames++;
   }
   
   /*
   if (direction==0) {
      
      if (frames==20) {Comment(fps,"fps |");}
      if (frames==40) {Comment(fps,"fps ||");}
      if (frames==60) {Comment(fps,"fps |||");}
         if (frames==80) {Comment(fps,"fps ||||");}
         if (frames==100) {Comment(fps,"fps |||||");}
         if (frames==120) {Comment(fps,"fps ||||||");}
         if (frames==140) {Comment(fps,"fps |||||||");}
         if (frames==160) {Comment(fps,"fps ||||||||");}
         if (frames==180) {Comment(fps,"fps |||||||||");}
         if (frames==200) {Comment(fps,"fps ||||||||||"); frames=0; direction=1;}
      }
      if (direction==1) {
         if (frames==20)  {Comment(fps+"fps ||||||||||");}
         if (frames==40)  {Comment(fps+"fps |||||||||");}
         if (frames==60)  {Comment(fps+"fps ||||||||");}
         if (frames==80)  {Comment(fps+"fps |||||||");}
         if (frames==100) {Comment(fps+"fps ||||||");}
         if (frames==120) {Comment(fps+"fps |||||");}
         if (frames==140) {Comment(fps+"fps ||||");}
         if (frames==160) {Comment(fps+"fps |||");}
         if (frames==180) {Comment(fps+"fps ||");}
         if (frames==200) {Comment(fps+"fps |"); frames=0; direction=0;}
      }
      */
}

double VirtualStopsDriver(string command="", int ti=-1, double sl=0, double tp=0, double slp=0, double tpp=0)
{
   int i, ii=-1, size;
   //static int    mem_ti[];
   //static double mem_sl[];
   //static double mem_tp[];
   //static double mem_vl[];
   if (USE_VIRTUAL_STOPS!="yes") {return;} // Virtual stops are not enabled => stop here
   
   // Set SL and TP
   if ((command=="set" || command=="modify" || command=="clear" || command=="partial") && ti>-1)
   {
      // update record (add/modify)
      string name="";
      name="#"+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);
            ObjectSetText(name,name+" (virtual)");
         }
         else {ObjectSet(name,OBJPROP_PRICE1,sl);}
      } else {ObjectDelete(name);}
      name="#"+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);
            ObjectSetText(name,name+" (virtual)");
         }
         else {ObjectSet(name,OBJPROP_PRICE1,tp);}
      } else {ObjectDelete(name);}
      // print message
      if (command=="set" || command=="modify") Print(command+" #"+ti+": virtual sl "+DoubleToStr(sl,Digits)+" tp "+DoubleToStr(tp,Digits));
      return(1);
   }
   
   // Get SL or TP
   if ((command=="get sl" || command=="get tp") && ti>-1)
   {
      if (command=="get sl") return(ObjectGet("#"+ti+" sl",OBJPROP_PRICE1));
      else if (command=="get tp") return(ObjectGet("#"+ti+" tp",OBJPROP_PRICE1));
      return(0);
   }
   
   // Listen trades/orders
   if (command=="" || command=="listen")
   {
      for (int pos=0; pos<OrdersTotal(); pos++) {
         if (OrderSelect(pos,SELECT_BY_POS)) {
            // check SL and TP
            double sl_lvl=ObjectGet("#"+OrderTicket()+" sl",OBJPROP_PRICE1);
            double tp_lvl=ObjectGet("#"+OrderTicket()+" tp",OBJPROP_PRICE1);
            // close trade/order
            if (OrderType()==OP_BUY) {
               double bid=MarketInfo(OrderSymbol(),MODE_BID);
               if ((sl_lvl>0 && bid<=sl_lvl) || (tp_lvl>0 && bid>=tp_lvl)) {
                  if (OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,CLR_NONE))
                  {
                     ObjectDelete("#"+OrderTicket()+" sl");
                     ObjectDelete("#"+OrderTicket()+" tp");
                  }
                  return;
               }
            }
            else if (OrderType()==OP_SELL) {
               double ask=MarketInfo(OrderSymbol(),MODE_ASK);
               if ((sl_lvl>0 && ask>=sl_lvl) || (tp_lvl>0 && ask<=tp_lvl)) {
                  if (OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,CLR_NONE))
                  {
                     ObjectDelete("#"+OrderTicket()+" sl");
                     ObjectDelete("#"+OrderTicket()+" tp");
                  }
                  return;
               }
            }
         }
      }
   }
   return(1);
}

double attrStopLoss(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrStopLoss());}
   if (USE_VIRTUAL_STOPS=="yes" && sel=="") {return(VirtualStopsDriver("get sl",OrderTicket()));}
   return(OrderStopLoss());
}

double attrTakeProfit(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrTakeProfit());}
   if (USE_VIRTUAL_STOPS=="yes" && sel=="") {return(VirtualStopsDriver("get tp",OrderTicket()));}
   return(OrderTakeProfit());
}

double attrLots(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrLots());}
   return(OrderLots());
}

int attrTicket(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrTicket());}
   return(OrderTicket());
}

bool ArrayStripKeyI(int &array[], int key)
{
   bool stripped=false;
   int size=ArraySize(array);
   if (size>0)
   {
      int i=0; int x=0;
      for (i=0; i<size; i++)
      {
         if (i!=key)
         {
            array[x]=array*;
            x++;
         } else {
            stripped=true;  
         }
      }
      ArrayResize(array,x);
   }
   return (stripped);
}

bool ArrayStripKey(double &array[], double key)
{
   bool stripped=false;
   int size=ArraySize(array);
   if (size>0)
   {
      int i=0; int x=0;
      for (i=0; i<size; i++)
      {
         if (i!=key)
         {
            array[x]=array*;
            x++;
         } else {
            stripped=true;  
         }
      }
      ArrayResize(array,x);
   }
   return (stripped);
}

string e_Reason(string inp="") {static string mem; if(inp!=""){mem=inp;} return(mem);}

string e_ReasonDetail(string cmd="", string inp="") {static string mem; if(cmd=="set"){mem=inp;} return(mem);}

double e_attrClosePrice(string cmd="", double inp=-1) {static double mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

double attrClosePrice(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrClosePrice());}
   return(OrderClosePrice());
}

string e_attrComment(string cmd="", string inp="") {static string mem; if(cmd=="set"){mem=inp;} return(mem);}

string attrComment(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrComment());}
   return(OrderComment());
}

double e_attrCommission(string cmd="", double inp=0) {static double mem=0; if(cmd=="set"){mem=inp;} return(mem);}

double attrCommission(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrCommission());}
   return(OrderCommission());
}

datetime e_attrExpiration(string cmd="", datetime inp=0) {static datetime mem=0; if(cmd=="set"){mem=inp;} return(mem);}

datetime attrExpiration(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrExpiration());}
   return(OrderExpiration());
}

double e_attrLots(string cmd="",double inp=-1) {static double mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

double e_attrOpenPrice(string cmd="", double inp=-1) {static double mem; if(cmd=="set"){mem=inp;} return(mem);}

double attrOpenPrice(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrOpenPrice());}
   return(OrderOpenPrice());
}

double e_attrProfit(string cmd="", double inp=0) {static double mem; if(cmd=="set"){mem=inp;} return(mem);}

double attrProfit(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrProfit());}
   return(OrderProfit());
}

double e_attrStopLoss(string cmd="", double inp=-1) {static double mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

double e_attrTakeProfit(string cmd="", double inp=-1) {
   static double mem=-1;
   static double pips=0;
   double price;
   if(cmd=="pipsFromHere"){
      if (e_attrTakeProfit()>0) {
         if (e_attrType()==OP_BUY || e_attrType()==OP_BUYSTOP || e_attrType()==OP_BUYLIMIT)
         {
            price=SymbolAsk(e_attrSymbol());
            pips=toPips(MathAbs(price-e_attrTakeProfit()),e_attrSymbol());
         }
         else
         {
            price=SymbolBid(e_attrSymbol());
            pips=toPips(MathAbs(price-e_attrTakeProfit()),e_attrSymbol());
         }
      }
   }
   if(cmd=="set"){mem=inp;}
   return(mem);
}

int e_attrTicket(string cmd="", int inp=-1) {static int mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

int TimerStop(int s=1) {static int stopped=0; if (s==0 || s==1){stopped=s;} return(stopped);}

double SymbolAsk(string symbol="")
{
   if (symbol=="") {symbol=GetSymbol();}
   return(MarketInfo(symbol,MODE_ASK));
}

double toPips(double digits,string symbol="")
{
   if (symbol=="") {symbol=GetSymbol();}
   return(digits/(PipValue()*MarketInfo(symbol,MODE_POINT)));
}

double SymbolBid(string symbol="")
{
   if (symbol=="") {symbol=GetSymbol();}
   return(MarketInfo(symbol,MODE_BID));
}

string GetSymbol(string symbol="")
{
   static string memory="";
   if (memory=="") {memory=Symbol();}
   if (symbol=="") {return(memory);}
   if (symbol!="") {memory=symbol; return(memory);}
   return(Symbol());
}

int PipValue(string symbol="")
{
   if (symbol=="") {symbol=Symbol();}
   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);
}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| PERMANENT FUNCTIONS |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

string ListOfIDsConnectedToMe(string src) {
static bool passed=false;
static string ids[3];
static string lst[3];
if (passed==false) {passed=true;
ids[0]="2";lst[0]="1";
ids[1]="3";lst[1]="1";
ids[2]="4";lst[2]="2,3";
}
if (src!="") {
int i=0; int maxi=ArraySize(ids); for (i=0; i<maxi; i++) {if (ids*==src) {return(lst*); break;}}
}
return("");
}
void DrawSpreadInfo() {
static bool allow_draw=true;
if (allow_draw==false) {return;}
if ((IsTesting()/||IsVisualMode()/)) {if (allow_draw==true) {allow_draw=false;}} // Allowed to draw only once in testing mode

double pip_value=0;
int digits=MarketInfo(Symbol(),MODE_DIGITS);
if ((digits==2 || digits==4)) {pip_value=(POINT_FORMAT/0.0001);}
if ((digits==3 || digits==5)) {pip_value=(POINT_FORMAT/0.00001);}
if ((digits==6))              {pip_value=(POINT_FORMAT/0.000001);}

static double max_spread=0;
static double min_spread=0;
static double avg_spread=0;
static double avg_add=0;
static double avg_cnt=0;
double current_spread=(MarketInfo(Symbol(),MODE_ASK)-MarketInfo(Symbol(),MODE_BID))/(pip_value*MarketInfo(Symbol(),MODE_POINT));
if (current_spread>max_spread) {max_spread=current_spread;}
if (current_spread<min_spread || min_spread==0) {min_spread=current_spread;}
avg_add=avg_add+current_spread; avg_cnt++;
avg_spread=avg_add/avg_cnt;

int x=0; int y=0;
string name="current_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+1);
ObjectSet (name, OBJPROP_YDISTANCE, y+1);
}
ObjectSetText(name, "Spread: "+DoubleToStr(current_spread,2), 18, "Arial", DarkOrange);

name="max_spread_label";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+148);
ObjectSet (name, OBJPROP_YDISTANCE, x+17);
ObjectSetText(name, "max:", 7, "Arial", OrangeRed);
}
name="max_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+173);
ObjectSet (name, OBJPROP_YDISTANCE, y+17);
}
ObjectSetText(name, DoubleToStr(max_spread,2), 7, "Arial", OrangeRed);

name="avg_spread_label";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+148);
ObjectSet (name, OBJPROP_YDISTANCE, y+9);
ObjectSetText(name, "avg:", 7, "Arial", DarkOrange);
}
name="avg_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+173);
ObjectSet (name, OBJPROP_YDISTANCE, y+9);
}
ObjectSetText(name, DoubleToStr(avg_spread,2), 7, "Arial", DarkOrange);

name="min_spread_label";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+148);
ObjectSet (name, OBJPROP_YDISTANCE, y+1);
ObjectSetText(name, "min:", 7, "Arial", Gold);
}
name="min_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+173);
ObjectSet (name, OBJPROP_YDISTANCE, y+1);
}
ObjectSetText(name, DoubleToStr(min_spread,2), 7, "Arial", Gold);
}
//+------------------------------------------------------------------+
//| END |
//| Created with fxDreema EA Builder http://fxdreema.com/ |
//+------------------------------------------------------------------+

OK. Here's "On-line test"

//+------------------------------------------------------------------------------+//
//) ____ _ _ ____ ____ ____ ____ __ __ __ ___ _____ __ __ (//
//) ( )( / )( _ ( _ ( )( )( / ) /\ / )( _ )( / ) (//
//) )) ) ( )() )) / )) )) ) ( /()\ ( (__ )()( ) ( (//
//) (__) (/_)(/()_)()(_)(//_)()()()_)(___)(//_) (//
//) http://fxdreema.com Copyright 2012, fxDreema (//
//+------------------------------------------------------------------------------+//
#property copyright ""
#property link "http://fxdreema.com"

///////
// Advanced system settings
#define POINT_FORMAT 0.0001 // Relative to EURUSD. 0.0001 to use 4-digits format, 0.00001 to use 5-digits format
#define USE_VIRTUAL_STOPS "no" // Use "yes" or "no"
//--
#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)
//--
#define EVENTS_MODE "tick" // Use "period" to listen every EVENTS_CYCLE_PERIOD milliseconds or "tick" to listen only when a new tick is received
#define EVENTS_CYCLE_PERIOD 1 // Time delay in events listener while in "period" mode. The smaller period - the faster events reaction. Use "1" as minimum
#define EVENT_TIMER_PERIOD 60 // Timer event period (in seconds)
//--
#define ENABLE_EVENT_TICK 1 // "Tick" event: 1 - enable, 0 - disable
#define ENABLE_EVENT_TRADE 0 // "Trade" event: 1 - enable, 0 - disable
#define ENABLE_EVENT_TIMER 0 // "Timer" event: 1 - enable, 0 - disable
//--
#define SIMULATE_TICKS 0 // Use this for offline charts - feed the EA with ticks coming from a certain market (SIMULATE_TICKS_MARKET). Options: 1 - enable, 0 - disable
#define SIMULATE_TICKS_MARKET "EURUSD" // When SIMULATE_TICKS is enabled, feed the EA with ticks coming from the chosen market
///////

#define detect_broker_digits 0

// Standard global variables
extern string inpstd="-= System =-";
extern int MagicStart=1177; // Magic Start (MagicNumber=MagicStart+Group#)

// On-Off switches for blocks
bool tick1=true; // If trade/order exists
bool tick2=true; // Just pass
bool tick3=true; // Just pass
bool tick4=true; // Comment on chart (low level)

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT INITIALIZATION SECTOR |//
//| Runs only once when expert loads |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

int init()
{
int logo_x=230; int logo_y=0;
string name="fxdreema_logo1";
if (ObjectFind(name)==-1) {
ObjectCreate (name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_BACK, false);
ObjectSet (name, OBJPROP_XDISTANCE, logo_x-1);
ObjectSet (name, OBJPROP_YDISTANCE, logo_y+1);
ObjectSetText (name, "g", 16, "Webdings", C'0x11,0x11,0x11');
}

name="fxdreema_logo2";
if (ObjectFind(name)==-1) {
   ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
   ObjectSet      (name, OBJPROP_BACK, false);
   ObjectSet      (name, OBJPROP_XDISTANCE, logo_x+20);
   ObjectSet      (name, OBJPROP_YDISTANCE, logo_y+1);
   ObjectSetText  (name, "gggg", 16, "Webdings", White);
}

name="fxdreema_logo3";
if (ObjectFind(name)==-1) {
   ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
   ObjectSet      (name, OBJPROP_BACK, false);
   ObjectSet      (name, OBJPROP_XDISTANCE, logo_x);
   ObjectSet      (name, OBJPROP_YDISTANCE, logo_y);
   ObjectSetText  (name, "fx", 18, "Arial", Magenta);
}

name="fxdreema_logo4";
if (ObjectFind(name)==-1) {
   ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
   ObjectSet      (name, OBJPROP_BACK, false);
   ObjectSet      (name, OBJPROP_XDISTANCE, logo_x+20);
   ObjectSet      (name, OBJPROP_YDISTANCE, logo_y);
   ObjectSetText  (name, "dreema", 18, "Arial", DimGray);
}

DrawStatus("Starting...");
ListOfIDsConnectedToMe(""); // calculate only

//Comment("Program "+WindowExpertName( ) +" loaded at "+TimeToStr(TimeLocal(),TIME_DATE|TIME_SECONDS));
if (SIMULATE_TICKS==1) {EventsListener(); EventsListener();}
return(0);
}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT START (TICK) SECTOR |//
//| Runs at every new tick (begins with "start()" function) |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

int start() {static int p=0; if (p!=Period()) {DrawStatus("Working"); p=Period();} EventsListener(); return(0);}
int EventTick()
{ TicksFromStart("update");
tick1();
// Main beginning on the graph
DrawSpreadInfo();
return(0);
}
////////////////////////////////////////////
// Define block 1 (If trade/order exists) //
void tick1(string parent="")
{if (tick1==true) {
//////
// Inputs
string OrdersScope = "all" ; // Group mode <== [group|manual|all]
int OrdersGroup = 0 ; // Group # (empty=Default)
string SymbolScope = "all" ; // Market mode <== [all|symbol]
string SYMBOL = Symbol() ; // Market (empty=Current)
string BuysOrSells = "both" ; // Filter by type <== **
// Inputs
//////

	LoopedStop();
	bool exist=false;
	for (int pos=OrdersTotal()-1; pos>=0; pos--) {
	   if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) {
	      if (SymbolScope=="all" || attrSymbol()==SYMBOL) {
	         if (OrdersScope=="all" || attrMagicNumber()==MagicStart+OrdersGroup) {
	            if (
	               (BuysOrSells=="buys"  && (attrType()==OP_BUY || attrType()==OP_BUYLIMIT || attrType()==OP_BUYSTOP))
	               ||
	               (BuysOrSells=="sells" && (attrType()==OP_SELL || attrType()==OP_SELLLIMIT || attrType()==OP_SELLSTOP))
	               ||
	               (BuysOrSells=="both")
	               )
	            {
	               exist=true; break;
	}  }  }  }  }
	LoopedResume();
	if (exist==true) {tick2("1");} else {tick3("1");}
}}

////////////////////////////////
// Define block 2 (Just pass) //
void tick2(string _parent_="")
{if (tick2==true) {
	tick4("2");
}}

////////////////////////////////
// Define block 3 (Just pass) //
void tick3(string _parent_="")
{if (tick3==true) {
	tick4("3");
}}

///////////////////////////////////////////////////
// Define block 4 (Comment on chart (low level)) //
void tick4(string _parent_="")
{if (tick4==true) {
	Comment(
	"Account free margin is ",DoubleToStr(AccountFreeMargin(),2),"\n",
	"Current time is ",TimeToStr(TimeCurrent())
	
	);
	/* Next blocks in chain */
}}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT TARDE EVENTS SECTOR |//
//| Runs when the Trade event occurs |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

void EventTrade()
{

}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT TIMER EVENTS SECTOR |//
//| Runs when the Timer event occurs |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

void EventTimer()
{

}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| EXPERT DEINITIALIZATION SECTOR |//
//| Runs only once when expert unloads |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

int deinit()
{
DrawStatus("Stopped");
switch(UninitializeReason())
{
case REASON_CHARTCLOSE: Print("Unitialize: Chart closed"); break;
case REASON_REMOVE: Print("Unitialize: Expert removed from chart"); break;
case REASON_RECOMPILE: Print("Unitialize: Expert recompiled"); break;
case REASON_CHARTCHANGE:Print("Unitialize: Symbol or timeframe changed on the chart"); break;
case REASON_PARAMETERS: Print("Unitialize: Inputs parameters was changed by user"); break;
case REASON_ACCOUNT: Print("Unitialize: Other account activated"); break;
}

return(0);

}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| FUNCTIONS, USED IN THIS EXPERT ADVISOR |//
//| Custom and System functions |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

bool LoopedStop(string action="set")
{
   LoopedResume("set");
   return(true);
}

string attrSymbol(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrSymbol());}
   return(OrderSymbol());
}

int attrMagicNumber(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrMagicNumber());}
   return(OrderMagicNumber());
}

double attrType(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrType());}
   return(OrderType());
}

bool LoopedResume(string action="set")
{
   static int ticket;
   if (action=="set") {
      ticket=OrderTicket(); return(true);
   } else {
      OrderSelect(ticket,SELECT_BY_TICKET); return(true);
   }
   return(false);
}

void EventsListener(string action="listen",string command="")
{
   ///////
   // Define used variables
   int i=-1, j=-1, k=-1; int ti=-1; int ty=-1;
   int size=-1;
   static int start_time=-1;
   static double tt0=0;
   static double ask0=0;
   static double bid0=0;
   static bool initial_pass=false;
   static int history_total=0;
   static int history_total_checked=0;
   static int shorts_hist_count=0;
   static int longs_hist_count=0;
   
   //-- Virtual stops
   static string vs_memory_id[];
   static double vs_memory_sl[];
   static double vs_memory_tp[];
   int vs_id;
   
   int pos=0;
   
   // Define used variables
   ///////
   
   // Event: Timer
   if (ENABLE_EVENT_TIMER==1)
   {
      static double t0=0; // old time
      if (!TimerStopped()) {
         double t; // will be current time
         double tx;
         static double tx0;
         bool milli=false;
         if (TimerPeriod()>=1 || (TimerPeriod()<0 && EVENT_TIMER_PERIOD>0) || IsTesting() || IsVisualMode()) {t=TimeLocal();} else {t=GetTickCount(); milli=true;}
         if (TimerPeriod()>=0) {tx=TimerPeriod();} else {tx=EVENT_TIMER_PERIOD;}
         if (milli==true) {tx=tx*1000;}
         if (tx!=tx0) {t0=0;}
      
         if (t>=t0+tx) {t0=t; tx0=tx; EventTimer();}
      }
   }
   
   // Endless loop (only in case of EA running on Demo or Real)
   bool loop_it=true;
   while(loop_it==true && !IsStopped() && (IsTesting() || IsVisualMode() || IsExpertEnabled())) {
      if (initial_pass==true && !IsTesting()) {DrawEPSMeter();}
   
      //////
      // in case of testing - make it to pass once
      if (IsStopped() || IsTesting() || IsVisualMode() || EVENTS_MODE=="tick" || action=="register") {loop_it=false;}
      //////
      
      //////
      // in case of Script - pass 1st tick and start looping on 2'nd tick
      if (initial_pass==false) {loop_it=false; initial_pass=true;}
      //////
      
      //-- Event: EventTrade()
      if (ENABLE_EVENT_TRADE==1)
      {
         if (start_time==-1) {start_time=TimeCurrent();}
         bool e=false;
      
         ///////
         // HISTORY TRADES
         /*
         int total=OrdersHistoryTotal();
         if (total!=history_total) {
            history_total=total;
            for (pos=total-1; pos>=0; pos--) {
               if (OrderSelect(pos,SELECT_BY_POS,MODE_HISTORY)) {
                  if (OrderOpenTime()>=start_time) {
                     if (history_total>history_total_checked) {
                        history_total_checked++;
                     
                        if (OrderType()==OP_BUY) {longs_hist_count++;}
                        if (OrderType()==OP_SELL) {shorts_hist_count++;}
                     
                     }
                  } else {break;}
               }
            }
         }
         */
         // HISTORY TRADES
         ///////
      
         ///////
         // 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;
         
         static int total_trades0=0; int total_trades=OrdersTotal();
         
         // Load memory_ti with current trades if started now or EA reloaded
         if (loaded==false) {loaded=true;
           for (pos=total_trades-1; pos>=0; pos--) {
              if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) {//Alert(OrderType());
                 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]=attrLots();
                 
                 
                 tn++;
               }
            }
            return;
         }
         tn=0; bool pending_opens=false;
         
         for (pos=total_trades-1; pos>=0; pos--) {
            if (OrderSelect(pos,SELECT_BY_POS,MODE_TRADES)) {
               //if (OrderOpenTime()>=start_time) {
                  ArrayResize(tickets_now,tn+1);
                  tickets_now[tn]=OrderTicket();
                  tn++;

                  // Trades and Orders
                  // 1. Add new trade to memory, if not inside
                  i=-1; ti=-1; ty=-1; size=ArraySize(memory_ti);

                  if (size>0){
                    for (i=0; i<size; i++) {
                       if (memory_ti*==OrderTicket()) {
                          if (memory_ty*==OrderType()) {ty=OrderType();} else {pending_opens=true;}
                          ti=OrderTicket(); break;
                       }
                    }
                    
                  }
                  if (ti>0 && ty<0) {
                     
                    memory_ti*=attrTicket();
                    memory_ty*=OrderType();
                    
                    memory_sl*=attrStopLoss();
                    memory_tp*=attrTakeProfit();
                    memory_vl*=attrLots();
                    UpdateEventValues("Trade","new",""); EventTrade();
                  }
                  else if (ti<0 && ty<0) {

                    ArrayResize(memory_ti,size+1); memory_ti*=attrTicket();
                    ArrayResize(memory_ty,size+1); memory_ty*=attrType();
                    ArrayResize(memory_sl,size+1); memory_sl*=attrStopLoss();
                    ArrayResize(memory_tp,size+1); memory_tp*=attrTakeProfit();
                    ArrayResize(memory_vl,size+1); memory_vl*=attrLots();
                    UpdateEventValues("Trade","new",""); EventTrade();
                  }
                  
                  // 2. Check for SL or TP modification
                  else if (ty<0 && i>-1) {
                    e=false;
                    if (memory_sl*!=attrStopLoss())   {memory_sl*=attrStopLoss(); e=true; UpdateEventValues("Trade","modify","sl");}
                    if (memory_tp*!=attrTakeProfit()) {memory_tp*=attrTakeProfit(); if (e==true) {UpdateEventValues("Trade","modify","sltp");} else {e=true; UpdateEventValues("Trade","modify","tp");}}
                    if (e==true) {EventTrade(); e=false;}
                    if (memory_vl*!=attrLots())       {memory_vl*=attrLots(); e=true; UpdateEventValues("Trade","modify","lots");}
                  }
               //} else {break;}
            }
         }
         
         // There are closed orders/trades
         bool missing=true;
         
         if (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*==tickets_now[j]) {missing=false; break;}
               }
               if (missing==true) {
                  if (OrderSelect(memory_ti*,SELECT_BY_TICKET))
                  {
                     // This can happen more than once
                     ArrayStripKeyI(memory_ti,i);
                     ArrayStripKeyI(memory_ty,i);
                     ArrayStripKey(memory_sl,i);
                     ArrayStripKey(memory_tp,i);
                     ArrayStripKey(memory_vl,i);
                     ObjectDelete("#"+OrderTicket()+" sl");
                     ObjectDelete("#"+OrderTicket()+" tp");
                     UpdateEventValues("Trade","closed","");
                     EventTrade(); e=false;
                  }
               }
               missing=true;
            }
            //ArrayIntersectI(memory_ti,tickets_now); // Remove closed orders from memory
         }
         // TRADES AND ORDERS
         ///////
      }
      //-- Event: EventTick()
      if (ENABLE_EVENT_TICK==1)
      {
         if (action=="listen") {
            if (EVENTS_MODE!="tick") {
               string market_for_ticks=Symbol();
               if (SIMULATE_TICKS==1) {market_for_ticks=SIMULATE_TICKS_MARKET;}
               double ask=MarketInfo(market_for_ticks,MODE_ASK);
               double bid=MarketInfo(market_for_ticks,MODE_BID);
               double tt=MarketInfo(market_for_ticks,MODE_TIME);
            }
            if ((EVENTS_MODE=="tick" || (tt!=tt0 || ask!=ask0 || bid!=bid0))) {tt0=tt; ask0=ask; bid0=bid;
               VirtualStopsDriver("listen"); // will work only if this is used: #define USE_VIRTUAL_STOPS "yes"
               EventTick();
            }
         }
      }
      
      
      /*
      int obj_total=ObjectsTotal();
      string name;
      for(i=0;i<obj_total;i++)
      {
         name=ObjectName(i);
         //Print(i,"Object name for object #",i," is " + name);
         //Print(ObjectGetValueByShift(name, 0));

      }
      */

      if (loop_it==true) {Sleep(EVENTS_CYCLE_PERIOD);} // Endless loop resolution
   }
}

void UpdateEventValues(string e_type="",string e_reason="",string e_detail="")
{
   e_Reason(e_reason);
   e_ReasonDetail("set",e_detail);
   if (e_type=="Trade" || e_type=="EventTrade") {
      e_attrClosePrice ("set",attrClosePrice());
      e_attrComment    ("set",attrComment());
      e_attrCommission ("set",attrCommission());
      e_attrExpiration ("set",attrExpiration());
      e_attrLots       ("set",attrLots());
      e_attrMagicNumber("set",attrMagicNumber());
      e_attrOpenPrice  ("set",attrOpenPrice());
      e_attrProfit     ("set",attrProfit());
      e_attrStopLoss   ("set",attrStopLoss());
      e_attrSymbol     ("set",attrSymbol());
      e_attrTakeProfit ("set",attrTakeProfit());
      e_attrTicket     ("set",attrTicket());
      e_attrType       ("set",attrType());
   }
}

int TicksFromStart(string cmd="read")
{
   static int ticks=0;
   if (cmd=="update") {ticks++; if (ticks<0) ticks=0;}
   return(ticks);
}

string DrawStatus(string text)
{
   static string memory;
   if (text=="getCurrentStatus") {return(memory);}
   
   int strlen=StringLen(text);
   string rect1; for (int i=1; i<=strlen; i++) {rect1=rect1+"g";}
	int x=340; int y=0;
   string name;

   static bool draw_status1=true;
   if (draw_status1==true) {draw_status1=false;
      name="StatusTitle";
      if (ObjectFind(name)==-1) {
         ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
         ObjectSet      (name, OBJPROP_BACK, false);
         ObjectSet      (name, OBJPROP_XDISTANCE, x);
         ObjectSet      (name, OBJPROP_YDISTANCE, y);
         ObjectSetText  (name, "Status", 7, "Arial", Gray);
      }
   }
   
   if (text!=memory) {memory=text;
      name="StatusText";
      if (ObjectFind(name)==-1) {
         ObjectCreate   (name, OBJ_LABEL, 0, 0, 0);
         ObjectSet      (name, OBJPROP_BACK, false);
         ObjectSet      (name, OBJPROP_XDISTANCE, x+2);
         ObjectSet      (name, OBJPROP_YDISTANCE, y+8);
      }
      ObjectSetText  (name, text, 12, "Arial", LightBlue);
   }
   return(text);
}

int PipValue(string symbol="")
{
   if (symbol=="") {symbol=Symbol();}
   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);
}

double toDigits(double pips,string symbol="")
{
	if (symbol=="") {symbol=GetSymbol();}
   return(
      NormalizeDouble(
         pips*PipValue()*MarketInfo(symbol,MODE_POINT),
         MarketInfo(symbol,MODE_DIGITS)
      )
   );
}

double toPips(double digits,string symbol="")
{
   if (symbol=="") {symbol=GetSymbol();}
   return(digits/(PipValue()*MarketInfo(symbol,MODE_POINT)));
}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| FUNCTIONS, CALLED FROM FUNCTIONS |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

string e_attrSymbol(string cmd="", string inp="") {static string mem; if(cmd=="set"){mem=inp;} return(mem);}

int e_attrMagicNumber(string cmd="", int inp=-1) {static int mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

int e_attrType(string cmd="", int inp=-1) {static int mem; if(cmd=="set"){mem=inp;} return(mem);}

bool TimerStopped() {if (TimerStop(-1)==1) {return(true);} return(false);}

double TimerPeriod(double t=-1) {static double time=-1; if (t>=0){time=t;} if (t>-1){TimerStop(0);} return(time);}

void DrawEPSMeter()
{
   static int frames=0;
   static int frame=0;
   static int eps=0;
   static int time0=0;
   static int direction=0;
   
   int tl=TimeLocal();
   if (tl>time0) {
      time0=tl; eps=frame; frame=0;
      int x=0; int y=0;
      string name="fxdreema_eps_meter";
      if (ObjectFind(name)==-1) {
         ObjectDelete(name);
         ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
         ObjectSet   (name, OBJPROP_CORNER, 3);
         ObjectSet   (name, OBJPROP_XDISTANCE, x+1);
         ObjectSet   (name, OBJPROP_YDISTANCE, y+1);
      }
      ObjectSetText(name, "Events per second: "+eps, 10, "Arial", DarkSeaGreen);
   } else {
   frame++; frames++;
   }
   
   /*
   if (direction==0) {
      
      if (frames==20) {Comment(fps,"fps |");}
      if (frames==40) {Comment(fps,"fps ||");}
      if (frames==60) {Comment(fps,"fps |||");}
         if (frames==80) {Comment(fps,"fps ||||");}
         if (frames==100) {Comment(fps,"fps |||||");}
         if (frames==120) {Comment(fps,"fps ||||||");}
         if (frames==140) {Comment(fps,"fps |||||||");}
         if (frames==160) {Comment(fps,"fps ||||||||");}
         if (frames==180) {Comment(fps,"fps |||||||||");}
         if (frames==200) {Comment(fps,"fps ||||||||||"); frames=0; direction=1;}
      }
      if (direction==1) {
         if (frames==20)  {Comment(fps+"fps ||||||||||");}
         if (frames==40)  {Comment(fps+"fps |||||||||");}
         if (frames==60)  {Comment(fps+"fps ||||||||");}
         if (frames==80)  {Comment(fps+"fps |||||||");}
         if (frames==100) {Comment(fps+"fps ||||||");}
         if (frames==120) {Comment(fps+"fps |||||");}
         if (frames==140) {Comment(fps+"fps ||||");}
         if (frames==160) {Comment(fps+"fps |||");}
         if (frames==180) {Comment(fps+"fps ||");}
         if (frames==200) {Comment(fps+"fps |"); frames=0; direction=0;}
      }
      */
}

double attrStopLoss(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrStopLoss());}
   if (USE_VIRTUAL_STOPS=="yes" && sel=="") {return(VirtualStopsDriver("get sl",OrderTicket()));}
   return(OrderStopLoss());
}

double attrTakeProfit(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrTakeProfit());}
   if (USE_VIRTUAL_STOPS=="yes" && sel=="") {return(VirtualStopsDriver("get tp",OrderTicket()));}
   return(OrderTakeProfit());
}

double attrLots(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrLots());}
   return(OrderLots());
}

int attrTicket(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrTicket());}
   return(OrderTicket());
}

bool ArrayStripKeyI(int &array[], int key)
{
   bool stripped=false;
   int size=ArraySize(array);
   if (size>0)
   {
      int i=0; int x=0;
      for (i=0; i<size; i++)
      {
         if (i!=key)
         {
            array[x]=array*;
            x++;
         } else {
            stripped=true;  
         }
      }
      ArrayResize(array,x);
   }
   return (stripped);
}

bool ArrayStripKey(double &array[], double key)
{
   bool stripped=false;
   int size=ArraySize(array);
   if (size>0)
   {
      int i=0; int x=0;
      for (i=0; i<size; i++)
      {
         if (i!=key)
         {
            array[x]=array*;
            x++;
         } else {
            stripped=true;  
         }
      }
      ArrayResize(array,x);
   }
   return (stripped);
}

double VirtualStopsDriver(string command="", int ti=-1, double sl=0, double tp=0, double slp=0, double tpp=0)
{
   int i, ii=-1, size;
   //static int    mem_ti[];
   //static double mem_sl[];
   //static double mem_tp[];
   //static double mem_vl[];
   if (USE_VIRTUAL_STOPS!="yes") {return;} // Virtual stops are not enabled => stop here
   
   // Set SL and TP
   if ((command=="set" || command=="modify" || command=="clear" || command=="partial") && ti>-1)
   {
      // update record (add/modify)
      string name="";
      name="#"+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);
            ObjectSetText(name,name+" (virtual)");
         }
         else {ObjectSet(name,OBJPROP_PRICE1,sl);}
      } else {ObjectDelete(name);}
      name="#"+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);
            ObjectSetText(name,name+" (virtual)");
         }
         else {ObjectSet(name,OBJPROP_PRICE1,tp);}
      } else {ObjectDelete(name);}
      // print message
      if (command=="set" || command=="modify") Print(command+" #"+ti+": virtual sl "+DoubleToStr(sl,Digits)+" tp "+DoubleToStr(tp,Digits));
      return(1);
   }
   
   // Get SL or TP
   if ((command=="get sl" || command=="get tp") && ti>-1)
   {
      if (command=="get sl") return(ObjectGet("#"+ti+" sl",OBJPROP_PRICE1));
      else if (command=="get tp") return(ObjectGet("#"+ti+" tp",OBJPROP_PRICE1));
      return(0);
   }
   
   // Listen trades/orders
   if (command=="" || command=="listen")
   {
      for (int pos=0; pos<OrdersTotal(); pos++) {
         if (OrderSelect(pos,SELECT_BY_POS)) {
            // check SL and TP
            double sl_lvl=ObjectGet("#"+OrderTicket()+" sl",OBJPROP_PRICE1);
            double tp_lvl=ObjectGet("#"+OrderTicket()+" tp",OBJPROP_PRICE1);
            // close trade/order
            if (OrderType()==OP_BUY) {
               double bid=MarketInfo(OrderSymbol(),MODE_BID);
               if ((sl_lvl>0 && bid<=sl_lvl) || (tp_lvl>0 && bid>=tp_lvl)) {
                  if (OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,CLR_NONE))
                  {
                     ObjectDelete("#"+OrderTicket()+" sl");
                     ObjectDelete("#"+OrderTicket()+" tp");
                  }
                  return;
               }
            }
            else if (OrderType()==OP_SELL) {
               double ask=MarketInfo(OrderSymbol(),MODE_ASK);
               if ((sl_lvl>0 && ask>=sl_lvl) || (tp_lvl>0 && ask<=tp_lvl)) {
                  if (OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,CLR_NONE))
                  {
                     ObjectDelete("#"+OrderTicket()+" sl");
                     ObjectDelete("#"+OrderTicket()+" tp");
                  }
                  return;
               }
            }
         }
      }
   }
   return(1);
}

string e_Reason(string inp="") {static string mem; if(inp!=""){mem=inp;} return(mem);}

string e_ReasonDetail(string cmd="", string inp="") {static string mem; if(cmd=="set"){mem=inp;} return(mem);}

double e_attrClosePrice(string cmd="", double inp=-1) {static double mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

double attrClosePrice(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrClosePrice());}
   return(OrderClosePrice());
}

string e_attrComment(string cmd="", string inp="") {static string mem; if(cmd=="set"){mem=inp;} return(mem);}

string attrComment(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrComment());}
   return(OrderComment());
}

double e_attrCommission(string cmd="", double inp=0) {static double mem=0; if(cmd=="set"){mem=inp;} return(mem);}

double attrCommission(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrCommission());}
   return(OrderCommission());
}

datetime e_attrExpiration(string cmd="", datetime inp=0) {static datetime mem=0; if(cmd=="set"){mem=inp;} return(mem);}

datetime attrExpiration(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrExpiration());}
   return(OrderExpiration());
}

double e_attrLots(string cmd="",double inp=-1) {static double mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

double e_attrOpenPrice(string cmd="", double inp=-1) {static double mem; if(cmd=="set"){mem=inp;} return(mem);}

double attrOpenPrice(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrOpenPrice());}
   return(OrderOpenPrice());
}

double e_attrProfit(string cmd="", double inp=0) {static double mem; if(cmd=="set"){mem=inp;} return(mem);}

double attrProfit(string sel="")
{
   if (sel=="e" || sel=="event") {return(e_attrProfit());}
   return(OrderProfit());
}

double e_attrStopLoss(string cmd="", double inp=-1) {static double mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

double e_attrTakeProfit(string cmd="", double inp=-1) {
   static double mem=-1;
   static double pips=0;
   double price;
   if(cmd=="pipsFromHere"){
      if (e_attrTakeProfit()>0) {
         if (e_attrType()==OP_BUY || e_attrType()==OP_BUYSTOP || e_attrType()==OP_BUYLIMIT)
         {
            price=SymbolAsk(e_attrSymbol());
            pips=toPips(MathAbs(price-e_attrTakeProfit()),e_attrSymbol());
         }
         else
         {
            price=SymbolBid(e_attrSymbol());
            pips=toPips(MathAbs(price-e_attrTakeProfit()),e_attrSymbol());
         }
      }
   }
   if(cmd=="set"){mem=inp;}
   return(mem);
}

int e_attrTicket(string cmd="", int inp=-1) {static int mem=-1; if(cmd=="set"){mem=inp;} return(mem);}

string GetSymbol(string symbol="")
{
   static string memory="";
   if (memory=="") {memory=Symbol();}
   if (symbol=="") {return(memory);}
   if (symbol!="") {memory=symbol; return(memory);}
   return(Symbol());
}

int TimerStop(int s=1) {static int stopped=0; if (s==0 || s==1){stopped=s;} return(stopped);}

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));
}

/////////////////////////////////////////////////////////////////////////////
//+-----------------------------------------------------------------------+//
//| PERMANENT FUNCTIONS |//
//+-----------------------------------------------------------------------+//
/////////////////////////////////////////////////////////////////////////////

string ListOfIDsConnectedToMe(string src) {
static bool passed=false;
static string ids[]; ArrayResize(ids,3);
static string lst[]; ArrayResize(lst,3);
if (passed==false) {passed=true;
ids[0]="2";lst[0]="1";
ids[1]="3";lst[1]="1";
ids[2]="4";lst[2]="2,3";
}
if (src!="") {
int i=0; int maxi=ArraySize(ids); for (i=0; i<maxi; i++) {if (ids*==src) {return(lst*); break;}}
}
return("");
}
void DrawSpreadInfo() {
static bool allow_draw=true;
if (allow_draw==false) {return;}
if ((IsTesting()/||IsVisualMode()/)) {if (allow_draw==true) {allow_draw=false;}} // Allowed to draw only once in testing mode

double pip_value=1;
int digits=MarketInfo(Symbol(),MODE_DIGITS);
if (digits==1) {pip_value=(POINT_FORMAT/0.00001);}
else if ((digits==2 || digits==4)) {pip_value=(POINT_FORMAT/0.0001);}
else if ((digits==3 || digits==5)) {pip_value=(POINT_FORMAT/0.00001);}
else if ((digits==6))              {pip_value=(POINT_FORMAT/0.000001);}

static double max_spread=0;
static double min_spread=0;
static double avg_spread=0;
static double avg_add=0;
static double avg_cnt=0;
double current_spread=(MarketInfo(Symbol(),MODE_ASK)-MarketInfo(Symbol(),MODE_BID))/(pip_value*MarketInfo(Symbol(),MODE_POINT));
if (current_spread>max_spread) {max_spread=current_spread;}
if (current_spread<min_spread || min_spread==0) {min_spread=current_spread;}
avg_add=avg_add+current_spread; avg_cnt++;
avg_spread=avg_add/avg_cnt;

int x=0; int y=0;
string name="current_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+1);
ObjectSet (name, OBJPROP_YDISTANCE, y+1);
}
ObjectSetText(name, "Spread: "+DoubleToStr(current_spread,2), 18, "Arial", DarkOrange);

name="max_spread_label";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+148);
ObjectSet (name, OBJPROP_YDISTANCE, x+17);
ObjectSetText(name, "max:", 7, "Arial", OrangeRed);
}
name="max_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+173);
ObjectSet (name, OBJPROP_YDISTANCE, y+17);
}
ObjectSetText(name, DoubleToStr(max_spread,2), 7, "Arial", OrangeRed);

name="avg_spread_label";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+148);
ObjectSet (name, OBJPROP_YDISTANCE, y+9);
ObjectSetText(name, "avg:", 7, "Arial", DarkOrange);
}
name="avg_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+173);
ObjectSet (name, OBJPROP_YDISTANCE, y+9);
}
ObjectSetText(name, DoubleToStr(avg_spread,2), 7, "Arial", DarkOrange);

name="min_spread_label";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+148);
ObjectSet (name, OBJPROP_YDISTANCE, y+1);
ObjectSetText(name, "min:", 7, "Arial", Gold);
}
name="min_spread";
if (ObjectFind(name)==-1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
ObjectSet (name, OBJPROP_CORNER, 2);
ObjectSet (name, OBJPROP_XDISTANCE, x+173);
ObjectSet (name, OBJPROP_YDISTANCE, y+1);
}
ObjectSetText(name, DoubleToStr(min_spread,2), 7, "Arial", Gold);
}
//+------------------------------------------------------------------+
//| END |
//| Created with fxDreema EA Builder http://fxdreema.com/ |
//+------------------------------------------------------------------+

/<fxdreema:eNrVVltv2zYUfs+vEPgUA9mmm+NafmouHTIk9VY7AwYMEGiJUrhQokBSdt3C/32HImVLjrygGTpgTxLO5eO5n4OjSfRVRu8iJIlStMwlmuHI9zTR8yNUCf4XSVRc4oKgmaHNyx8YLYmjiFQtLeEpYbjMa5w3cmGEHn67Dxu2F6EUKxIngsAHzWjkBePQDcbuNOjyC57SbNvhB97U8guc0ySWCgtl0T1vMmnRV4wnz1LrGxsj5DZfN0IkKeOV4M9EoNkqcoHqAzUlSjtlGHFKc6pky/cmEcoFrp5iLigpFVaUl+1LS14t+RVXihcN6TJCOFF0Dc5xEIWoCGvfkibP+hdCidZU0hUjMaMrgcU2zgWvK80EdbmVihiwIEKKFmCQJICWSh2JS9cGmJckrmgVS/qFWFX3R9d1PWRtriWJ11SoGjMIFK9k83qESt5ITI0EAfyclMn2hMwRPxaE9UI6IILTtCcCP2QNgTskJNSOmXA0AIabbBOISUUE5WmTdM0GUUmLmul60DqyC61j2efGBRbPRNmA3D5+elzcoNlOQlWjDS1TvmnqOdTlvCd5mjS1ZW9IdzcaoishQQKBf/Msk/oBsC90bVExkqkDPZy4RvpUCQDLZt48A6/eZXOREiGt4bp+SRNFQLcqFCJUS1tolgyaKZUYaintlmuFBbSnAjwoQy5SuVfpRsJ/1W1/yG1/POy2P/1Gt8eQoKJS2//S5+BVn4NBny+HfR6H/wOfw1d9Dod8DqYnytv9Rp/hmWteFNDj393rnTH4IHGi2ZsdB+N1sM9h/m3uB/pS0z+2Y+cuc5TAKfmJa75DPlOpZIt1feyJVv1VPzxu9ijoG9hFwqtmIoItmLF2XBrmz+1WsCCas9gWK84G1CCsiz8erub3RwpX9VbOxYIwJm2aVlw9NQWi2ZsF0cFS3IQq0OaBsdKzY7YNiPSPCcGBYIttAauxNueChhnrHcWzrDuww2az417C+vNofCIzfi8z3TbapwWq6BcIvFNh+SITdtW3aXCjr7sXY+HU08F3fbrpzssTT4e9p/uNdCjHd3u6w0sneYKjyDlnfOMw2Kxs9HpVerZDOuievj7O0Psk4TXgZoIQB3ZrTkuHSgdd3PAa+nLJF0qcW6EPIPPQiJyPLvzRBfqzRBdn6LoWQpumTxmju4Q/o6n/LP98NDo7+3e1ZGsa5lIJ1xxcaYf21xepu69wgMsoYamNzM3th/eP98v2AOO1SMjLsQAsODdzc1x063Jn4L1BeNC6+/j77ae3oQd7dP/Nxvun4cM9fPBm+OCf4U0+yWcYxuUhn/1prFviuCNsm5g1A3d+qeRBFKhrLKjeDHvq7m+VhPR+
:fxdreema>/

Well... now I'm really confused! I'm sorry to be going on and on about this one, but I'm wondering if I've come across a bug or something in the desktop version. Either that or it really is me..!

I've created two identical EAs. One done using the on-line generator, and called "On-line test"; the other using the desktop generator, called "Desktop test". These I've attached to this posting.

Using Indices (SP500, UK100) the "On-line test" works, the "Desktop test" doesn't. It fails with the "2012.11.27 17:01:46 2012.11.13 14:51 desktop test UK100SB,M1: zero divide" error in the journal.

They both work on Forex (EURUSD), CFD (AALUK), Futures (Brent).

Help! Please tell me it isn't me! I'm going round and round and round here...!

Actually, I don't seem to be able to upload any files for some reason. Is it disabled? What format can I upload in?

Ah ha! Got it working. Thank you so much. Now "test2" works!

http://fxdreema.com/shared/nugEFMIrb

Tested on:

Forex (EURUSD)
CFD (AALUK)
Futures (Brent)
Indices (SP500, UK100)

Yes, sorry. Fair point!

But any idea what makes the indices different to everything else in this way?

Yes, I think the EA is starting OK. And no, all history is present.

However, there is an error message on the indices (SP500 & UK100) which doesn't appear on any other market:

Journal message:
2012.11.26 14:39:58 2012.10.19 13:59 test2 SP500SB,M1: zero divide

Journal Log:
14:39:58 test2 inputs: MagicStart=5098;
14:39:58 2012.10.19 13:59 test2 SP500SB,M1: zero divide

I don't know what this means, or why it would only appear in the indices, and nowhere else. Any thoughts?

Actually I've just discovered that test2 (http://fxdreema.com/shared/9Nsxhb19c) works with:

Forex (EURUSD)
CFD (AALUK)
Futures (Brent)

... but not indicies:

SP500
UK100

Any idea why?

As I'm using the back test function of MT4 I do get the ticks and the comment block to work in test1, eventhough its Sunday.

I've re-done test2 as you suggested, and tried all sorts of varieties, even the one shown here http://fxdreema.com/shared/dbZiubUNc, and still the time stays still!

What could I be doing wrong?

I'm struggling to understand where I'm going wrong.

test1 works : http://fxdreema.com/shared/Tq0HspPUb

test2 doesn't : http://fxdreema.com/shared/Aq9LaU72e

Using back testing with test2, I'm expecting to see the result from the "comment on chart" block, which would be account free margin and the current time ticking upwards. This works fine in test1.

Any advice would be greatly appreciated.

Thanks.

Hello

Just downloaded fxDreema Desktop. Looks good. One small request; could it please have a check box option to remember my username and password? This would save a bit of typing!

Thanks.