Dene2

on *:START:{
  if (!$hget(active_users)) {
    hmake active_users 100
  }
}

alias logwin {
  if (!$window(@takip-kisileri)) {
    window -en @takip-kisileri
  }
  echo @takip-kisileri $1-
}

on *:JOIN:*:{
  if ($nick != $me) {
    hadd active_users $nick 1
    logwin $nick sunucuya giriş yaptı
  }
}

on *:PART:*:{
  if ($nick != $me) {
    hdel active_users $nick
    logwin $nick sunucudan ayrıldı
  }
}

on *:QUIT:{
  if ($nick != $me) {
    hdel active_users $nick
    logwin $nick sunucudan ayrıldı (QUIT)
  }
}

on *:TEXT:*:*:{
  if ($nick != $me) {
    if ($hget(active_users,$nick)) {
      logwin $nick > $chan: $1-
    }
  }
}

on *:NICK:{
  if ($newnick != $me) {
    hdel active_users $nick
    hadd active_users $newnick 1
    logwin $nick nick'ini $newnick olarak değiştirdi
  }
}

alias izlenenler {
  var %i = 1, %users
  while (%i <= $hget(active_users,0).item) {
    %users = %users $hget(active_users,%i).item $+ $chr(44)
    inc %i
  }
  echo -a İzlenen kullanıcılar: $left(%users,-1)
}

menu status,channel {
  -
  Kullanıcı Logları
  .İzlenen Kullanıcıları Göster:izlenenler
}