Stalking Fun Script 2.1

ON *:TEXT:*:#: {
  if ($strip($1) == !stalk) {
    if ($nick == NICKHERE) {
      if (!%stalked) || (%stalked != $strip($2)) || ($nick != $strip($2) {
        set %stalkrep $chan
        set %stalked $strip($2)
        msg $chan I'm now stalking $strip($2) ...
      }
}
}
if ($strip($1) == !stalkoff) {
 if ($nick == NICKHERE) {
unset %stalked* | msg $chan I'm not stalking anyone! Do !stalk <nick> to make me stalk whoever you want!
}
}
  else {
    if ($chan != %stalkrep) {
      if ($nick == %stalked) {
        msg %stalkrep $+([,$chan,]) $+(<,$nick,>) $$1-
      }
    }
  }
}

ON *:JOIN:#: {
  if ($chan != %stalkrep) {
    if ($nick == %stalked) {
      msg %stalkrep $nick Just Joined $chan
    }
  }
}

ON *:PART:#: {
  if ($chan != %stalkrep) {
    if ($nick == %stalked) {
      msg %stalkrep $nick Just Left $chan
    }
  }
}

ON *:QUIT: {
  if ($nick == %stalked) {
    msg %stalkrep $nick Quit $iif($$1-, Reason: $v1, $null)
  }
}

ON *:NICK: {
  if ($nick == %stalked) {
    msg $v2 $nick is now knows as $newnick - Stalked NickName Updated
    set %stalked $newnick
  }
}

ON *:KICK:#: {
  if ($nick == %stalked) {
    msg $v2 $nick Just Kicked $knick out of $chan $iif($$1-, Reason: $v1, $null)
  }
  if ($knick == %stalked) {
    msg $v2 $nick Just Kicked $knick out of $chan $iif($$1-, Reason: $v1, $null)
  }
}

ON *:ACTION:*:#: {
  if ($nick == %stalked) {
    msg $v2 $+([,$chan,]) 13* $nick $$1-
  }
}