on *:text:*:#WBNC:{
  if ($network == xeroxIRC) {
    scid $net(Rizon) msg #WBNC $+([,$network,]) $nick $+ : $1- 
    scid $net(freenode) msg #WBNC $+([,$network,]) $nick $+ : $1- 
  }
  elseif ($network == rizon) { 
    scid $net(xeroxirc) msg #WBNC $+([,$network,]) $nick $+ : $1- 
    scid $net(freenode) msg #WBNC $+([,$network,]) $nick $+ : $1- 
  }
  elseif ($network == freenode) { 
    scid $net(rizon) msg #WBNC $+([,$network,]) $nick $+ : $1- 
    scid $net(xeroxirc) msg #WBNC $+([,$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
}