***

[Target=Price; category=Stop Loss];

{Define the date of the trend}
TDate:=InputDate("Date of trend", date(2020,01,01));

{Define the stop-loss retracement percentages}
Value1:=input("Retracement Bullish %",0.6,0);
Value2:=input("Retracement Bearish %",0.9,0);

{Defines the variables for exponential moving average and index filter}
expr := Expression("Expression",Close);
method := inputma("Method",Exponential);
n := input("Time periods",10,1);
symb := inputsymbol("Compare to", "XAO");

P:=LoadSymbol(symb,expr);

{Evaluate Bullish sentiment}
[color=Lime Green; name=Bullish]
SignalAbove:=ref(P,1)>ref(MA(P,n,method),1);
{SignalAbove;}

{Evaluate Bearish sentiment}{possibly redundant section?}
[color=Red; name=Bearish]
SignalBelow:=ref(P,1)<ref(MA(P,n,method),1);
{SignalBelow;}

HoldingDays:=BarsSince(OnOrSkipped(TDate));

{Determines the highest prominent high over the last 52 weeks}

{NOTE:>>>>> I want to link the number of bars to the HoldingDays variable, not 52 weeks}
[color=Blue; linestyle=Dotted ; name=Highest Prominent High]
Stop:=HighestSince(1, (lastvalue(barnumber) - barnumber = 52) ,H);

{could this be replaced with HoldingDays variable?}
Stop;

[color=Red; linestyle=Horz step; name=Retracement % Stop]
ValueB := If(Stop>PREV(undefined) AND ref(P,1)>ref(MA(P,n,method),1),Stop*Value1,Stop*Value2);

{If(Stop<=PREV(undefined),PREV(undefined),Stop*Holdingdays));NOTE:>>>>> I haven't figured out what to do with the rest of this nested IF statement as it was inherited from a previous Bullscript file, possibly redundant now!}

If(ValueB = 0, undefined, ValueB);