FasdUAS 1.101.10
k
l
"Random Tracks by Artist to Party Shuffle" for iTunes
written by Damon Parker
damonp@damonparker.org
based on
"Random Tracks by Artist to Playlist" for iTunes
written by Doug Adams
dougadams@mac.com
v1.1 oct 14 2005
-- initial release
l
j 0 path_to_xml
m
/ )~/Music/iTunes/iTunes\ Music\ Library.xml
p 0
num_of_tracks 0 done_tracks 0 artist_list
l
l
O
k
l
l $ check source, gotta be iTunes !
r " #
" l $
$ e %
% n & '
& 1
pKnd
' n ( )
( 1
ctnr
) n
* +
* 1
pPly
+ 4 ,
cBrW
, m
# o 0
the_source ! - .
- Z B / 0
/ > 1 2
1 o 0
the_source
2 m
eSrckLib
0 k > 3 3 4 5
4 Q ; 6 7
6 I 2 8 9
.sysodlogaskr ****
8 b " : ;
: l <
< c = >
= b ? @
? m A A ' !Select a track in iTunes, not in
@ o 0
the_source
> m
TEXT
; m ! B B . 9 C D
btns
C J # & E E F
F m # $ G G Cancel D H I
dflt
H m ' ( I J K
disp
J m ) * K L
givu
L m + ,
7 R
.ascrerr **** **** 5 M
M L < > . N O
N l C C O P Q
P l C C R R check for selection Q S T
S Z C U V W
U = C N X Y
X n C K Z [
Z 1 G K
sele
[ 4 C G \
cBrW
\ m E F
Y J K M
V k Q ] ] ^ _
^ l Q Q ` ` 0 * get list of artists from XML, wicked fast _ a b
a n Q V c d
c I R V 0 get_artist_list
d f Q R b e f
e r W p g h
g c W l i j
i l W j k
k I W j l m
.gtqpchltTEXT @ @ TEXT
l o W Z 0 artist_list m n o
prmp
n m ] ` p p Select an Artist... o q
mlsl
q m c d
boovfals
j m j k
TEXT
h o 0 art f r
r Z q s t
s = q x u v
u o q t 0 art
v m t w w w false
t L { }
W k x x y z
y r { |
{ n } ~
} 1
pArt
~ n
4
cobj
m
n
1
sele
4
cBrW
m
| o 0 art z
l T
l
l
l proceed....
l
l
l ) # get a list of all tracks by artist
r
I
.hookSrchcTrk cPly
4
cLiP
m
pTrm
o 0 art
pAre
m
eSrAkSrR
o 0 them_tracks
l / ) filter out Artist names that aren't the
l E ? particular Artist (Don't want "Sugarcult" if it's "Sugar", eg)
r
J
o 0 found_tracks
X
Z
=
n
1
pArt
o 0 a_trk
o 0 art
r
o 0 a_trk
n
;
o 0 found_tracks 0 a_trk
o 0 them_tracks
l
l how many ya want?
r %
n !
I ! 0 get_a_number
m
b
b
b
b
b
b
b
b
m 9 3Enter the number of random tracks you want in your
o 0 art
m Playlist...
o
ret
m
(You have
l
n
1
leng
o 0 found_tracks
m
o 0 art
m tracks.)
f
o 0
num_of_tracks
l &&
l && * $ establish variable for new playlist
r &2
4 &.~
~
cPly
m *-
Party Shuffle
o } } 0 party_playlist
l 33| | = 7 set shuffle of party_playlist to false -- just in case
l 33{z{ z
l 33y y 8 2 got all tracks by selected artist in found_tracks
l 33x x 4 . num_of_tracks is the limit of tracks we want
l 33wvw v
Z 3 u
B 3>
n 3:
1 6:t
t
leng
o 36s s 0 found_tracks
o :=r r 0
num_of_tracks
l Ag
X Agq
I Wbp
p .coreclon**** ****
o WXo o
0 atr aTr nm
n
insh
o [^l l 0 party_playlist m q
0 atr aTr
o DGk k 0 found_tracks D > not enough/just enough tracks to meet criteria, so use em all u
l j
k j
r jp
J jljj
o i i 0 done_tracks
h
Q q
t t
l x
W x
n
I gf g 0 add_this_track
o e e 0 found_tracks
o d d 0 done_tracks c
o b b 0 party_playlist c f
f
= |
n |!"
! 1 a
a
leng
" o |` ` 0 done_tracks
o _ _ 0
num_of_tracks V P it's possible to run into an infinite loop if all the track names are the same!
m tw^^
R ]\[
] .ascrerr **** ****\ [
k ## $%
$ Q &'Z
& I Y()
Y .sysodlogaskr ****
( m * * Couldn't create Playlist! ) X+,
X
btns
+ J -- .W
. m / / Cancel W , V01
V
dflt
0 m UU 1 T23
T
disp
2 m SS 3 R4Q
R
givu
4 m PP Q
' R ONM
O .ascrerr **** ****N M Z % 5L
5 l KJK J L h select random tracks 67
6 l IHI H 7 89
8 l G:G : show new playlist 9 ;F
; r <=
< o E E 0 party_playlist
= n >?
> 1 D
D
pPly
? 4 C@
C
cBrW
@ m BB F
m AAnull
iTunes.app 1@ ( } ) (0lP ~hook alis 4 Root .HH+
iTunes.app $( Applications x Root:Applications:iTunes.app
i T u n e s . a p p
R o o t Applications/iTunes.app / BC
B l A@A @ C DE
D i FG
F I ?H> ? 0 add_this_track H IJ
I o = = 0 found_tracks J KL
K o < < 0 done_tracks L M;
M o : : 0 party_playlist ; >
G O 4NO
N k 3PP QR
Q l 9S9 S grab a random track R TU
T r VW
V n XY
X 3 8
8
cobj
Y o 7 7 0 found_tracks
W o 6 6 0
this_track U Z5
Z Q
3[\4
[ Z
*]^32
] H
_
_ E
`a
` o
1 1 0 done_tracks
a l b0
b n cd
c 1 /
/
pnam
d o . . 0
this_track 0
^ l &ef
e k &gg hi
h l -,- , i jk
j I +lm
+ .coreclon**** ****
l o * * 0
this_track m )n(
)
insh
n o ' ' 0 party_playlist ( k op
o r $qr
q l !s&
s n !tu
t 1 !%
%
pnam
u o $ $ 0
this_track &
r n vw
v ; " #
w o ! "# # 0 done_tracks p x"
x l % %! ! " f don't already have it 3 2
\ R
.ascrerr **** **** 4 5
O m AE yz
y l z {|
{ l | }~
} l ~
i
I 0 get_a_number
o 0 addenda
o 0 txt
k G
I
.miscactvnull null
r
n
1
ttxt
l
I
.sysodlogaskr ****
b
b
m
o 0 addenda
o
0 txt
dtxt
m
btns
J
m Cancel
m OK
dflt
m
o 0 mynumber myNumber
l
Q G
k *
l #
c #
o ! 0 mynumber myNumber
m ! "
long
L $ (
c $ '
o $ % 0 mynumber myNumber
m % &
nmbr
l ) )
R
.ascrerr **** ****
k 2 G
r 2 5
m 2 3
o 0 mynumber myNumber
n 6 G
I 7 G 0 get_a_number
b 7 B
b 7 >
m 7 : Enter only numbers...
o : =
ret
o > A
ret
o B C 0 txt
f 6 7
l
i
I 0 get_artist_list
t 9
k 8
r
b
b
b
m grep "Artist"
o 0 path_to_xml
l
m
Y S | sort -fd | uniq | sed -e 's/Artist<\/key>//g' -e 's/<\/string>//g'
l
m 0 *-e 's/&/\&/g' -e 's/ //g' | tr '
' ' '
o 0 the_command
r
I 0 text_to_list
l
I
.sysoexecTEXT TEXT
o 0 the_command
m
o 0 artist_list
Z 8
= $
n "
4 "
cobj
m !
o 0 artist_list
m " #
r ' 4
n ' 2
7 ( 2
cobj
m , .
m / 1
o ' ( 0 artist_list
o 0 artist_list
m
l
l
i
I 0 text_to_list
o 0 txt
o 0 delim
k 3
r
n
1
txdl
1
ascr
o 0 saved saveD
Q *
k
r
J
o
0 delim
n
1
txdl
1
ascr
r
n
2
citm
o 0 txt
o 0 thelist theList
R !
.ascrerr **** ****
o 0 errstr errStr! "
errn
" o 0 errnum errNum
k *## $%
$ r #&'
& o 0 saved saveD
' n ()
( 1 "
txdl
) 1
ascr% *
* R $ *+,
.ascrerr **** ****
+ o ( ) 0 errstr errStr, -
errn
- o & ' 0 errnum errNum ./
. r + 001
0 o + , 0 saved saveD
1 n 23
2 1 - /
txdl
3 1 , -
ascr/ 4
4 L 1 35
5 l 1 26
6 o 1 2 0 thelist theList 7
7 l 8
9:;<= 8 0 path_to_xml 0 add_this_track 0 get_a_number 0 get_artist_list 0 text_to_list
.aevtoappnull ****9 G>? 0 add_this_track @ @ 0 found_tracks 0 done_tracks 0 party_playlist > 0 found_tracks 0 done_tracks 0 party_playlist 0
this_track ? A
cobj
pnam
insh
.coreclon**** **** 5 1.EO ", l O,6FOPY hW X hU: AB 0 get_a_number C C 0 addenda 0 txt A 0 addenda 0 txt 0 mynumber myNumberB ~}|{zyxwvu
.miscactvnull null
dtxt
btns
~
dflt}
| .sysodlogaskr ****
{
ttxt
z
long
y
nmbrx w
v
ret u 0 get_a_number H*j O%%lvl ,EO &O&OPW X
EO)a _ %_ %l+ ; tsrDEq t 0 get_artist_list s r D p p 0 the_command E onmlkjo
n .sysoexecTEXT TEXT m 0 text_to_list l 0 artist_list
k
cobjjq :nb %%%EO*j l+ EOi/ [\[Zk\Z2EY ho< ihgFGf i 0 text_to_list h eHe H dc d 0 txt c 0 delim g F ba`_^] b 0 txt a 0 delim ` 0 saved saveD _ 0 thelist theList ^ 0 errstr errStr ] 0 errnum errNumG \[ZYIX
\
ascr
[
txdl
Z
citm Y 0 errstr errStrI WVU
W
errn V 0 errnum errNumU
X
errnf 4,EO kv,FO-EW X ,FO)lO,FO= TJSRKLQ
T .aevtoappnull ****
J k MM PP S R K ON O 0 a_trk N
0 atr aTrL =AMLKJIH AG BF GEDCBA@?>=<;: p9876 w543210/.-,+ * ) ('& %$#"! */
M
cBrW
L
pPly
K
ctnr
J
pKnd I 0
the_source
H eSrckLib
G
TEXT
F
btns
E
dflt
D
disp
C
givuB A
@ .sysodlogaskr ****? >
=
sele < 0 get_artist_list ; 0 artist_list
:
prmp
9
mlsl8
7 .gtqpchltTEXT @ @ TEXT 6 0 art
5
cobj
4
pArt
3
cLiP
2
pTrm
1
pAre
0 eSrAkSrR
/ .hookSrchcTrk cPly . 0 them_tracks - 0 found_tracks
,
kocl
+ .corecnte**** ****
*
ret
)
leng ( 0 get_a_number ' 0
num_of_tracks
&
cPly % 0 party_playlist
$
insh
# .coreclon**** **** " 0 done_tracks ! 0 add_this_track Q*k/,,,EEO + %&%kvkla W X hOhY hO*k/a ,jv 5)j+ O_ a a a fa &E` O_ a hY hY *k/a ,a k/a ,E` OPO*a k/a !_ a "a #a $E` %OjvE` &O 0_ %[a 'a l (kh a ,_ _ &6FY h[OYO)a )a *_ %a +%_ ,%a -%_ &a .,%a /%_ %a 0%l+ 1E` 2O*a 3a 4/E` 5O_ &a .,_ 2 + %_ &[a 'a l (kh a 6_ 5l 7[OYY _jvE` 8O -a 9n "h_ 8a .,_ 2 )_ &_ 8_ 5m+ :[OYoW *X a ;a