AviSynth and creeping line

[penartur]

Hello!

Does anyone know, how to make the transparent creeping line on the clip?
I doesn't find the cycles in AviSynth and the code below doesn't working: MediaPlayer runs and immediately closes...

Function addcreep(clip c, string line, int rate, mylen, int posy, int forecolor, int backcolor, int fontsize, string fontface, int currframe, int startframe) {
ct=c
ct=Subtitle(ct, line, mylen-currframe, posy, startframe+currframe, startframe+currframe+1, fontface, fontsize, forecolor, backcolor, 5,0)
ct = (currframe<mylen) ? addcreep(ct, line, rate, mylen, posy, forecolor, backcolor, fontsize,fontface, currframe+1, startframe) : ct
return ct
}
Function creepingline(clip c, string line, int rate, int pause, int posy, int forecolor, int backcolor, int fontsize, string fontface) {
ct=c
mylen=Width(ct)
cframe=1
ct=addcreep(ct,line,rate,mylen,posy,forecolor,backcolor,fontsize,fontface,1,0)
return ct
}
cb=ColorBars(640,480)
$ffff00, $000000, 5, 2)
cb=creepingline(cb,"Creeping Line",1,100,400,$ffff00,$000000,32,"Arial")
return cb

Please, forgive me my bad English...

[stickboy]

Try looking into the Animate function.