/ScriptServ

alias aconn { set %msme = $+ $nick | msg = $+ $nick NICK %spynick | msg %msme  USER %spyUSERID %SPYUSERID %SPYUSERID  %version %averme | .creq ask | halt } 
alias anick set %spynick $$?="enter nick to change to" | toserver nick $!  
alias sendmsg msg %msme PRIVMSG %spychans : $+ $1- | echo $active < $+ %spynick $+ > $1-
on me:1:CHATOPEN:/aconn
on me:1:CHATCLOSE:/echo 2 @spy  ***Disconnected from %spyserver
on 1:input: {
  if ( $count($active, @spy)) {
    if ( $pos($1, /) == 1) {
      $read -s $+ $mid($1, 2, $len($1) ) $mircdirspya.mrc
      if ( $read -ns $+ $mid($1, 2, $len($1)  ) $mircdirspya.mrc != $null) { halt }
      else { msg %msme $remove($1, /) $2- | /halt }
    }
  }
}  
on me:1:CHAT:* { 
  set %nick $remove( $gettok($1,1,33), $chr(58) )
  set %saddy $gettok($1,2,33)
  if (action isin $4) { .set %actionnick %nick | echo @spy <6 $+ %actionnick $+ >  $5-  }
  if ($1 == PING) { 
    msg %msme PONG $2  
  }
  if ($2 == 332) { echo @spy 1TOPIC4:  $hc($remove($5,:)) $hc($6-) }
  if ($2 == 333) { echo @Spy 1TOPIC INFO4: The topic on $hc($4 ) was set by $hc($5) at $hc($asctime($6))  }  
  if ($2 == Privmsg) echo 1 @spy  2< $+ $remove($3,:) $+ > < $+ $hc(%nick) $+ > 1 $4- 
  if ($2 == 376) { .set %spynick $3 | msg %msme mode %spynick +i | /spystats | .unset %spychan }
  if ($2 == 353) { echo @spy NAMES 1 $hc($6-) }
  if ($2 == PART) {
    if (%nick == %spynick) { echo @spy 2I Have Now Left $3 | /halt }
    echo 3 @spy  *** %nick ( $+ %saddy $+ ) has left $3 | halt
  }
  if ($2 == JOIN) {
    if ( %spynick != %nick) {
    echo 3 @spy *** %nick ( $+ %saddy $+ ) has joined $remove($3, $chr(58)) | halt }
    if ( %spynick == %nick) { Echo @spy 2I Am Now Spying on $hc($3) }
  }
  if ($2 == MODE) { echo 3 @Spy  *** %nick set mode: $4 $5  }
  if ($3 == MODE) { echo 3 @spy  *** %nick set mode $4- on $3 | halt }
  if ($2 == 221) { echo 3 @Spy *** Modes for $3 $+ : $4 }
  if ($2 == 324) { echo 3 @Spy *** Modes for $4 $+ : $5 }
  if ($2 == QUIT) { echo 2 @Spy *** %nick quit IRC ( $+ $remove($3,:) $4- $+ ) | halt }
  if ($2 == KICK) {
    if ($4 == %spynick) { echo 2 @Spy  *** You were kicked from $hc($3) 2by $hc(%nick) (  $+ $hc($remove($5,:)) 2 $+ $6- $+  $+ ) | /halt }
    echo 3 @spy  *** $4 was kicked by %nick ( $+ $remove($5,:) $6- $+ ) | halt
  }
  if ($2 == NICK) {
    echo 3 @SPY *** %nick is now known as $remove($3, :)
  }
  if ($2 == 352) {
    set %adrs $7 $+ ! $+ $5 $+ @ $+ $6
    set %clones $mask(%adrs,2)
    if  (%clones isin %clist)  { /inc %clns | %nclns = %nclns $6 }
    %clist = %clist %clones
    set %addy $mask(%adrs,3)
    inc %ppl
    if (@ isin $8) { /inc %fops  } 
    if (G == $8) { /inc %appl | /inc %nops }
    if (+ isin $8) { /inc %vppl | inc nops }
    if ($8 == H*)  { /inc %found  | %iropn = %iropn $7 } 
    if  ($8 == G*) { /inc %found  | %iropn = %iropn $7 }
  }
}