tell application "Finder"
	
	set cheesyMovies to files of disk "Satellite Of Love"
	--These are the worst movies that we can find. (la la la)
	
	repeat
		--Wait... how many cheesy movies do we have? Let's count the number of cheesy movies we have...
		set mysteryMovie to (random number from 1 to (count cheesyMovies) with seed (time of (current date)))
		
		--Now let's pick out a random movie from that list.
		set deepHurting to item mysteryMovie of cheesyMovies
		
		--Have we sent them this movie before? If we have, then we need to pick a different punishment. If not: on with the experiment!
		if label index of deepHurting is 0 then exit repeat
		
	end repeat
	
	--Send him the movie, Frank.
	open deepHurting using application file "VLC.app" of folder "Applications" of startup disk
	
end tell

tell application "VLC"
	
	--We've got movie sign!!!!!!
	fullscreen
	
end tell