some modification

_SECTION_BEGIN("Flower");
	si=Param("Zoom/In Out",5,-50,100,1);
	GraphXSpace=si;

	r1 = Param( "ColorFast avg", 5, 2, 200, 1 );
	r2 = Param( "ColorSlow avg", 10, 2, 200, 1 );
	r3 = Param( "ColorSignal avg", 5, 2, 200, 1 );

	m1=MACD(r1,r2);
	s1=Signal(r1,r2,r3);
	mycolor=IIf(m1<0 AND m1>s1, ColorRGB(155,155,155),IIf(m1>0 AND m1>s1,ColorRGB(0,125,0),IIf(m1>0 AND m1<s1,ColorRGB(180,30,160),ColorRGB(100,0,0))));

	Prd1=Param("ATR Period",4,1,20,1);
	Prd2=Param("Look Back",7,1,20,1);
	green = HHV(LLV(L,Prd1)+ATR(Prd1),Prd2);
	red = LLV(HHV(H,Prd1)-ATR(Prd1),Prd2);
	flowerClose = EMA((Open+High+Low+Close)/4,3) ;
	flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);
	Temp = Max(High, flowerOpen);
	flowerHigh = EMA(Max(Temp, flowerClose),3);
	Temp = Min(Low,flowerOpen);
	flowerLow = EMA(Min(Temp, flowerClose),3);
	barColor=IIf(Close>Open,ColorRGB(0,245,0),ColorRGB(255,0,0));

	Ctmpl = E_TSKPCOLORTMPL(Open,High,Low,Close,Volume);
	total = 0;
	total = total + IIf(tskp_colortmplcnd0 > 0, 1, -1);
	total = total + IIf(tskp_colortmplcnd1 > 0, 1, -1);
	total = total + IIf(tskp_colortmplcnd2 > 0, 1, -1);
	total = total + IIf(tskp_colortmplcnd3 > 0, 1, -1);
	total = total + IIf(tskp_colortmplcnd4 > 0, 1, -1);
	total = total + IIf(tskp_colortmplcnd5 > 0, 1, -1);
	total = total + IIf(tskp_colortmplcnd6 > 0, 1, -1);
	total = total + IIf(tskp_colortmplcnd7 > 0, 1, -1);
	total = total + IIf(tskp_colortmplcnd8 > 0, 1, -1);


	HaOpen =IIf(flowerOpen<flowerClose, flowerOpen, flowerClose) ;
	HaClose =  IIf(flowerOpen<flowerClose, flowerClose, flowerOpen);
	HaHigh = flowerHigh;
	HaLow = flowerLow ;

	for( i = 0; i < BarCount; i++ )
	{

	if( total[i] >= 5 )
	Color[i] = colorLime;
	else if( total[i] <= -5 )
	Color[i] = colorRed;
	else
	Color[i] = colorWhite;
	}

	Candle=ParamList("Candle","Modified Candlestick,Modified Heikin Ashi,Normal Candlestick",1);
	if(Candle=="Modified Candlestick")
	{
	ColorHighliter = myColor;
	SetBarFillColor( ColorHighliter );
	Plot (Close,"- Modified Candlestick", Color,ParamStyle( "Style", styleCandle|styleLine | styleThick, maskAll));
	}
	if(Candle=="Modified Heikin Ashi")
	{
	ColorHighliter = myColor;
	SetBarFillColor( ColorHighliter );

	PlotOHLC( HaOpen,HaHigh,HaLow,HaClose, "Modified Heikin Ashi", Color, styleCandle|styleLine);
	}
	if(Candle=="Normal Candlestick")
	{
	//ColorHighliter = myColor;
	//SetBarFillColor( ColorHighliter );
	PlotOHLC(O,H,L,C,"Normal Candlestick",barcolor,styleCandle|styleLine);
	}


_SECTION_END();



_SECTION_BEGIN("Background Color");
BKswitch = ParamToggle("Background Color","On,Off");

OUTcolor = ParamColor("Outer Panel Color",colorLightBlue);
INUPcolor = ParamColor("Inner Panel Upper",colorPink);
INDNcolor = ParamColor("Inner Panel Lower",colorWhite);
TitleColor = ParamColor("Title Color ",colorBlack);

if (NOT BKswitch)
{
SetChartBkColor(OUTcolor); // color of outer border
SetChartBkGradientFill(INUPcolor,INDNcolor,TitleColor); // color of inner panel
}
_SECTION_END();


_SECTION_BEGIN("ERO ATR BUY SELL");

ero = Param("ATR multiple", 2.8, 0.5, 10, 0.1 )*Param("ATR period", 10, 3, 50 );
ero_col=ParamColor( "Color", colorCycle );

r=HHV(H,ero);
s=LLV(L,ero);
ab=IIf(H>Ref(r,-1),1,IIf(L<Ref(s,-1),-1,0));
ac=ValueWhen(ab!=0,ab,1);
sl=IIf(ac==1,s,r);

Plot(sl, _DEFAULT_NAME(), ero_col, styleStaircase); // or styleaArea

Buy=Cross(H,sl);
Sell=Cross(sl,L);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);
_SECTION_END();

_SECTION_BEGIN("Moving Average");

x=Param("EMA 1",20,1,200,1);
y=Param("EMA 2", 50,1,200,1);
z=Param("EMA 3",100,1,200,1);
zz=Param("EMA 4",200,1,200,1);
EMA20= EMA(C,x);
EMA50=EMA(C,y);
EMA100= EMA(C,z);
EMA200=EMA(C,zz);

SUT=EMA(C,5)>EMA20;
SDT=EMA20>EMA(C,5);
mut= EMA20>EMA50;
mdt=EMA20<EMA50;
_SECTION_END();
_SECTION_BEGIN("Mid Term Price Trend");


MPT = IIf( mut, colorGreen, IIf( mdt, colorRed, colorYellow));
Plot( 3, "", MPT, styleArea|styleOwnScale|styleNoLabel, 0, 100);

_SECTION_END();

_SECTION_BEGIN("Short Term Price Trend");

SPT = IIf( EMA(C,5)>EMA20, colorBrightGreen, IIf( EMA20>EMA(C,5), colorPink, colorYellow));
Plot( 6, "", SPT, styleArea|styleOwnScale|styleNoLabel, 0, 100);

_SECTION_END();




_SECTION_BEGIN("LEVELS");
PO=TimeFrameGetPrice( "O", inDaily, -1 );
PL=TimeFrameGetPrice( "L", inDaily, -1 );
PH=TimeFrameGetPrice( "H", inDaily, -1 );
PC=TimeFrameGetPrice( "C", inDaily, -1 );
TO= TimeFrameGetPrice( "O", inDaily, 0 );
TH= TimeFrameGetPrice( "H", inDaily, 0 );
TL= TimeFrameGetPrice( "L", inDaily, 0 );
TC= TimeFrameGetPrice( "C", inDaily, 0 );
PC1= TimeFrameGetPrice( "C", inDaily, -2 );

P=((PH+PL+PC)/3);
R1=((2*P)-PL);
S1=((2*P)-PH);
R2=((P-S1)+R1);
S2=(P-(R1-S1));
R3=PH+(2*(P-PL));
S3=PL-(2*(PH-P));

R=TH-TL;
PP=(TH+TL+TO+TO)/4;
RR1=PP+(R*0.38);
RR2=PP+(R*0.62);
SS1=PP-(R*0.38);
SS2=PP-(R*0.62);

PPP=(TH+TL+TO+TO)/4;
RRR1=((2*PPP)-TL);
SSS1=((2*PPP)-TH);
RRR2=((PPP-SSS1)+RRR1);
SSS2=(PPP-(RRR1-SSS1));

Pchange=PC-PC1;
PPerChange=(Pchange/PC1)*100;
Tchange=TC-PC;
TPerChange=(Tchange/TC)*100;

Title=Name()+
"\nPrevious  -  O :-"+PO+"  H :-"+PH+"  L :-"+PL+"  C :-"+PC+"  Change:-  "+Pchange+"  %ge:-  "+WriteVal(PPerChange,1.2)+
"\nTodays    -  O :-"+TO+"  H :-"+TH+"  L :-"+TL+"  C :-"+TC+"  Change:-  "+Tchange+"  %ge:-  "+WriteVal(TPerChange,1.2)+
"\n"+
"\n"+
"\nLevels"+
"\nEOD Pivot :-"+WriteVal(P,1.2)+
"\nS-1 :-"+WriteVal(S1,1.2)+" - R-1 :-"+WriteVal(R1,1.2)+
"\nS-2 :-"+WriteVal(S2,1.2)+" - R-2 :-"+WriteVal(R2,1.2)+
"\nS-3 :-"+WriteVal(S3,1.2)+" - R-3 :-"+WriteVal(R3,1.2)+
"\n"+
"\nIntraday Pivot :-"+WriteVal(PP,1.2)+
"\nS-1 :-"+WriteVal(SSS1,1.2)+" - R-1 :-"+WriteVal(RRR1,1.2)+
"\nS-2 :-"+WriteVal(SSS2,1.2)+" - R-2 :-"+WriteVal(RRR2,1.2)+
"\n"+
"\nIntraday Retracement Levels"+
"\nS-1 :-"+WriteVal(SS1,1.2)+" - R-1:-"+WriteVal(RR1,1.2)+
"\nS-2 :-"+WriteVal(SS2,1.2)+" - R-2:-"+WriteVal(RR2,1.2);
_SECTION_END();
//------------------------------------------------------------------------------

_SECTION_BEGIN("Magnified Market Price");
FS=Param("Font Size",30,30,100,1);
GfxSelectFont("Arial", FS, 700, italic = False, underline = False, True );
GfxSetBkMode( colorGreen );
GfxSetTextColor( ParamColor("Color",colorGreen) );
Hor=Param("Horizontal Position",350,800,800,800);
Ver=Param("Vertical Position",50,27,27,27);
GfxTextOut(""+C,Hor , Ver );
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);
xx=Prec((DD/YC)*100,2);
GfxSelectFont("Arial", 12, 700, italic = False, underline = False, True );
GfxSetBkMode( colorGreen );
GfxSetTextColor(ParamColor("Color",colorGreen) );
GfxTextOut(""+DD+" ("+xx+"%)", Hor+5, Ver+45 );
_SECTION_END();