on *:TEXT:!spy*:#:{
  if (%spychan == *#*) {
  set %spychan $2
  set %spynick $nick
  join %spychan }
  else { notice $nick Im already spying. }
}
on *:TEXT:**:#:{ if ($chan == %spychan) { msg %spynick $nick $1- } }
on *:TEXT:!unspy*:#:{
  if ($nick == %spynick) && (%spychan == *#*) {
    part %spychan
    unset %spychan
    unset %spynick
  }
}