-- 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