Mine

on $*:Text:/^[!@](joke)/Si:#: {
set %return $iif($left($1,1) == @, msg $chan, notice $nick)
%return $c1($read(jokez.txt,n))
}
on *:TEXT:!addjoke*:*: {
/write jokez.txt $2-
msg $nick thank you for adding a joke to my system
}