Seniros plz help this afl to run

//-------------------------------------------------------------------------
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=funBS_ML(funBS_D((funBS_MI(C,funBS_M1(C,T))),funBS_M1(C,T)),100);
Graph0=BHSda;
Graph0Style=2+4;
Graph0BarColor=IIf(BHSda>0,5,4);
GraphXSpace=5;

SetChartOptions(0,chartShowArrows|chartShowDates);
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
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 = funBS_E2(funBS_MX(funBS_MI( C , funBS_R5 (C, -1 )), 0 ), BHEXPerc );
BSAC = funBS_E2( funBS_MX( funBS_R5( C, -1 ) - C, 0 ), BHEXPerc );
x1=funBS_ML((BHSMPPer-1),funBS_MI(funBS_D(( funBS_ML(BSAC ,Value1 )),(100-Value1)), BSAU));
BSR1 = IIf( x1 >= 0, C + x1, C + x1 * (100-Value1)/Value1 );
x2=funBS_ML((BHSMPPer-1),funBS_MI(funBS_D(( funBS_ML(BSAC ,Value2 )),(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 = funBS_C3(funBS_M2(r1,r2),funBS_S1(r1,r2,r3));
Cond3 = funBS_N(C,z)>funBS_R5(funBS_N(C,z),-4);
Buy = Cond1 AND Cond3;

Cond4 = funBS_C3(funBS_S1(r1,r2,r3),funBS_M2(r1,r2));
Cond6 = funBS_N(C,z)<funBS_R5(funBS_N(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(V, "Volume",1,BSFG, BSG, 100);
AddColumn(funBS_R5(V,-1),"P-Vol",1,BSFG, BSG, 100);
AddColumn(funBS_D(V,funBS_ML(funBS_R5(V,-1),100)),"Increase in Vol",1,BSFG, BSG, 100);



shape= funBS_P(funBS_ML(Buy,shapeHollowUpTriangle ),funBS_ML(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 =funBS_ML( High , BSFH_Rg);
BSFH_Mrk = funBS_B(BSFH_Rg>0);
Num_Bars = 36000 / Interval(1);


TimeFrameSet(inDaily);
TOP_ = Open;
PDH_ = funBS_R5(High,-1);
PDL_ = funBS_R5(Low,-1);
PDO_ = funBS_R5(Open,-1);
PDC_ = funBS_R5(Close,-1);
PDM_ = funBS_D(funBS_P(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 = funBS_R5(funBS_H1(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=funBS_ML((PDH-PDL),0.433);
FC2=funBS_ML((PDH-PDL),0.7666);
FC3=funBS_ML((PDH-PDL),1.355);
FC4=funBS_MI(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=funBS_P(funBS_P(B,Cl),A);

//f
HaC =funBS_D((funBS_P(funBS_P(funBS_P(L,C),H),O)),4);
HaO = funBS_AM( funBS_R5( HaC, -1 ), 0.5 );
HaH = funBS_MX( H, funBS_MX( HaC, HaO) );
HaL = funBS_MN( L, funBS_MN( HaC, HaO) );
BG3 = funBS_H1(funBS_L1(HaL,4)+funBS_A1(4),8);
BR3= funBS_L1(funBS_H1(HaH ,4)-funBS_A1(4),8);
co = IIf(Hac>BG3 ,colorBlue,IIf(Hac < BR3,colorRed,colorGrey50));


BuyPrice=funBS_P(DayL,AF);
BSByTP1=funBS_P(BuyPrice,funBS_ML(BuyPrice,funBS_D(BSPerTkProf,100)));
BSByTP2=(C>=BSByTP1);
SellPrice=funBS_MI(DayH,AF);
BSSlTP1=funBS_MI(SellPrice,(SellPrice*funBS_D(BSPerTkProf,100)));
BSSlTP2=(C<=BSSlTP1);
BSPrCh=funBS_ML(funBS_D(funBS_MI(C,TOP),TOP),100);
Vol=(V>=Volmin AND V<=Volmax);
Percentage=(BSPrCh>=BSPeChMi AND BSPrCh<=BSPeChMa);
prc=(C>=priceRL AND C<=priceRH);
BuyStop1=funBS_MI(BuyPrice,funBS_ML(BuyPrice,funBS_D(BSPerStLos,100)));
BuyStop2=IIf((BuyStop1<=SellPrice) AND SellPrice<=BuyPrice,SellPrice,BuyStop1);
SellStop1=funBS_P(SellPrice,funBS_ML(SellPrice,funBS_D(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 = funBS_B(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)+ "THE MARINE 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= funBS_D((funBS_P(funBS_P(funBS_P(L,C),H),O)),4);
OHA = funBS_AM( funBS_R5( CHA,-2 ), 0.5 );
HAH = funBS_MX( H, funBS_MX( CHA,OHA ) );
HAL = funBS_MN( L, funBS_MN( CHA,OHA ) );
BG2= funBS_H1(funBS_P(funBS_L1(Low,4),funBS_A1(4)),8);
BR2= funBS_L1(funBS_MI(funBS_H1(High,4),funBS_A1(4)),8);
k = Optimize("K",1.75,1,5,0.25);
Per =Optimize("A",10,3,30,1);
j=CHA;
nm=funBS_MI(H,L);
rfsctor = funBS_WA(nm, PER);
revers = funBS_ML(K ,rfsctor);
Trend = 1;
NW[0] = 0;

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

Buy=funBS_C3(j,nw);
Short=funBS_C3(nw,j);
Sell=funBS_C3(nw,j);
Cover=funBS_C3(j,nw);
Buy=funBS_EN(Buy,Sell);
Sell=funBS_EN(Sell,Buy);
Short=funBS_EN(Short,Cover);
Cover=funBS_EN(Cover,Short);
Long=funBS_FL(Buy,Sell);
Shrt=funBS_FL(Sell,Buy );

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

if( Sell )
{
PlotText( "Sell@" +WriteVal (H[ i ],1), i-5, L[ i ]+Trend, 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( " THE MARINE ", 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=funBS_MI(H,B);
SF=funBS_MI(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 = funBS_ML(Delta , ret);
LFIval= funBS_F(retval ,ret,1,xSp0,xRp0,yRp0 ,ySp0);
}



xo=funBS_MI(funBS_MN(xSp0,xRp0),Back);
x1=funBS_MI(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(funBS_C(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) ;
// ---------------------------------------------------------------------

Deposit of 1 lac in my account i will give u really working afl .
.
.
.
.
.
.
.
.
.

Just joking !!!!!!!

This afl needs some dll's or plugins which r paid one. so forget it.

Post afl picture try to de-code

HULK

here u can see picture
http://www.traderji.com/amibroker/58760-new-bhs-systems-buy-sell-nifty.html

I THINK SO

Hi Hulk,

I need some help regarding one afl of dhiraj 2625 ... i am unable to PM you...


Paresh