/me sighs Again with the long scripts mate ;o long scripts dont make you look good :p its how conpact you can make em :p
again;

on $*:text:/^[!@]joke/Si:#:{ var %x $iif($Left($1,1) ==@, msg $chan, .notice $nick) | %x $read(jokes.txt) }

Just try to make scripts like this :p