Unnamed

dialog Query {
  title "Query Scanner"
  size -1 -1 80 50
  option dbu
  box "", 1, 1 -1 47 47
  button "No", 2, 5 5 37 17, cancel
  button "Yes", 3, 5 25 37 17, ok
  text "Someone has pm'd you", 4, 52 10 22 30, center
}
on *:dialog:query:sclick:2-3: {
  if (%query == on) {
    if ($did == 2) {
      msg %nick 7,1Your query has been 4,1¤8,1REJECTED4,1¤ $chr(91) $+ $me $+ $chr(93)
      set %query off
    }
    elseif ($did == 3) {
      msg %nick 7,1Your query has been 4,1¤8,1ACCEPTED4,1¤ $chr(91) $+ $me $+ $chr(93)
      set %query off
    }
  }
}
on *:OPEN:?:{
  timer 1 0 msg $nick 7,1Your query is 4,1¤8,1PENDING4,1¤ $chr(91) $+ $me $+ $chr(93)
  set %query on
  set %nick $nick
  dialog -ma Query Query
  timer 1 10 queryier
}
alias -l queryier {
  if (%query == off) { halt }
  else { 
    msg %nick 7,1Your query has been 4,1¤8,1REJECTED4,1¤ $chr(91) $+ $me $+ $chr(93)
    set %query off
  }
}