[BedaZzle]

В переводе несколько выделенных субтитров объединяются в один, оставшиеся субтитры смещаются вверх.

// Join and Delete subtitles (only from translation). Original by Bedazzle.
// Edited by anonymous.
// Deletes selected translations and shifts remainder up.

program JoinAndDeleteSubs;

// -----------------------------------------------------------------------------

var
 n: Integer;
 i: Integer;
 j: Integer;
 txt1: string;
 txt2: string;
 displacement : Integer;

 lasttrans : String;
 work : boolean;

begin
 if not IsTranslatedloaded then
	exit;

 n := GetSubtitleCount-1;

 displacement := 0;
 for i := 0 to n do
	if (IsSubtitleSelected(i)=true) then
	   begin
		  if i<>n then
		  begin
		 txt1 := GetSubtitleTrans(i);
		 txt2 := GetSubtitleTrans(i+1);
			 txt1 := txt1 + ''#13''#10 + txt2;
			 SetSubtitleTrans(i+1, txt1);
		  end;

		  for j := i-displacement to n-1 do
			 SetSubtitleTrans( j, GetSubtitleTrans(j+1) );

		  SetSubtitleTrans(n, '- Untranslated subtitle -');
		  i := i+1;
		  displacement := displacement + 1;
	   end;
end.