VimMovie - now with subtitles! :-D

function! StartPlayer()
  let s:prevh = &previewheight
  set previewheight=3
  pedit subtitles.txt
endfunction

function! StopPlayer()
  pclose
  let &previewheight=s:prevh
endfunction

function! Play()
  call StartPlayer()
  let commands = []
  redir => commandstr
  function Do
  redir END
  let commands = split(commandstr, '\n')[1:-2]
  for c in commands
    let cmd = substitute(c, '^\s*\d\+\s*', '', '')
    call writefile([cmd], 'subtitles.txt')
    pedit! subtitles.txt
    exe cmd
    redraw!
    sleep 1
  endfor
  call StopPlayer()
endfunction

function! Do()
  normal G
  call setline('.', 'one two three four five')
  call setline('.', split(getline('.'), '\s\+', '\n'))
  exe "normal \<c-v>$G"
  normal y
  normal P
endfunction

call Play()