iChat Status Changer
iChat Status Changer
- Subject: iChat Status Changer
- From: Marcus Rodrigues <email@hidden>
- Date: Wed, 13 Aug 2003 14:01:20 -0300
As I was waiting for answers, I kept trying, and fixed my script ;-)
Here is what I did:
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
if runningApps contains "iTunes" then
tell application "iTunes"
if player state is playing then
set musica to name of current track
set theGenre to genre of current track
set tocando to "iTunes estC! tocando " & musica & " (" & theGenre &
"). :)"
else
set tocando to "iTunes estC! Desligado"
end if
end tell
tell application "iChat"
set myStatus to tocando
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) Info providenciada pelo Apple Script do
Marcus :P.
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.