Voice recognition

Hi I have been working the elements of a script to allow me to convert some movie files into text so that i can paste them as subtitles.

Part 1

convert .mov to .aif

on adding folder items to thisfolder after receiving addedItems
	tell application "QuickTime Player"
		close every window
		if QuickTime Pro installed is false then ¬
			display dialog "This script requires QuickTime Pro." buttons {"Cancel"} default button 1 with icon stop
		repeat with thisitem in addedItems
				open thisitem
				if (can export (front movie) as AIFF) is true then
					export front movie to desktop as AIFF using most recent settings
					display dialog "QuickTime Player can't export "" & (thisitem as Unicode text) & ""." buttons {"OK"} default button 1 with icon caution
				end if
			on error errorMsg number errorNum
				display dialog "Error (" & errorNum & "):" & return & return & errorMsg buttons {"OK"} default button 1 with icon caution
			end try
		end repeat
		quit application "QuickTime Player"
	end tell
end adding folder items to

part 2
open ilisten
do speech recognition

(looks this bit will be a nasty case of keystrokes)

tell application "iListen"
	Set myOriginalRecogMode to get recognition mode
    set recognition mode to Transcribe mode
    --... do something interesting
    set recognition mode to myOriginalRecogMode
    --saves the current recognition mode, sets the recognition mode to Transcribe Speech From File mode. The last step restores the original mode.
	-- trnascribe the file by clicking on the transcribe button
	-- wait until transcribe is done
    set myOriginalMicMode to get microphone mode
    set microphone mode to inactive
    end tell

part 3

paste text into a new textedit file

This is as far as I got before my wife asked me about the validity of my research programme and why I was shouting at the computer!

Thanks drPETE