np.scpt

-- Original Copyright © 2011 Alex Sørlie
-- <http://twitter.com/techie94>


-------------------------------------------
-- textual /np script modified to check between spotify and itunes
-- also modified to take in a value (cmd) if the user wants to show/hide the song info (iTunes only)
-- (default is to hide it)
--
-- Modified By: Steven Saric 28th October 2011
-- < http://twitter.com/BoomBoxCreation >
-------------------------------------------


on textualcmd(cmd)


    set listening to "/debug You dont have any media players open you doof!"



    if application "Spotify" is running then

        tell application "Spotify"

            if player state is playing then

                set theurl to spotify url of the current track

                if theurl contains "track" then
                    set realurl to (characters 15 thru 36 of theurl) as string
                else
                    set realurl to the theurl
                end if

                set realurl to ("http://open.spotify.com/track/" & realurl)
                set artistinfo to " by " & artist of the current track
                set Albuminfo to ", from the album " & album of the current track


                if cmd is "bitrate" then

                    set listening to "/me is listening to \"" & name of the current track & "\"" & artistinfo & Albuminfo & " on Spotify. " & realurl & "[" & time of current track & "]"

                else

                    set listening to "/me is listening to \"" & name of the current track & "\"" & artistinfo & Albuminfo & " on Spotify. " & realurl

                end if





            else

                set listening to "/me is not currently playing anything in Spotify"

            end if



        end tell



    else if application "iTunes" is running then


        tell application "iTunes"
            if player state is playing then
                set listening to "/me is listening to "

                if current stream title is not missing value then
                    set listening to listening & name of current track & " streaming \""
                    set {art, nom} to my text_to_list(current stream title, " - ")
                    set listening to listening & art & " - " & nom & "\""
                else
                    set the_kind to kind of current track
                    set songsize to ((size of current track) / 1048576)
                    set songsize to (round (songsize * 100)) / 100

                    set movie_list to {"Movies", "TV Shows", "Podcasts", "iTunes U"}
                    set movie_kinds to {"MP4", "Movie", "WAV"}

                    if the_kind contains "MPEG-3 audio file" then set the_kind to "MP3"
                    if the_kind contains "MPEG-4 video file" then set the_kind to "MP4"
                    if the_kind contains "QuickTime movie file" then set the_kind to "Movie"
                    if the_kind contains "AAC" then set the_kind to "AAC"
                    if the_kind contains "WAV" then set the_kind to "WAV"
                    if the_kind contains "Apple Lossless" then set the_kind to "Apple Lossless"

                    if name of current playlist is in movie_list and the_kind is in movie_kinds then

                        set iartist to artist of current track


                        if cmd is "bitrate" then


                            if length of iartist is 0 then
                                set listening to "/me is watching " & name of current track & " [" & time of current track & " mins] [" & bit rate of current track & " kbps " & the_kind & "] [" & songsize & " MB]"
                            else
                                set listening to "/me is watching " & artist of current track & " - " & name of current track & " [" & time of current track & " mins] [" & bit rate of current track & " kbps " & the_kind & "] [" & songsize & " MB]"
                            end if



                        else

                            if length of iartist is 0 then
                                set listening to "/me is watching " & name of current track
                            else
                                set listening to "/me is watching " & artist of current track & " - " & name of current track
                            end if


                        end if

                    else


                        if cmd is "bitrate" then
                            set listening to "/me is listening to \"" & name of current track & "\" by " & artist of current track & ", from the album " & album of current track & " on iTunes. [" & time of current track & " mins] [" & bit rate of current track & " kbps " & the_kind & "] [" & songsize & " MB] [played " & played count of current track & " times]"

                        else
                            set listening to "/me is listening to \"" & name of current track & "\" by " & artist of current track & ", from the album " & album of current track & " on iTunes."

                        end if




                    end if
                end if
            else
                set listening to "/me is not currently playing anything in iTunes"
            end if
        end tell


    else

        set howToUse to "/debug  Usage: \"/np\"     ,     \"np bitrate\"
/debug If you do \"/np bitrate\" it will show the music info (iTunes only) (play count, song size, bitrate and length)"

        set listening to listening & "
" & howToUse

    end if

    return listening

end textualcmd










-- text_to_list AppleScript function from:
-- <http://dougscripts.com/itunes/itinfo/locatemf.php>
on text_to_list(txt, delim)
    set saveD to AppleScript's text item delimiters
    try
        set AppleScript's text item delimiters to {delim}
        set theList to every text item of txt
    on error errStr number errNum
        set AppleScript's text item delimiters to saveD
        error errStr number errNum
    end try
    set AppleScript's text item delimiters to saveD
    return (theList)
end text_to_list