HH:=(MA(H,3)+MA(H,6)+MA(H,12)+MA(H,24))/4;

LL:=(MA(L,3)+MA(L,6)+MA(L,12)+MA(L,24))/4;

Z:=(MA(C,3)+MA(C,6)+MA(C,12)+MA(C,24))/4,DOT,COLORLIGHTRED;

HH2:=VALUEWHEN(HH>0,HH);

LL2:=VALUEWHEN(LL>0,LL);

K1:=IFELSE(CLOSE>HH2,-3,IFELSE(CLOSE<LL2,1,0));

K2:=VALUEWHEN(K1<>0,K1);

G:IFELSE(K2=1,HH2,LL2),NODRAW;

G1:=VALUEWHEN(ISLASTBAR,G);

FILLRGN(C>G,G,Z,RGB(115,0,0));

FILLRGN(C<G,G,Z,RGB(0,95,0));

W1:=K2;

W2:=OPEN-CLOSE;

HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);

LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);

DRAWLINE(W1=1,HIGH,W1=1,HT,COLORCYAN);

DRAWLINE(W1=1,LOW,W1=1,LT,COLORCYAN);

DRAWLINE(W1=-3,HIGH,W1=-3,HT,COLORRED);

DRAWLINE(W1=-3,LOW,W1=-3,LT,COLORRED);

STICKLINE(W1>0,OPEN,CLOSE,COLORCYAN,1);

STICKLINE(W1<=0,OPEN,CLOSE,COLORRED,1);

STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,COLORRED,0);

STICKLINE(W2>0&&W1>0,OPEN,CLOSE,COLORCYAN,0);

PARTLINE(K2=1,G,COLORGREEN),LINETHICK1;

PARTLINE(K2=-3,G,COLORMAGENTA),LINETHICK1;

TR := MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));

ATR:= MA(TR,14);

Z1:G-ATR,COLORYELLOW,NODRAW;

Z2:G+ATR,COLORGREEN,NODRAW;