$comchan(nick,0) returns number of common channels
$comchan(nick,1) returns name of first common channel
$comchan(nick,2) returns name of second common channel
you could do this
alias comchans {
if (!$comchan($1,0)) return 0
var %i = 1
while ($comchan($1,%i)) {
var %r = %r $ifmatch
inc %i
}
return %r
}
//echo -a $comchans(nick)