Try this

Code:
 on ^*:open:?:*:{ 
  if ( !$($+(%,q.a,.,$nick),2) ) {
    set $+(%,q.a,.,$nick) $1- 
    .whois $nick 
    .enable #query
    haltdef
  }
}

alias query { 
  .query $1- 
  .load.switchbar
}
alias q.open {
  query $1
  var %q.l = 1, %q.cc = $comchan($1,0)
  echo $1 >> query opened with ( $+ $2 $+ ) 
  while $comchan($1,%q.l) { 
    var %q.c = $addtok(%q.c, $v1, 44)
    inc %q.l 
  }
  echo -i25 $1 >> you are on %q.cc common channel(s) with $1 $+ $iif(%q.cc > 0,$chr(44) which $iif(%q.cc > 1,are,is) $+ : %q.c )
  echo -t $1 $($+(%,q.a,.,$1),2)
  unset $+(%,q.a,.,$1)
}

#query off
raw 301:*: halt
raw 311:*:{
  if ( $($+(%,q.a,.,$2),2) ) { 
    q.open $2 $+($3,@,$4) 
    halt
  }
}
raw 313:*: halt
raw 312:*: halt
raw 330:*: halt
raw 319:*: halt
raw 318:*: .disable #query | halt
#query end