Category: 3rd Party Software
Link: iChat Status Automatically updates your status to reflect the song your playing in iTunes.
Posted on MacBytes.com
Approved by Mudbug
ya it does, but you have to go to system prefs and turn it on each time you want to use itOriginally posted by 1macker1
Do this program work with panther, i thought it said for 10.2 only.
could you share the script?Originally posted by ezkimo
I made an applescript that does this about 5 months ago...really a very easy thing to achieve...mine says the song, the artist and percent of song played..
could you share the script?
iPanos said:Hi there,
Sorry to bring this post on top again, after some while...
Having not too much knowledge about AppleScript, i tried to make a script doing a combination of things for iChatStatus.
The problem is that the script does not follow the entire circle, but after about 7 steps it would start a loop of the last 4 steps with no obvious reason.
It is quite long as i wanted to make its circle of about 2 minutes for 5 second intervals and i have included the proper circle as it should be at the end of the script inside (* ... *).
Hope someone could help with this, as my knowledge in applescript is very limited and empirical...
Of course everybody shall fell free to use it after it starts working...
Thanks in advance!
property currentInfo : ""
property currentLine : 0
set lineList to {¬
"some text goes here 1", ¬
"some text goes here 2", ¬
"some text goes here 3", ¬
"*******************", ¬
"--CURRENT TIME--", ¬
"some text goes here 4", ¬
"*******************", ¬
"? https://www.macrumors.com ?", ¬
"some text goes here 5", ¬
"? Join & Enjoy! ?", ¬
"*******************", ¬
"some text goes here 6", ¬
"*******************", ¬
"--EMAIL COUNT--", ¬
"--NEW EMAIL COUNT--", ¬
"--SCREENSAVER/APP INFO--", ¬
"--SAFARI INFO--", ¬
"--ITUNES INFO--", ¬
"*******************", ¬
"My number: 000000000000000", ¬
"eMail: blablabla@blablabla.com", ¬
"Check: www.blablabla.com", ¬
"*******************", ¬
"*******************", ¬
"--MORE ITUNES INFO--"}
tell application "System Events"
if (count) is greater than 0 then
(* Cycle through lines *)
if (currentLine is greater than 24) then
set currentLine to 1
else
set currentLine to currentLine + 1
end if
set currentInfo to item currentLine of my lineList
if (currentLine is equal to 5) then
set the_date to current date
set secs to time of the_date
set the_time to do shell script "date \"+%R\""
set currTime to "The time is " & the_time
set currentInfo to currTime
else if (currentLine is equal to 14) then
tell application "Mail"
set total to count of messages of every mailbox
if total = 0 then
set mailTotal to "I have no emails in my mailboxes"
else
set mailTotal to "I have " & total & " emails in my mailboxes"
"I have " & total & " mail"
end if
end tell
set currentInfo to mailTotal
else if (currentLine is equal to 15) then
tell application "Mail"
set olasta to unread count of every mailbox
set total to 0
repeat with each in olasta
set total to total + each
end repeat
if total = 0 then
set mailNew to "And I've read all my mail!"
else
set mailNew to "" & total & " of which unread..."
end if
end tell
set currentInfo to mailNew
else if (currentLine is equal to 16) then
tell application "System Events"
set appName to name of item 1 of (application processes whose frontmost is true)
if appName is "ScreenSaverEngine" then
set activeApp to "Screen Saver is on"
else
set activeApp to "I'm working with " & appName & " now ;-) ..."
end if
end tell
set currentInfo to activeApp
else if (currentLine is equal to 17) then
if ((application processes whose (name is equal to "Safari")) count) is greater than 0 then
tell application "Safari"
if (count of windows) is greater than 0 then
set Sfri to "Safari is at " & name of front window
else
set Sfri to "Safari is not curently in use"
end if
end tell
else
set Sfri to "Safari is currently Off"
end if
set currentInfo to Sfri
else if (currentLine is equal to 18) then
if ((application processes whose (name is equal to "iTunes")) count) is greater than 0 then
tell application "iTunes"
if player state is playing then
set iTunesStatus to name of current track
else if player state is paused then
set iTunesStatus to "iTunes is Paused"
else if player state is stopped then
set iTunesStatus to "iTunes is Stopped"
end if
end tell
else
set iTunesStatus to "iTunes is Off"
end if
set currentInfo to iTunesStatus
else if (currentLine is equal to 25) then
if ((application processes whose (name is equal to "iTunes")) count) is greater than 0 then
tell application "iTunes"
if player state is playing then
set the_artist to artist of current track
set the_song to name of current track
if the_artist is not missing value then
set iTunesInfo to "On iTunes: " & the_song & " - " & the_artist
else
set iTunesInfo to the_song
end if
else if player state is paused then
set iTunesInfo to "iTunes is Paused"
else if player state is stopped then
set iTunesInfo to "iTunes is Stopped"
end if
end tell
else
set iTunesInfo to "iTunes is Off"
end if
set currentInfo to iTunesInfo
end if
return currentInfo
end if
end tell
iPanos said:Hi there,
Sorry to bring this post on top again, after some while...
Having not too much knowledge about AppleScript, i tried to make a script doing a combination of things for iChatStatus.
The problem is that the script does not follow the entire circle, but after about 7 steps it would start a loop of the last 4 steps with no obvious reason.
It is quite long as i wanted to make its circle of about 2 minutes for 5 second intervals and i have included the proper circle as it should be at the end of the script inside (* ... *).
Hope someone could help with this, as my knowledge in applescript is very limited and empirical...
Of course everybody shall fell free to use it after it starts working...
Thanks in advance!