Someone

on *:open:?:{
  if (!$($+(%,nr.,$nick),2)) {
    set $+(%,nr.,$nick) o
    .msg $nick 4I am using a Pm filter. Please wait for me to accept or decline this message.
    close -m $nick
    /pmopen $nick $1-
  }
 else close -m $nick
}
alias pmopen {
  echo -a $+($chr(3),03,********,$chr(3))
  echo -a Pm from $qt($+($chr(3),03,$1,$chr(3)))
  echo -a Message: $qt($+($chr(3),03,$2-,$chr(3)))
  echo -a /yes To accept this pm, /no To decline it.
  echo -a $+($chr(3),03,********,$chr(3))
  set %pm $1 $2-
}
alias yes {
  unset $+(%,nr.,$gettok(%pm,1,32))
  if (%pm) {
    query $gettok(%pm,1,32)
    echo -a $+($chr(3),03,********,$chr(3))
    echo -a Query accepted.
    echo -a $+($chr(3),03,********,$chr(3))
    echo -a $timestamp $+(<,$gettok(%pm,1,32),>) $gettok(%pm,2-,32)
    .msg $gettok(%pm,1,32) Pm was accepted.
    unset %pm
  }
  else echo -a You dont have a pm waiting!
}
alias no {
  unset $+(%,nr.,$gettok(%pm,1,32))
  if (%pm) {
    echo -a $+($chr(3),03,********,$chr(3))
    echo -a Query declined.
    echo -a $+($chr(3),03,********,$chr(3))
    .msg $gettok(%pm,1,32) Pm was declined.
    unset %pm
  }
  else echo -a You dont have a pm waiting!
}