_SECTION_BEGIN("Price1");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();

T_F =ParamList("Select","Yesterday|2 Days|3 Days|4 Days|5 Days|6 Days|EOD|Weekly|Monthly");
if (T_F=="Yesterday") 
{
H_1 = TimeFrameGetPrice( "H", inDaily, -1 );
L_1 = TimeFrameGetPrice( "L", inDaily, -1 );
C_1 = TimeFrameGetPrice( "C", inDaily, -1 );
}
else if (T_F == "2 Days") 
{
H_1 = TimeFrameGetPrice( "H", inDaily, -2 );
L_1 = TimeFrameGetPrice( "L", inDaily, -2 );
C_1 = TimeFrameGetPrice( "C", inDaily, -2 );
}
else if (T_F == "3 Days") 
{
H_1 = TimeFrameGetPrice( "H", inDaily, -3 );
L_1 = TimeFrameGetPrice( "L", inDaily, -3 );
C_1 = TimeFrameGetPrice( "C", inDaily, -3 );
}
else if (T_F == "4 Days") 
{
H_1 = TimeFrameGetPrice( "H", inDaily, -4 );
L_1 = TimeFrameGetPrice( "L", inDaily, -4 );
C_1 = TimeFrameGetPrice( "C", inDaily, -4 );
}
else if (T_F == "5 Days") 
{
H_1 = TimeFrameGetPrice( "H", inDaily, -5 );
L_1 = TimeFrameGetPrice( "L", inDaily, -5 );
C_1 = TimeFrameGetPrice( "C", inDaily, -5 );
}
else if (T_F == "6 Days") 
{
H_1 = TimeFrameGetPrice( "H", inDaily, -6 );
L_1 = TimeFrameGetPrice( "L", inDaily, -6 );
C_1 = TimeFrameGetPrice( "C", inDaily, -6 );
}
else if (T_F == "EOD") 
{
H_1 = TimeFrameGetPrice( "H", inDaily, 0 );
L_1 = TimeFrameGetPrice( "L", inDaily, 0 );
C_1 = TimeFrameGetPrice( "C", inDaily, 0 );
}
else if (T_F == "Weekly") 
{
H_1 = TimeFrameGetPrice( "H", inWeekly, -1 );
L_1 = TimeFrameGetPrice( "L", inWeekly, -1 );
C_1 = TimeFrameGetPrice( "C", inWeekly, -1 );
}
else if (T_F == "Monthly") 
{
H_1 = TimeFrameGetPrice( "H", inMonthly, -1 );
L_1 = TimeFrameGetPrice( "L", inMonthly, -1 );
C_1 = TimeFrameGetPrice( "C", inMonthly, -1 );
}
Pivot = (H_1 + L_1 + C_1) / 3;
Pvt = ParamToggle("Pivot","Hide|Show",1);
if(Pvt==1) {
Plot (Pivot,"",colorGold,styleStaircase|styleDots|styleNoRescale|styleNoLabel);
}
Hy = ParamToggle("High","Hide|Show",1);
if(Hy==1) {
Plot (H_1,"",colorRed,styleStaircase|styleNoRescale|styleNoLabel);
}
Lo = ParamToggle("Low","Hide|Show",1);
if(Lo==1) {
Plot (L_1,"",colorGreen,styleStaircase|styleNoRescale|styleNoLabel);
}
Cloz= ParamToggle("Close","Hide|Show",1);
if(Cloz==1) {
Plot (C_1,"",colorWhite,styleStaircase|styleNoRescale|styleNoLabel);
}




//See its Parameter carefully
//for unique AFL Codes,kindly visit m a r k e t l o g y.c o m