Forums Scripts & Popups find first shared channel (multi network)

alias findfirstsharedchan {
  var %nick = SOMENICK
  var %network = 1
  var %chan
  while ((%network <= $scid(0)) && (!%chan)) {
    scon -s %network
    set %chan $comchan(%nick,1)
    inc %network
  }
  if (%chan) echo this is the first chan %nick is in: %chan
}

alias findfirstsharedchan {
var %nick = $iif($1,$1,$$?="Enter nick")
.scon -at1 $!iif($comchan(%nick,1),echo -a First channel on $!network is $!v1)
}