Code:
on *:OPEN:?:*:{ 
  var %q.cc = $comchan($nick,0), %q.c,%q.l = 1
  echo $nick 10,11 $+ $str($chr(160),5) $+  02Now chatting with14: $nick
  echo $nick 10,11 $+ $str($chr(160),5) $+  02•—— 02Stats14: query 02——•
  echo $nick 10,11 $+ $str($chr(160),5) $+   $str($chr(160),4) 02With14: 14[10 $+ $nick $+ $iif($ial($nick).addr != $null,$chr(32) $+ $v1,[mask not in ial]) $+ 14]
  while (%q.l <= %q.cc) { %q.c = %q.c $comchan($nick,%q.l) $+ $iif(%q.l != %q.cc,$chr(44)) | inc %q.l }
  echo $nick 10,11 $+ $str($chr(160),5) $+   $str($chr(160),3) 02Chans14:10 %q.cc 14common channel $+ $iif(%q.cc != 1,s) with10 $nick $+  $+ $iif(%q.cc > 0,$chr(44) which $iif(%q.cc > 1,are,is) $+ 10 %q.c)
}


that's what i use o_O

obviously if people are chatting it''ll show the ip or dns, or you may just have to do /who