tell application "AppleScript Runner"
  set temp to display dialog "new status" default answer "away, ..."
end tell

set newStat to the text returned of temp
set AppleScript's text item delimiters to {","}
set statusType to the first text item of newStat
set statusMessage to the second text item of newStat

tell application "Adium"
	if (statusType = "aw" or statusType = "away") then
		set the status type of every account to away
		set the status message of every account to statusMessage
	else if (statusType = "av" or statusType = "available") then
		set the status type of every account to available
		set the status message of every account to statusMessage
	else if (statusType = "bu" or statusType = "busy") then
		set the status type of every account to away
		set statusMessage to "Workitem: " & statusMessage
		set the status message of every account to statusMessage
	else
		set the status type of every account to available
	end if
end tell