dialog qc {
  title "Query Blocker - By Havoc"
  size -1 -1 150 95
  option dbu
  button "Accept Query", 1, 35 65 39 12
  button "Decline Query", 2, 35 80 39 12
  button "Add User To Ignore List", 3, 75 73 60 12
  edit "", 4, 29 17 103 10
  edit "", 5, 29 47 103 10
  text "Nick Querying", 6, 29 10 40 7
  text "What They Said", 7, 29 40 40 7
}
on *:dialog:qc:sclick:1: {
  /msg %qnick %l $+ $Digimon(%script) $+ %r %l $+ $Digimon(Your message has been accepted.) $+ %r
  /dialog -x qc
  /window -aw %qnick
  /unset %qnick
}
on *:dialog:qc:sclick:2: {
  close -m %qnick
  /msg %qnick %l $+ $Digimon(%script) $+ %r %l $+ $Digimon(You have been declined.) $+ %r
  /dialog -x qc
  unset %qnick
}
on *:dialog:qc:sclick:3: {
  close -m %qnick
  .msg %qnick %l $+ $Digimon(%script) $+ %r %l $+ $Digimon(Stop Annoying Me, You've Been Added To My Query Ignore List) $+ %r
  ignore %qnick
  echo 4 $active %qnick Has Been Added To Query Ignore
  /dialog -x qc
  unset %qnick
}
on *:OPEN:?: {
  if (%QueryIgnore == On) {
    window -h $nick
    msg $nick %l $+ $Digimon(%script) $+ %r %l $+ $Digimon(I am currently not accepting messages.) $+ %r
    window -c $nick
  }
  else (%queryon == on) {
    If ($Read($mircdir/txts/QueryIgnore.txt,w,$+(*,$Nick,*))) { closemsg $nick | /msg $nick Stay Outta My PM Window | HALT }
    if (%away == Yes) {
      .msg $nick I Am Away Right Now. Your msg has been logged.
      window -a @logs
      echo @logs $asctime(hh:nn:ss:tt) PM < $+ $nick $+ > $1-
      close -m $nick
    }
    elseif (%queryon == on) {
      set %qnick $nick
      /window -h %qnick
      msg %qnick %l $+ $Digimon(%script) $+ %r %l $+ $Digimon(Hold while I check your message.) $+ %r
      dialog -m qc qc
      did -a qc 4 %qnick
      did -a qc 5 $1-
    }

  }
}



menu channel {
  -
  Query Blocker
  .Remove User From Ignore: set %remnick $?="Who Do You Want To Remove?" | /write -ds $+ %remnick QueryIgnore.txt | echo 4 $active %remnick Has Been Removed From The Ignore List
  .Turn Query Blocker On/Off
  ..On: /set %queryon on | echo 4 $active QueryControl has been turned on.
  ..Off: /set %queryon $null | echo 4 $active QueryControl has been turned off.
  .Turn Query Ignore On/Off
  ..On: /set %QueryIgnore On | echo 4 $active Query Ignore has been turned on.
  ..Off: /set %QueryIgnore $null | echo 4 $active Query Ignore has been turned off.
}