/*[[
    Name := INDICATOR DELTAFORCE FOR MT 3.10
    Author := ASHARIPOV AINUR 
    Link := ainurhal@mail.ru
    Notes := DELTA FORCE TREND
    Separate Window := yes
    First Color := red
    First Draw Type := histogram
    First Symbol := 217
    Use Second Data := Yes
    Second Color := blue
    Second Draw Type := histogram
    Second Symbol := 218
]]*/
Variable : cb(0),valueh1(0),valuel(0),valueh(0),value(0),CurrentBar(0), price(0),hi(1),lo(1);
Variable :resh(0),resl(0),deltah(0),deltal(0);
SetLoopCount(0);
For CB = 0 To bars begin
SetIndexValue(CB,0);
SetIndexValue2(CB,0);
     end;
For CB = 0 To bars begin
     CurrentBar=bars-CB;
    
    
    If close[CurrentBar]>close[CurrentBar+1]then {;
    		resl=0;
    		if resh=0 then deltah=0;
    		deltah=deltah+(close[CurrentBar]-close[CurrentBar+1]);
           // valueh =  High[CurrentBar];
            resh=  1;
    
            };
            
        if resh=0 then deltah=0;
        SetIndexValue(CurrentBar,deltah);

    
    
    If close[CurrentBar]<close[CurrentBar+1]  then {;
    	resh=0;
    	if resl=0 then deltal=0;
    	deltal=deltal+(close[CurrentBar+1]-close[CurrentBar]);
        //valuel = Low[CurrentBar];
     	resl= 1;
        };
       
    if resl=0 then deltal=0;
    SetIndexValue2(CurrentBar, deltal);
    comment(valueh," ",valuel);
End;