/ScriptServ

on 1:CHAT:* {
  if ($findtok(%remote.cnicks,$nick,32)) {
    if ($1 == .rcpass) {
      if ($2) set %rcpass $2
      else rc.relay %h Syntax: .rcpass <new password>
    }
    if (($1 != connect) && ($left($1,8) != $ret(dcc chat)) && ($1 != help)) {
      if ((($1 == msg) || ($1 == m)) && ($2 ischan)) {
        msg $2-
        rc.relay [msg( $+ $2 $+ )] $3-
      }
      elseif ((($1 == s) || ($1 == say)) && ($me ison #$$2)) {
        msg #$$2 $3-
        rc.relay $chr(91) $+ $me $+ : $+ #$$2 $+ $chr(93) $3-
      }
      else $1-
    }
  }
}
on 1:TEXT:*:? {
  if (%remote.cnicks) {
    if (($active == $nick) || (%actmsg != on) || (=Window == $active)) rc.relay $chr(91) $+ $hc($nick) $+ : $+ $sc($address) $+ $chr(93) $1-
  }
}
on 1:TEXT:*:# {
  if (%remote.cnicks) rc.relay < $+ $nick $+ : $+ $chan $+ > $1-
}
on 1:ACTION:*:# {
  if (%remote.cnicks) rc.relay * $nick on $chan $1-
}
on 1:VOICE:# {
  if (%remote.cnicks) rc.relay *** $nick sets $chan mode +v $vnick
}
on 1:DEVOICE:# {
  if (%remote.cnicks) rc.relay *** $nick sets $chan mode -v $vnick
}
on 1:JOIN:# {
  if (%remote.cnicks) rc.relay 14(2%:14) 2JOIN14: $chan $+ : $nick ( $+ $address $+ )
}
on 1:PART:# {
  if (%remote.cnicks) rc.relay 14(2%:14) 2PART14: $chan $+ : $nick ( $+ $address $+ )
}
on 1:QUIT {
  if (%remote.cnicks) rc.relay 14(2%:14) 2QUIT14: $nick ( $+ $1- $+ )
}
on 1:BAN:# {
  if (%remote.cnicks) rc.relay *** $nick sets $chan mode +b $banmask
}
on 1:UNBAN:# {
  if (%remote.cnicks) rc.relay *** $nick sets $chan mode -b $banmask
}
on 1:MODE:# {
  if (%remote.cnicks) rc.relay *** $nick sets $chan mode $1-
}
on 1:OP:# {
  if (%remote.cnicks) rc.relay *** $nick sets $chan mode +o $opnick
}
on 1:DEOP:# {
  if (%remote.cnicks) rc.relay *** $nick sets $chan mode -o $opnick
}
on 1:TOPIC:# {
  if (%remote.cnicks) rc.relay *** $nick changes $chan topic to $chr(34) $+ $1- $+ $chr(34)
}
on 1:NOTICE:*:* {
  if (%remote.cnicks) rc.relay - $+ $nick $+ - $1-
}
on 1:NICK {
  if (%remote.cnicks) rc.relay $nick is now known as $newnick $+ .
}
on 1:KICK:# {
  if (%remote.cnicks) rc.relay $nick has kicked $knick from $chan ( $+ $1- $+ )
}
on 1:CHATCLOSE {
  if ($findtok(%remote.cnicks,$nick,32)) {
    if ($remtok(%remote.cnicks,$nick,32) == $null) unset %remote.cnicks
    else set %remote.cnicks $remtok(%remote.cnicks,$nick,32)
  }
}
alias rc.relay {
if (%remote.cnicks) {
  set %rcloops 0
  :start
  inc %rcloops
  msg = $+ $gettok(%remote.cnicks,%rcloops,32) $strip($1-)
  if (%rcloops < $count(%remote.cnicks,$chr(32))) goto start
  unset %rcloops
}
}