?CP:=(H L)/2;
LIPS:REF(SMA(CP,5,1),3),COLORGREEN;
TEETH:REF(SMA(CP,8,1),5),COLORRED;
JAW:REF(SMA(CP,13,1),8),COLORBLUE;

WH1:=IF(L=LLV(L,P),L,DRAWNULL);
WH2:=CONST(BARSLAST(NOT(WH1=DRAWNULL)));
WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));
WH4:=CONST(REF(BARSLAST(H>WH3),WH2 1) WH2 1);
WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));
WH6:=CONST(REF(BARSLAST(H>WH5),WH4 1) WH4 1);
BUYCBL:IF(CURRBARSCOUNT <=WH2 P,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL),COLORMAGENTA;
IF(CURRBARSCOUNT<=WH2 1,IF(L=LLV(L,P),L,DRAWNULL),DRAWNULL),CIRCLEDOT,COLORRED;

H1:=IF(H=HHV(H,P),H,DRAWNULL);
H2:=CONST(BARSLAST(NOT(H1=DRAWNULL)));
H3:=CONST(IF(H2=0,L,REF(L,H2)));
H4:=CONST(REF(BARSLAST(L H5:=CONST(IF(H4=0,L,REF(L,H4)));
H6:=CONST(REF(BARSLAST(L SELLCBL:IF(CURRBARSCOUNT <=H2 P,CONST(IF(H6=0,L,REF(L,H6))),DRAWNULL),COLORGREEN;
IF(CURRBARSCOUNT<=H2 1,IF(H=HHV(H,P),H,DRAWNULL),DRAWNULL),CIRCLEDOT,COLORBLUE;

?