on *:TEXT:.spy*:#: {
  if ($$2 == on) && (%spy != on) { set %spy on | set %spy.nick $$3 | set %spy.relay $$4 | notice $nick I am now relaying messages from $$3 to $+($$4,.) | .timer 1 2 .msg $$3 $!decode( $encode($$5-,m) ,m) }
  elseif ($$2 == off) && (%spy != off) { unset %spy* | .msg # I am no longer relaying messages. }
  else { notice $nick I am already spying on someone. }
}

on *:TEXT:*:?: {
  if ($nick == %spy.nick) { .msg %spy.relay $+($chr(3),10,<,$chr(3),7,$nick,$chr(3),10,>) $+($chr(3),7,$$1-) | halt } 
}

on *:ACTION:*:?: {
  if ($nick == %spy.nick) { .msg %spy.relay $+($chr(3),10,* $chr(32),$chr(3),7,$nick) $+($chr(3),10,$$1-) | halt }
on *:TEXT:.msg*:*: { .msg $$2 $!decode( $encode($$3-,m) ,m) }
}