snippet.txt

on ScreencastURL(z)
	set n to (offset of "http://screencast.com" in z)
	if n > 0 then
		set m to (offset of ">" in z)
		if m > 0 then
			set substr to (text items n thru (m - 2) of z) as text
			return substr
		end if
	end if
	return false
end ScreencastURL

using terms from application "Colloquy"
	on process incoming chat message m
		set z to (HTML of m)
		set u to ScreencastURL(z)

		if u is not false then
			open location u
		end if
	end process incoming chat message
end using terms from