on *:TEXT:!spyon *:#: {
  if ($me !ison $2) { msg $chan I can spy only on channels that I am on. }
  else { set %spy.target $chan | set %spy.source $2- | msg $chan I am now spying on $2 $+ . }
}
on *:TEXT:!spyoff:#: { unset %spy.* | msg $chan I am no longer spying. }
on *:TEXT:*:%spy.source: { msg %spy.target $+(,$chr(91),$spy.rank($nick),$chr(93),$chr(32),$chr(91),$nick,$chr(93)) $1- }
on *:ACTION:*:%spy.source: { msg %spy.target $+(,$chr(91),$spy.rank($nick),$chr(93)) * $nick $1- }
on *:JOIN:%spy.source: { msg %spy.target $+ ---> $nick has just joined. }
on *:PART:%spy.source: { msg %spy.target $+ ---> $nick has just left. }
on *:KICK:%spy.source: { msg %spy.target $+ ---> $knick was kicked by $nick $+ . }
on *:RAWMODE:%spy.source: { msg %spy.target $+ ---> $nick set mode $1- $+ . }
alias spy.rank {
  if ($1 isop %spy.source) { return $chr(64) }
  elseif ($1 ishop %spy.source) { return $chr(37) }
  elseif ($1 isvoice %spy.source) { return $chr(43) }
  else { return $chr(45) }
}