ichat scrolling text

hey
i have seen applications that integrate the scrolling text in the status bar. how would i go about doing that?
thanks
~Balthamos

While this doesn’t “scroll” the text, it does cycle through the words…
(PS: This will repeat until you quit the script)

set Inputted_Text to display dialog "Enter the text you want to display:" default answer "I can't think of anything clever to write."

set Inputted_Text to get every word of (text returned of Inputted_Text) as list

repeat
	repeat with theMess in Inputted_Text
		my change_message(theMess)
	end repeat
end repeat

on change_message(theMess)
	tell application "iChat"
		set status message to theMess
		delay 1
	end tell
end change_message