This function allows for multiple lines of text, delimited by CRLF, to be written as subtitles. This function is intended to be parameter compatible with Subtitle, and should behave identically aside from parsing CRLF.

If there are any problems found with this script, please feel free to contact my self directly through email, JLennox [at]gmail[dt]com

Function

function SubtitleMulti(clip clip, string text, int "x", int "y", int "first_frame", 
	\ int "last_frame", string "font", int "size", int "text_color", int "halo_color", int "align", int "spc")
{
	font		= default(font, "Arial")
	text_color	= default(text_color, $FFFF00)
	halo_color	= default(halo_color, 0)
	align		= default(align, 7)
	x		= default(x, 0)
	y		= default(y, 0)
	spc		= default(spc, 0)
	first_frame	= default(first_frame, 0)
	last_frame	= default(last_frame, clip.Framecount - 1)
	size		= default(size, 24)
	curText = text
	break = FindStr(curText, Chr($0D) + Chr($0A))
	(break > 0) ? Eval("""
		curText = LeftStr(curText, break-1)
		clip = clip.SubtitleMulti(MidStr(text, break+2), x, y+size, first_frame, last_frame, font, size, text_color, halo_color, align, spc)
	""") : Eval("""
		nop()
	""")
	return clip.Subtitle(curText, x, y, first_frame, last_frame, font, size, text_color, halo_color, align, spc)
	
}

Usage

SubtitleMulti("""test
	ing
	it out""")