alias commonchans {
  var %i = 1
  while (%i <= $chan(0)) {
    var %h = 1
    while (%h <= $nick($chan(%i),%h)) {
      if ($comchan($nick($chan(%i),%h),0) > $readini(tmp.ini,comchans,record))  && ($nick($chan(%i),%h) != $me) && (Serv !isin $nick($chan(%i),%h)) {
        /writeini tmp.ini comchans record $comchan($nick($chan(%i),%h),0)
        /writeini tmp.ini comchans nick $nick($chan(%i),%h)
      }
      inc %h
    }
    inc %i
  }
  /echo $active CommonChans: $readini(tmp.ini,comchans,nick) shares $readini(tmp.ini,comchans,record) channels with you
  /writeini tmp.ini comchans record 0
  /writeini tmp.ini comchans nick 0
}