Anonymous

alias qon { enable #qman | set %qon 1 }
alias qoff { disable #qman | set %qon 0 }
#qman on
on ^*:TEXT:*:?:{ close -m $nick
  if ($dialog(qman) != qman) {
    /dialog -md qman qman
  }
  if (%# [ $+ [ $nick ] ] > 0 ) { set %# [ $+ [ $nick ] ] $calc(%# [ $+ [ $nick ] ] + 1) }
  if (%# [ $+ [ $nick ] ] == $null) { set %# [ $+ [ $nick ] ] 1 }
  /writeini query.ini $nick %# [ $+ [ $nick ] ] $nick $+ : $1-
  if ($didwm(qman,1,$nick) == 0) {
    /did -a qman 1 $nick
  }
  /did -r qman 2
  var %i = 0
  while (%i < $ini(query.ini,$nick,0)) {
    inc %i 1
    /did -i qman 2 %i $readini(query.ini,$nick,%i)
  }
  /did -r qman 3
  /did -a qman 3 $address($nick,4)
  halt
}

#qman end
dialog qman {
  title "Query Manager"
  size -1 -1 231 132
  option dbu
  list 1, 7 26 50 50, size
  list 2, 65 22 158 93, size
  edit "", 3, 118 5 106 10, autohs
  edit "", 4, 7 5 50 10, autohs
  text "Address", 5, 94 6 20 10
  edit "", 6, 65 118 139 10, autohs
  button "Say", 7, 206 118 15 10, default
  button "Add", 8, 60 5 15 10
  button "Whois", 9, 7 79 22 10
  button "ClosePM", 12, 18 93 25 10
  button "Chans", 14, 34 79 22 10
  button "CLOSE", 15, 18 110 27 12, cancel
}
on *:DIALOG:qman:close:*:{
  /unset %#*
  /.remove query.ini
}
on *:DIALOG:qman:sclick:8:{
  if ($did($dname,4).text != $null) { 
    if ($didwm($dname,1,$did($dname,4).text) == 0) {
      /did -a qman 1 $did($dname,4).text
    }
    .timer -h 1 2500 /did -r $dname 4 
  }
}
on *:DIALOG:qman:dclick:1:{
  /did -r $dname 2
  var %i = 0
  /while (%i < $ini(query.ini,$did($dname,1).seltext,0)) {
    inc %i 1
    /did -a $dname 2 $readini(query.ini,$did($dname,1).seltext,%i)
  }
  /did -r $dname 3
  /did -a $dname 3 $address($did($dname,1).seltext,4)
}
on *:DIALOG:qman:sclick:7:{
  if ($did($dname,6).text != $null) && ($did($dname,1).seltext != $null) {
    if (%# [ $+ [ $did($dname,1).seltext ] ] > 0 ) { set %# [ $+ [ $did($dname,1).seltext ] ] $calc(%# [ $+ [ $did($dname,1).seltext ] ] + 1) } 
    if (%# [ $+ [ $did($dname,1).seltext ] ] == $null) { set %# [ $+ [ $did($dname,1).seltext ] ] 0 }
    /writeini query.ini $did($dname,1).seltext %# [ $+ [ $did($dname,1).seltext ] ] $me $+ : $1-
    /.msg $did($dname,1).seltext $did($dname,6).text
    /did -a $dname 2 $me $+ : $did($dname,6).text
    /did -r $dname 6
    inc %# [ $+ [ $did($dname,1).seltext ] ] 1  
  }
}