#property strict     
    #include <Trade\Trade.mqh>
    CTrade trade;
      
      
    double kontrakt = 0.01;
    int anfang = 1;
    int ende = 240;
    datetime _time_waiting = 0;
    
    void OnTick(void){
    
    
    datetime Istzeit = TimeCurrent();
    string Std_Min_Sek = TimeToString(Istzeit,TIME_SECONDS);
    
    if(Std_Min_Sek == "19:45:15"){
    while (anfang < ende){   //1. while-Schleif
    _time_waiting = TimeCurrent() + 10;
    while ( TimeCurrent() < _time_waiting ){   //2. while-Schleife    
    if(OrdersTotal() == 0)
    trade.BuyStop(kontrakt,Ask+3500*_Point,_Symbol,0,0,ORDER_TIME_GTC,0,"Automatisch");
    if(OrdersTotal() == 1)
    trade.SellStop(kontrakt,Bid-3500*_Point,_Symbol,0,0,ORDER_TIME_GTC,0,"Automatisch");}
    
    for(int i= OrdersTotal()-1; i >= 0; i--){
    ulong ticket = OrderGetTicket(i);
    trade.OrderDelete(ticket);}      
    
    Comment(Std_Min_Sek, "\n \n", anfang);
    anfang = anfang + 1;}}
    
    }//End OnTick

  int d100y=0; double d100x=0;
  for(d100y=1;d100y<=100;d100y++)
   d100x    =    d100x  +  (iHigh(NULL,PERIOD_D1,d100y)-iLow(NULL,PERIOD_D1,d100y))/pt;
   d100  =  d100x/100;

   // ====================================== first run
   if(prev_calculated==0)
   {
      // === calculate the past values
         CalcAdr30();    //from yesterday 30 days back
         CalcAdr0();     //for today
         CalcAdrLeft();  //for today
         CalcChange();   //summaries till now
         CalcState();    //summaries till now
   }
   else
   {
      // === hier fehlt mir eine elegante Lösung
   }

void PA1Order3Modify(){
  bool bres=false,sres=false;
  double PA1BuyOpen=GlobalVariableGet(Symbol()+"-PABuyOpen"); //not used
  double PA1BuyOpenTP=GlobalVariableGet(Symbol()+"-PABuyOpenTP")+NormalizeDouble(((DynSteps/100)*4),0);
  double PA1BuyOpenSL=GlobalVariableGet(Symbol()+"-PABuyOpenSL")-NormalizeDouble(((DynSteps/100)*4),0);
     for(int i = OrdersTotal()-1; i >= 0; i--){
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
       if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic1){
        if(OrderType()==OP_BUY && StringFind(OrderComment(),"-1/10")==4){
         if(OrderProfit()==PA1BuyOpenTP && OrderStopLoss()==PA1BuyOpenSL) break; {
          bres=OrderModify(OrderTicket(),OrderOpenPrice(),PA1BuyOpenSL,PA1BuyOpenTP,OrderExpiration(),CLR_NONE); } }
        if(OrderType()==OP_SELL && StringFind(OrderComment(),"-2/10")==4){
         if(OrderProfit()==PA1BuyOpenSL && OrderStopLoss()==PA1BuyOpenTP) break; {
          sres=OrderModify(OrderTicket(),OrderOpenPrice(),PA1BuyOpenTP,PA1BuyOpenSL,OrderExpiration(),CLR_NONE); } }
          }
      }
      return;
    }

//+----------------------------------------   Mein Linien Grid Indikator   -------------------------------+
//+-------------------------------------------------------------------------------------------------------+
#property strict
#property indicator_chart_window
#property indicator_minimum 0
#property indicator_maximum 100
#property indicator_buffers 4
//+---------------------------------------------------------------------------------   Chart Ausgabe   ---+
//+-------------------------------------------------------------------------------------------------------+
#property indicator_type1 DRAW_LINE
#property indicator_style1 STYLE_SOLID
#property indicator_width1 2
#property indicator_color1 clrOrange
#property indicator_label1 "Obere Linie"
//---
#property indicator_type2 DRAW_LINE
#property indicator_style2 STYLE_DASHDOT
#property indicator_width2 1
#property indicator_color2 clrCrimson
#property indicator_label2 "Oben - Abstand"
//---
#property indicator_type3 DRAW_LINE
#property indicator_style3 STYLE_DASHDOT
#property indicator_width3 1
#property indicator_color3 clrDodgerBlue
#property indicator_label3 "Unten + Abstand"
//---
#property indicator_type4 DRAW_LINE
#property indicator_style4 STYLE_SOLID
#property indicator_width4 2
#property indicator_color4 clrOrange
#property indicator_label4 "Untere Linie"
//+---------------------------------------------------------------------   Globale externe Variablen   ---+
//+-------------------------------------------------------------------------------------------------------+
input int      Perioden =    500;
input double   Prozent  =     30;
//+-----------------------------------------------------------------------------   Globale Variablen   ---+
//+-------------------------------------------------------------------------------------------------------+
double bufferGanzOben[];
double bufferGanzUnten[];
double bufferObenMinAbstand[];
double bufferUntenPlAbstand[];
//+-------------------------------------------------------------------------------   OnInit Funktion   ---+
//+-------------------------------------------------------------------------------------------------------+
int OnInit() {
//--- drawing settings
   SetIndexBuffer(0, bufferGanzOben);
   SetIndexBuffer(1, bufferObenMinAbstand);
   SetIndexBuffer(2, bufferUntenPlAbstand);
   SetIndexBuffer(3, bufferGanzUnten);
//---
   return(INIT_SUCCEEDED);
}
//+--------------------------------------------------------------------------   OnCalculate Funktion   ---+
//+-------------------------------------------------------------------------------------------------------+
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[]) {
//--- last counted bar will be recounted
   int _CandlesOnChart = rates_total - prev_calculated;
   if(prev_calculated > 0) {
      _CandlesOnChart++;
   }
   for(int i = 0; i < _CandlesOnChart; i++) {
//---
      _CandlesOnChart = WindowFirstVisibleBar();
//---
      int _HighestCandle = iHighest(Symbol(), PERIOD_CURRENT, MODE_HIGH, _CandlesOnChart, 0);
      bufferGanzOben[i] = High[_HighestCandle];
      int _LowestCandle = iLowest(Symbol(), PERIOD_CURRENT, MODE_LOW, _CandlesOnChart, 0);
      bufferGanzUnten[i] = Low[_LowestCandle];
//---
      double _Range = (_HighestCandle - _LowestCandle);
      double _EinProz = (_Range / 100);
      double _Prozent = (_EinProz * Prozent);
//---
      int _HighCandle = iHighest(Symbol(), PERIOD_CURRENT, MODE_HIGH, _CandlesOnChart, 0);
      bufferObenMinAbstand[i] = High[_HighCandle] + _Prozent;
      int _LowCandle = iLowest(Symbol(), PERIOD_CURRENT, MODE_LOW, _CandlesOnChart, 0);
      bufferUntenPlAbstand[i] = Low[_LowCandle] - _Prozent;
//---
      string _String = "Highest Value: " + DoubleToString(bufferGanzOben[i], Digits()) + " Lowest Valve:" + DoubleToString(bufferGanzUnten[i], Digits());
      if(ObjectCreate(0, "Display", OBJ_LABEL, 0, 0, 0)) {
         Print("Object NOT Created");
      }
      ObjectSetInteger(0, "Display", OBJPROP_FONTSIZE, 10);
      ObjectSetInteger(0, "Display", OBJPROP_WIDTH, 5);
      ObjectSetInteger(0, "Display", OBJPROP_COLOR, clrOrange);
      ObjectSetInteger(0, "Display", OBJPROP_XDISTANCE, 10);
      ObjectSetInteger(0, "Display", OBJPROP_YDISTANCE, 10);
      ObjectSetString(0, "Display", OBJPROP_TEXT, _String);
   }
   return(rates_total);
}