alias kinfo {
  var %qc = $ulist(*,*,0),%xc = 1,%xcq,%xcw
  while (%xc <= %qc) {
    %xcw = $ulist(*,$1,%xc)
    if (%xcw) { %xcq = $level(%xcw) }
    return %xcq %xcw
    inc %xc 1
  }
}
alias xcwindow {
  if (!$1) || (!$kinfo($1)) { halt }
  if ($isfile(xcwindow.bmp)) { .remove xcwindow.bmp }
  window -donhp +dfl @xcwindow -1 18 $calc($len($gettok($kinfo($1),2,32)) * 20) 50
  drawtext -np @xcwindow 2 "Arial" 30 0 0 $gettok($kinfo($1),2-,32)
  drawsave @xcwindow xcwindow.bmp
  background -p $gettok($kinfo($1),1,32) xcwindow.bmp
  window -c @xcwindow
  .remove xcwindow.bmp
}
alias query { query $1 | xcwindow $1 }
alias q { query $1 | xcwindow $1 }
on *:open:?:xcwindow $nick