-- Automated Pivot Points V2.5;
@SETVALUETEXTMODE('None');
@SETNAME('CSPP7', True);
@SHOWYGRIDLINE(True);

-- OHLC;
CD := "C#DAY1";
HD := "H#DAY1";
LD := "L#DAY1";
OD := "O#DAY1";

CS := IF(MTMUse,MTM(),CD);
Extend(IF(IsLastDay,CS,NaN)),StyleSolid,ColorGray,Horizontal,Width1;
Extend(IF(IsLastDay & ShowHLC,HD,NaN)),StyleSolid,ColorTeal,Horizontal,Width1;
Extend(IF(IsLastDay & ShowHLC,LD,NaN)),StyleSolid,ColorTeal,Horizontal,Width1;
Extend(IF(IsLastDay & ShowHLC,OD,NaN)),StyleSolid,ColorTeal,Horizontal,Width1;

-- Pivot Point;
PP := ROUND((CS+HD+LD)/3);
Extend(IF(IsLastDay & (ABS(C-PP) < PLimit | PLimitUse!=1),PP,NaN)),Styledots,ColorBlue,Horizontal,Width2;

-- Balance Point;
BPC := CD+FML('REF(C,1)#DAY1')+FML('REF(C,2)#DAY1');
BPH := HD+FML('REF(H,1)#DAY1')+FML('REF(H,2)#DAY1');
BPL := LD+FML('REF(L,1)#DAY1')+FML('REF(L,2)#DAY1');
BP := (BPC+BPH+BPL)/9;
Extend(IF(IsLastDay,BP,NaN)),StyleSolid,ColorOrange,Horizontal,Width1;

-- Resistance Levels;
R1 := ROUND((2 * PP) - LD);
Extend(IF(IsLastDay & ShowR & (ShowNL>=1) & (ABS(C-R1) < PLimit | PLimitUse!=1),R1,NaN)),StyleSolid,ColorGreen,Horizontal,Width2;

R1M := ROUND((PP + R1)/2);
Extend(IF(IsLastDay & ShowR & ShowMid & (ShowNL>=1) & (ABS(C-R1M) < PLimit | PLimitUse!=1),R1M,NaN)),StyleDash,ColorGreen,Horizontal,Width1;

R2 := ROUND(PP + (HD - LD));
Extend(IF(IsLastDay & ShowR & (ShowNL>=2) & (ABS(C-R2) < PLimit | PLimitUse!=1),R2,NaN)),StyleSolid,ColorGreen,Horizontal,Width2;

R2M := ROUND((R1 + R2)/2);
Extend(IF(IsLastDay & ShowR & ShowMid & (ShowNL>=2) & (ABS(C-R2M) < PLimit | PLimitUse!=1),R2M,NaN)),StyleDash,ColorGreen,Horizontal,Width1;

R3 := ROUND(R1 + (HD - LD));
Extend(IF(IsLastDay & ShowR & (ShowNL>=3) & (ABS(C-R3) < PLimit | PLimitUse!=1),R3,NaN)),StyleSolid,ColorGreen,Horizontal,Width2;

R3M := ROUND((R2 + R3)/2);
Extend(IF(IsLastDay & ShowR & ShowMid & (ShowNL>=3) & (ABS(C-R3M) < PLimit | PLimitUse!=1),R3M,NaN)),StyleDash,ColorGreen,Horizontal,Width1;

R4 := ROUND(R2 + (HD - LD));
Extend(IF(IsLastDay & ShowR & (ShowNL>=4) & (ABS(C-R4) < PLimit | PLimitUse!=1),R4,NaN)),StyleSolid,ColorGreen,Horizontal,Width2;

R4M := ROUND((R3 + R4)/2);
Extend(IF(IsLastDay & ShowR & ShowMid & (ShowNL>=4) & (ABS(C-R4M) < PLimit | PLimitUse!=1),R4M,NaN)),StyleDash,ColorGreen,Horizontal,Width1;

R5 := ROUND(R3 + (HD - LD));
Extend(IF(IsLastDay & ShowR & (ShowNL>=5) & (ABS(C-R5) < PLimit | PLimitUse!=1),R5,NaN)),StyleSolid,ColorGreen,Horizontal,Width2;

R5M := ROUND((R4 + R5)/2);
Extend(IF(IsLastDay & ShowR & ShowMid & (ShowNL>=5) & (ABS(C-R5M) < PLimit | PLimitUse!=1),R5M,NaN)),StyleDash,ColorGreen,Horizontal,Width1;

R6 := ROUND(R4 + (HD - LD));
Extend(IF(IsLastDay & ShowR & (ShowNL>=6) & (ABS(C-R6) < PLimit | PLimitUse!=1),R6,NaN)),StyleSolid,ColorGreen,Horizontal,Width2;

R6M := ROUND((R5 + R6)/2);
Extend(IF(IsLastDay & ShowR & ShowMid & (ShowNL>=6) & (ABS(C-R6M) < PLimit | PLimitUse!=1),R6M,NaN)),StyleDash,ColorGreen,Horizontal,Width1;

R7 := ROUND(R5 + (HD - LD));
Extend(IF(IsLastDay & ShowR & (ShowNL>=7) & (ABS(C-R7) < PLimit | PLimitUse!=1),R7,NaN)),StyleSolid,ColorGreen,Horizontal,Width2;

R7M := ROUND((R6 + R7)/2);
Extend(IF(IsLastDay & ShowR & ShowMid & (ShowNL>=7) & (ABS(C-R7M) < PLimit | PLimitUse!=1),R7M,NaN)),StyleDash,ColorGreen,Horizontal,Width1;

-- Support Levels;
S1 :=  ROUND((2 * PP) - HD);
Extend(IF(IsLastDay & ShowS & (ShowNL>=1) & (ABS(C-S1) < PLimit | PLimitUse!=1),S1,NaN)),StyleSolid,ColorRed,Horizontal,Width2;

S1M := ROUND((PP + S1)/2);
Extend(IF(IsLastDay & ShowS & ShowMid & (ShowNL>=1) & (ABS(C-S1M) < PLimit | PLimitUse!=1),S1M,NaN)),StyleDash,ColorRed,Horizontal,Width1;

S2 := ROUND(PP - (HD - LD));
Extend(IF(IsLastDay & ShowS & (ShowNL>=2) & (ABS(C-S2) < PLimit | PLimitUse!=1),S2,NaN)),StyleSolid,ColorRed,Horizontal,Width2;

S2M := ROUND((S1 + S2)/2);
Extend(IF(IsLastDay & ShowS & ShowMid & (ShowNL>=2) & (ABS(C-S2M) < PLimit | PLimitUse!=1),S2M,NaN)),StyleDash,ColorRed,Horizontal,Width1;

S3 := ROUND(S1 - (HD - LD));
Extend(IF(IsLastDay & ShowS & (ShowNL>=3) & (ABS(C-S3) < PLimit | PLimitUse!=1),S3,NaN)),StyleSolid,ColorRed,Horizontal,Width2;

S3M := ROUND((S2 + S3)/2);
Extend(IF(IsLastDay & ShowS & ShowMid & (ShowNL>=3) & (ABS(C-S3M) < PLimit | PLimitUse!=1),S3M,NaN)),StyleDash,ColorRed,Horizontal,Width1;

S4 := ROUND(S2 - (HD - LD));
Extend(IF(IsLastDay & ShowS & (ShowNL>=4) & (ABS(C-S4) < PLimit | PLimitUse!=1),S4,NaN)),StyleSolid,ColorRed,Horizontal,Width2;

S4M := ROUND((S3 + S4)/2);
Extend(IF(IsLastDay & ShowS & ShowMid & (ShowNL>=4) & (ABS(C-S4M) < PLimit | PLimitUse!=1),S4M,NaN)),StyleDash,ColorRed,Horizontal,Width1;

S5 := ROUND(S3 - (HD - LD));
Extend(IF(IsLastDay & ShowS & (ShowNL>=5) & (ABS(C-S5) < PLimit | PLimitUse!=1),S5,NaN)),StyleSolid,ColorRed,Horizontal,Width2;

S5M := ROUND((S4 + S5)/2);
Extend(IF(IsLastDay & ShowS & ShowMid & (ShowNL>=5) & (ABS(C-S5M) < PLimit | PLimitUse!=1),S5M,NaN)),StyleDash,ColorRed,Horizontal,Width1;

S6 := ROUND(S4 - (HD - LD));
Extend(IF(IsLastDay & ShowS & (ShowNL>=6) & (ABS(C-S6) < PLimit | PLimitUse!=1),S6,NaN)),StyleSolid,ColorRed,Horizontal,Width2;

S6M := ROUND((S5 + S6)/2);
Extend(IF(IsLastDay & ShowS & ShowMid & (ShowNL>=6) & (ABS(C-S6M) < PLimit | PLimitUse!=1),S6M,NaN)),StyleDash,ColorRed,Horizontal,Width1;

S7 := ROUND(S5 - (HD - LD));
Extend(IF(IsLastDay & ShowS & (ShowNL>=7) & (ABS(C-S7) < PLimit | PLimitUse!=1),S7,NaN)),StyleSolid,ColorRed,Horizontal,Width2;

S7M := ROUND((S6 + S7)/2);
Extend(IF(IsLastDay & ShowS & ShowMid & (ShowNL>=7) & (ABS(C-S7M) < PLimit | PLimitUse!=1),S7M,NaN)),StyleDash,ColorRed,Horizontal,Width1;