Zmodem, why set those vars in the on text? You don't even use %r. :/
And $read(fortune.txt) would work fine enough, since it already picks a random line.