Anonymous

on *:OPEN:?:{
  if (!$readini(ignore.ini,ignore,$nick)) {
    set %queryn $nick
    msg $nick 04(14QUERY CONTROL04) $c1(Please wait while I) 09accept $c1(or) $c2(declined) $c1(your pm. If I don't answer, then I've probably) $c2(secretely declined) $c1(you.)
    //echo -a $logo(QUERY CONTROL) $c2($nick) 14(04 $+ $address($nick,2) $+ 14) pm'd you at:04 $asctime(mm/dd/yy) $asctime(hh:nn:ss TT) 14with the message:04 $1-
    dialog -rm Query Query
    halt
  }
  if ($readini(ignore.ini,ignore,$nick)) {
    set %queryn $nick
    aline @Message $nick is currently on Ignore click "Un Ignore" to un-ignore them
    dialog -rm Query Query
    halt
  }
}
Dialog Query {
  title "Query Control"
  size 350 350 47 80
  option dbu
  button "Accept",1,1 4 45 10
  button "Decline",2,1 20 45 10
  button "Ignore",3,1 36 45 10
  button "Un Ignore",4,1 52 45 10
  button "Close",5,1 68 45 10,flat ok cancel
}
on 1:dialog:Query:sclick:1:{
  msg %queryn 04( $+ $c3(ACCEPTED) $+ 04) $c1(I have accepted your query. Please wait while I read your message and reply.)
  unset %queryn
  close -rm query
}
on 1:dialog:Query:sclick:2:{
  msg %queryn 04( $+ $c2(REJECTED) $+ 04) $c1(Your query has been) $c2(declined.) $c1(If you really need me, talk to me on the current channel or highlight me. Thanks.)
  close -m %queryn
  unset %queryn
  close -rm query
}
on 1:dialog:Query:sclick:3:{
  msg %queryn 04( $+ $c2(REJECTED) $+ 04) $c1(You have been) $c2(ignored.) $c1(Please refrain from messaging me again for the time being.)
  writeini ignore.ini ignore %queryn %queryn
  close -m %queryn
  unset %queryn
  close -rm query
}
on 1:dialog:Query:sclick:4:{
  remini ignore.ini ignore %queryn
  msg %queryn 04( $+ $c1(ACCEPTED) $+ 04) $c1(I am currently reading what you have wrote. You have been) $c3(un-ignored.)
  unset %queryn
  close -rm query
}