Mine

on *:OPEN:?: {
  if ($read(qignore.txt, w,$query($nick).address)) {
    msg $nick $c1(Your query has been ignored!)
    close -m $nick
    halt 
  }
  else {
    msg $nick $c1(Waiting for query acceptance, Please wait) $c2(This may take a moment)
  }
}
alias accept {
  msg $active $c1(Your query has been accepted!)
}
alias decline {
  msg $active $c1(Your query has been declined!) $c2(You have been added to Auto Query Ignore Under Host:) $c1($query($active).address)
  write qignore.txt $query($active).address
  close -m $active
}
alias -l c1 { return $+($chr(3),6,$1-) }
alias -l c2 { return $+($chr(3),04,$1-) }