Script to set iChat and Adium Status?

Is there an app, script - or is it possible to make a script to chang the status of both iChat and Adium at the same time?

I wrote this to just switch "offline" and "available". If you're looking for more than that, I could probably make a different one.

Download here.

If it tries to open up Classic then download this one instead. It's the actual script that you can save as whatever you want:

Download here.

says the page can't be found...

Yea, it does to me too. I'll just post the script here. You can copy/paste into Script Editor and save it as an application. Script starts here:

display dialog "Set iChat/Adium status to…" buttons {"Available", "Offline"} default button 2

set status_switch to button returned of the result

if status_switch = "Available" then

tell application "iChat"
activate
set status to available
end tell
tell application "Adium"
activate
set my status type to available
end tell

else


tell application "iChat"
activate
set status to offline
end tell
tell application "Adium"
activate
set my status type to offline
end tell
end if

--Jordan Little

Well, it works fine for iChat but Adium freaks out.
I want an away - not an offline, and when I change it to away is when Adium freaks out, like setting my staut to an "Available" away.

Is there a way to get it to do a key combination instead? I use Menu Master and that would solve the problem.