/*[[
	Name := BronzeWarrioir01-STD
	Author := Copyright © 2006, www.forex-tsd.com, modified by treberk
	Link := http://www.forex-tsd.com
	Lots := 0.1
	Stop Loss := 1000
	Take Profit := 100
	Trailing Stop := 0
]]*/
Defines :FrMarg(3000),porog(500),per(14),d(3),test(0),workb(-50),works(50),pred(100),sliv(-2000),mm(1);

Vars: ft(true),first(true),two(false),mlot(0),j(0),s(0),b(0),os(0),ob(0),pr(4),summa(0),sell(0),buy(0);
Vars : cnt(0),Top(0),inul(0),ione(0),pm(0),down(0),bloks(0),blokb(0),ps(0),wpr(0),cci(0),zz(0);

//---------------------------------------------------------------------------------------------------------------------//
// При изменении хеджирующего лота путём изменения параметра mm величину порога отсечки профита надо также изменить    //
// пропорционально. Например при величине mm=20 величина хеджирующего лота равна 5.0, а при лоте 1.0 она должна быть   //
// изменена на 10, а порог отсечки профита должен быть в диапазоне 150-120. Таким образом мы устраняем провалы профита.// 
// Все остальные параметры можно варьировать в разумных пределах, свойственных тому или иному индикатору при работе.   // 
//---------------------------------------------------------------------------------------------------------------------//



j=j+1;

if j>=1000 then j=0;

mlot=lots; 

if ft then Begin if point>0.002 then pr=2;ft=false;end;

if b+s==0 then Begin pm=0;ps=0;end;

b=0;s=0;ob=0;os=0;summa=0;
 
for cnt=1 to TotalTrades Begin 
    if (OrderValue(cnt,VAL_TYPE)=OP_SELL or OrderValue(cnt,VAL_TYPE)=OP_BUY) 
        and  OrderValue(cnt,VAL_SYMBOL)=Symbol then summa=summa+OrderValue(cnt,VAL_PROFIT);
    if OrderValue(cnt,VAL_TYPE)=OP_SELLSTOP and OrderValue(cnt,VAL_SYMBOL)=Symbol then os=os+1;
    if OrderValue(cnt,VAL_TYPE)=OP_BUYSTOP and OrderValue(cnt,VAL_SYMBOL)=Symbol then ob=ob+1;  
    if OrderValue(cnt,VAL_TYPE)=OP_SELL and OrderValue(cnt,VAL_SYMBOL)=Symbol then s=s+1;
    if OrderValue(cnt,VAL_TYPE)=OP_BUY and OrderValue(cnt,VAL_SYMBOL)=Symbol then b=b+1;end;
    
if summa<0 and summa<down then down=(round(summa));
    
If CurTime-LastTradeTime<15 then exit;    
        
if s+b+os+ob==0 and Balance=FreeMargin and Balance<5000 then Begin
Comment(" ДЛЯ НОРМАЛЬНОЙ РАБОТЫ УВЕЛИЧЬТЕ ВАШ ДЕПОЗИТ ДО МИНИМАЛЬНОГО РАЗМЕРА В 20000$ ПРИ ЛОТЕ 1.0");exit;end; 

inul=iCustom("DayImpuls",per,d,MODE_FIRST,0);
ione=iCustom("DayImpuls",per,d,MODE_FIRST,1);
wpr=iWPR(per,0);cci=iCCI(per,0);
if test=1 then Begin 
Print("Data: ",year,".",month,".",day,"  Pozz=",s+b,"  Impuls=",round(inul),
"  WPR=",round(wpr),"  CCI=",round(cci),"  ZZ=",zz,"  Price=",O[0],"  Prof=",round(summa),"  Down=",abs(down));
if j<=2 then Comment("  ");end;   

if test=0 then Begin 
Comment("Data: ",year,".",month,".",day,"  Time ",hour,":",minute,"\n","Pozz=",s+b,"  Impuls=",round(inul),
        "  WPR=",round(wpr),"  CCI=",round(cci),"  Price=",O[0],"  Prof=",round(summa),"  Down=",abs(down));end;

if summa>=porog then pm=1;

if pm==1 then Begin 

for cnt=1 to TotalTrades Begin 
   if (OrderValue(cnt,VAL_TYPE)=OP_SELL and OrderValue(cnt,VAL_SYMBOL)=Symbol) then Begin 
       CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_LOTS),Ask,5,Red);exit;end; 
   if (OrderValue(cnt,VAL_TYPE)=OP_BUY and OrderValue(cnt,VAL_SYMBOL)=Symbol) then Begin
       CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_LOTS),Bid,5,Red);exit;end;end; 
end;

if summa<sliv then ps=1;

if ps==1 then Begin 

for cnt=1 to TotalTrades Begin 
   if (OrderValue(cnt,VAL_TYPE)=OP_SELL and OrderValue(cnt,VAL_SYMBOL)=Symbol) then Begin 
       CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_LOTS),Ask,5,Red);exit;end; 
   if (OrderValue(cnt,VAL_TYPE)=OP_BUY and OrderValue(cnt,VAL_SYMBOL)=Symbol) then Begin
       CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_LOTS),Bid,5,Red);exit;end;end; 
end;

if s+b==0 then Begin bloks=0;blokb=0;end;

if FreeMargin>=FrMarg and s+b<2 then Begin

if bloks=0 then Begin 
if inul>works and ione>inul and wpr>-15 and cci>150 and s==0 then Begin Top=Bid;blokb=1; 
   Setorder(OP_SELL,mlot,PriceBid,3,Bid+StopLoss*point,Bid-TakeProfit*point,Gold);exit;end; 
if b==0 and s==1 and (summa<=-pred/2 or summa>=pred) then Begin  
   Setorder(OP_BUY,mm*mlot,PriceAsk,3,Ask-StopLoss*point,Ask+TakeProfit*point,Gold);exit;end;end;
   
if blokb==0 then Begin 
if inul<workb and ione<inul and wpr<-85 and cci<-150 and b==0 then Begin Top=Ask;bloks=1; 
   Setorder(OP_BUY,mlot,PriceAsk,3,Ask-StopLoss*point,Ask+TakeProfit*point,Gold);exit;end; 
if s==0 and b==1 and (summa<=-pred/2 or summa>=pred) then Begin
   Setorder(OP_SELL,mm*mlot,PriceBid,3,Bid+StopLoss*point,Bid-TakeProfit*point,Gold);exit;end;end;
   end;