Any one can help in this afl ?

//Formula Name:	Support Resistance levels
/*
Author/Uploader:	Graham Kavanagh - gkavanagh [at] e-wire.net.au
Date/Time added:	2003-05-22 22:25:51
Origin:	
Keywords:	Support Resistance
Level:	medium
Flags:	indicator
DISCLAIMER: Most formulas present in AFL on-line library are submitted by the users AND are provided here on an "as is" AND "as available" basis. AmiBroker.com makes no representations OR warranties of any kind to the contents OR the operation of material presented here. We do NOT maintain nor provide technical support for 3rd party formulas. if you believe that formula has an error - contact the AUTHOR directly, NOT us. if you believe that you have copyright on that work (i.e. you have written this particular code yourself) please send us proper DMCA takedown notice. Please note that mathematical ideas/concepts can NOT be copyrighted, only actual AFL code if you wrote it yourself.

Description:

Indicator to show support AND resistance levels based on RSI indicator reversals

Formula:
*/

//Support and resistance levels using RSI.
//graham Kavanagh May 2003
//Load into Indicator Builder
//Sensitivity of the levels can be changed with the variables
//Can test different numbers live with the Param function ctrl-R with open pane
RSIperiod	= 5;	// Param("RSI p",3,14,30,1);
Percent 		= 5;	//	Param("ZIG %",8,9,15,1);
EMAperiod 	= 5;	//Param("EMA p",4,5,10,1);
HHVperiod 	= 5;	//Param("HHV p",3,5,10,1);
NumLine 		= 2;	//Param("Num Lines",3,1,20,1);

Base = DEMA(RSI(RSIperiod),EMAperiod);

GraphXSpace=0.5;
Plot(C,"",colorBlack,styleCandle);

for( i = 1; i <= numline; i++ )
{
ResBase = LastValue(Peak(Base,Percent,i));
SupBase = LastValue(Trough(Base,Percent,i));
Plot(ValueWhen( ResBase==Base, HHV(H,HHVperiod) ), "Resist Level", colorRed,
styleLine);
Plot(ValueWhen( supbase==Base, LLV(L,HHVperiod) ), "Support Level", colorGreen,
styleLine);
}
Title = Name() + "; " + Date() + ": Support & Resistance Levels using RSI: " +
/*EncodeColor(colorGreen)+ "Support Levels are Green; "+EncodeColor(colorRed)+
"Resistance Levels are Red: "+EncodeColor(colorBlack)+*/ "Num lines
="+WriteVal(numline,1) ;

_SECTION_BEGIN("Long Short % Stop");
//---long var
Stoplong = 1 - Param("stop % Long", 7, 0.1, 20, 0.1)/100;
Plong = ParamField("Price Field Long");
Longcol= ParamColor( "Color Long Stop", colorCycle );
Buy = 1;//Change for your long signal eg Short=Cross(ma(c,10),ma(c,20));


Sell = 0;
traillongARRAY = Null;
trailstoplong = 0;

//----short var


StopLevel = 1 - Param("Stop Short %", 7, 0.1, 20, 0.1)/100;
P = ParamField("Price Field Short");
Shortcol=ParamColor( "Color Short Stop", colorCycle );
Short =1; // Change for your short signal eg Short=Cross(ma(c,20),ma(c,10));
Cover = 0;
trailARRAY = Null;
trailstop = 0;

//---calculate
for( i = 2; i < BarCount; i++ )
{
//---long
   if( trailstoplong == 0 AND Buy[ i ] ) 
   { 
      trailstoplong =Plong[ i ] * Stoplong;
   }
   else Buy[ i ] = 0; // remove excess buy signals

   if( trailstoplong > 0 AND Plong[ i ] < trailstoplong )
   {
      Sell[ i ] = 1;
      SellPrice[ i ] = trailstoplong;
      trailstoplong = 0;
   }

   if( trailstoplong > 0 )
   {   
      trailstoplong = Max( Plong[ i ] * Stoplong, trailstoplong );
      traillongARRAY[ i ] = trailstoplong;
   }


//---short


   if( trailstop == 0 AND Short[ i ] ) 
   { 
    
trailstop = P[ i ] / StopLevel;// set intinal % stop then trailing stop takes over

   }
   else Short[ i ] = 0; // remove excess short signals

   if( trailstop > 0 AND P[ i ] > trailstop )
   {
      Cover[ i ] = 1;
      CoverPrice[ i ] = trailstop;
      trailstop = 0;
   }

   if( trailstop > 0 )
   {   
      trailstop = Min(P[ i ]/ stoplevel, trailstop );
      trailARRAY[ i ] = trailstop;
   }

}

// ----display results

Plot( traillongARRAY,"Stop Long",Longcol );
Plot( trailARRAY,"Stop Short", shortcol );

//#include <colors.afl>
clSilver = ColorRGB(192,192,192);  
_SECTION_BEGIN ( "TA_Functions" );

procedure TA_ChartDisplayTheme(opt)
{
   ThisColor=Null;
	switch (opt)
	{
	   case "White background with B/W candles":
	   
	    SetChartBkColor(clSilver);
		SetChartBkGradientFill( colorwhite,colorwhite);

	    ThisColor = IIf( C>O, colorWhite, IIf(C<O, colorBlack, colorblack));
        SetBarFillColor( ThisColor ); 
		ThisColor = IIf( C>O, colorblack, IIf(C<O, colorblack, colorblack));
		
	     break;
	     
	   default:
	    SetChartBkColor(colorblack);
	    SetChartBkGradientFill( colorBlack,colorBlack);
	    ThisColor = IIf( C>O, colorBlack, IIf(C<O, colorRed, colorGrey50)); 
	    SetBarFillColor( ThisColor );  
	    ThisColor = IIf( C>O, colorLime, IIf(C<O, colorRed, colorGrey50));
	    
	     break;
	}
	
	_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
	Plot( C, "", ThisColor, styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
	
} 


_SECTION_END ();


_SECTION_BEGIN ( "Chart Display Theme" );
ChartDisplayTheme = ParamList ( "Chart Display Theme", "White background with B/W candles|Black background with R/G candles", 1 );
param_ShowSystemTitle = ParamToggle ( "Show System Title ?", "No|Yes", 1 );
TA_ChartDisplayTheme (ChartDisplayTheme);
_SECTION_END ();

These alien come from SPACE to TJ before, Drop the ACE and gone the SP.

_SECTION_BEGIN ( "TA_Functions" );
//#include <colors.afl>

procedure TA_ShowSupportResistance(NoLines,Sen, Scolor,Rcolor, Sstyle,Rstyle)
{
y=0;
x=0;

for( i = 1; i < NoLines+1 ; i++ )
{
	Y[i]=LastValue(Peak(H,Sen,i));
	x[i]=BarCount - 1 - LastValue(PeakBars(H,Sen,i));
	Line = LineArray( x[i], y[i], Null, y[i], 1 );
	Plot( IIf(SRswitch,Null,Line), "", Rcolor, Rstyle );

	Y[i]=LastValue(Trough(L,Sen,i));
	x[i]=BarCount - 1 - LastValue(TroughBars(L,Sen,i));
	Line = LineArray( x[i], y[i], Null, y[i], 1 );
	Plot( IIf(SRswitch,Null,Line), "", Scolor, Sstyle );
}

}



_SECTION_END ();