could anyone help me code a peak and trough indicator, thank you

anyone help me create Peak and Trough indicator but base on this code that i use in my metastock trading, and when it make a new high or a new low the bar is only show in green and red colour all the way until it's end. and also an arrow signal http://www.forex-tsd.com/images/smilies/smile.gif

Trend
{ Bullish % Step Variable *trend Peak&trough for Expert Advisor Trends n Symbols = Green }
MinimumChange :=LastValue( Fml( "% Variable Step") );
FearFactor :=0.5;
DwTrendMinChange := MinimumChange * FearFactor ;
DwTrendMinChange := LastValue(If(Mov(C,5,S)>Mov(C,25,S), MinimumChange , DwTrendMinChange ));
UpTrendMinChange:= MinimumChange;

BarsSince(Cross(ValueWhen(1,Trough(1,L, DwTrendMinChange )<>Ref(Trough(1,L, DwTrendMinChange ),-1),L),C))>BarsSince(Cross(C,ValueWhen(1,Peak(1,H, UpTrendMinChange)<>Ref(Peak(1,H, UpTrendMinChange ),-1),H)));

{ Bearish % Step Variable *trend Peak&trough for Expert Advisor Trends n Symbols = Red }
MinimumChange :=LastValue( Fml( "% Variable Step") );
FearFactor :=0.5;
DwTrendMinChange := MinimumChange * FearFactor ;
DwTrendMinChange := LastValue(If(Mov(C,5,S)>Mov(C,25,S), MinimumChange , DwTrendMinChange ));
UpTrendMinChange:= MinimumChange;

BarsSince(Cross(ValueWhen(1,Trough(1,L, DwTrendMinChange )<>Ref(Trough(1,L, DwTrendMinChange ),-1),L),C))<BarsSince(Cross(C,ValueWhen(1,Peak(1,H, UpTrendMinChange )<>Ref(Peak(1,H, UpTrendMinChange ),-1),H)));

sorry with my english is not strong. you are so kind, thank you very much

example like in the picture
http://img369.imageshack.us/img369/7005/forex.jpgcould