set the_result to display dialog ¬ "In iTunes, display the playlist you wish to scan" & return & return & ¬ "Enter a name. Tracks without lyrics will be added to a playlist with thisn name." buttons ¬ {"Cancel", "Clear & Start", "Start"} ¬ default answer "no_lyrics" default button "Start" set playlist_name to text returned of the_result tell application "iTunes" -- find playlist to store failures in, or make one try if button returned of the_result is "Clear & Start" then delete user playlist playlist_name end if set nl_playlist to playlist playlist_name on error set nl_playlist to make new user playlist ¬ with properties {name:playlist_name} end try repeat with cur_track in every track in view in 1st browser window if lyrics of cur_track is "" then duplicate cur_track to end of nl_playlist end if end repeat return nl_playlist end tell