_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetBarsRequired(sbrAll,sbrAll);
SetBarFillColor(IIf(C>O,ParamColor("Candle Up Color", colorBrightGreen),IIf(C<=O,ParamColor("Candle Down Color", colorRed),colorLightGrey)));
Plot(C,"Price",IIf(C>O,ParamColor("Shadow Up Color", colorBlack),IIf(C<=O,ParamColor("Shadow Down Color", colorBlack),colorLightGrey)),64,0,0,0,0);
SetChartBkColor(ParamColor("Panel Color ",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightgrey),ParamColor("Lower Chart",colorLavender));
GraphXSpace=Param("GraphXSpace",20,-10,25,1);



//   *****    S T mony    ********      //

_SECTION_BEGIN("S T mony");

SetChartBkColor(ParamColor("Outer panel color ",colorLightYellow));

SetChartBkColor(ParamColor("BackGround Color", colorLightGrey));

no =  Optimize("TSL",Param("A (Change To Optimise)",10, 1, 100 ,1),1, 100 ,1);

multiplier1 =  Optimize("Multiplier1",Param("B (Change To Optimise)",5, 1, 10000 ,1),1, 10000 ,1);

multiplier2 =  Optimize("Multiplier2",Param("C (Change To Optimise)",21, 1, 10000 ,1),1, 10000 ,1);

multiplier3 =  Optimize("Multiplier3",Param("D (For Zoom Scan Only)",12, 1, 10000 ,1),1, 10000 ,1);

showtsl =ParamToggle("Show SL Line","Yes|No",1);

AudioAlert = ParamToggle("Human Voice Alert", "Yes|No",1);

AlertOutput = ParamToggle("Alert Output", "Yes|No",1);

aggressivemode =ParamToggle("Aggressive Mode","No|Yes",1);

mktclose=Param("Market Close Time",152500,000000,235959,1 );

decorativeheader = ParamToggle("Decorative Header", "Yes|No",1);

FS=Param("MM Price Font Size",75,11,100,1);

Hor=Param("MM Price Horizontal Position",191,1,1200,1);

Ver=Param("MM price Vertical Position",83,1,830,1);

atsmode =ParamToggle("Basic ATS For Nest Trader","No|Yes",0);

C13=20;

C14=2.1;

C15=12;

Miny = Status("axisminy");

Maxy = Status("axismaxy");

lvb = Status("lastvisiblebar");

fvb = Status("firstvisiblebar");

pxwidth = Status("pxwidth");

pxheight = Status("pxheight");

EntrySignal = C > ( LLV( L, 20 ) + 2 * ATR( 10 ) );

ExitSignal = C < ( HHV( H, 20 ) - 2 * ATR( 10 ) );

Color = IIf( EntrySignal, colorgreen, IIf( ExitSignal, colorRed, colorLightGrey ));

Plot( C, "Price", Color, styleCandle | styleThick );


if (atsmode==0)

if (aggressivemode == 1)
{
TimeFrameSet(Interval());

dres=HHV(H,no);

dsup=LLV(L,no);

davd=IIf(H>Ref(dres,-1),1,IIf(L<Ref(dsup,-1),-1,0));

davn=ValueWhen(davd!=0,davd,1);

dtsl=IIf(davn==1,dsup,dres);

dB=H>dtsl;

dS=L<dtsl;

TimeFrameRestore();

dtsl= TimeFrameExpand(dtsl,Interval(),expandLast);

db=TimeFrameExpand(dB,Interval(),expandLast);

ds=TimeFrameExpand(dS,Interval(),expandLast);

state=IIf(BarsSince(DB)<BarsSince(DS),1,0);

col=IIf(state == 1 ,51,IIf(state ==0,3,1));

TimeFrameSet(multiplier1*Interval());

wres=HHV(H,no);

wsup=LLV(L,no);

wavd=IIf(H>Ref(wres,-1),1,IIf(L<Ref(wsup,-1),-1,0));

wavn=ValueWhen(wavd!=0,wavd,1);

wtsl=IIf(wavn==1,wsup,wres);

WB=H>WTSL;

WS=L<WTSL;

TimeFrameRestore();

wtsl=TimeFrameExpand(wtsl,multiplier1*Interval(),expandLast);

wb=TimeFrameExpand(WB,multiplier1*Interval(),expandLast);

ws=TimeFrameExpand(WS,multiplier1*Interval(),expandLast);

TimeFrameSet(multiplier2*Interval());

mres=HHV(H,no);

msup=LLV(L,no);

mavd=IIf(H>Ref(mres,-1),1,IIf(L<Ref(msup,-1),-1,0));

mavn=ValueWhen(mavd!=0,mavd,1);

mtsl=IIf(mavn==1,msup,mres);

MB=H>MTSL;//Cross(H,mtsl);

MS=L<MTSL;//Cross(mtsl,L);

TimeFrameRestore();

mtsl=TimeFrameExpand(mtsl,multiplier2*Interval(),expandLast);

mb=TimeFrameExpand(MB,multiplier2*Interval(),expandLast);

ms=TimeFrameExpand(MS,multiplier2*Interval(),expandLast);

Buy = IIf((Low > wtsl AND Low > MTSL), DB, ((WB AND Low > DTSL AND Low > MTSL) OR (MB AND Low > DTSL AND Low > WTSL)));

Short = IIf((High < WTSL AND High < MTSL), DS, (WS AND High < DTSL AND High < MTSL) OR (MS AND High < DTSL AND High < WTSL));

Buy=ExRem(Buy,Short);

Short=ExRem(Short,Buy);

BarsSincebuy = BarsSince( Buy );

BarsSinceshort = BarsSince( Short );

LastSignal = IIf( BarsSincebuy < BarsSinceshort, 1, -1 );

SellPrice=ValueWhen(Short,C,1);

BuyPrice=ValueWhen(Buy,C,1);

entry = IIf( LastSignal == 1, BuyPrice, ShortPrice );

Long=Flip(Buy,Short);

Shrt=Flip(Short,Buy);

Relax = NOT Long AND NOT Buy AND NOT shrt AND NOT Short AND NOT Short AND NOT Buy;

SellSL=ValueWhen(Short,DTSL,1);

BuySL=ValueWhen(Buy,DTSL,1);

BuyDifference= BuyPrice - BuySL;

SellDifference = SellSL - SellPrice;


if (AudioAlert==True)
{


if (SelectedValue(Buy)==1) Say("                      ");

if (SelectedValue(Short)==1) Say("                                   " );


if (atsmode==0)
{

if (SelectedValue(Short)==1) Say(" ");

if (SelectedValue(Buy)==1) Say(" ");
}
}


if (AlertOutput==True) {

AlertIf( Buy, "", "Buy Signal Generated"+Name(), 4 );

AlertIf( Short, "", "Exit Long Signal Generated"+Name(), 4 );

AlertIf( Short, "", "Short Signal Generated"+Name(), 4 );

AlertIf( Buy, "", "Exit Short Signal Generated"+Name(), 4 );
}


if (showtsl==True)
{

tsl = IIf(Buy OR Long OR Short OR Shrt AND NOT Relax, dtsl,Null);

tslcolor = IIf(Buy OR Long AND NOT Relax, colorGreen, colorRed);

Plot(tsl, "",tslcolor, styleLine|styleDots|styleThick);

}

SetChartOptions(0,chartShowArrows|chartShowDates);
  
  if (decorativeheader==1)

PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-25);

PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-35);                     

PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-30);

PlotShapes(IIf(Short, shapeSquare, shapeNone),colorRed, 0, H, Offset=25);

PlotShapes(IIf(Short, shapeSquare, shapeNone),colorOrange, 0,H, Offset=35);                     

PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-30);
    //---------------------END   S T mony--******** 
}