set myNick MIRCUser

var %izlenenNickler

alias nickekle {
  if ($nick == %myNick) {
    set %izlenenNickler %izlenenNickler $1
    msg $nick Nick $1 izleniyor.
    window -a Takip - $1
  }
}

alias silnick {
  if ($nick == %myNick) {
    if (%izlenenNickler isin $1) {
      set %izlenenNickler $remtok(%izlenenNickler,$1,1,32)
      msg $nick Nick $1 artık izlenmiyor.
      window -c Takip - $1
    }
    else {
      msg $nick Nick $1 izlenmiyor.
    }
  }
}

alias listnick {
  if ($nick == %myNick) {
    var %liste $replace(%izlenenNickler, $chr(32), $chr(44))
    if (%liste) {
      msg $nick İzlenen Nickler: %liste
    }
    else {
      msg $nick Hiçbir nick izlenmiyor.
    }
  }
}

on *:TEXT:*: {
  if (%izlenenNickler isin $nick) {
    aline Takip - $nick $+($time, $chr(32), <$nick>, $chr(32), $1-)
  }
}

on *:NICK: {
  if (%izlenenNickler isin $nick) {
    if ($window(Takip - $newnick)) {
      window -r Takip - $newnick
    }
    else {
      window -a Takip - $newnick
    }
    aline Takip - $newnick $+($time, $chr(32), Nick değiştirdi: $chr(3) $+ 4 $chr(2) $nick $+ $chr(15) $chr(3) $+ $chr(2)  $+ 2 $newnick)
  }
}