/ScriptServ

;%%%%%%%%%%%%%%%%%%%%%%%%
;script ircN Custom Remote
;version 6.0ß
;author  
;email  
;url  
;%%%%%%%%%%%%%%%%%%%%%%%%
;
; Enter any custom remote commands here.
;
on 1:CTCPREPLY:ping* { 
  if ($nick == $me) { halt } 
}
on 1:CTCPREPLY:* {
  iiecho 15* 14[10ctcpreply14(7 $+ $1 $+ 14)]6 $nick14>>10 $2-
  halt
}
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>
    }
    on 2:TEXT:*:?:{
      /set %redirect $1- | set %redirect2 $address($nick,5)
      if %displaymsg == On { /set %tmpdisplaynick $nick | /echo 2 -a 14__[ $+ %creed.color $+ msg14_)14:  $+ $nick -- $parms
        /logquery
      if %killwindow == On { halt } }
    }
    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 x!x $nick sets $chan mode +v $vnick
}
on 1:DEVOICE:# {
  if (%remote.cnicks) rc.relay x!x $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 x!x $nick sets $chan mode +b $banmask
}
on 1:UNBAN:# {
  if (%remote.cnicks) rc.relay x!x $nick sets $chan mode -b $banmask
}
on 1:MODE:# {
  if (%remote.cnicks) rc.relay x!x $nick sets $chan mode $1-
}
on 1:OP:# {
  if (%remote.cnicks) rc.relay x!x $nick sets $chan mode +o $opnick
}
on 1:DEOP:# {
  if (%remote.cnicks) rc.relay x!x $nick sets $chan mode -o $opnick
}
on 1:TOPIC:# {
  if (%remote.cnicks) rc.relay x!x $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
  }
}