/*=============================================================================================================
// N O T I Z E N   U N D   I N F O S
//=============================================================================================================

Anscheinend muss DONO mehr als doppelt so groß wie Spread sein,
weil sonst nicht alle Spread-Kosten wieder rein kommen?


//-------------------------------------------------------------------------------------------------------------

In dieser Vers. LoShAL_v7_PRINT.mq4 gibt es 1 OS.

//-------------------------------------------------------------------------------------------------------------

  if( Mr <= -1.0 || Mr >= 1.0 ){
    if( oLmL <= -1.0 || oLmL >= 1.0 )MmL = Mr / oLmL;
    if( oLmL >  -1.0 && oLmL <  1.0 )MmL = Mr * oLmL;}
  if( Mr >  -1.0 && Mr <  1.0 ){
    if( oLmL <= -1.0 || oLmL >= 1.0 )MmL = Mr / oLmL;
    if( oLmL >  -1.0 && oLmL <  1.0 )MmL = Mr * oLmL;}

//=============================================================================================================
// P R O P E R T Y
//============================================================================================================*/
//#property strict
//#ps sorgt anscheinend dafür, dass Kommentare im Konfig-Fenster im MT4 sichtbar sind.
#property copyright"LoShAL_v7_PRINT.mq4"
#property copyright"daniel-rudloff@web.de"
//=============================================================================================================
// B E S C H R E I B U N G
//=============================================================================================================
extern string esTOY="true  = on / yes";
extern string esFON="false = off / no";
//-----------------------------------------------------------------------------------------------------------*/
extern string esB01="Open 1.Sel & 1.Buy.";
extern string esB02="if last Sel >";
extern string esB03="( OrderOpenPrice()";
extern string esB04="+ Dist_ONO )";
extern string esB05="EA multi LotsBuy.";
extern string esB06="If 1.Sel <=";
extern string esB07="( OrderOpenPrice()";
extern string esB08="- D_CAO )";
extern string esB09="EA close all Orders.";
extern string esB10="if last Buy <";
extern string esB11="( OrderOpenPrice()";
extern string esB12="- Dist_ONO )";
extern string esB13="EA multi LotsSel.";
extern string esB14="If 1.Buy >=";
extern string esB15="( OrderOpenPrice()";
extern string esB16="+ D_CAO )";
extern string esB17="EA close all Orders.";
//=============================================================================================================
// E I N S T E L L U N G E N
//=============================================================================================================
extern string esMN="Magic Numbers";
extern int MN_FiSel=12;
extern int MN_FiBuy=34;
extern int MN_NeSel=56;
extern int MN_NeBuy=78;
//-----------------------------------------------------------------------------------------------------------*/
extern string esOOFT1="Open Orders";
extern string esOOFT2="from/till Hour";
extern string esOOFT3="(Server Time)";
extern int FromH=5;//  Vor 5 Uhr starten scheint sich nicht zu lohnen.
extern int TillH=19;// Zum Testen bis einschließlich 19 Uhr öffnen.
//-----------------------------------------------------------------------------------------------------------*/
extern string esTF="TimeFrame";
input ENUM_TIMEFRAMES TF=15;// Zum Testen M15
//-----------------------------------------------------------------------------------------------------------*/
extern int Slippage=12345;
//-----------------------------------------------------------------------------------------------------------*/
extern int SL=525;// ?
//-----------------------------------------------------------------------------------------------------------*/
extern int TP=375;// ?
//-----------------------------------------------------------------------------------------------------------*/
extern string esIITCBSMS1="if IsTradeContexBusy()";
extern string esIITCBSMS2="sleep MS";
extern int slMS=40;// Zum Testen 40ms ?
//-----------------------------------------------------------------------------------------------------------*/
extern string esDOONO1="Dist to OrderOpenPrice()";
extern string esDOONO2="open next Order";
extern int D_ONO=29;// Zum Testen 29
//-----------------------------------------------------------------------------------------------------------*/
extern string esDCAO1="Dist to OrderOpenPrice()";
extern string esDCAO2="close all Orders";
extern int D_CAO=58;// Zum Testen 58
//-----------------------------------------------------------------------------------------------------------*/

extern string esL="Lots";
extern double Lots=0.01;
extern double Lots_Multi=2.8;// Zum Testen 2.8

//-----------------------------------------------------------------------------------------------------------*/

//=============================================================================================================
// G L O B A L E   D E K L A R A T I O N E N
//=============================================================================================================
bool

fiLO,fiSH,neLO,neSH,OC_Sel,OC_Buy

;
//-----------------------------------------------------------------------------------------------------------*/
double

SL_Sel,SL_Buy,TP_Sel,TP_Buy,MSL,
DON_Sel,DON_Buy,DCAO_FiSel,DCAO_FiBuy,
Lots_Sel,Lots_Buy,

L_LO,L_SH

;
//-----------------------------------------------------------------------------------------------------------*/
int

i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,// ?
TI_FiSel,TI_FiBuy,TI_NeSel,TI_NeBuy,
Opened_Sel,Opened_Buy,Need_Sel,Need_Buy

;
//=============================================================================================================
// I N I T
//=============================================================================================================
void OnInit(){ChartSetSymbolPeriod(0,NULL,TF);}
//=============================================================================================================
// E A   F U N K T I O N E N   S T A R T
//=============================================================================================================
void OnTick(){
//=============================================================================================================
// S T O P   L O S S
//=============================================================================================================
//SL auf 0 stellen, wenn oben <1, um irgendwelche Missverständnisse zu vermeiden.
if(SL<1){
SL_Sel=0.0;
SL_Buy=0.0;}
if(SL>=1){
SL_Sel=NormalizeDouble(Bid+SL*Point,Digits);
SL_Buy=NormalizeDouble(Ask-SL*Point,Digits);}
//=============================================================================================================
// T A K E   P R O F I T
//=============================================================================================================
//TP auf 0 stellen, wenn oben <1, um irgendwelche Missverständnisse zu vermeiden.
if(TP<1){
TP_Sel=0.0;
TP_Buy=0.0;}
if(TP>0){
TP_Sel=NormalizeDouble(Bid-TP*Point,Digits);
TP_Buy=NormalizeDouble(Ask+TP*Point,Digits);}
//=============================================================================================================
// L O T S
//=============================================================================================================


  double mL,oLmL,Mr,MmL;

  mL = MarketInfo(Symbol(),MODE_MINLOT);
  Mr = MarketInfo(Symbol(),MODE_MARGINREQUIRED);
  


//=============================================================================================================
// O R D E R   S E A R C H   ( i )
//=============================================================================================================
fiLO=false;
fiSH=false;
neLO=false;
neSH=false;
for(i=OrdersTotal()-1;i>=0;i--){
if(OrderSelect(i,SELECT_BY_POS)){
if(OrderSymbol()==Symbol()){
if(OrderMagicNumber()==MN_FiBuy)fiLO=true;
if(OrderMagicNumber()==MN_FiSel)fiSH=true;
if(OrderMagicNumber()==MN_NeBuy)neLO=true;
if(OrderMagicNumber()==MN_NeSel)neSH=true;}}}
//=============================================================================================================
// O R D E R   C H E C K   1
//=============================================================================================================
//Wenn nach OS1 gar keine Orders offen sind...
if(fiSH==false&&fiLO==false&&neSH==false&&neLO==false){
//=============================================================================================================
// ( O C 1 )   O P E N   F I R S T   S E L / O P E N   F I R S T   B U Y
//=============================================================================================================
//...und wenn zur Zeit Orders geöffnet werden dürfen, FirstSel und FirstBuy öffnen.
  if(Hour()>=FromH&&Hour()<=TillH){
    if(IsTradeAllowed()==true)TI_FiSel=OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage,SL_Sel,TP_Sel,NULL,MN_FiSel,clrBlue);
    if(IsTradeContextBusy()==true)Sleep(slMS);
    if(IsTradeAllowed()==true)TI_FiBuy=OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,SL_Buy,TP_Buy,NULL,MN_FiBuy,clrBlue);
    if(IsTradeContextBusy()==true)Sleep(slMS);
    
    Print( "FiSelFiBuy-Spr=",DoubleToStr(Ask-Bid) );}}// Nach OC1 gar keine Orders offen.
//=============================================================================================================
// O R D E R   C H E C K   2   ( j )
//=============================================================================================================
// Wenn nach OS2/OC2 FirstBuy und FirstSel offen sind...
if(fiLO==true&&fiSH==true){// ?
//=============================================================================================================
// ( O C 2 )   O P E N   N E X T S E L / O P E N   N E X T B U Y
//=============================================================================================================
  for(k=OrdersTotal()-1;k>=0;k--){
  if(OrderSelect(k,SELECT_BY_POS)){
  if(OrderSymbol()==Symbol()){
  //=============================================================================================================
// ( O C 2 )   O P E N   N E X T S E L   ( k )
//=============================================================================================================


//  Nach OC2 FirstBuy raus suchen:
    if( OrderMagicNumber()==MN_FiBuy ){

//    DCAO für FirstBuy berechnen...
      DCAO_FiBuy=NormalizeDouble( OrderOpenPrice() + D_CAO *Point,Digits);
    
//    ...wenn nach OC2 (j) noch kein NextBuy offen ist...
      if( neLO==false ){

//      ...DON_Sel berechnen :
        DON_Sel=NormalizeDouble( OrderOpenPrice() - D_ONO *Point,Digits);

//      Wenn FirstBuy unter DON-Sel ist...
        if( Bid < DON_Sel ){// ?

//        Wenn FirstSel über DCAO ist...
          if( Ask > DCAO_FiSel ){// ?

            Lots_Sel = Lots_Multi * OrderLots();

//          ...zählen, wie viele NextSel offen sind:
            Opened_Sel=0;
            for(i=OrdersTotal()-1;i>=0;i--){
            if(OrderSelect(i,SELECT_BY_POS)){
            if(OrderSymbol()==Symbol()){
            if( OrderMagicNumber()==MN_NeSel )Opened_Sel++;}}}

//          Wenn weniger NextSel als 1 offen ist, NextSel-by-FirstBuy öffnen.
            if( 1 > Opened_Sel ){
              if(IsTradeAllowed()==true)TI_NeSel=OrderSend(Symbol(),OP_SELL,Lots_Sel,Bid,Slippage,SL_Sel,TP_Sel,NULL,MN_NeSel,clrBlue);
              if(IsTradeContextBusy()==true)Sleep(slMS);


              Print( "NextSel-by-FirstBuy:",

                     "-OL()=",OrderLots(),
                     "-Lots_Multi=",Lots_Multi,
                     "-Lots_Sel=",Lots_Sel
                   
                   );


              }}}} }// Nach OC2 FirstBuy über MN raus gesucht.


//=============================================================================================================
//( O C 2 )   O P E N    1 . N E X T B U Y   ( k )
//=============================================================================================================


//  Nach OS2/OC2 FirstSel raus suchen:
    if(OrderMagicNumber()==MN_FiSel){

//    DCAO für FirstSel ausrechnen...
      DCAO_FiSel=NormalizeDouble( OrderOpenPrice() - D_CAO *Point,Digits);

//    Wenn noch kein NextSel offen ist...
      if( neSH==false ){

//      DON-Buy für FirstSel ausrechnen...
        DON_Buy=NormalizeDouble( OrderOpenPrice() + D_ONO *Point,Digits);

//      Wenn FirstSel über DON_Buy ist...
        if( Ask > DON_Buy ){// ?
        
//        ...wenn FirstBuy unter DCAO ist:
          if( Bid < DCAO_FiBuy ){// ?

            Lots_Buy = Lots_Multi * OrderLots();

//          ...zählen, wie viele NextBuy schon offen sind:
            Opened_Buy=0;
            for(k=OrdersTotal()-1;k>=0;k--){
            if(OrderSelect(k,SELECT_BY_POS)){
            if(OrderSymbol()==Symbol()){
            if( OrderMagicNumber()==MN_NeBuy )Opened_Buy++;}}}

//          Wenn weniger NextBuy als 1 offen sind, NextBuy-by-FirstSel öffnen.
            if( 1 > Opened_Buy ){
              if(IsTradeAllowed()==true)TI_NeBuy=OrderSend(Symbol(),OP_BUY,Lots_Buy,Ask,Slippage,SL_Buy,TP_Buy,NULL,MN_NeBuy,clrBlue);
              if(IsTradeContextBusy()==true)Sleep(slMS);


              Print( "NextBuy-by-FirstSel:",
                     
                     "-OL()=",OrderLots(),
                     "-Lots_Multi=",Lots_Multi,
                     "-Lots_Buy=",Lots_Buy
                   
                   );


    }}}} }// Nach OS2/OC2 FirstSel über MN raus gesucht.

//-----------------------------------------------------------------------------------------------------------*/
}}}// Nach OC2 FirstSel und FirstBuy raus suchen. ( k )
//=============================================================================================================
// O P E N   M O R E   S E L   B Y   N E X T B U Y   ( k )
//=============================================================================================================


// Wenn nach OS3 (k) Next-NextBuy offen ist...
  if( neLO==true ){

//  ...berechnen, ob NextBuy unter DON_Sel ist:
    for(m=OrdersTotal()-1;m>=0;m--){
    if(OrderSelect(m,SELECT_BY_POS)){
    if(OrderSymbol()==Symbol()){
    if( OrderMagicNumber()==MN_NeBuy )DON_Sel=NormalizeDouble( OrderOpenPrice() - D_ONO *Point,Digits);}}}

//  Wenn letzter NextBuy unter DON_Sel ist... 
    if( Bid < DON_Sel ){// ?

//    Wenn FirstSel über DCAO ist...
      if( Ask > DCAO_FiSel ){// ?


        L_LO=1.0;
        for(m=OrdersTotal()-1;m>=0;m--){
        if(OrderSelect(m,SELECT_BY_POS)){
        if(OrderSymbol()==Symbol()){
        if( OrderMagicNumber()==MN_NeBuy ){

          if( OrderLots() <  1.0 && L_LO < 1.0 )Lots_Sel = ( OrderLots() / L_LO ) * Lots_Multi;
          else Lots_Sel = OrderLots() * L_LO * Lots_Multi;

          L_LO = Lots_Sel;
          
          }}}}


        Opened_Buy=0;
        for(n=OrdersTotal()-1;n>=0;n--){
        if(OrderSelect(n,SELECT_BY_POS)){
        if(OrderSymbol()==Symbol()){
        if( OrderMagicNumber()==MN_NeBuy )Opened_Buy++;}}}

//      Ausrechnen, wie viele NextSel geöffnet werden müssen:
        Need_Sel = Opened_Buy + 1;

//      ...zählen, wie viele NextSel schon offen sind:
        Opened_Sel=0;
        for(o=OrdersTotal()-1;o>=0;o--){
        if(OrderSelect(o,SELECT_BY_POS)){
        if(OrderSymbol()==Symbol()){
        if( OrderMagicNumber()==MN_NeSel )Opened_Sel++;}}}

//      Wenn weniger NextSel als NeedSel offen sind, weitere NextSel öffnen:
        if( Need_Sel > Opened_Sel ){
          if(IsTradeAllowed()==true)TI_NeSel=OrderSend(Symbol(),OP_SELL,Lots_Sel,Bid,Slippage,SL_Sel,TP_Sel,NULL,MN_NeSel,clrBlue);
          if(IsTradeContextBusy()==true)Sleep(slMS);


          Print("Next Sel:"
                
                "-Opened_Buy=",Opened_Buy,
                "-Need_Sel=",Need_Sel,
                "-Opened_Sel=",Opened_Sel,
                
                
                "-OL()=",OrderLots(),
                "-Lot_LO=",L_LO,
                "-Lots_Sel=",Lots_Sel
                
               );
                
          
          }}} }// Nach OS3 Next-NextBuy offen


//=============================================================================================================
// O P E N   M O R E   B U Y   B Y   N E X T S E L   ( k )
//=============================================================================================================


//  ...wenn nach OS3 NextSel offen ist...
    if(neSH==true){

//    ...prüfen, ob NeSel über DON_Buy ist:
      for(p=OrdersTotal()-1;p>=0;p--){
      if(OrderSelect(p,SELECT_BY_POS)){
      if(OrderSymbol()==Symbol()){
      if( OrderMagicNumber()==MN_NeSel )DON_Buy=NormalizeDouble( OrderOpenPrice() + D_ONO *Point,Digits);}}}

//    Wenn NextSel über DON_Buy ist...      
      if( Ask > DON_Buy ){// ?

//      ...prüfen, ob FirstBuy DCAO erreicht hat:
        if( Bid < DCAO_FiBuy ){// ?


          L_SH=1.0;
          for(m=OrdersTotal()-1;m>=0;m--){
          if(OrderSelect(m,SELECT_BY_POS)){
          if(OrderSymbol()==Symbol()){
          if( OrderMagicNumber()==MN_NeSel ){

            if( OrderLots() <  1.0 && L_SH < 1.0 )Lots_Buy = ( OrderLots() / L_SH ) * Lots_Multi;
            else Lots_Buy = OrderLots() * L_SH * Lots_Multi;

            L_SH = Lots_Buy;
            
            }}}}


//        Sel-Orders zählen:
          Opened_Sel=0;
          for(t=OrdersTotal()-1;t>=0;t--){
          if(OrderSelect(t,SELECT_BY_POS)){
          if(OrderSymbol()==Symbol()){
          if( OrderMagicNumber()==MN_NeSel )Opened_Sel++;}}}

//        Ausrechnen wie viele NextBuy geöffnet werden müssen...
          Need_Buy=Opened_Sel+1;

//        ...zählen, wie viele NextBuy schon offen sind:
          Opened_Buy=0;
          for(r=OrdersTotal()-1;r>=0;r--){
          if(OrderSelect(r,SELECT_BY_POS)){
          if(OrderSymbol()==Symbol()){
          if( OrderMagicNumber()==MN_NeBuy )Opened_Buy++;}}}

//        Wenn weniger NextBuy als NeedBuy offen sind, weitere NextBuy öffnen:
          if( Need_Buy > Opened_Buy ){
            if(IsTradeAllowed()==true)TI_NeBuy=OrderSend(Symbol(),OP_BUY,Lots_Buy,Ask,Slippage,SL_Buy,TP_Buy,NULL,MN_NeBuy,clrBlue);
            if(IsTradeContextBusy()==true)Sleep(slMS);


          Print("Next Buy:"
               
                "-OL()=",OrderLots(),
                "-L_SH=",L_SH,
                "-Lots_Buy=",Lots_Buy,
                
                "-Opened_Sel=",Opened_Sel,
                "-Need_Buy=",Need_Buy,
                "-Opened_Buy=",Opened_Buy
                
               );
          
          
          }}} }// nach OS3 Next-NextSel offen.


//=============================================================================================================
// N A C H   O C 2   F I R S T - S E L   U N D   F I R S T B U Y   O F F E N
//=============================================================================================================
}// Nach OC2 FirstSel und FirstBuy offen.
//=============================================================================================================
// C L O S E   A L L   B Y   F I R S T   O R D E R S
//=============================================================================================================
//Wenn FirstSel unter DCAO / FirstBuy über DCAO ist, alle Orders schließen.
if( Ask <= DCAO_FiSel || Bid >= DCAO_FiBuy ){// ?
  for(z=OrdersTotal()-1;z>=0;z--){
  if(OrderSelect(z,SELECT_BY_POS)){
  if(OrderSymbol()==Symbol()){
    if(OrderMagicNumber()==MN_NeSel||OrderMagicNumber()==MN_FiSel){
      if(IsTradeAllowed()==true)OC_Sel=OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,clrRed);
      if(IsTradeContextBusy()==true)Sleep(slMS);}
    if(OrderMagicNumber()==MN_NeBuy||OrderMagicNumber()==MN_FiBuy){
      if(IsTradeAllowed()==true)OC_Buy=OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,clrRed);
      if(IsTradeContextBusy()==true)Sleep(slMS);}}}} }// FirstSel/FirstBuy hat DCAO-Dist erreicht.
//=============================================================================================================
// E A   F U N K T I O N E N   B E E N D E N
//=============================================================================================================
}// void OnTick()

Buffer[i] = ( Wert A + Wert B ) / 2.0 ;

int PauseEA;

int OnInit()
  {
   CreatePauseButton();
   return(INIT_SUCCEEDED);
  }

void OnDeinit(const int reason)
  {
   ObjectDelete("PauseButton");
  }
int start()
{
Comment(PauseEA);
}
void CreatePauseButton()
   {
   ObjectCreate(0,"PauseButton",OBJ_BUTTON,0,0,0);
   ObjectSetInteger(0,"PauseButton",OBJPROP_XDISTANCE,530);
   ObjectSetInteger(0,"PauseButton",OBJPROP_YDISTANCE,55);
   ObjectSetInteger(0,"PauseButton",OBJPROP_XSIZE,100);
   ObjectSetInteger(0,"PauseButton",OBJPROP_YSIZE,50);
   
   ObjectSetString(0,"PauseButton",OBJPROP_TEXT,"Pause EA");
   }


void OnChartEvent(const int id, const long& lparam, const double& dparam, const string& sparam)
  {
   if(id==CHARTEVENT_OBJECT_CLICK)
     {
      Print ("Now inside OnChartEvent");
      if(sparam=="PauseButton")
        {
         PauseEA=1;;      
        }
     }
  }