This AFL made by REGAN .. If Any one Need This Afl He/She collect from Where ...

///This AFL made by REGAN
////facebook.com/groups/REGANsSCHOOL

////Please Do not Copy this AFL




_SECTION_BEGIN("Background");
    SetChartOptions(0,chartShowArrows|chartShowDates);
    SetChartBkColor(ParamColor("Outer panel",colorBlack )); // color of outer border
    left=SetChartBkGradientFill( ParamColor("Inner panel upper",colorBlack),
    left=ParamColor("Inner panel lower",colorBlack ),
    ParamColor("Title",colorBlack));
GfxSetBkMode(1);GfxSelectPen( colorBlack, 1 );

_SECTION_END();

//////////////////////FN DATA  FNDATA
FaceValue=GetFnData("BookValuePerShare"); //face value
Category = GetFnData("QtrlyRevenueGrowth"); //Share Category
switch (Category) {
    case 1 :
        Category="A";
        break;
    case 2:
        Category="B";
        break;
    case 3:
        Category="N";
        break;
    case 4:
        Category="Z";
        break;
    }
Lot=GetFnData("sharesshortprevmonth"); // Market Lot
TotalShares=GetFnData("SharesOut");TotalSharescore=TotalShares/10000000;x=1;y=140;r=13;
PE1=GetFnData("PEGRatio"); // PE Basic //   P/E 1*= Based on latest Interim Financials Basic-EPS (Continuing Operations)
AuthorizedCapital=GetFnData("ForwardDividendPerShare"); ///Authorized Capital
PaidCap=GetFnData("ReturnOnAssets"); //// Paid Up Capital
ListingYear=GetFnData("BETA"); //// Listing Year

Director=GetFnData("INSIDERHOLDPERCENT"); //Director Holdings
Govt = GetFnData("SharesShort"); //Government Holdings
Institute= GetFnData("InstitutionHoldPercent");
Foriegn = GetFnData("OperatingCashFlow"); //Foriegn Holdings
Public=GetFnData("sharesfloat"); //Publice Shares
LastAGM=GetFnData("DividendPayDate");
YearEND=GetFnData("OperatingMargin");
Reserve=GetFnData("sharesfloat"); //Publice Shares

Update=DateTimeToStr(GetFnData("ExDividendDate")); // Last AGM Date


Nav=GetFnData("OneYearTargetPrice");
EPS=GetFnData("EPS");/// EPS
LatestEPS=GetFnData("ForwardEPS");/// EPS
PE5=GetFnData("EPSEstCurrentYear");
YH=(HHV(C,265));
YL=(LLV(C,265));

LYH=(HHV(C,999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999));
LYL=(LLV(C,99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999));

PEL=C/LatestEPS;
PEl20=SelectedValue( PEL<20);
PEl35=SelectedValue( PEL>20 AND PEL<35);
PELColor=IIf(PEl20,colorBrightGreen,IIf(PEl35,colorGreen, colorRed));

_SECTION_END();
GfxSelectSolidBrush(ColorRGB(7,7,7));GfxRoundRect(x,y-(r*1),x+220,y+(r*27.5),5,5);

//GfxSelectFont("arial",14, 400 ); GfxSetTextColor (colorDarkYellow);
//GfxTextOut("PE", x , y+(r*20) );GfxTextOut("" +WriteVal(PE1,1.2)+"", x+150 , y+(r*20) );

GfxSelectFont("arial", 9, 750 ); GfxSetTextColor (colorDarkYellow);
GfxSelectSolidBrush(colorDarkBlue);GfxRoundRect(x,y-(r*3),x+220,y-(r*2),5,5);GfxTextOut("AFL Made By        R E G A N",x+20,y-(r*3) );

GfxSelectSolidBrush(colorBlue);GfxRoundRect(x,y-(r*1),x+220,y,5,5);GfxTextOut("SHARES",x+20,y-(r*1) );
GfxTextOut("TotalShare", x , y );GfxTextOut("" +WriteVal(TotalSharescore,1.2)+"", x+150 , y );
GfxTextOut("Director", x , y+r );GfxTextOut("" +WriteVal(Director,1.2)+" %", x+150 , y+r );
GfxTextOut("Public", x , y+(r*2) );GfxTextOut("" +WriteVal(Public,1.2)+" %", x+150 , y+(r*2) );
GfxTextOut("Institute", x , y+(r*3) );GfxTextOut("" +WriteVal(Institute,1.2)+" %", x+150 , y+(r*3) );
GfxTextOut("Govt ", x , y+(r*4) );GfxTextOut("" +WriteVal(Govt ,1.2)+" %", x+150 , y+(r*4) );
GfxTextOut("Foriegn ", x , y+(r*5) );GfxTextOut("" +WriteVal(Foriegn ,1.2)+" %", x+150 , y+(r*5) );

GfxSelectSolidBrush(colorBlue);GfxRoundRect(x , y+(r*7),x+220, y+(r*8),5,5);GfxTextOut("INFO",x+20, y+(r*7) );
 GfxSetTextColor (colorBlueGrey);
GfxTextOut("Lot", x , y+(r*8) );GfxTextOut("" +WriteVal(Lot,1.0)+"", x+150 , y+(r*8) );
GfxTextOut("FaceValue", x , y+(r*9) );GfxTextOut("" +WriteVal(FaceValue,1.0)+"", x+150 , y+(r*9) );
GfxTextOut("Category ", x , y+(r*10) );GfxTextOut(""+Category, x+150 , y+(r*10) );
GfxTextOut("ListingYear", x , y+(r*11) );GfxTextOut(""+ListingYear, x+150 , y+(r*11) );
GfxTextOut("YearEND", x , y+(r*12) );GfxTextOut(""+YearEND, x+150 , y+(r*12) );
//GfxSelectSolidBrush(colorBlue);GfxRoundRect(x , y+(r*14),x+220, y+(r*15),5,5);GfxTextOut("CAP",x+20, y+(r*14) );
GfxTextOut("Authorized Capital", x , y+(r*13) );GfxTextOut(""+AuthorizedCapital/10, x+150 , y+(r*13) );
GfxTextOut("PaidCap Capital", x , y+(r*14) );GfxTextOut(""+PaidCap/10, x+150 , y+(r*14) );
GfxTextOut("Reserve", x , y+(r*15) );GfxTextOut(""+Reserve, x+150 , y+(r*15) );
GfxTextOut("UPDATE", x , y+(r*16) );GfxTextOut(""+Update, x+150 , y+(r*16) );

GfxSelectSolidBrush(colorBlue);GfxRoundRect(x , y+(r*17),x+220, y+(r*18),5,5);GfxTextOut("HIGH-LOW",x+20, y+(r*17) );
GfxTextOut("Year High", x , y+(r*18) );GfxTextOut(""+WriteVal(YH,1.2), x+150 , y+(r*18) );
GfxTextOut("Life High", x , y+(r*19) );GfxTextOut(""+WriteVal(LYH,1.2), x+150 , y+(r*19) );

GfxTextOut("Year Low", x , y+(r*20) );GfxTextOut(""+WriteVal(YL,1.2), x+150 , y+(r*20) );
GfxTextOut("Life Low", x , y+(r*21) );GfxTextOut(""+WriteVal(YL,1.2), x+150 , y+(r*21) );

PEA=Close/EPS;

GfxSelectSolidBrush(colorBlue);GfxRoundRect(x , y+(r*22),x+220, y+(r*23),5,5);GfxTextOut("EPS/PE",x+20, y+(r*22) );
GfxTextOut("Latest EPS", x , y+(r*23) );GfxTextOut(""+WriteVal(LatestEPS,1.2), x+150 , y+(r*23) );
GfxTextOut("Last YearEnd EPS", x , y+(r*24) );GfxTextOut(""+WriteVal(EPS,1.2), x+150 , y+(r*24) );
GfxSetTextColor(PELColor);GfxTextOut("Latest PE", x , y+(r*25) );GfxTextOut(""+WriteVal(PEL,1.2), x+150 , y+(r*25) );
GfxSetTextColor(colorBlueGrey);GfxTextOut("YearEnd PE", x , y+(r*26) );GfxTextOut(""+WriteVal(PEA,1.2), x+150 , y+(r*26) );







_SECTION_BEGIN("REGAN" );
pricechange=(C-Ref(C,-1))*100/Ref(C,-1);
changeponit=C-Ref(C,-1);

Title =EncodeColor(colorWhite)+  Title = Name () + " |  REGAN | " +EncodeColor(colorYellow) + Date() + " | "
+"\n"+EncodeColor(colorOrange) +"Open      = " + EncodeColor(colorWhite) + O +
"\n"+EncodeColor(colorOrange) +"High       = " + EncodeColor(5) + H +
"\n"+EncodeColor(colorOrange) +"Low        = " + EncodeColor(colorRed) + L 
+"\n"+WriteIf( Ref(C,-1)<C ,
EncodeColor(colorGreen)+"Close     ="
+" "+C
+"  "+"(%)"
+"  "+WriteVal( pricechange,1.2)+"%"
+"  "+"(Tk.)"
+"  "+changeponit,

EncodeColor(colorRed)+"Close     ="
+" "+C
+"  "+"(%)"
+"  "+WriteVal( pricechange,1.2)+" %"
+"  "+"(Tk.)"
+"  "+changeponit)

+"\n"+EncodeColor(colorYellow)+ "Volume  ="
+EncodeColor(colorBlack)+"."
+EncodeColor(colorBrightGreen) +WriteVal( V, 1.0 )
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"
+"\n"+EncodeColor(colorWhite)+ NoteGet ("");

GfxSetBkMode(1);


Barfillcolor=IIf( C > O, ParamColor("Up Color", colorGreen ), ParamColor("Down Color", colorRed ));
SetBarFillColor(Barfillcolor);
Plot (Close,"", IIf( C > O, ParamColor("Up Color", colorGreen ), ParamColor("Down Color", colorRed )),ParamStyle( "Style", styleCandle , maskAll));


_SECTION_BEGIN("Bollinger Bands");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 100, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorBlack );
Style = ParamStyle("Style");
Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), colorBlack , styleThick|styleNoTitle );
Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), colorBlack , styleThick|styleNoTitle  );
BBT=BBandTop(C,Periods,Width );
BBB=BBandBot(C,Periods,Width );

MA20=(MA(Close,20));

PlotOHLC( BBT,BBT,MA20,MA20, "",ColorRGB(15,15,15) , styleCloud|styleNoLabel|styleNoTitle  );
PlotOHLC( MA20,MA20,BBB,BBB, "",ColorRGB(30,30,30), styleCloud|styleNoLabel |styleNoTitle );
_SECTION_END();









_SECTION_BEGIN("The Fighter4 Logo");
GfxSetBkMode(1);
X=500;
Y=1;
Font=10;

GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorRed);GfxTextOut("REGAN's",x,y);
GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorGreen);GfxTextOut("SCHOOL",x+100,Y);
GfxSelectFont("Arial Narrow",Font*1, 450);GfxSetTextColor(colorDarkYellow);GfxTextOut("facebook.com/groups/REGANsSCHOOL",x,y+35);

_SECTION_END();