Inputs:
src(close), //"Source"
length(30, 1),
lookback(30, 0),
len1(1);   //"Base Length"
Vars:
highsma(0),lowsma(0),swing(0),mah(0),mal(0),stopp(0),sma1(0),
longcondition(false),shortcondition(false),linecolor(white);

highsma = AverageFC(high, length);
lowsma = AverageFC(low, length);
swing = iff(close > highsma[lookback], 1, iff(close < lowsma[lookback], -1, 0));
mah = highest(high, length);
mal = lowest(low, length);
stopp = iff(swing=1, mal, iff(swing=-1, mah, stopp[1]));
linecolor = iff(stopp < low, green, red);
plot1(stopp, "stop", linecolor, default, 2);
sma1 = AverageFC(src, len1);  
longcondition = sma1 crosses above stopp;
shortcondition = stopp crosses above sma1;
if longcondition then begin 
value1 = Text_New(D, T, L, "é");
Alert( "Long" ) ;
end;
if shortcondition then begin 
value2 = Text_New(D, T, H, "ê");
Alert( "Short" ) ;
end;