alias quoteparser {
  var %k9.quote.buffer = $$1-
  return  Quote $gettok($calc(($lines(%k9.quote.file) $+ +1,1,32) $+ : " $+ $gettok(%k9.quote.buffer,8-,32) $+ " added by $gettok(%k9.quote.buffer,7,32) on $gettok(%k9.quote.buffer,2-5,32) at $gettok(%k9.quote.buffer,6,32)
}

  ;Quote delete.
  if ($$3 == del) {
    if (%k9.quote.mainswitch == 1) {
      if (%hostmask iswm $address) {
        echo -a Deleted Quote on Line: $$4
        msg $chan Quote successfully deleted on line: %linenum $+ .
        write -dls $+ $$4 %k9.quote.file
        else { msg $chan Access Denied. }
      }