on *:open:?:*: {
  inc %privat | inc %querry
  if ( $gettok($ulist($maddress,qaccess,1).info,1,32) == ok ) { return }
  window -h $nick
  .timer 1 1 queryblock $nick $wildsite $strip($1-)
  msg $nick Willkommen im Privat-Chat, $nick $+ ! Du bist heute der %privat Privat-Chat User. Insgesamt hatte ich schon %querry User. Bitte warte einen Augenblick, deine Anfrage wird bearbeitet..
  haltdef
}
alias queryblock {
  if ( $input(Nick: $1 $crlf $+ Host: $2 $crlf $+ Message: $3- $crlf $+ Accept?,vy,Query Anfrag ) == $yes ) {
    window -rw $1
    msg $1 Privat-Chat wurde angenommen. Du kannst jetzt mit $me schreiben.
  }
  else {
    msg $1 %logo - Der Privat-Chat wurde abgelehnt.
    window -c $1
  }
}

##########
alias qaccedit if (!$dialog(qacc)) dialog -m qacc qacc
dialog qacc {
  title "/qaccedit"
  size -1 -1 121 1151
  option dbu
  box "", 1, 15 -3 121 1154
  list 2, 2 23 117 64, size hsbar vsbar autovs sort
  edit "", 3, 2 2 117 115, autohs
  button "Add", 4, 2 12 37 115, disable flat
  button "Delete", 5, 42 88 37 115, disable flat
  button "Edit", 6, 2 88 37 115, disable flat hide
  button "Close", 8, 82 88 37 115, ok flat
}

on *:dialog:qacc:*:*: {
  if ( $devent == init ) {
    if (%addacc != $null ) {
      did -a qacc 3 %addacc
    }
    var %q = 1
    while ( %q <= $ulist(*,qaccess,15) ) {
      did -a $dname 2 $ulist(*,qaccess,%q)
      inc %q
      if ( $devent == sclick ) {
        if ( $did == 2 ) {
          if ( $did(qacc,2).sel ) {
            did -e qacc 4,5,6
            did -ra qacc 3 $did(qacc,2).seltext
            halt
          }
          else {
            did -b qacc 4,5,6
            did -ra qacc 3 $did(qacc,2).seltext
          }
        }
        if ( $did == 5 ) {
          if ( $did(qacc,2).sel ) {
            .ruser qaccess $did(qacc,2).seltext
            did -r $dname 2
            var %q = 1
            while ( %q <= $ulist(*,qaccess,15) ) {
              did -a $dname 2 $ulist(*,qaccess,%q)
              inc %q
            }
          }
        }
        if ( $did == 4 ) && ( $did(qacc,3) != $null ) {
          .auser qaccess $did(qacc,3) ok
          did -r $dname 2
          var %q = 1
          while ( %q <= $ulist(*,qaccess,15) ) {
            did -a $dname 2 $ulist(*,qaccess,%q)
            inc %q
          }
        }
        if ( $devent == edit ) {
          if ( $did(qacc,3) != $null ) {
            did -e qacc 4
          }
          else { did -b qacc 4 }
        }
      }
    }
  }
}
alias -l q.close {
  close -m $1
  unset %query.nerv [ $+ [ $1 ] $+ ]
}
on ^*:CLOSE:?:{
  notice $nick Die sitzung im Privat-Chat wurde soeben geschlossen.. Bitte nicht mehr Antworten.
  if ($readini("pmblocker.ini",settings,nakt) == 1) && ($line($query($nick),t,15) > 15) {
    .notice $nick $+(,$hget(theme,th1),$readini("pmblocker.ini",meldungen,close))
  }
  unset %query.nerv [ $+ [ $nick ] $+ ]
}