Applescript Open a Movie in FullScreen

ApplescriptQuicktimeFullScreen

-- Version: QT 7 for OSX 10.6
on run
	set unixpath to "/Volumes/Mac HD/Users/Movies/thefilm.mov"
	set macfile to (POSIX file unixpath)	
	delay 1
	tell application "QuickTime Player 7"
		activate
		delay 1
		open file macfile
		set looping of document 1 to true
		rewind document 1
		present document 1 scale screen
	end tell
end run

-- Version: QT 10 for OSX 10.7
on run
	set unixpath to "/Volumes/Mac HD/Users/Movies/thefilm.mov"
	set macfile to (POSIX file unixpath)
	delay 1
	tell application "QuickTime Player"
		activate
		delay 1
		open file macfile
		set looping of document 1 to true
		--FullScreen
		--set presenting of document 1 to true
		--GetBounds
		set the bounds of the first window to {140, 100, 1280, 720}
		try
			set the bounds of the second window to {150, 0, 1130, 775}
		end try
		play document 1
	end tell
end run