Ero stufo di avere sempre un medesimo messaggio di "status" in iChat, quindi, mi son fatto un piccolo script per variarlo periodicamente. Ho scelto delle frasi simpatiche che variano ogni 10". Siccome sono da leggere consecutivamente per comprendere il discorso, il programma appena parte decide da dove partire e poi le mostra in sequenza.
Come usarlo
Occorre fare partire ScriptEditor (non cercarlo se sei su un PC; esiste solo per Mac, c'è su tutti i Mac. Ma tanto, su PC non avresti iChat, quindi...), poi, copia il codice qui sotto e incollarlo in un nuovo script.
Vanno inserite le frasi nella parte che inizia con:
on inizializeStatusList()
Questa è una funzione che contiene vari comandi. Scrivi la prima frase dove trovi
set StatusList to "MY FIRST STATUS MESSAGE" & return
Inseriscila al posto di MY FIRST STATUS MESSAGE.
Ricorda che ogni frase deve essere compresa tra virgolette!
Per mettere altre frasi, copia e incolla più volte la parte
set StatusList to StatusList & "THE SECOND AND ALL THE REMAINING MESSGES WILL LOOK THIS WAY" & return
Solo l'ultima frase andrà scritta dove trovi
set StatusList to StatusList & "MY LAST STATUS MESSAGE HERE"
A questo punto, registra lo script come programma ricordando di scegliere, come formato documento, "Applicazione" e di contrassegnare la casella "Non uscire".
Quando lo farai partire, se hai fatto tutto correttamente, vedrai cambiare il messaggio di status di iChat ogni 10".
Buon divertimento! :-)
|
|
I was tired to see always a static status message in iChat, then, I wrote a script to change it periodically. I chose funny sentences that changes every 10". As they should be read in the proper order to understand some of them, as soon as the program starts, it choose where to start, then it shows the sentences in the order they are written.
How to use it
Start ScriptEditor (don't look for it if you are ona a PC; ScriptEditor is for Mac only, for every Mac. Anyway, on PC there's not iChat, then...), and then copy the code below in a new script window.
Your sentences must be written in the area that starts with:
on inizializeStatusList()
Write the first sentence where you read
set StatusList to "MY FIRST STATUS MESSAGE" & return
Write it instead of MY FIRST STATUS MESSAGE.
REMEMBER: every sentence must be within duoble quotes (")!
To add more sentences, copy and paste several time the part
set StatusList to StatusList & "THE SECOND AND ALL THE REMAINING MESSGES WILL LOOK THIS WAY" & return
The last sentence must be placed where you read
set StatusList to StatusList & "MY LAST STATUS MESSAGE HERE"
Now, save the script as "Application"anc check the checkbox "Stay open".
When you will start the program, if you did everything correctly, you will see your status message in iChat changing every 10"
Enjoy! :-)
|
on run -- this is called opening the program
global StatusList, NextStatusParagraph, NumberOfLines
-- created 3 global variables
set StatusList to ""
-- StatusList will contain the list of the status messages
set NextStatusParagraph to ""
-- To keep track of the next status message to display
set NumberOfLines to ""
-- the total number of paragraps in the list (StatusList)
end run
on idle
global StatusList, NextStatusParagraph, NumberOfLines
-- I recall the same global variables
if StatusList = "" then
-- if StatusList is empty, this mean I must create the list.
inizializeStatusList()
-- inizializeStatusList puts all of the status messages
-- inside the global variable called "StatusList"
set NumberOfLines to count paragraphs in StatusList
-- When I created the list of the status messages, I count the lins in it.
-- This is useful to be able to add/remove status messages
-- from the list without changing this part of code
set NextStatusParagraph to random number from 1 to NumberOfLines
-- Now, I must define wich one will be the first status message to show
end if
tell application "iChat"
-- The commands to change the status message must be sent to iChat
set status message to paragraph (NextStatusParagraph) of StatusList
-- the status shown is the one in the paragraph whose number is contained in "NextStatusParagraph"
if NextStatusParagraph ≥ NumberOfLines then
-- if I shown the last status (the last paragraph)
-- the counter indicate a number greater than the
-- number of paragraph in the list then...
set NextStatusParagraph to 1
-- I start from back from the first status message
else
set NextStatusParagraph to NextStatusParagraph + 1
-- otherwise, I set to show the message in the next paragraph
end if
end tell
return 10
-- after 10 econds, I change the message again so I set the delay to "10"
end idle
on inizializeStatusList()
-- here I create the list of all of my status messages
global StatusList
-- First of all, I recall the global variable "StatusList"
set StatusList to "MY FIRST STATUS MESSAGE" & return
-- Now the variable "StatusList" contains only two lines of text;
-- the first one is "MY FIRST STATUS MESSAGE" and a return character
-- and the second one is empty
set StatusList to StatusList & "THE SECOND AND ALL THE REMAINING MESSGES WILL LOOK THIS WAY" & return
-- The second and the following line must be created using this code.
-- This will append the new message in the list after the previous
set StatusList to StatusList & "MY LAST STATUS MESSAGE HERE"
-- and the last message must ends this way; without a "return" at the end.
end inizializeStatusList
|