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
}