//+------------------------------------------------------------------+
//|                                                   MTF backtester |
//+------------------------------------------------------------------+
#property copyright "sorrex"
#property link      ""
#property show_confirm

//+------------------------------------------------------------------+
//| script vytvorí VL, ktorou hýbete a prestavujete ostatné          |
//+------------------------------------------------------------------+

int start()
  {
      if(ObjectFind("BT_time")<0)  CreateVLine("BT_time", TimeCurrent(), STYLE_SOLID, 2, Magenta , "");
      if(ObjectFind("BT_price")<0) CreateHLine("BT_price",Bid, STYLE_SOLID, 2, Magenta , "");

      while (true)
         {  if(ObjectFind("BT_time")<0 || ObjectFind("BT_price")<0)
               {  ObjectDelete("BT_time");
                  ObjectDelete("BT_price");
                  GlobalVariableDel("BackTest_VL");
                  GlobalVariableDel("BackTest_HL");
                  return (0);
               }
  
            datetime actual_time  = ObjectGet("BT_time",OBJPROP_TIME1);
            double   actual_price = ObjectGet("BT_price",OBJPROP_PRICE1);
            GlobalVariableSet("BackTest_VL",actual_time);
            GlobalVariableSet("BackTest_HL",actual_price);
            Sleep (100);
         }
      return(0);
  }
//+------------------------------------------------------------------+
void CreateVLine(string name, datetime t1, int style, int width, 
                 color col, string description)
  {  ObjectDelete(name);
	  ObjectCreate(name, OBJ_VLINE, 0, t1, 0);
	  ObjectSet(name, OBJPROP_COLOR	, col);
	  ObjectSet(name, OBJPROP_STYLE	, style);
	  ObjectSet(name, OBJPROP_WIDTH	, width);
	  ObjectSetText(name, description, 8);
  }

void CreateHLine(string name, double p1, int style, int width, 
                 color col, string description)
  {  ObjectDelete(name);
	  ObjectCreate(name, OBJ_HLINE, 0, TimeCurrent(), p1);
	  ObjectSet(name, OBJPROP_COLOR	, col);
	  ObjectSet(name, OBJPROP_STYLE	, style);
	  ObjectSet(name, OBJPROP_WIDTH	, width);
	  ObjectSetText(name, description, 8);
  }