menu nicklist,query {
  Allow Query from $1 : /guser 2 $1 2
  Remove $1 : /ruser 2 $1 2
} 

on *:open:?:{
  If ($level($address($nick,2)) == 1) { 
    close -m $nick
    .msg $nick Sorry I Dont Accept any messages at this moment 
    .echo -a  $nick  Tryed To Msg U With 3 $1- 
    .echo -a Press F2 to accept the query from  $nick  F3 to 3 ignore
    alias f2 .query $nick I have accepted your Query 14-=HangIRC=-
    alias f3 .ignore -p $nick
  }
  else {
    halt
  }