N:=10;
wr1:100*(HHV(HIGH,N)-C)/(HHV(HIGH,N)-LLV(LOW,N)),NODRAW;
W1:=20;
W2:=80;
DT:=14;
TYP:=(HIGH+LOW+CLOSE)/3;
cci:=(TYP-MA(TYP,DT))/(0.015*AVEDEV(TYP,DT));
HLP:WINNER(C)*100,NODRAW;
STICKLINE(WR1>=W2,0,WR1,2,0),COLORCYAN;
STICKLINE(WR1>W1 AND WR1<W2,00,WR1,2,0), COLORLIBLUE;
STICKLINE(WR1<=W1,0,WR1,2,0), COLORYELLOW;
B1:=WR1>95 AND EMA(C,10)>EMA(C,60);
STICKLINE(B1,100,50,2,0),COLORRED;
S1:=crOSS(20,WR1) ;
STICKLINE(S1,100,50,2,0),COLORYELLOW;
CS:=REF(BARSLAST(B1),1)>REF(BARSLAST(S1),1);
B2:=CS AND CROSS(W1,WR1);
STICKLINE(B2 AND REF(BARSLAST(B2),1)>REF(BARSLAST(S1),1),100,WR1,2,0),COLORMAGENTA;
S2:=HLP>99;
STICKLINE(S2,100,WR1,2,0),COLORBLUE;
S3:=CROSS(WR1,20);
STICKLINE(S3,100,WR1,2,0),COLORGREEN;