EdgeTalk

TruRan:=WMA(ATR(1),21)*2;
HiLimit:=HHV(H,21)-TruRan;
LoLimit:=LLV(L,21)+TruRan;
A:If(Sum(C>MA(C,105),5)>4 & C>Max(HiLimit,Ref(HiLimit,1)),1,If(Sum(C<MA(C,105),5)>4 & C<Min(LoLimit,Ref(loLimit,1)),-1,0)),Colorstick;


Here are the events

Long

TruRan:=WMA(ATR(1),21)*2;
HiLimit:=HHV(H,21)-TruRan;
LoLimit:=LLV(L,21)+TruRan;
A:=If(Sum(C>MA(C,105),5)>4 & C>Max(HiLimit,Ref(HiLimit,1)),1,If(Sum(C<MA(C,105),5)>4 & C<Min(LoLimit,Ref(loLimit,1)),-1,0)),Colorstick;
Event:Cross(A,.5);

Short

TruRan:=WMA(ATR(1),21)*2;
HiLimit:=HHV(H,21)-TruRan;
LoLimit:=LLV(L,21)+TruRan;
A:=If(Sum(C>MA(C,105),5)>4 & C>Max(HiLimit,Ref(HiLimit,1)),1,If(Sum(C<MA(C,105),5)>4 & C<Min(LoLimit,Ref(loLimit,1)),-1,0)),Colorstick;
Event:Cross(-.5,A);