Common chans multi network

menu nicklist {
  Common channels $1: /comchans $1
}
menu menubar {
  Common Channels all users: comchansall
}
alias comchansall {
  var %ui = 1
  while ($nick(#,%ui)) {
    comchans $nick(#,%ui)
    inc %ui
  }
}
alias comchans {
  var %csc $cid, %sci 0, %tot 0
  while (%sci < $scon(0)) {
    inc %sci 1
    scon %sci
    var %n $comchan($1,0)
    var %i 0
    while (%i < %n) {
      inc %i 1
      var %netchan $+($network,:,$comchan($1,%i))
      if (!$istok(%all,%netchan,32)) {
        var %t %t $comchan($1,%i)
        var %all %all %netchan
        inc %tot 1
      }
    }
  }
  echo -ag Total %tot Common channels with $1 - %t
  scid %csc
}