I'm pretty new too, but couldn't you have just done...
on :TEXT:-Fortune:#: { msg $chan $read(fortune.txt) }
and put all the "outcomes" in fortunes.txt?
Nice script though, will use!