iChat Status changer
iChat Status changer
- Subject: iChat Status changer
- From: Marcus Rodrigues <email@hidden>
- Date: Wed, 13 Aug 2003 10:43:25 -0300
Here is my iChat status changer, but I am having trouble if iTunes is
not open...
Here is the script, please tell me what should I do make it skip the
iTunes part if process iTunes is not running:
repeat
tell application "System Events"
set runningApps to (get name of every application process)
end tell
tell application "Finder"
set the percent_free to B,
(((the free space of the startup disk) / B,
(the capacity of the startup disk)) * 100) div 1
end tell
tell application "iChat"
set myStatus to "Meu HD estC! com " & percent_free & " % de espaC'o
livre ;-)" as Unicode text
set status message to myStatus
delay 10
set theTime to (get (current date) as text)
set status message to "Minha data e hora local sC#o " & theTime & ".
:D"
delay 10
-- HERE IS THE ITUNES PART, MAYBE AN ELSE STATEMENT SHOULD WORK, BUT
HOW???
if runningApps contains "iTunes" then
tell application "iTunes"
set musica to name of current track
set theGenre to genre of current track
end tell
tell application "iChat"
set myStatus to "iTunes estC! tocando " & musica & " (" & theGenre &
"). :)"
set status message to myStatus
delay 10
end tell
end if
tell application "Mail"
set uMessages to (the count of (messages whose the is read is false)
of mailbox "In" of account "Marcus")
end tell
tell application "iChat"
set myStatus to "Tenho " & uMessages & " mensagens nC#o lidas no Mail"
set status message to myStatus
end tell
delay 10
tell application "System Events"
set theApp to (get name of the first application process whose
frontmost is true)
end tell
tell application "iChat"
set myStatus to "Estou usando " & theApp & "."
set status message to myStatus
delay 10
end tell
if runningApps contains "KDX Server" then
tell application "iChat"
set myStatus to "Meu KDX Server estC! aberto em
marcusrodrigues.kicks-ass.net :D"
set status message to myStatus
delay 10
end tell
else
tell application "iChat"
set myStatus to "Meu KDX Server nC#o estC! aberto :("
set status message to myStatus
delay 10
end tell
end if
end tell
tell application "iChat"
set myStatus to "Info providenciada pelo Apple Script do Marcus :P"
set status message to myStatus
delay 10
end tell
end repeat
Minha situaC'C#o atual no iChat:
b" Meu Status do iChat C) Away.
b" Minha mensagem de Status C) Working....
b" Meu tempo longe do aibuque C) 0 segundos.
Status do iChat conseguido via AppleScript
o#? Marcus Rodrigues o#?
iBook 600 - Combo - Jaguar
CC4nsul do Brasil Apple Clube - Caxias do Sul
Moderador BAC-Macusers
ichat: marcusrodrigues
mailto:email@hidden
http://homepage.mac.com/marcusrodrigues
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.