on *:text:!*quote*:#: {
if ($1 == !addquote) {
if ($2 == $null) { .notice $nick !addquote: invalid parameters: Invalid quote. }
else {
write quote.txt $ctime $nick $1-
msg $chan Quote $eval(#,0) $+ $lines(quote.txt) has been added.
}
}
if ($1 == !delquote) {
if ($nick isvoice $chan) || ($nick isop $chan) || ($nick ishop $chan) {
if ($2 == $null) { .notice $nick !delquote: invalid parameters: Invalid quote number. }
else {
if ($read(quote.txt,n,$2) == $null) { .notice $nick Quote $eval(#,0) $+ $2 does not exist. }
else {
write -dl $+ $2 quote.txt
msg $chan Quote $eval(#,0) $+ $2 has been deleted.
}
}
}
if ($1 == quote) {
if ($2 == help) {
.notice $nick Avaliable quote related commands are: !quote [number|null|help],!addquote <quote>,!delquote <number>.
}
elseif ($2 == null) || ($2 == $null) {
if ($read(quote.txt,n) == $null) {
.notice $nick There are no quotes!
}
else {
var %quote = $read(quote.txt,n)
var %time = $duration($calc($ctime - $gettok(%quote,1,32)))
var %auth = $gettok(%quote,2,32)
var %quote = $gettok(%quote,3-,32)
msg $chan Quote $eval(#,0) $+ $readn $+ , added: %time ago $+ , by %auth $+ : %quote
}
}
elseif ($2 isnum) {
if ($read(quote.txt,n,$2) == $null) { .notice $nick Quote $eval(#,0) $+ $2 does not exist, i only have $lines(quote.txt) Quotes in my database. }
else {
if ($read(quote.txt,n) == $null) {
.notice $nick There are no quotes!
}
else {
var %quote = $read(quote.txt,n,$2)
var %time = $duration($calc($ctime - $gettok(%quote,1,32)))
var %auth = $gettok(%quote,2,32)
var %quote = $gettok(%quote,3-,32)
msg $chan Quote $eval(#,0) $+ $readn $+ , added: %time ago $+ , by %auth $+ : %quote
}
}
}

if you find any bugs ill fix them i made it on the fly