ScalpExp03All-Tartan

//+------------------------------------------------------------------+
//|  Èñêëþ÷èòåëüíî Òàðòàíîâñêèå óñòàíîâêè              Scalp-M30.mq4 |
//|                                                           Vovan. |
//|                                           http://zzz.fromru.com/ |
//+------------------------------------------------------------------+
#include <stdlib.mqh>

extern double TakeProfit = 15;
extern double StopLoss = 100;
extern double Lots = 1.0;
extern double TrailingStop = 0;
extern int per=21;
extern int mgod=2006;
extern int ttime=60;
extern int m1=0;
extern int msec=45;
extern int zap=15;
extern double mlot=1.0;

double canal,ob,os,dl,dh,lb,b,s,oppr,porog,hod,MidLine,MaxH,MinL,MaxPr,ls,opp;
double lbsig,ssig,bsig,lssig;
string MaxHi="lime";
string MinLow="ww",MidLin="ee";
int korl,korh,blok,i,reg=1,j,MinPr,blokd,Prec=4;
//+------------------------------------------------------------------+
int start()
  {
   int cnt,ticket;
   
   if(mgod!=Year()) return(0);
   if(m1==Minute() && msec<=Seconds() && j==0) j=j+1;
   
//---------------------------------------Ïîäñ÷åò îòêðûòûõ ïîçèöèé----------------

b=0;s=0;ob=0;os=0;ls=0;lb=0;
   for (cnt=0;cnt<OrdersTotal();cnt++) 
      {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if(OrderType()==OP_SELL && OrderSymbol()==Symbol()) {b=b+1;opp=OrderOpenPrice();}
      if(OrderType()==OP_BUY && OrderSymbol()==Symbol()) {s=s+1;opp=OrderOpenPrice();}
      if(OrderType()==OP_SELLSTOP && OrderSymbol()==Symbol()) {os=os+1;oppr=OrderOpenPrice();}
      if(OrderType()==OP_BUYSTOP && OrderSymbol()==Symbol()) {ob=ob+1;oppr=OrderOpenPrice();}
      if(OrderType()==OP_SELLLIMIT && OrderSymbol()==Symbol()) {ls=ls+1;oppr=OrderOpenPrice();}
      if(OrderType()==OP_BUYLIMIT && OrderSymbol()==Symbol()) {lb=lb+1;oppr=OrderOpenPrice();}
      }
if((os+ob)>0) {blok=1;blokd=1;}

//-----------------------------------------------MiniMax Setting------------------------------------------------

MaxH=High[per];MinL=Low[per];
for (cnt=0;cnt<per;cnt++)
{
if (MaxH<High[cnt]) MaxH=High[cnt];
if (MinL>Low[cnt]) MinL=Low[cnt];
}
MidLine=NormalizeDouble((MaxH+MinL)/2,Prec);
ObjectMove("MaxHi",OBJ_HLINE,1,MaxH);
ObjectMove("MinLow",OBJ_HLINE,1,MinL);
ObjectMove("MidLine",OBJ_HLINE,1,MidLine);
canal=MathRound((MaxH-MinL)/Point); 
   ObjectCreate(MaxHi, OBJ_HLINE, 0, Time[0], MaxH);
      ObjectsRedraw();
   ObjectCreate(MinLow, OBJ_HLINE, 0, Time[0], MinL);
      ObjectsRedraw();
   ObjectCreate(MidLin, OBJ_HLINE, 0, Time[0],MidLine);
      ObjectsRedraw();
   ObjectSet(MaxHi, OBJPROP_PRICE1,MaxH);
   ObjectsRedraw();
   ObjectSet(MinLow, OBJPROP_PRICE1,MinL);
   ObjectsRedraw();
   ObjectSet(MidLin, OBJPROP_PRICE1,MidLine);
   ObjectsRedraw();

if(os==1 && ((oppr-MidLine)/Point)>=5) reg=0;
if(ob==1 && ((oppr-MidLine)/Point)<=-5) reg=0;
if((os+ob)==0 && (s+b)==0 && canal<30) return(0);
if(MidLine<oppr && ssig==1) reg=0; 
if(MidLine<oppr && bsig==1) reg=1; 
if(MidLine>oppr && ssig==1) reg=1; 
if(MidLine>oppr && bsig==1) reg=0; 
if(mlot==0.1)
{
   if(reg==0) porog=canal/10; else porog=50;
   if(canal<50) porog=canal/10;
   porog=MathRound(porog);
}
if (mlot==1.0)
{
   if (reg==0) porog=canal; else porog=100;
   if (canal<50) porog=canal;
}
//------------------------------------Îïðåäåëåíèå õîäîâûõ ïàðàìåòðîâ ïàðû---------------------------------

hod=(Open[3]-Close[3]+Open[2]-Close[2]+Open[1]-Close[1]+Open[0]-Close[0])/Point;  

if (((MidLine-Close[0])/Point)<-5) korh=1; else korh=0;
if (((MidLine-Close[0])/Point)>5) korl=1;else korl=0;

//---------------------------------------------Ñíÿòèå ñëèâîê----------------------------------------------

if((CurTime()-OrderCloseTime())<15) return(0);
if ((s+b+os+ob+ls+lb)>0) {MaxPr=0; MinPr=0;}
if(( b+s)>0 && TrailingStop==0)  
   {
   for (cnt=0;cnt<OrdersTotal();cnt++) 
      {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if(OrderSymbol()==Symbol())
         {
         if (OrderProfit()>MaxPr) MaxPr=OrderProfit();
         if (OrderProfit()<MinPr) MinPr=OrderProfit();
         if(OrderType()==OP_SELL && OrderSymbol()==Symbol()) 
            {
            if (OrderProfit()>0)
               {
               if (OrderProfit()>porog)
                  {
                  OrderClose(OrderTicket(),OrderLots(),Ask,5,Violet); // close position
                   return(0);
                  }
                }
             }
                  
          if(OrderType()==OP_BUY && OrderSymbol()==Symbol()) 
             {
             if (OrderProfit()>0)
                {
                if (OrderProfit()>porog)
                   {
                 OrderClose(OrderTicket(),OrderLots(),Bid,5,Violet); // close position
                   return(0);
                   }
                }
              }    
         }
    } 
}    
if ((ob+os)==0 && (b+s)==0 && (ls+lb)==0 && Hour()!=0){blok=0; oppr=0; blokd=0;}
if ((os+ob)>0) {blok=1;blokd=1;}
if (((MathAbs(oppr-Close[0]))/Point)>=20) blokd=0;
if (j>1) { blokd=0;j=0;} else blokd=1;

if (blokd==0) 
{
 for (cnt=OrdersTotal();cnt==0;cnt--) 
 {
  OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
   if (OrderType()==OP_BUYSTOP && OrderSymbol()==Symbol()) OrderDelete(cnt);
   if (OrderType()==OP_SELLSTOP && OrderSymbol()==Symbol()) OrderDelete(cnt);
  }
}

   

//-----------------------------------------------Indicators Setting--------------------------------------------

ssig=0;bsig=0; 
if ((s+b+os+ob+ls+lb)>0){korh=0;korl=0;}

if (korh==1 && hod>0) {ssig=1;SetIndexArrow(0,242);}
if ((MaxH-Close[0])>10*Point) 
{
   if (korh==1 && hod<=-5) {bsig=1;SetIndexArrow(0,241);}
} 
else 
{
   if (korh==1 && hod<=-5) {ssig=1;SetIndexArrow(0,242);}
}
if (korl==1 && hod<0) {bsig=1;SetIndexArrow(0,241);}
if ((Close[0]-MinL)>10*Point)
{ 
   if (korl==1 && hod>=5){ssig=1;SetIndexArrow(0,242);}
}
else
{
   if (korh==1 && hod>=5) {bsig=1;SetIndexArrow(0,241);}
}

Comment("Data: ",Year(),".",Month(),".",Day(),"  Time ",Hour(),":",Minute(),"   MidLine=",(MaxH+MinL)/2,"  OrdPr: ",oppr,
       "  MinPr=",MinPr,"  Blok=",blok,"  Reg=",reg,"\n","StoProfit=",porog,"  Canal=",canal,"  OrdPrice=",opp,
        "  Profit=",MathRound(OrderProfit()),"  Hod=",hod,"  KorL=",korl,"  KorH=",korh,"  DBlok=",blokd);

//-------------------------------------------------Open Positions---------------------------------------------

if ((ob+os+lb+ls)==0) blok=0;

if (blok==0) 
{

if (ssig==1 && s==0 && os==0) 
      {
      SetIndexArrow(0,159); 
      ticket=OrderSend(Symbol(),OP_SELLSTOP,mlot,Bid-zap*Point,5,Bid+StopLoss*Point-zap*Point,Bid-TakeProfit*Point-zap*Point,"Sculp_Sell",16384,0,GreenYellow);
      return(0);
      } 
    if (bsig==1 && b==0 && ob==0 && (Bid+5*Point)>Ask)
      {
      SetIndexArrow(0,159); 
      ticket=OrderSend(Symbol(),OP_BUYSTOP,mlot,Ask+zap*Point,5,Ask-StopLoss*Point+zap*Point,Ask+TakeProfit*Point+zap*Point,"Sculp_Buy",16384,0,Violet);
      return(0);
      }
}
 

if ((b+s)>0 && TrailingStop>0)
   {
      for (cnt=0;cnt<OrdersTotal();cnt++) 
      {
      os=0;ob=0;
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      
      if(OrderType()==OP_BUY && OrderSymbol()==Symbol())  // check for symbol
         {
            if ((Bid-OrderOpenPrice())>TrailingStop*Point)
               {
                  if(OrderStopLoss()<Bid-Point*TrailingStop)
                    {
                     OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
                     return(0);
                    }
      	      }
      	 }

      if(OrderType()==OP_SELL && OrderSymbol()==Symbol())  // check for symbol
         {  
             if((OrderOpenPrice()-Ask)>Point*TrailingStop)
                 {
                  if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
                    {
                     OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red);
                     return(0);
                    }
                 }

         }
       }
    }   
}