Forums Scripts & Popups quote system help

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
  }
}