Take Screenshots with DVD Player Open

Pretty self-explanatory. A little convenient app that uses shell script to take a screenshot, regardless of whether DVD Player is open. It’s also nice for an everyday-use screenshot utility for relatively high def shots.

--Chracters that can be included in random name
set character_list to "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0987654321"
repeat
	--The string that will be filled with characters from character_list
	set random_letters to ""
	--The name will be twelve characters long, long enough that there won't be any overwrites, not too long to be cumbersome
	repeat 12 times
		--A random character is selected from character_list and concatenated into random_letters
		set random_letters to random_letters & (some item of character_list)
	end repeat
	
	tell application "Finder"
		--Checks to see if DVD Screen Thief has been run before now
		if exists folder ((path to desktop as text) & "Screens") then
			--If yes, script calls on bash to do the job
			do shell script "screencapture -i ~/Desktop/Screens/" & random_letters & ".png"
		else
			--If there is no special folder for image files, script makes one
			tell application "Finder" to make new folder at desktop with properties {name:"Screens"}
			do shell script "screencapture -i ~/Desktop/Screens/" & random_letters & ".png"
		end if
	end tell
	
	
	set fileLocation to ((path to desktop as Unicode text) & "Screens:" & random_letters & ".png")
	
	tell application "Finder"
		if exists file fileLocation then
			set choice1 to button returned of (display dialog "Picture Saved!

Your screenshot is located in 

" & (path to desktop as Unicode text) & "Screens:" buttons {"Another", "Quit", "Reveal in Finder"} default button 2 with title random_letters & ".png")
		else
			exit repeat
		end if
		if choice1 is "Reveal in Finder" then
			
			tell application "Finder"
				reveal fileLocation
				activate
			end tell
			exit repeat
			
		else if choice1 is "Quit" then
			exit repeat
		end if
		
	end tell
	
end repeat