Need to fine tune to this AFL

Moderator comment: Post edited - added proper code tags.

Getting some calculation mistake in the chart it some time it will not calculate Buy Profit and Sell Profit after buy and sell signals generated it is calculating old signal
Need To fine-tune this AFL this AFL any can help me

also add time left for next candle and notification popup if get any signal,

can possible to make AFL for exploration better result,

_SECTION_BEGIN("f");
 //-------------------------------------------------------------------------
 SetChartOptions(0,chartShowArrows|chartShowDates);
 _N(Title = StrFormat(" Open %g, Hi %g, Lo %g, Close %g (%.1f%%)", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));


 T=26; 
 BHSda=((C-MA(C,T))/MA(C,T))*100; // func fixed
 Graph0=BHSda;
 Graph0Style=2+4;
 Graph0BarColor=IIf(BHSda>0,5,4);
 GraphXSpace=5;

 SetChartOptions(0,chartShowArrows|chartShowDates);
 Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | styleCandle ); 
 Plot( O, "Open", ParamColor("Color", colorBlack ), styleNoDraw); 
 Plot( H, "High", ParamColor("Color", colorBlack ), styleNoDraw); 
 Plot( L, "Low", ParamColor("Color", colorBlack ),styleNoDraw); 


 //------------------------------------------------------------------------------
 Value1 = 60;//Param("BearRes", 60, 1, 100, 0.1 );
 Value2 = 40;//Param("BullSup", 40, 1, 100, 0.1 );
 BHSMPPer= 13;//Param("Time periods", 13, 1, 100 );
 BHEXPerc = 2 * BHSMPPer- 1;

 BSAU = EMA(Max( C - Ref (C, -1 ),0) , BHEXPerc );
 BSAC = EMA(Max( Ref( C, -1 ) - C,0), BHEXPerc );
 x1=(BHSMPPer-1)* ((BSAC * Value1 )/(100-Value1) - BSAU);
 BSR1 = IIf( x1 >= 0, C + x1, C + x1 * (100-Value1)/Value1 );
 x2=(BHSMPPer-1)* ((BSAC * Value1 )/(100-Value2) - BSAU);
 BSR2 = IIf( x2 >= 0, C + x2, C + x2 * (100-Value2)/Value2 );

 Plot( BSR1, "", colorOrange,styleDashed);
 Plot( BSR2, "", colorPaleBlue,styleDashed );

 //------------------------------------------------------------------------------


 r1 = 12;//Param( "Fast avg", 12, 2, 200, 1 );
 r2 = 26;//Param( "Slow avg", 26, 2, 200, 1 );
 r3 = 9;//Param( "Signal avg", 9, 2, 200, 1 );
 Z = 1;//Param("zig",1,0,10,0.1);


 Cond1 = Cross(MACD(r1,r2),Signal(r1,r2,r3));
 Cond3 = Zig(C,z)>Ref(Zig(C,z),-4);
 Buy = Cond1 AND Cond3;

 Cond4 = Cross(Signal(r1,r2,r3),MACD(r1,r2));
 Cond6 = Zig(C,z)<Ref(Zig(C,z),-4);
 Sell = Cond4 AND Cond6;

 Trigger = WriteIf(Buy, "Buy", "") + WriteIf(Sell, "Sell", "");
 BSG = IIf(Buy, colorPaleGreen, IIf(Sell, colorRose, colorDefault));
 BSFG = IIf(Buy, colorDarkGreen, IIf(Sell, colorDarkRed, colorDefault));


 //------------------------------------------------------------------------------------------------

 if((Status("action") == actionExplore) OR (Status("action") == actionScan))
 Filter = Buy OR Sell;
 SetOption("NoDefaultColumns", True);
 AddTextColumn(Name(), "Symbol", 77, BSFG, BSG, 120);
 AddColumn(DateTime(), "Date", formatDateTime, BSFG, BSG, 100);
 AddColumn(TimeNum() ,"Time",1,BSFG, BSG, 100);
 AddColumn( Buy, "Buy", 1,BSFG, BSG, 50);
 AddColumn( Sell, "Sell", 1,BSFG, BSG, 50 );
 AddColumn( O, "Open", 1.2,BSFG, BSG, 100 );
 AddColumn( H, "High", 1.2,BSFG, BSG, 100 );
 AddColumn( L, "Low", 1.2,BSFG, BSG, 100 );
 AddColumn( C, "Close", 1.2,BSFG, BSG, 100 );
 AddColumn(Ref(V,-1),"P-Vol",1,BSFG, BSG, 100);
 AddColumn(V/(Ref(V,-1)*100),"Increase in Vol",1,BSFG, BSG, 100);

 shape= (Buy * shapeHollowUpTriangle )+(Sell *shapeHollowDownTriangle);
 PlotShapes( shape, IIf( Buy, colorBlue, colorBlue ), 0, IIf( Buy, Low, High ) );
 GraphXSpace = 7;

 //---------------------------------------------------------------------------------------------------------
 C13=20;//Param("fonts",20,10,30,1 );
 C14=2.1;//Param("left-right",2.1,1.0,5.0,0.1 );
 C15=12;//Param("up-down",12,1,20,1 );
 Miny = Status("axisminy");
 Maxy = Status("axismaxy");
 lvb = Status("lastvisiblebar");
 fvb = Status("firstvisiblebar");
 pxwidth = Status("pxwidth");
 pxheight = Status("pxheight");
 GfxSetBkMode(transparent=1);
 GfxSetOverlayMode(1);
 GfxSelectFont("Tahoma", Status("pxheight")/C13 );
 GfxSetTextAlign( 6 );
 GfxSetTextColor( ColorRGB (217,217,213));
 GfxTextOut( Name(), Status("pxwidth")/C14, Status("pxheight")/C15 );
 GfxSelectFont("Tahoma", Status("pxheight")/C13*0.4 );
 GfxSetTextColor( ColorRGB (103,103,103));
 GfxSelectFont("Tahoma", Status("pxheight")/C13*0.45 );
 GfxSetTextColor( colorWhite);
 GfxSelectFont("MS Sans Serif", 10, 500, False, False, 0);
 //------------------------------------------------------------------------------------------------


 SetChartBkGradientFill( ParamColor("BgTop", colorDarkOliveGreen),ParamColor("BgBottom", colorDarkGrey)); 
 pShowtradeLines = ParamToggle("Show Trade Lines", "No|Yes", 1);
 Volmin=Param("Volume minimum",5000,0,10000000,50);
 Volmax=Param("Volume maximum",1000000,0,10000000,50);
 priceRL=Param("Price Range Min",150,1,20000,1);
 priceRH=Param("Price Range Max",3000,1,20000,1);
 BSPeChMi=-25;//Param("Percentage Change Min set", -25, -100, 100, 0.1);
 BSPeChMa=25;//Param("Percentage Change Max set", 25, -100, 100, 0.1);
 BSPerTkProf=0.6;//Param("Take Profit Percent Set",0.6,0.3,30,0.1);
 BSPerStLos=0.25;//Param("StopLoss Percent Set",0.25,0.2,5,0.1);


 Bars = 0;
 xpdh = 90;

 {
 BSPl_Rng = (TimeNum() >= 90000 AND TimeNum()<= 153000) AND (DateNum()==LastValue(DateNum()));
 BSFH_Rg = (TimeNum() >= 090000 AND TimeNum()<= 093000) AND (DateNum()==LastValue(DateNum()));

 BSFH_Prc = High * BSFH_Rg;
 BSFH_Mrk = BarsSince(BSFH_Rg>0);
 Num_Bars = 36000 / Interval(1); 

 TimeFrameSet(inDaily);
 TOP_ = Open;
 PDH_ = Ref(High,-1);
 PDL_ = Ref(Low,-1);
 PDO_ = Ref(Open,-1);
 PDC_ = Ref(Close,-1);
 PDM_ = (PDH_+PDL_)/2;
 TimeFrameRestore();

 isAll = True;
 isRth = TimeNum() >= 085400 AND TimeNum() <= 093000;
 isdRth = TimeNum() >= 085400 AND TimeNum() <= 160000;

 aRthL = IIf(isRth, L, 1000000);
 aRthH = IIf(isdRth, H, Null);
 aRthLd =IIf(isdRth, L, 1000000);

 TOP = TimeFrameExpand(TOP_,inDaily,expandFirst); 
 PDH = TimeFrameExpand(PDH_,inDaily,expandFirst); 
 PDL = TimeFrameExpand(PDL_,inDaily,expandFirst); 
 PDO = TimeFrameExpand(PDO_,inDaily,expandFirst); 
 PDC = TimeFrameExpand(PDC_,inDaily,expandFirst); 
 PDM = TimeFrameExpand(PDM_,inDaily,expandFirst); 
 FHH = Ref(HHV(High*BSFH_Rg,Num_Bars),-BSFH_Mrk);
 FHL = TimeFrameCompress( aRthL, inDaily, compressLow );
 FHL = TimeFrameExpand( FHL, inDaily, expandFirst );
 DayH = TimeFrameCompress( aRthH, inDaily, compressHigh );
 DayH = TimeFrameExpand( DayH, inDaily, expandFirst );
 DayL = TimeFrameCompress( aRthLd, inDaily, compressLow );
 DayL = TimeFrameExpand( DayL, inDaily, expandFirst );


 FC1=((PDH-PDL)*0.433);
 FC2=((PDH-PDL)*0.7666);
 FC3=((PDH-PDL)*1.355);
 FC4=(FHH-FHL);

 A=IIf((FC4<=FC1+PDH*0.005),FC1,0);
 B=IIf((FC4<=FC2+PDH*0.005 AND FC4>FC1+PDH*0.005),FC2,0);
 Cl=IIf((FC4<=FC3 AND FC4>FC2+PDH*0.005),FC3,0);
 AF=(A+B+Cl);

 HaC =(O+H+L+C)/4; 
 HaO = AMA( Ref( HaC, -1 ), 0.5 ); 
 HaH = Max( H, Max( HaC, HaO) ); 
 HaL = Min( L, Min( HaC, HaO) );
 BG3=HHV(LLV(HaL,4)+ATR(4),8); 
 BR3=LLV(HHV(HaH ,4)-ATR(4),8); 
 co = IIf(Hac>BG3 ,colorBlue,IIf(Hac < BR3,colorRed,colorGrey50)); 

 BuyPrice=(DayL+AF);
 BSByTP1=(BuyPrice+(BuyPrice*(BSPerTkProf/100)));
 BSByTP2=(C>=BSByTP1);
 SellPrice=(DayH-AF);
 BSSlTP1=(SellPrice-(SellPrice*(BSPerTkProf/100)));
 BSSlTP2=(C<=BSSlTP1);
 BSPrCh=(((C-TOP)/TOP)*100);
 Vol=(V>=Volmin AND V<=Volmax);
 Percentage=(BSPrCh>=BSPeChMi AND BSPrCh<=BSPeChMa);
 prc=(C>=priceRL AND C<=priceRH);
 BuyStop1=(BuyPrice-(BuyPrice*(BSPerStLos/100)));
 BuyStop2=IIf((BuyStop1<=SellPrice) AND SellPrice<=BuyPrice,SellPrice,BuyStop1);
 SellStop1=(SellPrice+(SellPrice*(BSPerStLos/100)));
 SellStop2=IIf((SellStop1>=BuyPrice) AND SellPrice<=BuyPrice, BuyPrice,SellStop1);

 BuyStop=IIf((Buy AND NOT BSByTP2),BuyStop2,Null);
 BuyTP=IIf(Buy AND NOT BuyStop,BSByTP2,Null);

 Bars = BarsSince(TimeNum() >= 85400 AND TimeNum() < 092900);
 x0 = BarCount-LastValue(Bars);
 x1 = BarCount-1;
 TOP_Line = LineArray(x0,LastValue(TOP),x1,LastValue(TOP),0);
 PDH_Line = LineArray(x0,LastValue(PDH),x1,LastValue(PDH),0);
 PDL_Line = LineArray(x0,LastValue(PDL),x1,LastValue(PDL),0);
 PDC_Line = LineArray(x0,LastValue(PDC),x1,LastValue(PDC),0);
 PDM_Line = LineArray(x0,LastValue(PDM),x1,LastValue(PDM),0);
 FHH_Line = LineArray(x0,LastValue(FHH),x1,LastValue(FHH),0);
 FHL_Line = LineArray(x0,LastValue(FHL),x1,LastValue(FHL),0);
 BuyPriceline=LineArray(x0,LastValue(BuyPrice),x1,LastValue(BuyPrice),0);
 BuyStopline=LineArray(x0,LastValue(BuyStop2),x1,LastValue(BuyStop2),0);
 BuyTPline=LineArray(x0,LastValue(BSByTP1),x1,LastValue(BSByTP1),0);
 SellPriceline=LineArray(x0,LastValue(SellPrice),x1 ,LastValue(SellPrice),0);
 SellStopline=LineArray(x0,LastValue(SellStop2),x1, LastValue(SellStop2),0);
 SellTPline=LineArray(x0,LastValue(BSSlTP1),x1,LastValue(BSSlTP1),0);
 DayHline=LineArray(x0,LastValue(DayH),x1,LastValue (DayH),0);
 DayLline=LineArray(x0,LastValue(DayL),x1,LastValue (DayL),0);


 Plot(IIf(pShowtradeLines,BuyStopline,Null),"",colorBrightGreen,styleDots|styleNoRescale| styleNoLine);
 Plot(IIf(pShowtradeLines,SellPriceline,Null),"",colorRed,styleDots|styleNoRescale);

 if( Status("action") == actionIndicator ) 
 (
 Title = EncodeColor(colorWhite)+ "BuySell system " + " - " + Name() + " - " + EncodeColor(colorYellow)+ Interval(2) + EncodeColor(colorYellow) +
 " - " + Date() +" - "+ EncodeColor(colorYellow) + "Open = "+EncodeColor(colorWhite)+WriteVal(O,8.2) + EncodeColor(colorYellow) + ", High = "+EncodeColor(colorWhite)+ WriteVal(H,8.2)+ EncodeColor(colorYellow) + ", Low= "+EncodeColor(colorWhite)+ WriteVal(L,8.2)+ EncodeColor(colorYellow) + ", Close= "+EncodeColor(colorWhite)+ WriteVal(C,8.2)+ EncodeColor(colorYellow) + ", Vol= "+EncodeColor(colorWhite)+ WriteVal(V,1)+("\n")
 );



 //---------------------------------------------------------------------------------------------------------------------
 GfxSetOverlayMode( mode = 0 ); 
 GfxSelectPen( colorLightBlue, 2 ); 
 GfxSelectSolidBrush( colorBlack ); 
 GfxRoundRect( 5,65, 250, 180, 16, 20 ); 
 GfxSetBkMode(1); 
 GfxSelectFont( "Arial", 12, 700, False );
 GfxSetTextColor( colorBrown );
 GfxSetTextAlign(0);
 GfxSetTextColor( colorPaleGreen );
 GfxTextOut( WriteIf(BuyPrice, "Long Target 1: "+WriteVal(BuyPrice,1.2),""),15, 73);
 GfxSetTextColor( colorLightBlue );
 GfxTextOut( WriteIf(BSByTP1 , "Long Target 2: "+WriteVal(BSByTP1,1.2),""), 15, 92);
 GfxSetTextColor( colorRed );
 GfxTextOut( WriteIf(SellPrice, "Short Target 1: "+WriteVal(SellPrice,1.2),""), 15, 111);
 GfxSetTextColor( colorOrange );
 GfxTextOut( WriteIf(BSSlTP1, "Short Target 2: "+WriteVal(BSSlTP1,1.2),""), 15, 129);
 GfxSetTextColor( colorWhite );
 GfxTextOut( WriteIf(BuyStopline, "Instant Sup/Res: "+WriteVal(BuyStopline,1.2),""), 15, 147);
 }


 //-------------------------------------------------------------------------------------------------------------------------

 CHA= (O+H+L+C)/4;
 OHA = AMA( Ref( CHA,-2 ), 0.5 ); 
 HAH = Max( H, Max( CHA,OHA ) ); 
 HAL = Min( L, Min( CHA,OHA ) ); 
 BG2=HHV(LLV(Low,4)+ATR(4),8); 
 BR2=LLV(HHV(High,4)-ATR(4),8);
 k = Optimize("K",1.75,1,5,0.25); 
 Per =Optimize("A",10,3,30,1); 
 j=CHA;
 nm=(H-L);
 rfsctor = WMA(nm, PER);
 revers = (K *rfsctor); 
 Trend = 1; 
 NW[0] = 0; 
 for(i = 1; i < BarCount; i++) 
 { 
 if(Trend[i-1] == 1) 
 { 
 if(j[i] < NW[i-1]) 
 { 
 Trend[i] = -1; 
 NW[i] = j[i] + Revers[i]; 
 } 
 else 
 { 
 Trend[i] = 1; 
 if((j[i] - Revers[i]) > NW[i-1]) 
 { 
 NW[i] = j[i] - Revers[i]; 
 } 
 else 
 { 
 NW[i] = NW[i-1]; 
 } 
 } 
 } 
 if(Trend[i-1] == -1) 
 { 
 if(j[i] > NW[i-1]) 
 { 
 Trend[i] = 1; 
 NW[i] = j[i] - Revers[i]; 
 } 
 else 
 { 
 Trend[i] = -1; 
 if((j[i] + Revers[i]) < NW[i-1]) 
 { 
 NW[i] = j[i] + Revers[i]; 
 } 
 else 
 { 
 NW[i] = NW[i-1]; 
 } 
 } 
 } 
 } 

 Plot(NW,"",IIf(Trend ==1,6,4),4);

 Buy=Cross(j,nw);
 Short=Cross(nw,j);
 Sell=Cross(nw,j);
 Cover=Cross(j,nw);
 Buy=ExRem(Buy,Sell);
 Sell=ExRem(Sell,Buy);
 Short=ExRem(Short,Cover);
 Cover=ExRem(Cover,Short);
 Long=Flip(Buy,Sell);
 Shrt=Flip(Sell,Buy );

 dist = 1.5*ATR(15);
 Buy2show=0;
 Sell2show=0;
 for( i = 0; i < BarCount; i++ ) 
 { 
 if( Buy[i] ) 
 {
 PlotText( "Buy@" +WriteVal( L[ i],1.2), i-5, L[ i ]-Trend[i], colorWhite, colorBlue); 
 Buy2show=L[i];
 }

 if( Sell[i] )
 {
 PlotText( "Sell@" +WriteVal (H[ i ],1), i-5, L[ i ]+Trend[i], colorWhite, colorRed );
 Sell2show=H[ i ];
 }
 } 
 AlertIf(Sell,"SOUND C:\\Windows\\Media\\Ding.wav","Sell@" + WriteVal( H,1.2) ,2);
 AlertIf(Buy,"SOUND C:\\Windows\\Media\\Ding.wav","Buy@" + WriteVal( O,1.2),1);

 GfxSetBkMode(transparent=1);
 GfxSetOverlayMode(1);
 GfxSelectFont("Tahoma", Status("pxheight")/C13 );
 GfxSetTextAlign( 6 );
 GfxSetTextColor( ColorRGB (217,217,213));
 GfxTextOut( Name(), Status("pxwidth")/C14, Status("pxheight")/C15 );
 GfxSelectFont("Tahoma", Status("pxheight")/C13*0.4 );
 GfxSetTextColor( ColorRGB (103,103,103));
 GfxTextOut( "From", Status("pxwidth")/C14*1.8, Status("pxheight")/C15*10.5 );
 GfxSelectFont("Tahoma", Status("pxheight")/C13*0.45 );
 GfxSetTextColor( colorWhite);
 GfxTextOut( " NIFTYMOVER ", Status("pxwidth")/C14*1.8, Status("pxheight")/C15*11 );
 GfxSelectFont("MS Sans Serif", 10, 500, False, False, 0);

 //----------------------------------------------------------------------------------------------

 //---------------------------
 //to plot buysell price
 GfxSetOverlayMode( mode = 0 );
 GfxSelectPen( colorGreen, 2 );
 GfxSelectSolidBrush( colorBlack );
 GfxRoundRect( 5, 181,250,240, 15, 15 );
 GfxSetBkMode(1);
 GfxSelectFont( "Arial", 12, 700, False );
 GfxSetTextColor( colorPaleGreen );
 GfxSetTextAlign(0);




 bf=(H-B);
 SF=(O-L);

 GfxTextOut( WriteIf(Buy OR Long , "BUY Signal At = "+WriteVal(Buy2show,1.2),""), 10, 185);
 GfxTextOut( WriteIf(Sell OR shrt , "SELL Signal At = "+WriteVal(Sell2show,1.2),""),10, 185);


 GfxSetTextColor( colorYellow );
 GfxTextOut( WriteIf( Long AND NOT Buy, "BUY Profit = "+WriteVal(C-Buy2show,1.2 ),""),10, 205);
 GfxTextOut( WriteIf( shrt AND NOT Sell, "SELL Profit = "+WriteVal(Sell2show-C,1.2 ),""),10, 205);
 //GfxTextOut( WriteIf(Long OR shrt , "CMP = "+WriteVal(C,1.2),""),10, 215);



 //-----------------------------------------------------------------------------------------------------

 GfxSetOverlayMode( mode = 0 ); 
 GfxSelectPen( colorOrange, 2 ); 
 GfxSelectSolidBrush( colorBlack ); 
 GfxRoundRect(5,20, 250,63, 16, 20 ); 
 GfxSetBkMode(1); 
 GfxSelectFont( "Arial",12, 700, False ); 
 GfxSetTextColor( colorPaleGreen );
 GfxSetTextAlign(0);

 GfxSetTextColor( colorYellow );
 GfxTextOut(WriteIf(SellPrice, "TREND REVERSAL: "+(SellPrice),""), 8 ,25 );

 GfxSetTextColor( colorRed );
 GfxTextOut( WriteIf(nw, " Trailing SL : "+WriteVal(nw,1),""), 8, 43);
 GfxTextOut( WriteIf(Cover AND NOT Buy ," Trailing SL : "+WriteVal(nw,1 ),""),8, 43);
 GfxSetTextColor( colorGold );
 GfxTextOut( WriteIf(nw, " Trailing SL : "+WriteVal(nw,1),""), 8, 43);
 GfxTextOut( WriteIf( Short AND NOT Sell," Trailing SL : "+WriteVal(nw,1 ),""),8, 43);

 PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,HAL,-40);

 PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,HAH,-40);

 //-----------------------------------------------------------------------------

 fibs = ParamToggle("Plot Fibs","Off|On",1);
 pctH = 0.325;//Param ("Pivot Hi %", 0.325,0.001,2.0,0.002);
 HiLB = 1;//Param ("Up LookBack",1,1,BarCount-1,1);
 pctL = 0.325;//Param ("Pivot Lo %", 0.325,0.001,2.0,0.002);
 LoLB = 1;//Param ("Down LookBack",1,1,BarCount-1,1);
 Back = 1;//Param ("Extend Left = 2",1,1,500,1);
 Fwd = 0;//Param("Plot Forward", 0, 0, 500, 1);
 text = ParamToggle("Plot Text","Off|On",1);
 hts = -14;//Param ("Text Shift", -14,-50,50,0.10);
 style = ParamStyle("Line Style",styleLine,styleNoLabel);
 x =BarIndex(); 
 pRp = PeakBars( H, pctH, 1) == 0;
 yRp0 = LastValue(ValueWhen( pRp, H, HiLB));
 xRp0 = LastValue(ValueWhen( pRp, x, HiLB));
 pSp = TroughBars( L, pctL, 1) == 0;
 ySp0 = LastValue(ValueWhen( pSp, L, LoLB));
 xSp0 = LastValue(ValueWhen( pSp, x, LoLB));
 Delta = yRp0 - ySp0;

 function LFI(ret)
 {
 retval = (Delta * ret);
 LFIVal = IIf(ret < 1.0 
 AND xSp0 < xRp0, yRp0 - retval, IIf(ret < 1.0 
 AND xSp0 > xRp0, ySp0 + retval,IIf(ret > 1.0 
 AND xSp0 < xRp0, yRp0 - retval, IIf(ret > 1.0 
 AND xSp0 > xRp0, ySp0 + retval, Null)))); 
 return LFIVal;
 }


 xo=Min(xSp0,xRp0)-Back;
 x1=BarCount-1;
 //////////////////////////////////////////////////////////////////
 r236 = LFI(0.236); r236I = LastValue (r236,1);
 r382 = LFI(0.382); r382I = LastValue (r382,1);
 r050 = LFI(0.50); r050I = LastValue (r050,1);
 r618 = LFI(0.618); r618I = LastValue (r618,1);
 r786 = LFI(0.786); r786I = LastValue (r786,1);
 e127 = LFI(1.27); e127I = LastValue (e127,1);
 e162 = LFI(1.62); e162I = LastValue (e162,1);
 e200 = LFI(2.00); e200I = LastValue (e200,1);
 e262 = LFI(2.62); e262I = LastValue (e262,1);
 e424 = LFI(4.24); e424I = LastValue (e424,1);
 //////////////////////////////////////////////////////////////////
 p00 = IIf(xSp0 > xRp0,ySp0,yRp0); p00I = LastValue (p00,1);
 p100 = IIf(xSp0 < xRp0,ySp0,yRp0); p100I = LastValue (p100,1);
 color00 =IIf(xSp0 > xRp0,colorLime,colorRed);
 color100 =IIf(xSp0 < xRp0,colorLime,colorRed);
 //////////////////////////////////////////////////////////////////
 numbars = LastValue(Cum(Status("barvisible")));
 fraction= IIf(StrRight(Name(),3) == "", 3.2, 3.2);
 //////////////////////////////////////////////////////////////////

 //////////////////////////////////////////////////////////////////
 if(text==1) 
 { 
 PlotText(" 0% = " + WriteVal(p00,1), LastValue(BarIndex())-(numbars/hts), p00I + 0.05, color00);
 PlotText("23% = " + WriteVal(r236,1), LastValue(BarIndex())-(numbars/hts), r236I + 0.05, color00);
 PlotText("38% = " + WriteVal(r382,1), LastValue(BarIndex())-(numbars/hts), r382I + 0.05, color00);
 PlotText("50% = " + WriteVal(r050,1), LastValue(BarIndex())-(numbars/hts), r050I + 0.05, color00);
 PlotText("62% = " + WriteVal(r618,1), LastValue(BarIndex())-(numbars/hts), r618I + 0.05, color00);
 PlotText("78% = " + WriteVal(r786,1), LastValue(BarIndex())-(numbars/hts), r786I + 0.05, color00);
 PlotText("100% = " + WriteVal(p100,1), LastValue(BarIndex())-(numbars/hts),p100I + 0.05, color00);
 PlotText("127% = " + WriteVal(e127,1), LastValue(BarIndex())-(numbars/hts),e127I + 0.05, color00);
 PlotText("162% = " + WriteVal(e162,1), LastValue(BarIndex())-(numbars/hts),e162I + 0.05, color00);
 PlotText("200% = " + WriteVal(e200,1), LastValue(BarIndex())-(numbars/hts),e200I + 0.05, color00);
 PlotText("262% = " + WriteVal(e262,1), LastValue(BarIndex())-(numbars/hts),e262I + 0.05, color00);
 PlotText("424% = " + WriteVal(e424,1), LastValue(BarIndex())-(numbars/hts),e424I + 0.05, color00);
 }


 ////////////////////////////////////////////////////////////////////////////

 YH = TimeFrameGetPrice("H", inDaily, -1); // yesterdays high
 YL = TimeFrameGetPrice("L", inDaily, -1); // low
 YC = TimeFrameGetPrice("C", inDaily, -1); // close
 YO = TimeFrameGetPrice("O", inDaily); // current day open

 //Normal Pivot
 PP = (YH + YL + YC) / 3;
 R1 = (2 * PP) - YL;
 R2 = PP + (YH - YL);
 R3 = YH + 2*(PP-YL);
 S1 = (2 * PP) - YH;
 S2 = PP - (YH - YL);
 S3 = YL - 2*(YH - PP) ;
 // -----------------------------------------------------------------------------------
 _SECTION_END();

If you expect free help from forum members, first show some respect by reading and obeying this forum rules:

Przechwytywanie

Sorry friend i m new to this forum,

But according to your profile's summary, you have read over 200 posts, which is more than enough to notice how a properly formatted code looks like ...

Code is correct i dont know why u are getting error<Paid Afl 1.afl (18.8 KB)

Attach AFL file Plz check.

Thanks a lot for helping

If you don't know the reason for that, that means you haven't read neither this forum rules (which is obligatory !) nor my post which I have linked in my first reply - from which you could learn the reason of so many errors after improperly pasting the code.

If you don't feel like spending a few minutes to learn basic rules of this forum, don't expect anybody to spend his/her time helping you...


By the way I have already suggested, that in my opinion, a similar example to this one should be attached to the forum rules, to show all new users what are the consequences of pasting improperly formatted code and how a properly formatted code looks like:

Error%202

Dear Sir,
AFL was working, i dont know why you getting error, thats why i have uploaded AFL file, there nothing change in AFL uploaded and code pasted,

attach screen shot plz check .PAid%20AFL

Do you mean you paid for this free AFL?

Or did you just copy and past it here?

There are several free sources of your code.

This condition causes one of your problem.

Cond3 = Zig(C,z)>Ref(Zig(C,z),-4);

I don't have the possebilities to explain it but you can find more by reading the manual and learning about the Zig function. You should not use this kind of code for real time trading signals. A lot of code at Wisetrader is dangerous for beginners.