menu * {
  Set Relay Channel:set %rchan $$?="Channel name: example: #Help"
}
on *:text:*:%rchan:relayevent $iif($network = $null,Unknown-Network,$v1) $+($chr(60),$nick,$chr(62)) $1-
on *:action:*:%rchan:relayevent $iif($network = $null,Unknown-Network,$v1) $+($chr(60),$nick) $1-

on *:rawmode:%rchan:relayevent $iif($network = $null,Unknown-Network,$v1) $nick sets mode(s) $1 on $2-
on *:kick:%rchan:relayevent $iif($network = $null,Unknown-Network,$v1) $nick kicked $knick from #
on *:join:%rchan:relayevent $iif($network = $null,Unknown-Network,$v1) $nick joined #
on *:part:%rchan:relayevent $iif($network = $null,Unknown-Network,$v1) $nick parted #

on *:quit: {
  var %a = $comchan($nick,0)
  while %a {
    if ($comchan($nick,%a) == %rchan) { relayevent $iif($network = $null,Unknown-Network,$v1) $nick quit: $iif($1-,$v1,No Quit Message) | dec %a }
    else dec %a
} }


on *:nick: {
  var %a = $comchan($newnick,0)
  while (%a) {
    if ($comchan($newnick,%a) == %rchan) { relayevent $iif($network == $null,Unknown-Network,$v1) $nick is now known as $newnick | dec %a }
    else { dec %a }
} }


alias relayevent {
  var %a = $scon(0)
  while %a {
    if ($scon(%a).network == $1) dec %a
    else { scon %a msg %rchan $+(,$remove($$2,$chr(60),$chr(62)),) $remove($3-,$chr(36)) | dec %a }
  }
}