Dim info As String = "скрипт запоминает состояние набора титров и может их востанавливать
Разработчик: Дудин Дмитрий. Vizart co.     Версия 0.1 (22 августа 2011)"

sub OnInitParameters()
	RegisterInfoText(info)
	RegisterParameterString("bufferName", "Имя буфера", "", 30, 100, "")
	RegisterParameterString("bufferList", "Список титров для буфера", "", 50, 100, "")
end sub

Dim s, name As String
Dim arr_titrs As Array[String]
Dim arr_states As Array[Integer]
sub OnInit()
	s = GetParameterString("bufferList")
	s.trim()
	s.split(",",arr_titrs)
	for i = 0 to arr_titrs.UBound
		arr_titrs[i].trim()
	next

	name = GetParameterString("bufferName")
	System.Map.RegisterChangedCallback(name & "_store")
	System.Map.RegisterChangedCallback(name & "_restore")
end sub
sub OnParameterChanged(parameterName As String)
	OnInit()
end sub

sub OnSharedMemoryVariableDeleted(map As SharedMemory, mapKey As String)
	If mapKey == name & "_store" Then
		arr_states.clear()
		for i = 0 to arr_titrs.UBound
			arr_states.Push(CInt(System.Map[arr_titrs[i] & "_control"]))
		next
	ElseIf mapKey == name & "_restore" Then
		for i = 0 to arr_titrs.UBound
			System.Map[arr_titrs[i] & "_control"] = arr_states[i]
		next
	End If
end sub