Network relay special-g

on *:text:*:#relaychan:{
  if ($network == Rizon) {
    scid $net(Swiftirc) msg #relaychan $+([,$network,]) $nick $+ : $1-
  }
  elseif ($network == swiftirc) {
    scid $net(rizon) msg #relaychan $+([,$network,]) $nick $+ : $1-
  }
}
alias net {
  var %netcount $scon(0)
  while %netcount {
    if ($scon(%netcount).network == $1) { var %netid %netcount }
    dec %netcount
  }
  scon %netid return $!cid
}