(*
$Id: play-itunes.scpt,v 1.1 2006/06/20 18:42:09 jmates Exp $

Starts iTunes playing. Assign keystroke to script for quick music playing.
*)

-- TODO use process lookup instead, so don't have to have
-- real installed, or launch it to quit it!
(*tell application "RealPlayer"
	quit
end tell*)

tell application "iTunes"
	activate
	play playlist "Party Shuffle"
end tell

tell application "System Events"
	get properties
	get every process
	
	set visible of first process whose name is "iTunes" to true
	
	if UI elements enabled then
		tell process "iTunes"
			tell menu bar 1
				pick menu item "Show Current Song" of menu "File"
			end tell
		end tell
	end if
	
end tell