extern bool Percent_of_Balance=true;
extern double Auto_Lotsize_Perc=0.25;

double Min_L=MarketInfo(Symbol(),MODE_MINLOT);
double Max_L=MarketInfo(Symbol(),MODE_MAXLOT);

if(Percent_of_Balance==true){

  double M_REQ=MarketInfo(Symbol(),MODE_MARGINREQUIRED); // nötige Margin für 1 Lot (100.000 Units)

//"1 Lot" geteilt durch Mindest-Lot, um später raus zu finden, wie viel Margin für Mindest-Lot gebraucht wird.
//z.B.: 1 Lot / 0.01 L = 100
  double OneL_MinL = 1.0 / Min_L; // ?

//Margin_für_1_Lot geteilt durch Ergebnis, um raus zu finden, wie viel Margin für Mindest_Lot benötigt wird.
//z.B.:  €1000,00 / 100 = €10,00
  double MREQ_MinL = M_REQ / OneL_MinL;

//////////////////////////////////////////////////////////////////////////////////////////////////////////////

//1% von Kontostand ausrechnen
//z.B.: €1000,00 / 100% = €10,00
  double OPAB = AccountBalance() / 100.0;

//1% des Kontostands * Prozent, für die Lots gekauft werden sollen
//z.B.: €10,00 * 2,5% = €25,00
  double OPAB_ALP = OPAB * Auto_Lotsize_Perc; // ?

//////////////////////////////////////////////////////////////////////////////////////////////////////////////

//Betrag, für den Lots gekauft werden sollen / Margin für Mindest-Lot
//z.B.: €25,00 / €10,00 = 2,5
  double OPABALP_MREQMinL = OPAB_ALP / MREQ_MinL;

//Ergebnis * Mindest-Lot
//z.B.: 2,5 * 0.01L = 0.025L (aufgerundet 0.03L)
  Lots = OPABALP_MREQMinL * Min_L; //  ?

}

//////////////////////////////////////////////////////////////////////////////////////////////////////////////

if(Lots<Min_L)Lots=Min_L;
if(Lots>Max_L)Lots=Max_L;

OrderSend(Symbol(),OP_BUY,0.1,Ask,3,0,0,"buy",12345,0,clrGreen);

OrderSelect(12345,SELECT_BY_TICKET)

OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-Point*30,Digits),NormalizeDouble(Ask+Point*30,Digits),0,Blue);

datetime CalcTimePercent(double PercLevel, datetime HundredVal, datetime ZeroVal)
{
   datetime result= 0;
   double   multi = PercLevel*0.01;        //z.B. für 50%: 50.0*0.01=0.5

	// Zeitsekunden sind immer positiv und müssen sehr groß sein
   ulong The100Time, The0Time, TimeDiff;
   The100Time=HundredVal;                  //neuerer Zeitpunkt als Sekunden seit 1.Jan. 1970
   The0Time  =ZeroVal;                     //älterer Zeitpunkt als Sekunden seit 1.Jan. 1970
   TimeDiff  =(The100Time-The0Time);       //Sekunden zwischen neurerem und älterem Zeitpunkt
	
   ulong DiffVal=(ulong)MathRound( TimeDiff*multi );  //runden weil ulong integer ist
   result=(datetime)(HundredVal+DiffVal);             //neuere Zeit + die %Sekunden

   return( result );
}