-- Wack-Ass QS/Adium Applescript For Until the Plugin Works
-- sends message to adium contact with quicksilver
--
-- installation:
--       place in ~/Library/Application Support/Quicksilver/Actions/
--
-- use:
--       invoke QS
--       type .<contact's name>::<message>
--       press tab
--       type script name
--       press enter
--
-- will create or minimize a chat window for each chat. This is so you can get reply notifications with growl and replies won't pop up a new window

to split(someText, delimiter)
	set AppleScript's text item delimiters to delimiter
	set someText to someText's text items
	set AppleScript's text item delimiters to {""}
	return someText
end split

using terms from application "Quicksilver"
	on process text ThisClipping
		set z to split(ThisClipping, "::")
		
		-- if either required field is empty display online list
		if (item 1 of z) is "" or (item 2 of z is "") then
			tell application "Adium"
				set x to get UID of every contact whose status type is not offline
				set AppleScript's text item delimiters to return
				set y to x as string
				set AppleScript's text item delimiters to {""}
				tell application "Quicksilver"
					show notification "online" text y
				end tell
				exit repeat
			end tell
			quit
		end if
		
		-- else send message
		tell application "Adium"
			send (first contact whose UID is (item 1 of z)) message (item 2 of z)
			copy true to the miniaturized of every window whose name is (item 1 of z)
		end tell
		
	end process text
end using terms from