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

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

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

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

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

on *:NICK:{
  if ($newnick != $me) {
    hdel active_users $nick
    hadd active_users $newnick 1
    msg #log $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
}