Just an update for the improvements made by DaveC and Iori on the Query script I made. Only 2 minor updates.

Code:
alias QuerWindow {
    set %QuerWindow $+(@Message,$chr(160),Queuer)
  if (!$window(%QuerWindow)) { window -odeSl11k0 %QuerWindow 245 250 594 266 @Quer.MENU }
  return %QuerWindow
}

on ^*:Open:?:*: { quer.open.and.text.event $1- }
on ^*:Text:*:?: { quer.open.and.text.event $1- }

alias quer.open.and.text.event {
  mkdir QuerLogs
  write $+(QuerLogs\Quer.,$nick,.txt) $+([,$time(HH:nn),] <,$nick,>) $1-
  aline -ln $QuerWindow $nick 
  if ($sline($QuerWindow,1) == $nick) { aline -pi $QuerWindow $+([,$time(HH:nn),] <,$nick,>) $1- }
  window -h $nick
  halt
}

menu @Quer.MENU {
  dclick:  {
    if ($sline($QuerWindow,0) == 1) {
      whois $sline($QuerWindow,1)
    }
  }
  lbclick: {
    sline -l $QuerWindow $1
    clear $QuerWindow
    if ($sline($QuerWindow,0) == 1) {
      quer.titlebar 
      loadbuf -pi $QuerWindow $+(QuerLogs\Quer.,$sline($QuerWindow,1),.txt)
    }
  }
  Close $$1 Conversation: {
    if ($sline($QuerWindow,0) == 1) {
      clear $QuerWindow
      dline -l $QuerWindow $sline($QuerWindow,1).ln
    }
  }
  Delete $$1 History: {
    if ($sline($QuerWindow,0) == 1) {
      clear $QuerWindow
      dline -l $QuerWindow $sline($QuerWindow,1).ln
      .remove $+(QuerLogs\Quer.,$1,.txt)
    }
  }
}

on *:input:@:{
  if ($active == %QuerWindow) {
    if ((%QuerTextWin) || ($ctrlenter) || (/* !iswm $1-)) { .quer.msg $1- }
    else { .timer 1 0 savebuf $QuerWindow $+(QuerLogs\Quer.,$sline($QuerWindow,1),.txt) }
  }
}
alias quer.msg {
  if ($sline($QuerWindow,0) == 1) {
    if ((%QuerConfirmOff) || ($input(Secure Send Message $+ $crlf $+ Send this message to $sline($QuerWindow,1) $+ ? $+ $crlf $+ $crlf $+ $1-,c,Send Message.) == $true)) {
      PRIVMSG $sline($QuerWindow,1) $1-
      aline -p $QuerWindow $+([,$time(HH:nn),] <,$me,>) $1-
      haltdef
    }
    else { editbox $QuerWindow $1- }
    savebuf $QuerWindow $+(QuerLogs\Quer.,$sline($QuerWindow,1),.txt)
  }
}

on *:Keydown:%QuerWindow:*: {
  if ($exists(sounds\typewriter.wav)) { splay sounds\typewriter.wav } 
  if ($keyval == 18) { 
    var %cycle = $!false $!false/$true $!false/$true $!true/$false $!true/$false $!false
    var %cycle = $gettok(%cycle,$calc($findtok(%cycle,%QuerTextWin %QuerConfirmOff,1,47)+1),47)
    set %QuerTextWin $gettok(%cycle,1,32)
    set %QuerConfirmOff $gettok(%cycle,2,32)
    Quer.Titlebar
  }
  elseif ($keyval == 27) { window -c $QuerWindow }
}

alias Quer.Titlebar { 
  titlebar $QuerWindow - Conversation with $sline($QuerWindow,1) - $iif(%QuerTextWin,TW,NW) - $iif(%QuerConfirmOff,IM,CM) 
}


*Added whois feature when you double click on $sline($QuerWindow,1) it will whois that person
* Added ontop of all windows feature.

Told you they was minor.