fh:=high;
fl:=low;
sell:=0*fh;
buy:=sell;
signal:=sell;
boxh:sell,linethick0;
boxl:sell,linethick0;
variable:hc=0,lc=0,bt=fh[1],bb=fh[1];
for i=1 to datacount do begin
  if hc>1 then begin
    if lc>2 and bt<=fh[i] then begin
      buy[i]:=1;
      for j=i-1 downto i-hc do begin
        boxh[j]:=fh[i-hc];
        boxl[j]:=fl[i-lc];
      end;
      hc:=0;lc:=0;
    end;
    if bt>fh[i] then begin
      if lc>2 then begin
        if bb>=fl[i] then begin
          sell[i]:=1;
          for j=i-1 downto i-hc do begin
            boxh[j]:=fh[i-hc];
            boxl[j]:=fl[i-lc];
          end;
          hc:=-1;lc:=0;
        end else begin
          boxh[i]:=fh[i-hc];
          boxl[i]:=fl[i-lc];
        end;
      end;
      hc:=hc+1;
      if lc>1 then begin
        if bb<fl[i] then begin
          lc:=lc+1;
          if lc=3 then begin
            signal[i-hc+1]:=1;
            for j=i downto i-hc+1 do begin
              boxh[j]:=fh[i-hc+1];
              boxl[j]:=fl[i-lc+1];
            end;
          end;
        end else lc:=0;
      end else
      if lc=1 then begin
        if bb<fl[i] then begin
          lc:=lc+1;
        end else lc:=0;
      end;
      if lc=0 and hc>1 then begin
         bb:=fl[i];
         lc:=lc+1;
      end;
    end else begin hc:=0; lc:=0; end;
  end else
  if hc=1 then begin
    if bt>fh[i] then
      hc:=hc+1
    else begin hc:=0;lc:=0; end;
  end;
  if hc=0 then begin
    bt:=fh[i];
    hc:=hc+1;
  end;
end;
partline(boxh and boxh=ref(boxh,1),boxh),coloryellow,pointdot;
partline(boxl and boxl=ref(boxl,1),boxl),coloryellow,pointdot;
stickline((signal||refx(buy||sell,1))&&boxh,boxh,boxl,0.1,0),pointdot,coloryellow;
drawicon(buy,low*0.98,4);
drawicon(sell,high*1.02,5);