base=Avisource("d:\yo-yo videos\webcam\tanglykeep4.avi")
aud=Wavsource("d:\yo-yo videos\webcam\temp2.wav").DelayAudio(1)
base=AudioDub(base,aud).Lanczos4Resize (320, 240)
subs=base.Subtitle("Random tangly trick...",x=-1,y=-1,font="Palatino Linotype Bold Italic",size=18)
base=fadeTitle(base, subs, 0, 30, 10)

outro=blankclip(base, length=42)
subs2=outro.Subtitle("Shawn Fumo",x=-1,y=50,font="Palatino Linotype Bold Italic",size=18)
subs2=subs2.Subtitle("Mount via Nick Gumlaw",x=-1,y=90,font="Palatino Linotype Bold Italic",size=15)
subs2=subs2.Subtitle("Catch via Fiend X",x=-1,y=110,font="Palatino Linotype Bold Italic", size=15)
subs2=subs2.Subtitle("Music: hardrave.jp",x=-1,y=150,font="Palatino Linotype Bold Italic",size=15)

outro=fadeTitle(outro, subs2, 0, 40, 10)

return dissolve(base,outro,10)

function fadeTitle(clip base, clip subs, int start, int end, int speed) {
	blank=blankclip(base, color=$ffffff)

	fade=Animate(start,start+speed,"Overlay", base,subs,0,0,blank,0.0,  base,subs,0,0,blank,1.0)
	fade=Animate(end-speed,end,"Overlay", fade,base,0,0,blank,0.0,  fade,base,0,0,blank,1.0)

	return fade
}