1264b83cf0
git-svn-id: http://svn.berlios.de/svnroot/repos/oolite-linux/trunk@289 127b21dd-08f5-0310-b4b7-95ae10353056
13 lines
368 B
AppleScript
Executable File
13 lines
368 B
AppleScript
Executable File
tell application "iTunes"
|
|
if playlist "Oolite-Inflight" exists then
|
|
play playlist "Oolite-Inflight"
|
|
else
|
|
set newalias to location of some track of playlist 1
|
|
set newlist to make new playlist
|
|
set name of newlist to "Oolite-Inflight"
|
|
set song repeat of newlist to all
|
|
set shuffle of newlist to true
|
|
add newalias to newlist
|
|
play newlist
|
|
end if
|
|
end tell |