using terms from application "Colloquy"
	on process incoming chat message m from user
		tell active panel of front window
			if body of m starts with "!ping" then
				set n to (friends's name)
				send message to n("ping")
			end if
		end tell
	end process incoming chat message
end using terms from