Ibrkthrough.mq5

//+------------------------------------------------------------------+
//|                                                  Ibrkthrough.mq5 |
//|                                        Copyright 2024, kayc Ltd. |
//|                                                         kayc.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2024, kayc Ltd."
#property link      "kayc.com"
#property version   "1.00"
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+



#include <Trade\Trade.mqh>
#include <Ibrk.mqh>
//#include <MQL5Book/ChartModeMonitor.mqh>

#define Bid tickd("bid",_Symbol)
#define Ask tickd("ask",_Symbol)

//+------------------------------------------------------------------+
input group "";
input group "====== General Settings ====";
input string ProductKey = "V10N-CD56-EU12-JP89-FR74-MN23";
input bool AllowSignalTG = true;
input bool allowWeekend = false;
input double PercentEquityUseable = 1.3;              // Acc Risk % per Trade (min 2%) 
input double Minlot = 0.01;
input double Maxlot = 100.0;
input double fixedlots = 0;
input int farBackSet=400;
input int alarmExpin=3;

input int ExpireSec = 3500;
//+------------------------------------------------------------------+
input group "====== Sar Settings ====";
input double sarStep = 0.01;//0.0065;
input double sarMax = 0.2;





double buyerBoxPercent = 0.545,sellerBoxPercent = 0.20, lastgroupVolbuy[99],lastgroupVolsell[99],dayvolsupport=0.0,daybrksupport=0.0,lastsarcap[10];
double emaShort[99999], emaLong[99999],lastDealP,daybrken[10],emaShort1,
       onPrevVal[100],maxdayloss=0.0,targetprofit=0.0,maxdaytrades=0,xframeH[999],xframeL[999],
       optH[1000],optL[1000],optH2[1000],optL2[1000],lastvolsupport[10],alarm[1000],positionEx[1000];
       
int Magic = MathRand(),EMA_Short = 10,BB = 0,BB4hr = 0,BB1d = 0,BB2 = 0,BB3=0,chgDealP=0,adjonline=0,E3adj=0,countinday=0,countin4h=0,onPrev[100],sarstage=0,voldirec=0,alarmState[1000],alarmExp[1000],
    predictedNy=0,stagecount=0,mastage=0,nextentry=0,mafirst=0,optAtr[200],last4mixedvol[99],
    optVw1[1000],optVw2[1000],optVl[1000],optVl2[1000],lastcandlestckpattrn[10],last1hrdirec[10],last4hrdirec[10],lastoveralldirc[10],lastvoldirec[10],lastsardirc[10],confirmE[200],isswing=0,istrueedge[100],
    onlyalloweddirc[10],Oallow[10],positionExTYP[1000];

string entryCom[10],startdatee="",tgId = "-100217446", tgToken = "7452458:AAGBEyQZo0rQCdWR6Y_HFjwKM";
ulong Epending[100],EEE[100],positionExT[1000];
int firstdiscount=0,sar,maH,maL,ma200,sarZone[100],E4ok=0,E2ok=0,E2okpending=0,nyday=0,londonday=0,min1Dvol=0,min30vol=0,min15vol=0,min4Hvol=0,
    trendOn=0,trendIs=0,barTotal,barDailyTotal,bar4Hour,bar3min,bar1Hour,bar30min,bar30minTotal,avZ[5],volINST[4],volOverall=0,volINSTD[4],volOverallD=0,dayOverall=0,hourOverall=0,dailyTradeLog=0,firstOnHour=0,liveZone=0;
double zone[1000000],initialBal = 0.0,Lots=Minlot,equity =  (double)initialBal * (double)PercentEquityUseable/100,point=0.0,E2okstop=0.0,E2okentry=0.0,hrhrange=0.0,hrlrange=0.0,dayhrange=0.0,
       daylrange=0.0,hrlyatr=0.0,hrly1atr=0.0,min30atr=0.0,dailyatr=0.0,min15atr=0.0,bagVal[100],trending1=0.0,trending2=0.0,entrySL[10],entryTP[10],entryP[10],needbrk=0.0,stopline=0.0,E4okentry=0.0;
bool firstTick=false;
datetime entryExp[10];
ENUM_TIMEFRAMES timeF = PERIOD_CURRENT,alarmPERIOD[1000];
int check[100],bag[100],bagPE[100],bagStat[100],action=0,swit=0,wilup=0,entryType[10],yesbrk=0,activeTrend=1,newbox=0,posi1Chg=0,posi2Chg=0,usedbox=0,firsttbox=0,noentry =0,isFirst=0,posiLine=0;
bool makevoid=false,MrkOpen=allowWeekend;
               
string alarmSysm[1000],positionExSym[1000];



CTrade trade;
CGraphicalPanel panel;



int OnInit()
  {
   
initialBal=AccountInfoDouble(ACCOUNT_EQUITY);
 if(ProductKey != "V10N-CD56-EU12-JP89-FR74-MN23") {initialBal=0;Comment(" ERROR :: Invalid Access Key !");}
   if(ProductKey != "V10N-CD56-EU12-JP89-FR74-MN23") {return (INIT_FAILED);}
   if(Period() != PERIOD_M15) {Comment(" ERROR :: Invalid Timeframe, Please Switch from ",timeF," to PERIOD_M15 !");}
   if(Period() != PERIOD_M15) {return (INIT_FAILED);}
   
   //if(initialBal <= 0 || AccountInfoDouble(ACCOUNT_EQUITY) < initialBal) {Print("Account bal Less than BalSet. Topup account. or reduce BalSet!");return (INIT_FAILED);}
    
  Print("[Init success] Date: "+TimeToString(TimeCurrent(), TIME_DATE|TIME_MINUTES));
  startdatee=TimeToString(TimeCurrent(), TIME_DATE|TIME_MINUTES);
  Print("isTrade Session Open?: ", trade_session());
  MrkOpen=trade_session();
  //
 // if(!CheckInputs()){return INIT_PARAMETERS_INCORRECT;}
  
  //create panel
  if(!panel.OnInit()){return INIT_FAILED;}

  
   trade.SetExpertMagicNumber(Magic);
   //handleVol = ;//iVolumes(_Symbol,PERIOD_M5,VOLUME_REAL);
   
   
   
  ChartSetInteger(0,CHART_SHOW_VOLUMES,CHART_VOLUME_TICK);
  ChartSetInteger(0,CHART_MODE,CHART_LINE);
  
   ChartSetInteger(0,CHART_AUTOSCROLL,true);
   ChartSetInteger(0,CHART_SHOW_GRID,false);
   ChartSetInteger(0,CHART_SHOW_PERIOD_SEP,false);
   ChartSetInteger(0,CHART_SHIFT,30);
   ChartSetDouble(0,CHART_SHIFT_SIZE,30);
   
   ChartSetInteger(0,CHART_DRAG_TRADE_LEVELS,true);
   
   ChartSetInteger(0,CHART_SHOW_TICKER,true);
   ChartSetInteger(0,CHART_SHOW_OHLC,true);
   ChartSetInteger(0,CHART_SHOW_PERIOD_SEP,true);
   ChartSetInteger(0,CHART_COLOR_CHART_LINE,clrAzure);
   ChartSetInteger(0,CHART_SHOW_ASK_LINE,true);
   ChartSetInteger(0,CHART_COLOR_ASK,clrBisque);
   
   //int flags[] = {
   //   2,CHART_FOREGROUND,50,false
   //};
  // ChartModeMonitor m(flags);
   //ChartSetDouble(0,CHART_LINE,2);
   
    sar = iSAR(NULL, PERIOD_CURRENT,sarStep,sarMax);
    
    maH = iMA(NULL, PERIOD_CURRENT, 1, 0, MODE_EMA, PRICE_HIGH);
    maL = iMA(NULL, PERIOD_CURRENT, 1, 0, MODE_EMA, PRICE_LOW);
    ma200 = iMA(NULL, PERIOD_CURRENT, 200, 0, MODE_EMA, PRICE_CLOSE);
    
   
   int barTotal = iBars(NULL,PERIOD_CURRENT),bar3min=iBars(NULL,PERIOD_M3),barDailyTotal=iBars(NULL,PERIOD_D1);
   
   
   int VDDDV = 10;
   for(int vDigits = _Digits; vDigits > 1; vDigits--){VDDDV=VDDDV*10;}
   point=(double)1/VDDDV;
  
   
  
   
   printf("ACCOUNT_LOGIN =  %d",AccountInfoInteger(ACCOUNT_LOGIN)); 
   printf("ACCOUNT_LEVERAGE =  %d",AccountInfoInteger(ACCOUNT_LEVERAGE)); 
   bool thisAccountTradeAllowed=AccountInfoInteger(ACCOUNT_TRADE_ALLOWED); 
   bool EATradeAllowed=AccountInfoInteger(ACCOUNT_TRADE_EXPERT); 
   ENUM_ACCOUNT_TRADE_MODE tradeMode=(ENUM_ACCOUNT_TRADE_MODE)AccountInfoInteger(ACCOUNT_TRADE_MODE); 
   ENUM_ACCOUNT_STOPOUT_MODE stopOutMode=(ENUM_ACCOUNT_STOPOUT_MODE)AccountInfoInteger(ACCOUNT_MARGIN_SO_MODE); 
  
  
//--- Inform about the possibility to perform a trade operation 
   if(thisAccountTradeAllowed) 
      Print("Trade for this account is permitted"); 
   else 
      Print("Trade for this account is prohibited!"); 
  
//--- Find out if it is possible to trade on this account by Expert Advisors 
   if(EATradeAllowed) 
      Print("Trade by Expert Advisors is permitted for this account"); 
   else 
      Print("Trade by Expert Advisors is prohibited for this account!"); 
  
//--- Find out the account type 
   switch(tradeMode) 
     { 
      case(ACCOUNT_TRADE_MODE_DEMO): 
         Print("This is a demo account"); 
         break; 
      case(ACCOUNT_TRADE_MODE_CONTEST): 
         Print("This is a competition account"); 
         break; 
      default:Print("This is a real account!"); 
     } 
  
//--- Find out the StopOut level setting mode 
   switch(stopOutMode) 
     { 
      case(ACCOUNT_STOPOUT_MODE_PERCENT): 
         Print("The StopOut level is specified percentage"); 
         break; 
      default:Print("The StopOut level is specified in monetary terms"); 
     } 



                          /*
                 if(firstTick == false){firstTick = true; 
                      int vxi=0;
                      while(vxi != 1){if(Magic > 9999 || Magic < 1000){Magic=MathRand();}else{vxi=1;}}
                      
                     // strategy();
                       //runner back
                       int Hc = farBackSet-1,Oc=1;
                        double slowoSar[9999];
                         CopyBuffer(sar,0,1,farBackSet,slowoSar);
                           ArraySetAsSeries(slowoSar,true);
                      
                        double emaL[9999],emaH[9999];
         
                        CopyBuffer(maL,0,1,farBackSet,emaL);
                        ArraySetAsSeries(emaL,true);
                        
                        CopyBuffer(maH,0,1,farBackSet,emaH);
                        ArraySetAsSeries(emaH,true);
                        
                       for(int Lc = Hc; Lc >= 1; Lc--){
                           int ck = (farBackSet-1)-Oc;
                              double cot = slowoSar[Lc];
                            
                            
                               
                               strategy(slowoSar[Oc],Lc,Oc,emaH[Oc],emaL[Oc],emaH[Oc-1],emaL[Oc-1],Lc);//slowoMa[Lc]//ck/lc
                              
                                Hc -= 1; 
                                Oc += 1; 
                                 
                              }
                        }//runerbackk end
                        */
         
         
ArraySetAsSeries(entryType,true);
ArraySetAsSeries(entryExp,true);
ArraySetAsSeries(entryP,true);
ArraySetAsSeries(entrySL,true);
ArraySetAsSeries(entryTP,true);
ArraySetAsSeries(entryCom,true);


ArraySetAsSeries(alarm,true);
ArraySetAsSeries(alarmSysm,true);
ArraySetAsSeries(alarmState,true);
ArraySetAsSeries(alarmPERIOD,true);
ArraySetAsSeries(alarmExp,true);

ArraySetAsSeries(positionExSym,true);
ArraySetAsSeries(positionEx,true);
ArraySetAsSeries(positionExTYP,true);
ArraySetAsSeries(positionExT,true);                               
                        
                           

  EventSetTimer(1);
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
  //logger();
//report to telegrem progrem on sysbol exited/closed.
//
EventKillTimer();
   //panel.Destroy(reason);
    Print("[Logged out] log: "+IntegerToString(reason)+" |Date|  From: "+startdatee+" To: "+TimeToString(TimeCurrent(), TIME_DATE|TIME_MINUTES));
   
   //ObjectsDeleteAll(0);
  }
  
  
void OnTimer()
{
     
          //check for changes in price accross alerms
          int totalalarm=0;
          
         for(int ni =0;ni < 999;ni++){
            if(alarm[ni] > 0.0){totalalarm+=1;}
         }
         
         for(int ni =0;ni < 999;ni++){
            if(alarm[ni] > 0.0 && alarmSysm[ni] != ""){
            double tiik=0.0;
            if(SymbolSelect(alarmSysm[ni],true)){
               MqlTick tick;
              if(SymbolInfoTick(alarmSysm[ni], tick)){
               tiik=tick.bid;
              // Print("tick('bid',alarmSysm[ni]) < alarm[ni]",tiik," < ",alarm[ni]," , alarmState[ni] ",alarmState[ni]," alarmSysm[ni] ",alarmSysm[ni]);
              }
            }
               if(alarmState[ni] == 1 && tiik > alarm[ni] && tiik > 0.0){
               //send msg
               string texts = "⛵ Alarm! Price at "+DoubleToString(alarm[ni])+" :: "+(string)alarmSysm[ni]+" | "+
         		           "                                                                                                                            Total alarm: ("+totalalarm+") (ACCT: "+IntegerToString(AccountInfoInteger(ACCOUNT_LOGIN))+" :: "+AccountInfoString(ACCOUNT_NAME)+")";
                     if(AllowSignalTG){                        Print(" TG Requst: ",(string)sendMessage(texts,tgId,tgToken));                    
                     alarm[ni]=0.0;alarmState[ni]=0;alarmSysm[ni]="";alarmExp[ni]=0;alarmPERIOD[ni]=0;}
                     
               }else  if(alarmState[ni] == 2 && tiik < alarm[ni] && tiik > 0.0){
                //send msg
               string texts = "⛵ Alarm! Price at "+DoubleToString(alarm[ni])+" :: "+(string)alarmSysm[ni]+" | "+
         		           "                                                                                                                            Total alarm: ("+totalalarm+") (ACCT: "+IntegerToString(AccountInfoInteger(ACCOUNT_LOGIN))+" :: "+AccountInfoString(ACCOUNT_NAME)+")";
                     if(AllowSignalTG){                        Print(" TG Requst: ",(string)sendMessage(texts,tgId,tgToken));                    
                     alarm[ni]=0.0;alarmState[ni]=0;alarmSysm[ni]="";alarmExp[ni]=0;alarmPERIOD[ni]=0;}
              
              
               /////////////////////////
               }else if(alarmState[ni] == 3 && close(1,alarmPERIOD[ni],alarmSysm[ni]) > alarm[ni]){
               //send msg
               string texts = "⛵ Alarm! Price Closed for "+DoubleToString(alarm[ni])+" :: "+(string)alarmSysm[ni]+" | "+
         		           "                                                                                                                            Total alarm: ("+totalalarm+") (ACCT: "+IntegerToString(AccountInfoInteger(ACCOUNT_LOGIN))+" :: "+AccountInfoString(ACCOUNT_NAME)+")";
                     if(AllowSignalTG){                        Print(" TG Requst: ",(string)sendMessage(texts,tgId,tgToken));                    
                     alarm[ni]=0.0;alarmState[ni]=0;alarmSysm[ni]="";alarmExp[ni]=0;alarmPERIOD[ni]=0;}
                     
               }else  if(alarmState[ni] == 4 && close(1,alarmPERIOD[ni],alarmSysm[ni]) < alarm[ni]){
               
                //send msg
               string texts = "⛵ Alarm! Price Closed for "+DoubleToString(alarm[ni])+" :: "+(string)alarmSysm[ni]+" | "+
         		           "                                                                                                                            Total alarm: ("+totalalarm+") (ACCT: "+IntegerToString(AccountInfoInteger(ACCOUNT_LOGIN))+" :: "+AccountInfoString(ACCOUNT_NAME)+")";
                     if(AllowSignalTG){                        Print(" TG Requst: ",(string)sendMessage(texts,tgId,tgToken));                    
                     alarm[ni]=0.0;alarmState[ni]=0;alarmSysm[ni]="";alarmExp[ni]=0;alarmPERIOD[ni]=0;}
               }
            }              
          }

            
            
}
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
//---
  //if(initialBal <= 0 || AccountInfoDouble(ACCOUNT_EQUITY) < initialBal) {OnDeinit(55555);}
   int bars = iBars(NULL, timeF), min3Bars=iBars(NULL,PERIOD_M3),barDaily=iBars(NULL,PERIOD_D1);
   
   
   
    
   
                          
                 if(firstTick == false){firstTick = true; 
                 
                    
                    
                  Print(" TG Requst: ",(string)sendMessage("..Online (ACCT: "+AccountInfoInteger(ACCOUNT_LOGIN)+" :: "+AccountInfoString(ACCOUNT_NAME)+"):"+TimeToString(TimeCurrent()-10000, TIME_DATE)+" [ "+_Symbol+", Lots: "+Lots+" ] [ ",tgId,tgToken));
                      int vxi=0;
                      while(vxi != 1){if(Magic > 9999 || Magic < 1000){Magic=MathRand();}else{vxi=1;}}
                      
                     // strategy();
                       //runner back
                       int Hc = farBackSet-1,Oc=1;
                        double slowoSar[9999];
                         CopyBuffer(sar,0,1,farBackSet,slowoSar);
                           ArraySetAsSeries(slowoSar,true);
                      
                        double emaL[9999],emaH[9999];
         
                        CopyBuffer(maL,0,1,farBackSet,emaL);
                        ArraySetAsSeries(emaL,true);
                        
                        CopyBuffer(maH,0,1,farBackSet,emaH);
                        ArraySetAsSeries(emaH,true);
                        
                       for(int Lc = Hc; Lc >= 1; Lc--){
                           int ck = (farBackSet-1)-Oc;
                              double cot = slowoSar[Lc];
                            
                            
                               
                               //strategy(slowoSar[Oc],Lc,Oc,emaH[Oc],emaL[Oc],emaH[Oc-1],emaL[Oc-1],Lc);//slowoMa[Lc]//ck/lc
                              
                                Hc -= 1; 
                                Oc += 1; 
                                 
                              }
                        }//runerbackk end
                        
            
                     
                
            
                  
            //+------------------------------------------------------------------+
         //---Daily
       if(barDailyTotal != barDaily){
         barDailyTotal=barDaily;
         //---          
         for(int in=0;in<999;in++){
               if(alarmExp[in] > 0){alarmExp[in]-=1;}
               if(alarmExp[in] == 0){alarm[in]=0.0;alarmState[in]=0;alarmSysm[in]="";alarmPERIOD[in]=0;}
         }
         ENUM_TIMEFRAMES tim = PERIOD_D1;
         
         }              
                        
                        
                        
                        
                        
          //m3 confirmation
           //+------------------------------------------------------------------+
         //---3min start
       if(bar3min != min3Bars){
         bar3min=min3Bars;
         //---          
         ENUM_TIMEFRAMES tim = PERIOD_M3;
    
      }
                        
                        
                        
                        
                        
                        
                        
              
/////////////////////////////////////////////////////////////////
      if(barTotal != bars){
      barTotal=bars;
      
      //Print("period_m15 "+PERIOD_M3+" period_h1 "+PERIOD_H1+" preiod() "+);
      for(int in=1;in<=10;in++){
      //
         if(confirmE[(int)(in*10)+2] >= 1){confirmE[(int)(in*10)+2]-=1;}
         //
      }
            
            
            
        
            
            
         double emaL[9999],emaH[9999];
         
            CopyBuffer(maL,0,1,2,emaL);
            ArraySetAsSeries(emaL,true);
            
            CopyBuffer(maH,0,1,2,emaH);
            ArraySetAsSeries(emaH,true);
         
        //strategy(sar_val(1),1,1,emaH[1],emaL[1],emaH[0],emaL[0]);
        
     
         }



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






   datetime asianStart = StringToTime("00:00");  // Asian session start
   datetime asianEnd = StringToTime("06:00");    // 6:00 Asian session end
   datetime londonStart = StringToTime("07:00"); // 7:00 London session start
   datetime londonEnd = StringToTime("16:00");   // 16:00 London session end
   datetime newyorkStart = StringToTime("13:00");// 13:00 New York session start
   datetime newyorkEnd = StringToTime("21:00");  // 21:00 New York session end
   
  
  //OrdersTotal() 
     //---
    if(OrdersTotal() > 0){
     for (int pos_0 = OrdersTotal()-1; pos_0 >= 0; pos_0--) {
               ulong orderTicket = OrderGetTicket(pos_0);
               //---
               
               //if(OrderGetString(ORDER_SYMBOL) != _Symbol){continue;}
               //if(OrderGetInteger(ORDER_MAGIC) != Magic){continue;}
              
               //---
               datetime expiration = TimeCurrent()+ExpireSec;
               if((OrderGetString(ORDER_COMMENT) == "")){
               double sslss=0.0,openp=0.0,ttpp=0.0;
               string sysm="";
         //check for changes in price accross alerms
          int totalalarm=0;
          
         for(int ni =0;ni < 999;ni++){
            if(alarm[ni] > 0.0){totalalarm+=1;}
         }
                if(OrderSelect(orderTicket)){
                sslss=OrderGetDouble(ORDER_SL);openp=OrderGetDouble(ORDER_PRICE_OPEN);ttpp=OrderGetDouble(ORDER_TP);sysm=OrderGetString(ORDER_SYMBOL);}
              
                     if(OrderGetInteger(ORDER_TYPE) == ORDER_TYPE_BUY_STOP && sslss > 0.0){
                        getLots(openp-sslss,sysm);
                        entryType[2]=1;entryP[2]=openp;entrySL[2]=sslss;entryTP[2]=entryP[2]+((entryP[2]-entrySL[2])*2);entryExp[2]=expiration;entryCom[2]="IBRK1";//1:1
                        trade.OrderDelete(orderTicket);
                        entires(Lots,sysm);
                        continue;
                        //entryType[2]=1;entryP[2]=OrderGetDouble(ORDER_PRICE_OPEN);entrySL[2]=OrderGetDouble(ORDER_SL);entryTP[2]=entryP[2]+((entryP[2]-entrySL[2])*2.3);entryExp[2]=expiration;entryCom[2]="IBRK2";//1:1.3
                        //entires(Lots/4.0,OrderGetString(ORDER_SYMBOL));
                        //entryType[2]=1;entryP[2]=OrderGetDouble(ORDER_PRICE_OPEN);entrySL[2]=OrderGetDouble(ORDER_SL);entryTP[2]=0.0;entryExp[2]=expiration;entryCom[2]="IBRK3";//x
                        //entires(Lots/2.0,OrderGetString(ORDER_SYMBOL));
                    }else if(OrderGetInteger(ORDER_TYPE) == ORDER_TYPE_SELL_STOP && sslss > 0.0){
                        getLots(sslss-openp,sysm);
                        entryType[2]=2;entryP[2]=openp;entrySL[2]=sslss;entryTP[2]=entryP[2]-((entrySL[2]-entryP[2])*2);entryExp[2]=expiration;entryCom[2]="IBRK1";//1:1
                        trade.OrderDelete(orderTicket);
                        entires(Lots,sysm);
                        continue;
                        //entryType[2]=2;entryP[2]=OrderGetDouble(ORDER_PRICE_OPEN);entrySL[2]=OrderGetDouble(ORDER_SL);entryTP[2]=entryP[2]-((entrySL[2]-entryP[2])*2.3);entryExp[2]=expiration;entryCom[2]="IBRK2";//1:1.3
                        //entires(Lots/4.0,OrderGetString(ORDER_SYMBOL));
                        //entryType[2]=2;entryP[2]=OrderGetDouble(ORDER_PRICE_OPEN);entrySL[2]=OrderGetDouble(ORDER_SL);entryTP[2]=0.0;entryExp[2]=expiration;entryCom[2]="IBRK3";//x
                        //entires(Lots/2.0,OrderGetString(ORDER_SYMBOL));

                    }else if(OrderGetInteger(ORDER_TYPE) == ORDER_TYPE_BUY_LIMIT){

                     
                        //
                     bool alarmok = true;
                          for(int in=0;in < 999;in++){
                              if(alarm[in] == openp && alarmSysm[in] == sysm){
                                 alarmok=false; alarm[in]=0.0;alarmState[in]=0;alarmSysm[in]="";alarmExp[in]=0; alarmPERIOD[in]=0;
                              }
                          }
                          if(alarmok){
                             for(int in=0;in < 999;in++){
                                 if(alarm[in] <= 0.0 && alarmSysm[in] == ""){
                                    alarm[in]=openp;
                                    alarmSysm[in]=sysm;
                                    alarmState[in]=2;
                                    alarmExp[in]=alarmExpin;
                                    alarmPERIOD[in]=PERIOD_CURRENT;
                                    if(ttpp > 0.0){
                                         //tp set = wait for close below .15min 
                                         alarmState[in]=4;
                                   }
                                   string statee=(alarmState[in] == 2)? "onTick" : "onClose" ;
                                    string texts = "🌐 Alarm SET at Price "+DoubleToString(alarm[in])+" :: "+(string)alarmSysm[in]+" ~ Type: "+statee+"   :: Total alarm: ("+(totalalarm+1)+") (ACCT: "+IntegerToString(AccountInfoInteger(ACCOUNT_LOGIN))+" :: "+AccountInfoString(ACCOUNT_NAME)+")";
                                  if(AllowSignalTG){ Print(" TG Requst: ",(string)sendMessage(texts,tgId,tgToken));  } 
                             break;
                                 
                                 }
                          }
                     }
                     
                    }else if(OrderGetInteger(ORDER_TYPE) == ORDER_TYPE_SELL_LIMIT){
                    
                     //
                     bool alarmok = true;
                          for(int in=0;in < 999;in++){
                              if(alarm[in] == openp && alarmSysm[in] == sysm){
                                 alarmok=false;  alarm[in]=0.0;alarmState[in]=0;alarmSysm[in]="";alarmExp[in]=0;alarmPERIOD[in]=0;
                              }
                          }
                          if(alarmok){
                             for(int in=0;in < 999;in++){
                                 if(alarm[in] <= 0.0 && alarmSysm[in] == ""){
                                    alarm[in]=openp;
                                    alarmSysm[in]=sysm;
                                    alarmState[in]=1;
                                    alarmExp[in]=alarmExpin;
                                    alarmPERIOD[in]=PERIOD_CURRENT;
                                    if(ttpp > 0.0){
                                         //tp set = wait for close below .15min 
                                         alarmState[in]=3;
                                   }
                                   string statee=(alarmState[in] == 1)? "onTick" : "onClose" ;
                                     string texts = "🌐 Alarm SET at Price "+DoubleToString(alarm[in])+" :: "+(string)alarmSysm[in]+" ~ Type: "+statee+"   :: Total alarm: ("+(totalalarm+1)+") (ACCT: "+IntegerToString(AccountInfoInteger(ACCOUNT_LOGIN))+" :: "+AccountInfoString(ACCOUNT_NAME)+")";
                                  if(AllowSignalTG){ Print(" TG Requst: ",(string)sendMessage(texts,tgId,tgToken));  } 
                             break;
                                 
                                 }
                          }
                     }
                     
                     
                    }
                    
                    //
                    trade.OrderDelete(orderTicket);
               }         
      }}
      
      
      ////////////////////////////////////////
      //drop closed posistions
     /* for(int in=0;in < 999;in++){
      if(positionEx[in] > 0 && !PositionSelectByTicket(positionEx[in])){
            positionEx[in]=0.0;
            positionExSym[in]="";
                      
      }
      }*/
      
      
      
      
      //
      if(PositionsTotal() > 0){
      
      //int isexist=0;
      for(int in=0;in < 999;in++){positionExSym[in]="";positionEx[in]=0.0;positionExT[in]=0;positionExTYP[in]=0;}
               
    for (int pos_0 = PositionsTotal() -1; pos_0 >= 0; pos_0--) {
               ulong positionTicket = PositionGetTicket(pos_0);
               
               positionExT[pos_0]=positionTicket;
               positionExSym[pos_0]=PositionGetSymbol(POSITION_SYMBOL);
               positionEx[pos_0]=PositionGetDouble(POSITION_SL);
               positionExTYP[pos_0]=PositionGetInteger(POSITION_TYPE);                        
               //work on adj to void per symbol and 2nd position to update sl.
               //positionExSym[in]
                     //   Print(pos_0," positionExSym[pos_0]",positionExSym[pos_0],", positionEx[pos_0]",positionEx[pos_0],", positionExT[pos_0]",positionExT[pos_0],", positionExTYP[pos_0]",positionExTYP[pos_0]," ,POSITION_TYPE_BUY ",POSITION_TYPE_BUY," ,POSITION_TYPE_SELL ",POSITION_TYPE_SELL);
                 // if(PositionGetSymbol(POSITION_SYMBOL) != positionExSym[in]){ continue;}
         
          // if((PositionGetString(POSITION_COMMENT) == (string)("IBRK2"))){isexist=1;}
       }       
       
       
       
      for(int in=0;in < 999;in++){
      for(int in2=0;in2 < 999;in2++){
         if(in2 == in){continue;}
         if(positionExSym[in] == positionExSym[in2] && positionExT[in] != positionExT[in2] && positionExSym[in] != ""){
        
         
                if(PositionSelectByTicket(positionExT[in2])){positionEx[in2]=PositionGetDouble(POSITION_SL);}
                if(PositionSelectByTicket(positionExT[in])){positionEx[in]=PositionGetDouble(POSITION_SL);}
                // Print("found SL",positionEx[in]," , ",positionEx[in2]);
            //adj sl appropraiately. call to check ticket sl and type for mor sig and adj.
            if(positionExTYP[in] == positionExTYP[in2] && positionEx[in] != positionEx[in2]){
           
            if(positionExTYP[in2] == POSITION_TYPE_BUY && positionEx[in] > 0 && positionEx[in2] > 0){
               ulong tiik = (positionEx[in] > positionEx[in2]) ? positionExT[in2] : positionExT[in]; 
               double ssls = (positionEx[in] > positionEx[in2]) ? positionEx[in] : positionEx[in2]; 
               if(PositionSelectByTicket(tiik)){trade.PositionModify(tiik,ssls,PositionGetDouble(POSITION_TP));}
            }else if(positionExTYP[in2] == POSITION_TYPE_SELL && positionEx[in] > 0 && positionEx[in2] > 0){ 
               ulong tiik = (positionEx[in] < positionEx[in2]) ? positionExT[in2] : positionExT[in]; 
               double ssls = (positionEx[in] < positionEx[in2]) ? positionEx[in] : positionEx[in2]; 
               if(PositionSelectByTicket(tiik)){trade.PositionModify(tiik,ssls,PositionGetDouble(POSITION_TP));}
            }
          
         }
      }}}
      
       
       /*
    for (int pos_0 = PositionsTotal() -1; pos_0 >= 0; pos_0--) {
               ulong positionTicket = PositionGetTicket(pos_0);
               
               
               
               
     
               //if(PositionGetSymbol(POSITION_SYMBOL) != _Symbol || Period() != PERIOD_H1){ continue;}
               //if(PositionGetInteger(POSITION_MAGIC) != Magic){ continue;}
               
               //Print("i still exist ",pos_0," ticket: ",positionTicket);
               //---
                     //if(isexist == 0 && (PositionGetString(POSITION_COMMENT) == (string)("IBRK3"))){
                     if(true){
                       double newSL=0.0;
                          
                        if(PositionGetInteger(POSITION_TYPE) == POSITION_TYPE_BUY &&  PositionGetDouble(POSITION_PRICE_OPEN) >  PositionGetDouble(POSITION_SL)){
                        newSL=PositionGetDouble(POSITION_PRICE_OPEN)+MaxSpread*point;
                        if(newSL < PositionGetDouble(POSITION_SL)){ newSL = PositionGetDouble(POSITION_SL);}
                        }else if(PositionGetInteger(POSITION_TYPE) == POSITION_TYPE_SELL &&  PositionGetDouble(POSITION_PRICE_OPEN) <  PositionGetDouble(POSITION_SL)){
                        newSL=PositionGetDouble(POSITION_PRICE_OPEN)-MaxSpread*point;
                         if(newSL > PositionGetDouble(POSITION_SL)){ newSL = PositionGetDouble(POSITION_SL);}
                         }
                            newSL=NormalizeDouble(newSL,_Digits);
                            if(newSL != PositionGetDouble(POSITION_SL)){
                              trade.PositionModify(positionTicket,newSL,PositionGetDouble(POSITION_TP));
                            }
                       }
               
        }*/
        
        }
    
    
    
    
//gold standard.
   equity = NormalizeDouble(((double)AccountInfoDouble(ACCOUNT_EQUITY) * (double)PercentEquityUseable/100),2);
   initialBal=NormalizeDouble(initialBal,2);
   int sprd = (double)(Ask-Bid)/point;
   //update panel
   //Print("valll9090909090: ", equity," ", Ask-Bid," ",_Digits," ", point);//ot=OrdersTotal();PositionsTotal() 
   panel.Update(Lots,initialBal,PercentEquityUseable,equity,TimeToString(TimeCurrent(), TIME_DATE|TIME_MINUTES),sprd,(int)0,(int)0,avZ[3],avZ[4],volOverall,volINST[1],volINST[2],dayOverall);
}
//+------------------------------------------------------------------+











ENUM_DAY_OF_WEEK day_of_week;

//+------------------------------------------------------------------+
//| Function: Check if trade session is open and excl. Sat and Sun   |
//+------------------------------------------------------------------+

int getday(){

datetime time_now = TimeCurrent();
   MqlDateTime time;
   TimeToStruct(time_now, time);
   return (int)time.day_of_week;
   }
   
   
bool trade_session()
  {datetime time_now = TimeCurrent();
   MqlDateTime time;
   TimeToStruct(time_now, time);
   uint week_day_now = time.day_of_week;
   uint seconds_now = (time.hour * 3600) + (time.min * 60) + time.sec;
   if(week_day_now == 0)
      day_of_week = SUNDAY;
   if(week_day_now == 1)
      day_of_week = MONDAY;
   if(week_day_now == 2)
      day_of_week = TUESDAY;
   if(week_day_now == 3)
      day_of_week = WEDNESDAY;
   if(week_day_now == 4)
      day_of_week = THURSDAY;
   if(week_day_now == 5)
      day_of_week = FRIDAY;
   if(week_day_now == 6)
      day_of_week = SATURDAY;
   datetime from, to;
   uint session = 0;
   while(SymbolInfoSessionTrade(_Symbol, day_of_week, session, from, to))
     {
      session++;
     }
   uint trade_session_open_seconds = uint(from);
   uint trade_session_close_seconds = uint(to);
   if(trade_session_open_seconds < seconds_now && trade_session_close_seconds > seconds_now && week_day_now >= 1 && week_day_now <= 5)
      return(true);
   return(false);
  }
  
  



//---
double tickd(string val="bid", string sysm = ""){
    if(val == "bid"){
      return (double)SymbolInfoDouble(sysm, SYMBOL_BID);
    }else if(val == "ask"){
      return (double)SymbolInfoDouble(sysm, SYMBOL_ASK);
    }else{ return 0.0;}
}





void getLots(double range,string sysm){
//range == entry - sl. pips
 //lot assigner
   int didgi=SymbolInfoInteger(sysm, SYMBOL_DIGITS);
   double pointt=0.0;
   int VDpiV = 10;
   for(int vDigits = didgi; vDigits > 1; vDigits--){VDpiV=VDpiV*10;}
   pointt=(double)1/VDpiV;
   
   
             //double calclot = (double)equity/NormalizeDouble((range/pointt),didgi);//hrlyatr
            double calclot=CalculateUniversalLotSize(sysm,(double)equity,NormalizeDouble((range/pointt),didgi));
            
           /// Print("pointt ",pointt," calclot: ",calclot," range: ",NormalizeDouble((range/pointt),didgi)," equity: ",equity,"   '' ",SymbolInfoDouble(sysm,SYMBOL_TRADE_CONTRACT_SIZE)," SymbolInfoInteger(symbol, SYMBOL_DIGITS) ",SymbolInfoInteger(sysm, SYMBOL_DIGITS));
            
               //Print(" calclot "+calclot+" atr1.5 "+ NormalizeDouble(hrlyatr*1.5,_Digits)+" equity "+equity);
               if(calclot < Minlot){Lots=Minlot;}else{Lots = NormalizeDouble(calclot,2);}
               if(Lots > Maxlot) Lots = Maxlot;
               if(fixedlots > 0) Lots = fixedlots;//disabling trade so spreadbeyond max and holidays dont trade. (but if a trade already open up data could handle closing well)
              
              
              }
              
              
double CalculateUniversalLotSize(string symbol, double riskAmount, double stopLossPips)
{
   double tickSize, tickValue, contractSize=SymbolInfoDouble(symbol, SYMBOL_TRADE_CONTRACT_SIZE), pointSize, pipSize;
   int digits=SymbolInfoInteger(symbol, SYMBOL_DIGITS);

   // Get symbol info
   if (!SymbolInfoDouble(symbol, SYMBOL_TRADE_TICK_SIZE, tickSize) ||
       !SymbolInfoDouble(symbol, SYMBOL_TRADE_TICK_VALUE, tickValue))
   {
      Print("Failed to get symbol info");
      return 0;
   }
   
  
  // stopLossPips=stopLossPips/pointt;

   pointSize = tickSize; // MetaTrader defines tick = point
   pipSize = (digits == 5 || digits == 3) ? pointSize * 10 : pointSize;

   // Calculate pip value per lot
   double pipValuePerLot = (tickValue / tickSize) * pipSize;



   if((contractSize <= 10.0) || (contractSize <= 100.0 && digits != 3)){
      //pipValuePerLot *= contractSize;
   }else{
      riskAmount=riskAmount*10;
   //mannualy set to offset xauusd if future. improvement to patch plz apply to me!.
   }

   
   // Final lot size
   double lotSize = riskAmount / (stopLossPips * pipValuePerLot);

   // Normalize to broker's allowed step
   double lotStep = SymbolInfoDouble(symbol, SYMBOL_VOLUME_STEP);
   lotSize = MathFloor(lotSize / lotStep) * lotStep;
   
//Print("contractSize: ",contractSize," pipValuePerLot: ",pipValuePerLot," tickSize ",tickSize," tickValue ",tickValue," pointSize ",pointSize," pipSize ",pipSize," lotStep ",lotStep);
   
   return NormalizeDouble(lotSize, 2); // Usually 2 decimal places
}
              
              
     
              



long vol(int posi=1,ENUM_TIMEFRAMES frame=PERIOD_CURRENT){
   return iVolume(_Symbol,frame,posi);
}

double sar_val(int posi = 0, ENUM_TIMEFRAMES frame = PERIOD_CURRENT){
 
    double slowSar[99999];
   CopyBuffer(sar,0,1,2,slowSar);
   ArraySetAsSeries(slowSar,true);
   return NormalizeDouble(slowSar[posi], _Digits);
}









double high(int posi = 0, ENUM_TIMEFRAMES frame = PERIOD_CURRENT,string sysm=NULL){
   return NormalizeDouble(iHigh(sysm, frame, posi), SymbolInfoInteger(sysm, SYMBOL_DIGITS));
}
double low(int posi = 0, ENUM_TIMEFRAMES frame = PERIOD_CURRENT,string sysm=NULL){
   return NormalizeDouble(iLow(sysm, frame, posi), SymbolInfoInteger(sysm, SYMBOL_DIGITS));
}
double close(int posi = 0, ENUM_TIMEFRAMES frame = PERIOD_CURRENT,string sysm=NULL){
   return NormalizeDouble(iClose(sysm, frame, posi), SymbolInfoInteger(sysm, SYMBOL_DIGITS));
}
double open(int posi = 0, ENUM_TIMEFRAMES frame = PERIOD_CURRENT,string sysm=NULL){
   return NormalizeDouble(iOpen(sysm, frame, posi), SymbolInfoInteger(sysm, SYMBOL_DIGITS));
}
datetime time(int posi = 0, ENUM_TIMEFRAMES frame = PERIOD_CURRENT,string sysm=NULL){
   return iTime(sysm, frame, posi);
}



void line (int type=1, string name="line",double place=0.0, int shift=0,int col =1, int style=0, ENUM_TIMEFRAMES tim=PERIOD_CURRENT){
    //1 = OBJ_HLINE, 0 = OBJ_VLINE
    //1 = STYLE_DASH, 2 = STYLE_DOT,0 solid, 3 mixture of dot and dash
     if(type == 1){ObjectCreate(0,name,OBJ_HLINE, 0,time(shift, tim),place);
     }else{ObjectCreate(0,name,OBJ_VLINE, 0,time(shift, tim),place);}
    needObj(name,col,style);
  }

void block(string name="box",double xPricE1 = 0.0, double xPricE2 = 0.0,int yPosition1 = 0,int yPosition2 = 0, int col=1,ENUM_TIMEFRAMES tim=PERIOD_CURRENT,int style=0,int width=1){
   ObjectCreate(0,name, OBJ_RECTANGLE, 0, time(yPosition1,tim), xPricE1, time(yPosition2,tim), xPricE2);
   needObj(name,col,style,width);
  }
  
void trendL(string name="trendL",double xPricE1 = 0.0, double xPricE2 = 0.0,int yPosition1 = 0,int yPosition2 = 0, int col=1,ENUM_TIMEFRAMES tim=PERIOD_CURRENT,int style=0,int width=1){
   ObjectCreate(0,name, OBJ_TREND, 0, time(yPosition1,tim), xPricE1, time(yPosition2,tim), xPricE2);
   needObj(name,col,style,width);
  }
  
  
void needObj(string name,int col,int style,int width=1){
if(col == 1){ObjectSetInteger(0,name,OBJPROP_COLOR,Blue);
    }else if(col == 2){ObjectSetInteger(0,name,OBJPROP_COLOR,LightBlue);
    }else if(col == 3){ObjectSetInteger(0,name,OBJPROP_COLOR,Pink);
    }else if(col == 4){ObjectSetInteger(0,name,OBJPROP_COLOR,Red);
    }else if(col == 5){ObjectSetInteger(0,name,OBJPROP_COLOR,DeepPink);
    }else if(col == 6){ObjectSetInteger(0,name,OBJPROP_COLOR,Yellow);
    }else if(col == 7){ObjectSetInteger(0,name,OBJPROP_COLOR,Green);
    }else if(col == 8){ObjectSetInteger(0,name,OBJPROP_COLOR,LightGreen);
    }else if(col == 9){ObjectSetInteger(0,name,OBJPROP_COLOR,White);
    }else if(col == 10){ObjectSetInteger(0,name,OBJPROP_COLOR,Purple);
    }else if(col == 11){ObjectSetInteger(0,name,OBJPROP_COLOR,Gray);
    }else if(col == 12){ObjectSetInteger(0,name,OBJPROP_COLOR,PowderBlue);
    }else if(col == 13){ObjectSetInteger(0,name,OBJPROP_COLOR,DarkOliveGreen);
    }else if(col == 14){ObjectSetInteger(0,name,OBJPROP_COLOR,Black);
    }else{ ObjectSetInteger(0,name,OBJPROP_COLOR,Black);}
     ObjectSetInteger(0,name,OBJPROP_STYLE,style);
     ObjectSetInteger(0,name,OBJPROP_WIDTH,width);
}
//////////////////////////////////////////////////////////////////////////////////////////////////////

//---


 double hihi(int from, int to, int viewby=0, ENUM_TIMEFRAMES perio=PERIOD_CURRENT)
 { double kk = high(from, perio);
 int okh = to - from,
     got = 0,jj = from;
 for(int i = 0; i < okh; i++)
 {
  got = to - i;
   if(high(got, perio) > kk)
   { kk = high(got, perio);jj=got;}  
 }
 if(viewby == 1) kk=jj;
 return kk;
 }
 
  
   double lolo(int from, int to, int viewby=0, ENUM_TIMEFRAMES perio=PERIOD_CURRENT)
 {double kk = low(from, perio);
 int okh = to - from,
     got = 0,jj=from;;
 for(int i = 0; i < okh; i++)
 { got = to - i;
   if(low(got, perio) < kk)
   { kk = low(got, perio);jj=got;}
 }
 if(viewby == 1) kk=jj;
 return kk;
 } 
 
 
 //---
 
 double hihiC(int from, int to, int viewby=0, ENUM_TIMEFRAMES perio=PERIOD_CURRENT)
 { double kk = open(from, perio);
 int okh = to - from,
     got = 0,jj = from;
 for(int i = 0; i < okh; i++)
 {
  got = to - i;
   if(open(got, perio) > kk)
   { kk = open(got, perio);jj=got;}  
 }
 if(viewby == 1) kk=jj;
 return kk;
 }
 
  
   double loloC(int from, int to, int viewby=0, ENUM_TIMEFRAMES perio=PERIOD_CURRENT)
 {double kk = close(from, perio);
 int okh = to - from,
     got = 0,jj=from;;
 for(int i = 0; i < okh; i++)
 { got = to - i;
   if(close(got, perio) < kk)
   { kk = close(got, perio);jj=got;}
 }
 if(viewby == 1) kk=jj;
 return kk;
 } 
 
 //---
 
 double volhh(int from, int to, int viewby=0, ENUM_TIMEFRAMES perio=PERIOD_CURRENT)
 { double kk = vol(from, perio);
 int okh = to - from,
     got = 0,jj = from;
 for(int i = 0; i < okh; i++)
 {
  got = to - i;
   if(vol(got, perio) > kk)
   { kk = vol(got, perio);jj=got;}  
 }
 if(viewby == 1) kk=jj;
 return kk;
 }
 
  
   double volll(int from, int to, int viewby=0, ENUM_TIMEFRAMES perio=PERIOD_CURRENT)
 {double kk = vol(from, perio);
 int okh = to - from,
     got = 0,jj=from;;
 for(int i = 0; i < okh; i++)
 { got = to - i;
   if(vol(got, perio) < kk)
   { kk = vol(got, perio);jj=got;}
 }
 if(viewby == 1) kk=jj;
 return kk;
 } 
 
 
 
 
 

void entires(double lota, string sysm){
   //entries   
   if(true){
   //
   int dii = 0;
   for(double pi=Minlot; pi != (int)pi; pi*=10){dii+=1;}
   lota = NormalizeDouble(lota,dii);
   
         if(entryType[1] == 1){           
   //ratioOpt(1,entryCom[1],1,entryP[1],1);
            trade.BuyLimit(lota,entryP[1],sysm,entrySL[1],entryTP[1],ORDER_TIME_SPECIFIED,entryExp[1],entryCom[1]);
         }else if(entryType[1] == 2 ){           
   //ratioOpt(1,entryCom[1],2,entryP[1],1);
            trade.SellLimit(lota,entryP[1],sysm,entrySL[1],entryTP[1],ORDER_TIME_SPECIFIED,entryExp[1],entryCom[1]);
         }   
         //to stop
         if(entryType[2] == 1){                
   //ratioOpt(1,entryCom[2],1,entryP[2],2);      
            trade.BuyStop(lota,entryP[2],sysm,entrySL[2],entryTP[2],ORDER_TIME_SPECIFIED,entryExp[2],entryCom[2]);
         }else if(entryType[2] == 2 ){             
  // ratioOpt(1,entryCom[2],2,entryP[2],2);        
            trade.SellStop(lota,entryP[2],sysm,entrySL[2],entryTP[2],ORDER_TIME_SPECIFIED,entryExp[2],entryCom[2]);
         }
         //mrk entry
         if(entryType[3] == 1){                 
   //ratioOpt(1,entryCom[3],1,entryP[3],3);     
            trade.Buy(lota,sysm,Ask,entrySL[3],entryTP[3],entryCom[3]);
         }else if(entryType[3] == 2){              
   //ratioOpt(1,entryCom[3],2,entryP[3],3);        
            trade.Sell(lota,sysm,Bid,entrySL[3],entryTP[3],entryCom[3]);
         }
    } 
   // }
    //Print(" TG Requst: ",(string)sendMessage("..Summary of :"+TimeToString(TimeCurrent()-10000, TIME_DATE)+" [ "+_Symbol+", Lots: ",lots," ] [ ",tgId,tgToken));
     
       entryType[1]=0;entryP[1]=0.0;entrySL[1]=0.0;entryTP[1]=0.0;entryExp[1]=0;entryCom[1]="";
       entryType[2]=0;entryP[2]=0.0;entrySL[2]=0.0;entryTP[2]=0.0;entryExp[2]=0;entryCom[2]="";
       entryType[3]=0;entryP[3]=0.0;entrySL[3]=0.0;entryTP[3]=0.0;entryExp[3]=0;entryCom[3]=""; 
 }
 
 
 
 
 //---
 
 int strategy(double sar_val,int i=1,int oc=1,double maH=0,double maL=0,double maH0=0,double maL0=0,int lc=0){
      //---
      //--- sar doc 1current,2,3,4
      
       block("zoner "+string(sar_val+" "+time(lc,PERIOD_CURRENT)),sar_val,sar_val,i,i,11,PERIOD_CURRENT,1,7.5);
      int cler=0;
      
      //
      for(int ii=39;ii>=1;ii--){if(bagPE[ii] >= 1){bagPE[ii]+=1;}}
            //Print(" open(oc) :"+open(oc)+" sar_val "+sar_val+" oc "+oc);
         if(sar_val > open(i) && wilup != 1){wilup=1;
         }else if(sar_val < open(i) && wilup != 2){wilup=2;}
          //Print("i: "+i+" sar: "+sar_val(i)+" open: "+open(i));
            if(wilup==1){
             if(action != 1 ){action=1;swit=1;}
            }else if(wilup==2){
              if(action != 2 ){action=2;swit=1;}}
            
            if((action == 2 ) && swit == 1){ if( bag[1]>0){//3 //  bag[11]>3 &&|| (close(i) > bagVal[1])
            //up looking sar
               if(action == 2){bagPE[1]=i+1; }else{if(bag[11]==0){bagPE[1]=bag[12]+1;}else{bagPE[1]=bag[11]+1;} }
               
               bagPE[41]=trendOn;
               //if(sar_val > ma_val && activeTrend == 1){bagPE[41]=1;}else{bagPE[41]=2;}//bagVal[1]
               for(int ii=9;ii>1;ii--){
                  bag[ii]=bag[ii-1];
                  bagPE[ii]=bagPE[ii-1];
                  bagPE[ii+20]=bagPE[(ii+20)-1];
                  bagPE[ii+40]=bagPE[(ii+40)-1];
                  bagVal[ii]=bagVal[ii-1];
                  bagVal[ii+20]=bagVal[(ii+20)-1];
                  bagVal[ii+40]=bagVal[(ii+40)-1];
                  bagVal[ii+60]=bagVal[(ii+60)-1];
                  bagStat[ii]=bagStat[ii-1];}    }cler=1;}//action=1;}
            if((action == 1 ) && swit == 1){if( bag[11]>0){//3 //|| (close(1) < bagVal[11])  bag[1]>3 &&|| (close(i) < bagVal[11])
            //down looking sar
               //bagPE[11]=bag[11]+1; 
                if(action == 1){bagPE[11]=i+1; }else{if(bag[1]==0){bagPE[11]=bag[2]+1;}else{bagPE[11]=bag[1]+1;} }
               
               bagPE[51]=trendOn;
               //if(sar_val < ma_val  && activeTrend == 2){bagPE[51]=2;}else{bagPE[51]=1;}//bagVal[11]
               for(int ii=19;ii>11;ii--){
                  bag[ii]=bag[ii-1];
                  bagPE[ii]=bagPE[ii-1];
                  bagPE[ii+20]=bagPE[(ii+20)-1];
                  bagPE[ii+40]=bagPE[(ii+40)-1];
                  bagVal[ii]=bagVal[ii-1];
                  bagVal[ii+20]=bagVal[(ii+20)-1];
                  bagVal[ii+40]=bagVal[(ii+40)-1];
                  bagVal[ii+60]=bagVal[(ii+60)-1];
                  bagStat[ii]=bagStat[ii-1];}     }bagVal[11]=0.0;bag[11]=0;bagVal[71]=0.0;}//action=2;}
            //
            if(cler == 1){bagVal[1]=0.0;bag[1]=0;bagVal[61]=0.0;cler=0;}
            //
            if(wilup==1){ bag[1]+=1;  bagVal[1]=sar_val; 
               int poxi=hihi(i,bag[12]+i,1);
               if(bag[1] == 1){bagVal[61]=sar_val;
               
               double valzz=hihi(i,bag[12]+i)+30*point;
               
              // if(oc > 1){    Print(" bag[12] "+bag[12]+" oc "+oc+" LC "+lc+" sar_val "+sar_val );     }
               
               for(int ioi = 50; ioi > 0;ioi-=10){for(int ioii = 9; ioii >= 0;ioii--){xframeH[ioi+ioii]=xframeH[(ioi-10)+ioii];}}
               //1. count
               //2. has_momentum atr way
               //3. aggrssion ?%=less pullback, less count, more VA .-compared to prev.xframeL. color> strict level red.
               //4. vol spike= volhh above avg by %. in count(VA-volume activity)
               //5. vol bundleed
               //6. % fall or rise t xframe ^ = (range+brkout)
               //7. height=health
                 xframeH[1]=lolo((int)poxi+1,((int)bag[2]+(bag[12])+i),1)-poxi;
                 xframeH[9]=lolo(poxi,((int)xframeH[1])+poxi+1);
                 
                if((int)xframeH[1] > 0){ 
                  long allvol=0;
                  double allpipss=0;
                  for(int ioi=(int)xframeH[1]; ioi > 0; ioi--){allvol+=vol((int)ioi+poxi);allpipss+=NormalizeDouble(high((int)ioi+poxi)-low((int)ioi+poxi),_Digits);} 
                  allpipss=NormalizeDouble(allpipss,_Digits);
                  xframeH[2]=NormalizeDouble((double)allpipss/(int)xframeH[1],_Digits);// < NormalizeDouble(high(poxi)-low(((int)xframeH[1])+poxi),_Digits) ) ? 1 : 0;
                  xframeH[4]=(((int)allvol/(int)xframeH[1]) < volhh(poxi,poxi+(int)xframeH[1])) ? 100-NormalizeDouble(((double)(allvol/(int)xframeH[1])/volhh(poxi,poxi+(int)xframeH[1]))*100,1) : 0;
                  xframeH[5]=allvol;
                  xframeH[6]=((double)(high(poxi)- lolo(poxi+1,bag[2]+(bag[12])+i)) / (hihi(bag[2]+bag[12]+i,bag[12]+(bag[13]+bag[2])+i) - lolo(poxi+1,bag[2]+(bag[12])+i)) )*100;
                  xframeH[7]=NormalizeDouble(high(poxi)-low(((int)xframeH[1])+poxi),_Digits);
                  
                  xframeH[3] = (xframeH[4] > 58) ? 3: 9;//4 red (hot) // 9 white // 1 blue (cold))//&& xframeH[1] >= xframeH[11]
                  //(xframeH[6] <= 40 && //(xframeL[6] > 100) && ((int)xframeL[1] > (int)xframeL[11]) && (//&& xframeL[4] < 50)
                
                
                
              if((int)xframeH[6] > 109 && xframeH[16] >= 80 && (xframeH[7]*1.2) >= xframeH[17] &&  xframeH[9] > xframeH[19] && xframeH[9] < open(0)){
                                 
               
               trendL("ownerh"+string(time((int)i,PERIOD_CURRENT)),high(poxi),high(poxi),i+19,poxi,9,PERIOD_CURRENT,2);
               trendL("ownerl"+string(time((int)i,PERIOD_CURRENT)),high(poxi)-xframeH[7],high(poxi)-xframeH[7],i+19,poxi+(int)xframeH[1],9,PERIOD_CURRENT,2);
               
                /*if( i == 1){
                string timmm=TimeToString(TimeCurrent(), TIME_DATE|TIME_MINUTES);
                  string texts = "‼️⛵ Signal Demand - "+(string)_Symbol+" | TF: "+Period()+"min  :: "+timmm+
         		           "                                                                                                                           🌐 high: "+DoubleToString(NormalizeDouble(high(poxi),_Digits))+
         		           "                                                                                                                           📱 low: "+DoubleToString(NormalizeDouble(high(poxi)-xframeH[7],_Digits));
                  //Print(texts);
                     if(AllowSignalTG){
                        Print(" TG Requst: ",(string)sendMessage(texts,tgId,tgToken),"  time: ",timmm);
                    }}
                    */
                    }
                    
                    }
                    
                    
                 
                    
                  block("XF\nxC- "+IntegerToString((int)xframeH[1])+"\nxtr- "+IntegerToString((int)((double)xframeH[2]/point))+"p\nVA- "+IntegerToString((int)xframeH[4])+"%\nxV- "+IntegerToString((int)xframeH[5])+"\nPB- "+IntegerToString((int)xframeH[6])+"%\n\n"+TimeToString(time(poxi,PERIOD_CURRENT), TIME_MINUTES),valzz,valzz+30*point,poxi,poxi,(int)xframeH[3],PERIOD_CURRENT,1,9);firstdiscount=0;
                       
              ///Print("xframeH21 : "+xframeH[21]+"xframeH11 : "+xframeH[11]+" xframeH1: "+xframeH[1]);
               }  
               
               // if((int)xframeH[6] > 109 && xframeH[16] >= 80 && (xframeH[7]*1.2) >= xframeH[17] &&  xframeH[9] > xframeH[19] && xframeH[9] < open(0) && open(1) > open(0)){
          
               //if(lolo(i,poxi-1,1) <= (i+8)){confirmE[61]=1;confirmE[62]=3;}
               //}
               
               if(firstdiscount == 0 && open(i) < open(i-1) && (int)xframeH[6] < 100){firstdiscount=1; 
                  block("First Discount "+time(i,PERIOD_CURRENT),open(i)-20*point,open(i)-20*point,i+1,i+1,2,PERIOD_CURRENT,0,8);
                  
               }          
            }else if(wilup==2){  bag[11]+=1;  bagVal[11]=sar_val;  
            
               int poxi = lolo(i,bag[2]+i,1);
             if(bag[11] == 1){bagVal[71]=sar_val;
             
               double valzz = lolo(i,bag[2]+i)-30*point;
               
               //if(oc > 1){Print(" bag[2] "+bag[2]+" oc "+oc+" LC "+lc+" sar_val "+sar_val);}
               
               for(int ioi = 50; ioi > 0;ioi-=10){for(int ioii = 9; ioii >= 0;ioii--){xframeL[ioi+ioii]=xframeL[(ioi-10)+ioii];}}
               
               xframeL[1]=hihi((int)poxi+1,(int)bag[12]+(bag[2])+i,1)-poxi;
               xframeL[9]=hihi(poxi,((int)xframeL[1])+poxi+1);
               
                if((int)xframeL[1] > 0){ 
                  long allvol=0;
                  double allpipss=0;
                  for(int ioi=(int)xframeL[1]; ioi > 0; ioi--){allvol+=vol((int)ioi+poxi);allpipss+=NormalizeDouble(high((int)ioi+poxi)-low((int)ioi+poxi),_Digits);} 
                  allpipss=NormalizeDouble(allpipss,_Digits);
                  xframeL[2]=NormalizeDouble((double)allpipss/(int)xframeL[1],_Digits);// < NormalizeDouble(high(((int)xframeL[1])+poxi)-low(poxi),_Digits) ) ? 1 : 0;
                  xframeL[4]=(((int)allvol/(int)xframeL[1]) < volhh(poxi,poxi+(int)xframeL[1])) ? 100-NormalizeDouble(((double)(allvol/(int)xframeL[1])/volhh(poxi,poxi+(int)xframeL[1]))*100,1) : 0;
                  xframeL[5]=allvol;
                  xframeL[6]=((double)(hihi(poxi+1,bag[2]+(bag[12])+i)- low(poxi)) / (hihi(poxi+1,bag[2]+(bag[12])+i) - lolo(bag[2]+bag[12]+i,bag[12]+(bag[3]+bag[2])+i)) )*100;
                  xframeL[7]=NormalizeDouble(high(((int)xframeL[1])+poxi)-low(poxi),_Digits);
                  xframeL[3] = (xframeL[4] > 58) ? 3: 9;//4 red (hot) // 9 white // 1 blue (cold))//&& xframeH[1] >= xframeH[11]
                  //(xframeH[6] > 100) && ((int)xframeH[1] > (int)xframeH[11]) && // && xframeH[4] < 50)
                
               if((int)xframeL[6] > 109 && xframeL[16] >= 80 && (xframeL[7]*1.2) >= xframeL[17] &&  xframeL[9] < xframeL[19] && xframeL[9] > open(0)){
               
               trendL("ownerl"+string(time((int)i,PERIOD_CURRENT)),low(poxi),low(poxi),i+19,poxi,9,PERIOD_CURRENT,2);
               trendL("ownerh"+string(time((int)i,PERIOD_CURRENT)),low(poxi)+xframeL[7],low(poxi)+xframeL[7],i+19,poxi+(int)xframeL[1],9,PERIOD_CURRENT,2);
               /* if( i == 1){
                string timmm=TimeToString(TimeCurrent(), TIME_DATE|TIME_MINUTES);
                  string texts = "‼️⛵ Signal shopOwner - "+(string)_Symbol+" | TF: "+Period()+"min  :: "+timmm+
         		           "                                                                                                                           🌐 high: "+DoubleToString(NormalizeDouble(low(poxi)+xframeL[7],_Digits))+
         		           "                                                                                                                           📱 low: "+DoubleToString(NormalizeDouble(low(poxi),_Digits));
                  //Print(texts);
                     if(AllowSignalTG){
                        Print(" TG Requst: ",(string)sendMessage(texts,tgId,tgToken),"  time: ",timmm);
                    }}*/
                    }
                    }
                
                  block("XF\nxC- "+IntegerToString((int)xframeL[1])+"\nxtr- "+IntegerToString((int)((double)xframeL[2]/point))+"p\nVA- "+IntegerToString((int)xframeL[4])+"%\nxV- "+IntegerToString((int)xframeL[5])+"\nPB- "+IntegerToString((int)xframeL[6])+"%\n\n"+TimeToString(time(poxi,PERIOD_CURRENT), TIME_MINUTES),valzz,valzz-30*point,poxi,poxi,(int)xframeL[3],PERIOD_CURRENT,1,9);firstdiscount=0;
                  //if(EEE[6] <= 0 ){confirmE[61]=1;confirmE[62]=3;}
               
              
              }
              
              // if((int)xframeL[6] > 109 && xframeL[16] >= 80 && (xframeL[7]*1.2) >= xframeL[17] &&  xframeL[9] < xframeL[19] && xframeL[9] > open(0) && open(1) < open(0)){
               
               //if(hihi(i,poxi-1,1) <= (i+8)){confirmE[61]=2;confirmE[62]=3;}
               //}
               
              if(firstdiscount == 0 && open(i) > open(i-1) && (int)xframeL[6] < 100){firstdiscount=1;
                  block("First Discount "+time(i,PERIOD_CURRENT),open(i)+20*point,open(i)+20*point,i+1,i+1,2,PERIOD_CURRENT,0,8);
                  
                } 
             }
            
            
            
            
      
            
          
      //--- trend on sar
     // for(int ox=2;ox<10;ox++){
       if(true){int ox=2;
         
         
         if(bagStat[12] < 1 && swit == 1){bagStat[12]=1;
               if( (bagPE[ox+11]-(bag[10+ox]+1)) > 5){//4 3dots
                     double hihii = hihi(bagPE[10+ox]+1,(bagPE[ox]));
                     double loloi = lolo(bagPE[10+ox]+3,(bagPE[11+ox]));
                     bagVal[20+ox]=hihii;
                     bagVal[40+ox]=loloi;
                     int colo=2;newbox=1;if(bagPE[10+ox] < posiLine){usedbox=0;}
                     if(hihii < bagVal[2]){colo=5;}
                     if(E3adj == 1){E3adj+=1;}
                          //##    block("hhgg"+string(" "+time(bagPE[10+ox],PERIOD_CURRENT)),hihii,loloi,bagPE[10+ox],(bagPE[11+ox]),colo,PERIOD_CURRENT,0,1);
                              
                             // trendL("trendL"+string(time((int)i,PERIOD_CURRENT)),bagVal[10+ox],close(i),bagPE[10+ox],i,9,PERIOD_CURRENT,2);
         }//else{clearPending(1);}
         }
         if(bagStat[2] < 1 && swit == 1){bagStat[2]=1;
            if((bagPE[ox+1]-(bag[ox]+1)) > 5){
               double hihii = hihi(bagPE[ox]+3,(bagPE[ox+1]));
               double loloi = lolo(bagPE[ox]+1,(bagPE[ox+10]));
               bagVal[30+ox]=hihii;
               bagVal[50+ox]=loloi;
               int colo=2;newbox=1;if(bagPE[ox] < posiLine){usedbox=0;}
               if(loloi > bagVal[12]){colo=5;}
              if(E3adj == 1){ E3adj+=1;}
                       //## block("hh"+string(" "+time(bagPE[ox],PERIOD_CURRENT)),hihii,loloi,bagPE[ox],(bagPE[ox+1]),colo,PERIOD_CURRENT,0,1);
                       // trendL("trendL"+string(time((int)i,PERIOD_CURRENT)),bagVal[ox],close(i),bagPE[ox],i,9,PERIOD_CURRENT,2);
         }//else{clearPending(1);}
         }
         
      }
     //---
     
      swit=0;
      
      //
      trendL("Exhaustion line check "+time(i,PERIOD_CURRENT),maH-((maH-maL)/2),maH0-((maH0-maL0)/2),i,i+1,11,PERIOD_CURRENT,2,.5);
      
      ///
       if(((loloC(i,bag[2]) < bagVal[72] && bagVal[71] > 0 && bagVal[61] <= 0) && sar_val < open(i)) && lastsardirc[1] != 2){lastsardirc[1]=2;// trendL("trends : 2 ::  "+time(i,PERIOD_CURRENT),bagVal[72],bagVal[72],bag[12]+bag[2]+oc,loloC(oc,bag[2]+oc,1),6,PERIOD_CURRENT);
      }else if(((hihiC(i,bag[12]) > bagVal[62] && bagVal[61] > 0 && bagVal[71] <= 0) && sar_val > open(i)) && lastsardirc[1] != 1){lastsardirc[1]=1;//trendL("trends : 1 :: "+time(i,PERIOD_CURRENT),bagVal[62],bagVal[62],bag[12]+bag[2]+oc,hihiC(oc,bag[12]+oc,1),6,PERIOD_CURRENT);
      }
      
      
      
      //TRADING SESSION
     /* int brokerGmtOffset = TerminalInfoInteger(TERMINAL_TIMEZONE);
      datetime brokertime = TimeCurrent();
      datetime utcTime = brokertime - brokerGmtOffset*3600;
      
      int hourr = TimeHour(utcTime);
      if(hourr == 8){
      //london start 8:00 - 17:00 UTC
      //new york 13:00 - 22:00 UTC
      }*/
      
      
   return 0;
 }
 






 //---
 int sendMessage(string text, string chatID, string botToken){
   string baseUrl = "https://api.telegram.org";
   string header = "Content-Type:application/x-www-form-urlencoded\r";
   string requestUrl = "";
   string requestHeaders = "";
   char resultData[];
   char posData[];
   int timeout = 2000;
   
   requestUrl = StringFormat("%s/bot%s/sendmessage?chat_id=%s&text=%s",baseUrl,botToken,chatID,text);
   int response = WebRequest("POST", requestUrl,header,timeout,posData,resultData,requestHeaders);
   
   string resultMessage = CharArrayToString(resultData);
   Print(__FUNCTION__,"",resultMessage);
   
   return response;
 } 
 
 
 
 /////////////// chart event handler
 void OnChartEvent(const int id, const long &lparam, const double &dparam, const string &sparam){
   panel.PanelChartEvent(id,lparam,dparam,sparam);
 }