alias addquote {
var %chan = $1 %quote = $3
$write(quotes.txt,$chan,%quote)
}
alias removequote {
var %quotenumber = $2
$write -dl $2 quotes.txt
}
on *:text:*:#:{
if ($regex($1-,/!addquote \[(\S+)\] \[(.+)\]/Si)) {
$addquote # $+(!,$regml (1)) $regml(3)
}
elseif ($regex($1-,remove \[(\S+)\]/Si)) {
remove # $+(!,$regml(1))
}
elseif ($read(quotes.txt,n,#,$1)) {
msg # $v1
}
}