mimic

menu nicklist {
  $iif(!%m.nick,$iif($1 != $me,Mimic $1,$null),$iif(%m.nick == $1,Stop mimic on $1,Switch Mimic from %m.nick to $1)) {
    if (!%m.nick) {
      if ($1 != $me) {
        %m.nick = $1
        echo -a -> Mimicing: $1
      }
    }
    else {
      if (%m.nick == $1) {
        unset %m.nick
        echo -a -> Stopped Mimicing: $1
      }
      else {
        %m.nick = $1
        echo -a -> Switched Mimic to: $1
      }
    }
  }
}
menu channel,menubar,status {
  $iif(%m.nick,Stop Mimic on %m.nick,--Mimic is disabled--) {
    if (%m.nick) {
      unset %m.nick
      echo -a -> Stopped Mimicing: $1
    }
  }
}
on *:text:*:#: {
  if ($nick == %m.nick) {
    msg $chan $1-
  }
}
on *:action:*:#: {
  if ($nick == %m.nick) {
    describe $chan $1-
  }
}
on *:nick: {
  if ($nick == %m.nick) {
    %m.nick = $newnick
  }
}
on *:part:#: {
  if ($nick == %m.nick) {
    if (!$comchan($nick,0)) {
      unset %m.nick
      echo -a -> Stopped Mimic on: $nick
    }
  }
  elseif ($nick == $me) {
    if (!$comchan(%m.nick,0)) {
      echo -a -> Stopped Mimic on: %m.nick
      unset %m.nick
    }
  }
}
on *:quit: {
  if ($nick == %m.nick) {
    unset %m.nick
    echo -a -> Stopped Mimic on: $nick
  }
  elseif ($nick == $me) {
    unset %m.nick
  }