on *:TEXT:!dquote *:#:{
  if ($1 == !dquote && $nick == Quicksilver) {
    if ($2) {
      if ($2 isin $read(quote.txt,w, $2)) {
        write -dl $+ $readn quote.txt
        msg $chan 4Quote 1deleted succesfully!
      }
      else { msg $chan I don't see such quotes. }
    }
    else { msg $chan 4Usage:1 !dquote <ur quote> }
  }
  elseif ($1 == !dqoute) { msg $chan You cannot use this command }
}