#property copyright "Copyright 2019, MetaQuotes Software Corp."
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict
int ii;
string Nummer;
int Zeittakt=1;
datetime dt;
bool NeueKerze=false;
datetime An[101];
double Hi[101];
datetime En[101];
string NameHi;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
   ObjectsDeleteAll();
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   if(dt!=iTime(_Symbol,Zeittakt,0))
     {
      dt=iTime(_Symbol,Zeittakt,0);
      for(ii=1;ii<100;ii++)
        {
         An[ii]=iTime(_Symbol,1,ii);// Anfangszeit des ersten Bars (auf M1)
         Hi[ii]=NormalizeDouble(iHigh(_Symbol,1,ii),5);// Höhe des Bars
         En[ii]=An[ii];//Endzeit des auf den ersten folgenden Bars (auf M1)
        }
      Nummer=IntegerToString(ii);// Nummerierung der Linien und Umwandeln in einen String
      NameHi="MinuteBarHigh"+Nummer;// Namensgebung der jeweiligen Linie und indizieren des Namens
      ObjectCreate(0,NameHi,OBJ_TREND,0,An[ii],Hi[ii],En[ii+1],Hi[ii+1]);
      ObjectSetDouble(0,NameHi,OBJPROP_PRICE1,Hi[ii]);
      ObjectSetDouble(0,NameHi,OBJPROP_PRICE2,Hi[ii+1]);
      ObjectSetInteger(0,NameHi,OBJPROP_TIME1,An[ii]);
      ObjectSetInteger(0,NameHi,OBJPROP_TIME2,En[ii+1]);
      ObjectSetInteger(0,NameHi,OBJPROP_STYLE,1);
      ObjectSetInteger(0,NameHi,OBJPROP_WIDTH,5);
      ObjectSetInteger(0,NameHi,OBJPROP_COLOR,clrBlue);
      ObjectSetInteger(0,NameHi,OBJPROP_RAY_RIGHT,false);
     }
   NeueKerze=false;
  }

  for(int i=OrdersTotal()-1; i>=0; i--)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {    
          // hier sollte zuerst das Ordersymbol abgefragt werden, geht das?:
            if (StringFind(OrderSymbol(), "EURUSD",0) >0 {
          }
      }

// === user input
extern int DefaultTS = 1000; // default Trailing Stop (2000)
extern int DecreasTs =  200; // Trailing Stop descrease (200)
// === internal global
int LastTS = DefalutTS;      // initial Decreased value

// === die Trailing Funktion
   double ordprofit=0; // orders profit size to begin trailing
   double rq_price=0;  // required price for stop loss setting (Bid or Ask)
   double rq_trail=0;  // distance of trailing stop to price
   
   rq_trail=NormalizeDouble(LastTS*_Point,_Digits);          //Normalize

   // === innerhalb der OrderSelect()
   ordprofit=2*( OrderCommission()+OrderSwap() );            //CoverCostsCash

   // ======= Buy Orders =======
   if(Type==OP_BUY && OrderType()==OP_BUY)                   //Type wird der Funktion übergeben
   {
      // ===>while
      rq_price=MarketInfo(_Symbol,MODE_BID);                 //required price            
      if(   OrderProfit()>ordprofit                          //ProfitCoversCosts
         && OrderStopLoss()<rq_price-rq_trail )              //SLBelow Bid-TrailDist
      {
         if(OrderModify(OrderTicket(),OrderOpenPrice(),
                        rq_price-rq_trail,                   //ChangeSL:Bid-TSdist
                        OrderTakeProfit(),0,ColArrowShort) )
            if(LastTS>DecreaseTS) LastTS=LastTS-DecreasTs;   //NewValueUntilMinimum
         else
            Sleep(ErrorInterval);                            //FailWait
		// <=== end while
      } //ProfitCoversCosts
   } //BuyOrder

#property copyright "Angel"
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict

int i;
int z;
//+------------------------------------------------------------------+
//| Expert initialization function                                                       |
//+------------------------------------------------------------------+
int OnInit()
  {
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                                 
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
  }
//+------------------------------------------------------------------+
//| Expert tick function                                                       
//+------------------------------------------------------------------+
void OnTick()
  {
   for(i=50;i>1;i--) 
     {
      for(z=i-1;z>0;z--) 
        {
         Alert("  i= ",i,"    z= ",z);
        }
     }
  }

int TF=1; //Timeframe M1
datetime Anfang,Ende;

void OnTick()
{

   Anfang=iTime ( _Symbol, M1, 10 );// Ab der letzten 10.ten Kerze auf M1, Kerze ist jetzt mal willkürlich
   Ende=   iTime ( _Symbol, M1, 2 );// Bis zur letzten 2.ten Kerze auf M1, Kerze ist jetzt mal willkürlich

ObjectCreate ( "Rechteck" ,OBJ_RECTANGLE , 0 , Anfang, iLow(_Symbol,TF,6) , Ende, iHigh(_Symbol,TF,6)) ; // 6.te Kerze ist jetzt mal willkürlich
ObjectSetDouble ( 0, "Rechteck", OBJPROP_PRICE1, iLow(_Symbol,TF,6)); // 6.te Kerze ist jetzt mal willkürlich
ObjectSetDouble ( 0, "Rechteck", OBJPROP_PRICE2, iHigh(_Symbol,TF,6)); // 6.te Kerze ist jetzt mal willkürlich
ObjectSetInteger( 0, "Rechteck", OBJPROP_TIME1, Anfang);
ObjectSetInteger( 0, "Rechteck", OBJPROP_TIME2, Ende);
ObjectSetInteger( 0, "Rechteck", OBJPROP_COLOR,clrWhite);    
}