on *:TEXT:!addnewquote *:#:{
if ($read(quotes.txt,w,$2-)) {
msg $chan This quote already exists!
}
else {
write quotes.txt $2-
msg $chan The Quote has been successfully added.
}
}
on *:TEXT:!delquote *:#:{
if (!$read(quotes.txt,w,$2-)) {
msg $chan This quote doesn't exist!
}
else {
write -dl $readn quotes.txt
msg $chan The Quote has been successfully deleted.
}
}