I previously published an Applescript I use to immediately update Adium, Skype, iChat status messages.
I’ve recently changed it to allow more than three options (a limitation in the Applescript Display Dialog method).

Find a copy below: