on *:TEXT:!AddQuote*:*:{
  if (!$2) { msg $nick Please enter a quote. }
  else {
    write quotes.txt $2-
  }
}

on *:TEXT:!quote:#:{
  msg # $read(quotes.txt)
}