//+------------------------------------------------------------------+
//|                                                ApplyTemplate.mq5 |
//|                                Copyright © 2017 Ing. Otto Pauser |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2017 Ing. Otto Pauser"
#property link      ""
#property version   "1.00"
#property description "Aktuelles Template wird unter dem Namen 'LastApplied.tpl' gespeichert"
#property description "und auf alle offenen Charts angewendet"

string ProgName = MQLInfoString(MQL_PROGRAM_NAME);    // Name des Scripts (für MessageBox)
string TmplName = "LastApplied";                      // unter diesem Namen wird die aktuelle Einstellung gespeichert, wird immer kommentarlos überschrieben

void OnStart()
{
   ENUM_TIMEFRAMES initPeriod  = _Period;                                  // Timeframe des aktuellen Charts merken
   long            initScale   = ChartGetInteger(ChartID(),CHART_SCALE);   // scale des aktuellen Charts merken
   long            initChartID = ChartID();                                // aktueller Chart
   long            currChartID = ChartFirst();                             // Schleifenvariable über alle Charts

   if(!ChartSaveTemplate(initChartID,TmplName))                            // hier wird die aktuelle Einstellung in Datei geschrieben
      {
         PlaySound("alert");
         MessageBox("*ERROR* ChartSaveTemplate: "+TmplName,ProgName,MB_ICONERROR);
         return;                                                           // exit here
      }
      
   while(currChartID>=0)                                                   // Schleife über alle Charts
      {
         if(currChartID!=initChartID)                                      // nicht für Chart in dem das Script gestartet wurde
            {  
               //if(ChartSymbol(currChartID)!="SILVER")                      // nicht für Chart "SILVER". Diese Zeile kann enfernt werden, ist nur für meine Anwendung
                                                                             // ist auch Beispiel für Filter für Charts die nicht verändert werden sollen
                  if(!ChartApplyTemplate(currChartID, TmplName))           // Template anwenden
                     {
                        MessageBox("*ERROR* ChartApplyTemplate: "+TmplName,ProgName,MB_ICONERROR);
                        return;                       // exit here
                     }
               }
         currChartID=ChartNext(currChartID);
     }

   currChartID = ChartFirst();                                             // reset auf ersten Chart
   while(currChartID>=0)                                                   // nochmal Schleife über alle Charts
      {
         if(currChartID!=initChartID)                                      // nicht für Chart in dem das Script gestartet wurde
            {
               if(ChartPeriod(currChartID)!=initPeriod)                    // Timeframe einstellen
                  ChartSetSymbolPeriod(currChartID,ChartSymbol(currChartID),initPeriod);  

               if(ChartGetInteger(currChartID,CHART_SCALE)!=initScale)     // Scale einstellen
                  ChartSetInteger(currChartID,CHART_SCALE,  initScale);
            }
         currChartID=ChartNext(currChartID);
     }

   PlaySound("ok");                                                        // akustisch bemerkbar machen
}

double BreakEvenKurs()
   {
      double AktuelleOpenLotsBETotal = 0;
      double AktuelleEinstiegeBETotal = 0;
      double aktuellerBE = 0;
      
      for(int Zaehler = 0; Zaehler <= OrdersTotal()-1; Zaehler++)
         {
            bool Orderwahl = OrderSelect(Zaehler, SELECT_BY_POS);
            if(Orderwahl == true && OrderSymbol() == Symbol()) 
               {
                  if(OrderType() == OP_BUY) 
                     {
                     	 AktuelleOpenLotsBETotal = AktuelleOpenLotsBETotal + OrderLots(); 
                     	 AktuelleEinstiegeBETotal = AktuelleEinstiegeBETotal + (OrderOpenPrice()*OrderLots());
                     }
                  else if(OrderType() == OP_SELL)
                     {
                     	 AktuelleOpenLotsBETotal = AktuelleOpenLotsBETotal + OrderLots(); 
                     	 AktuelleEinstiegeBETotal = AktuelleEinstiegeBETotal + (OrderOpenPrice()*OrderLots());
                     }
               }
         }
      if(AktuelleOpenLotsBETotal != 0) aktuellerBE = AktuelleEinstiegeBETotal / AktuelleOpenLotsBETotal;
      
      return(aktuellerBE);
   }

//+==================================================================================+
//| Calculate open positions                                                         | 
//+==================================================================================+

int CalculateCurrentOrders(string symbol)
  {
   int buys=0,sells=0;
//---
   for(int i=0;i<OrdersTotal();i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==OrderMagicNumber)
        {
         if(OrderType()==OP_BUY)  buys++;
         if(OrderType()==OP_SELL) sells++;
        }
     }
     if(openOrders>0) openOrders = buys+sells;
   return (openOrders);
}  
//+===================================================================================+
//| MoneyManagement - Calculate martingale lot size for open positiones               |            
//|===================================================================================+
double LotsOptimized()
  {
   double lot=Lots;
   
//--- select lot size
   lot=NormalizeDouble(AccountFreeMargin() *MaximumRisk / 100, 2);  //  2 = Digits for DAX

//--- calculate martingale steps
   if(ProfitFactor>0)
     {
//-- MathPow(double base,double exponent); = bereits im Editor implementiert
//-- Formel für Zahlenreihe der Verdopplung: a(openOrders) = 2 *2(hoch openOrders - 1)
     lot = NormalizeDouble(lot *2 *MathPow(2,openOrders - 1),2);
     }  
//--- return lot size
   if(lot<0.01) lot=0.01;
   return(lot);
  }  
//+=======================================================================================+

//---
void CheckOpen()
// .....
// .....     
      //--- check order type 
      if(OrderType()==OP_BUY && OrderSHORT==false)
        { 
         if(Close[0] < OrderOpenPrice()-6*100*Point)
           {
            OrderSHORT=OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,0,0,"",MagicNumb_1,0,Red);
            OrderSHORT=true;
           }
         break;
        }
//---
void OnTick()
  {
//--- check for history and trading
   if(Bars<100 || IsTradeAllowed()==false)
      return;
//--- calculate open orders by current symbol --> and close, if TP
   if(CalculateCurrentOrders(Symbol())==0) CheckOpen();
      else                                 CheckTakeProfit();

//--- calculate open orders --> and opening a new position (Hedge against SL) 
   if(CalculateCurrentOrders(Symbol())!=0) CheckOpen();
      return;
  }
//----