//+==================================================================================+
//| 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);
  }  
//+=======================================================================================+

//+------------------------------------------------------------------+
//|                                                 TimedComment.mq5 |
//|                                Copyright © 2017 Ing. Otto Pauser |
//+------------------------------------------------------------------+

#property description "Test für kurze Benutzerinfo, die nach 1.5 Sekunden wieder verschwindet"

bool KeyControl;

int OnInit()
{
   KeyControl=ChartSetBool(CHART_KEYBOARD_CONTROL, false);        // status in KeyContr speichern und volle keycontrol übernehmen
   MessageBox("Press any Key, ESC = Exit",MQLInfoString(MQL_PROGRAM_NAME),MB_OK);
   return(INIT_SUCCEEDED);
}

void OnDeinit(const int reason)
{
   OnTimer();                                                     // sicherheitshalber
   ChartSetBool(CHART_KEYBOARD_CONTROL, KeyControl);              // restore KeyControl
}

void OnTick() {}                                                  // unbenutzt

void OnTimer()
{
   EventKillTimer();                                              // hier begeht der Timer Selbstmord
   Comment("");                                                   // Kommentar wird gelöscht
}

void OnChartEvent(const int id, const long &lparam, const double &dparam, const string &sparam)
{
   if(id==CHARTEVENT_KEYDOWN)                                     // nur bei KEYDOWN
      DoComment((char)lparam);                                    // Anzeigefunktion aufrufen
   if(lparam==27)                                                 // ESC
      ExpertRemove();                                             // hier begeht der Expert Selbstmord
}

void DoComment(char charcode)
{
   Comment("\nCode: ",charcode,                                   // Kommentar ausgeben
           "\nChar: ",CharToString(charcode));
   EventSetMillisecondTimer(1500);                                // Timer wird geboren (1,5 sec)
}

bool ChartSetBool(ENUM_CHART_PROPERTY_INTEGER prop_id, bool value)// praktische Funktion um Chartvariablen zu steuern
{
   bool result=(bool)ChartGetInteger(0, prop_id);
   ChartSetInteger(0,prop_id,value);
   return(result);
}

<!--?xml version="1.0" encoding="windows-1252"?-->
<weeklyevents>
        <event>
                <title>Rightmove HPI m/m</title>
                <country>GBP</country>
                <date><!--[CDATA[05-15-2011]]--></date>
                <time><!--[CDATA[23:01]]--></time>
                <impact><!--[CDATA[Medium]]--></impact>
                <forecast></forecast>
                <previous><!--[CDATA[1.7%]]--></previous>
        </event>
        <event>
        ....
        </event>
</weeklyevents>

#property script_show_inputs

input int inp_SL =  50;     // StopLoss
input int inp_TP = 100;     // TakeProfit

void OnStart()
{
   double ratio  = inp_TP/inp_SL;
   double risk   = inp_SL;
   double reward = inp_TP;
   double total  = risk+reward;
   double prozent= (risk/total)*100;
   string ratio_msg = "The risk reward ratio is: "+DoubleToString(ratio,1)+" : 1\n";
   string prozent_msg = "This means you have to be right "+DoubleToString(prozent,0)+"% of the time.";
   MessageBox(ratio_msg+prozent_msg);
}