Ribbons

I would like to replicate this Metastock code to display a ribbon in Bullcharts. any help would be appreciated.

30 period moving average the code for the bullish signal would be:

C>Mov(C,30,W)

For the bearish signal it would be:

C<Mov(C,30,W)

[description="This ribbon reports 'Above' when the close value is above its moving average, and 'Below' when below its moving average by using Weighted method"]

[target=Ribbon; category=Moving Average]

expr := Expression("Expression",Close);

method := inputma("Method",Weighted);

n := input("Time periods",30,1);

[color=rgb(200,180,255); name=Above]

[fillstyle=small grid]

expr>MA(expr,n,method);

[color=rgb(255,200,160); name=Below]

[fillstyle=diagonal cross]

expr<MA(expr,n,method);

[color=White]