iChat Growl AppleScript

gistfile1.scpt

tell application "Growl"
	set the allNotificationsList to ¬
		{"iChat Message Notification"}
	
	set the enabledNotificationsList to ¬
		{"iChat Message Notification"}
	
	register as application ¬
		"iChat Message Notification AppleScript" all notifications allNotificationsList ¬
		default notifications enabledNotificationsList ¬
		icon of application "iChat"
	
end tell

using terms from application "iChat"
	
	on received remote screen sharing invitation theMessage from theBuddy for theChat
		tell application "Growl"
			notify with name ¬
				"iChat Message Notification" title ¬
				(get name of theBuddy) description ¬
				theMessage application name "iChat Message Notification AppleScript"
		end tell
	end received remote screen sharing invitation
	
	on addressed chat room message received theMessage from theBuddy for theChat
		tell application "Growl"
			notify with name ¬
				"iChat Message Notification" title ¬
				(get name of theBuddy) description ¬
				theMessage application name "iChat Message Notification AppleScript"
		end tell
	end addressed chat room message received
	
	on message received theMessage from theBuddy for theChat
		tell application "Growl"
			notify with name ¬
				"iChat Message Notification" title ¬
				(get name of theBuddy) description ¬
				theMessage application name "iChat Message Notification AppleScript"
		end tell
	end message received
	
	on chat room message received theMessage from theBuddy for theChat
		tell application "Growl"
			notify with name ¬
				"iChat Message Notification" title ¬
				(get name of theBuddy) description ¬
				theMessage application name "iChat Message Notification AppleScript"
		end tell
	end chat room message received
	
end using terms from