on *:text:!chuck:#: {
  notice $nick $read(chuck.txt)
}

Umm how about you add a alias or a on text even for ppl to write jokes they find on the net.And why not send it to the channel?.more fun if everyone reads it.

alias addchuck { 
  write chuck.txt $$?=\"Add a chucky joke here XD.\" 
} 
alias remchuck { 
  write -d chuck.txt $$?=\"Remove a chucky joke X<\" 
} 
on *:text:*:#: {
  if ($strip($1) == !chuck) { .msg $chan $read(chuck.txt) }
  if ($strip($1) == !addchuck) { write chuck.txt $2- | .notice $nick Your chucky joke \" $+ $2- $+ \" has been added! }
  if ($strip($1) == !remchuck) {  
    if ($2- == $read(chuck.txt)) {
      write -d chuck.txt 
      .notice $nick Your chucky joke \" $+ $2- $+ \" has been removed!
    }
  }
}