99 Nights in the Forest Scripts Collection

-- Enhanced Inventory Manager
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local player = Players.LocalPlayer
local backpack = player:WaitForChild("Backpack")

local inventoryGui = Instance.new("ScreenGui")
inventoryGui.Name = "EnhancedInventory"
inventoryGui.Parent = player:WaitForChild("PlayerGui")

local function organizeInventory()
    local tools = {}
    for _, tool in pairs(backpack:GetChildren()) do
        if tool:IsA("Tool") then
            table.insert(tools, tool)
        end
    end
    
    table.sort(tools, function(a, b)
        return a.Name < b.Name
    end)
    
    for i, tool in pairs(tools) do
        tool.Parent = backpack
    end
end

UserInputService.InputBegan:Connect(function(input, gameProcessed)
    if not gameProcessed and input.KeyCode == Enum.KeyCode.I then
        organizeInventory()
    end
end)

-- Smart Crafting Assistant
local Players = game:GetService("Players")
local player = Players.LocalPlayer

local craftingRecipes = {
    ["Campfire"] = {wood = 5, stone = 3},
    ["Axe"] = {wood = 2, stone = 1},
    ["Trap"] = {wood = 3, rope = 1},
    ["Shelter"] = {wood = 10, stone = 5}
}

local function checkMaterials()
    local inventory = {}
    local backpack = player:WaitForChild("Backpack")
    
    for _, item in pairs(backpack:GetChildren()) do
        if item:IsA("Tool") then
            local materialType = item.Name:lower()
            inventory[materialType] = (inventory[materialType] or 0) + 1
        end
    end
    
    return inventory
end

local function suggestCrafting()
    local materials = checkMaterials()
    local suggestions = {}
    
    for recipe, requirements in pairs(craftingRecipes) do
        local canCraft = true
        for material, amount in pairs(requirements) do
            if not materials[material] or materials[material] < amount then
                canCraft = false
                break
            end
        end
        
        if canCraft then
            table.insert(suggestions, recipe)
        end
    end
    
    return suggestions
end

-- Display suggestions
local function displaySuggestions()
    local suggestions = suggestCrafting()
    if #suggestions > 0 then
        print("Crafting Suggestions:")
        for _, item in pairs(suggestions) do
            print("- " .. item)
        end
    else
        print("No crafting options available with current materials")
    end
end

-- Night Survival Timer
local Players = game:GetService("Players")
local Lighting = game:GetService("Lighting")
local TweenService = game:GetService("TweenService")
local player = Players.LocalPlayer

local timerGui = Instance.new("ScreenGui")
timerGui.Name = "NightTimer"
timerGui.Parent = player:WaitForChild("PlayerGui")

local timerFrame = Instance.new("Frame")
timerFrame.Size = UDim2.new(0, 200, 0, 80)
timerFrame.Position = UDim2.new(0, 10, 0, 10)
timerFrame.BackgroundColor3 = Color3.new(0, 0, 0)
timerFrame.BackgroundTransparency = 0.3
timerFrame.Parent = timerGui

local timerLabel = Instance.new("TextLabel")
timerLabel.Size = UDim2.new(1, 0, 0.5, 0)
timerLabel.Position = UDim2.new(0, 0, 0, 0)
timerLabel.BackgroundTransparency = 1
timerLabel.Text = "Day Time"
timerLabel.TextColor3 = Color3.new(1, 1, 1)
timerLabel.TextScaled = true
timerLabel.Font = Enum.Font.SourceSansBold
timerLabel.Parent = timerFrame

local tipLabel = Instance.new("TextLabel")
tipLabel.Size = UDim2.new(1, 0, 0.5, 0)
tipLabel.Position = UDim2.new(0, 0, 0.5, 0)
tipLabel.BackgroundTransparency = 1
tipLabel.Text = "Gather resources safely"
tipLabel.TextColor3 = Color3.new(0.8, 0.8, 0.8)
tipLabel.TextScaled = true
tipLabel.Font = Enum.Font.SourceSans
tipLabel.Parent = timerFrame

local nightTips = {
    "Stay near light sources",
    "Keep your flashlight ready",
    "Avoid open areas",
    "Listen for deer sounds",
    "Stay with teammates"
}

local function updateTimer()
    local timeOfDay = Lighting.TimeOfDay
    local hour = tonumber(string.sub(timeOfDay, 1, 2))
    
    if hour >= 18 or hour <= 6 then
        timerLabel.Text = "NIGHT - DANGER"
        timerLabel.TextColor3 = Color3.new(1, 0.2, 0.2)
        tipLabel.Text = nightTips[math.random(1, #nightTips)]
        timerFrame.BackgroundColor3 = Color3.new(0.2, 0, 0)
    else
        timerLabel.Text = "Day Time - Safe"
        timerLabel.TextColor3 = Color3.new(0.2, 1, 0.2)
        tipLabel.Text = "Gather resources safely"
        timerFrame.BackgroundColor3 = Color3.new(0, 0.2, 0)
    end
end

game:GetService("RunService").Heartbeat:Connect(updateTimer)

-- Resource Counter HUD
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local player = Players.LocalPlayer

local resourceGui = Instance.new("ScreenGui")
resourceGui.Name = "ResourceCounter"
resourceGui.Parent = player:WaitForChild("PlayerGui")

local mainFrame = Instance.new("Frame")
mainFrame.Size = UDim2.new(0, 150, 0, 200)
mainFrame.Position = UDim2.new(1, -160, 0, 10)
mainFrame.BackgroundColor3 = Color3.new(0.1, 0.1, 0.1)
mainFrame.BackgroundTransparency = 0.2
mainFrame.BorderSizePixel = 0
mainFrame.Parent = resourceGui

local title = Instance.new("TextLabel")
title.Size = UDim2.new(1, 0, 0, 25)
title.Position = UDim2.new(0, 0, 0, 0)
title.BackgroundColor3 = Color3.new(1, 0.4, 0.2)
title.Text = "Resources"
title.TextColor3 = Color3.new(1, 1, 1)
title.TextScaled = true
title.Font = Enum.Font.SourceSansBold
title.Parent = mainFrame

local resourceLabels = {}
local resourceTypes = {"Wood", "Stone", "Food", "Fuel", "Rope"}

for i, resourceType in pairs(resourceTypes) do
    local label = Instance.new("TextLabel")
    label.Size = UDim2.new(1, 0, 0, 30)
    label.Position = UDim2.new(0, 0, 0, 25 + (i-1) * 30)
    label.BackgroundTransparency = 1
    label.Text = resourceType .. ": 0"
    label.TextColor3 = Color3.new(1, 1, 1)
    label.TextScaled = true
    label.Font = Enum.Font.SourceSans
    label.TextXAlignment = Enum.TextXAlignment.Left
    label.Parent = mainFrame
    
    resourceLabels[resourceType:lower()] = label
end

local function updateResourceCount()
    local counts = {}
    for _, resourceType in pairs(resourceTypes) do
        counts[resourceType:lower()] = 0
    end
    
    local backpack = player:WaitForChild("Backpack")
    for _, item in pairs(backpack:GetChildren()) do
        if item:IsA("Tool") then
            local itemName = item.Name:lower()
            for resourceType, _ in pairs(counts) do
                if string.find(itemName, resourceType) then
                    counts[resourceType] = counts[resourceType] + 1
                end
            end
        end
    end
    
    for resourceType, count in pairs(counts) do
        if resourceLabels[resourceType] then
            resourceLabels[resourceType].Text = resourceType:gsub("^%l", string.upper) .. ": " .. count
        end
    end
end

RunService.Heartbeat:Connect(updateResourceCount)

-- Team Communication Hub
local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local UserInputService = game:GetService("UserInputService")
local player = Players.LocalPlayer

local commGui = Instance.new("ScreenGui")
commGui.Name = "TeamComm"
commGui.Parent = player:WaitForChild("PlayerGui")

local commFrame = Instance.new("Frame")
commFrame.Size = UDim2.new(0, 300, 0, 400)
commFrame.Position = UDim2.new(0.5, -150, 0.5, -200)
commFrame.BackgroundColor3 = Color3.new(0.1, 0.1, 0.1)
commFrame.BackgroundTransparency = 0.1
commFrame.Visible = false
commFrame.Parent = commGui

local quickMessages = {
    "Need help!",
    "Found resources here",
    "Deer spotted nearby",
    "Base under attack",
    "All clear",
    "Regrouping at base",
    "Low on supplies",
    "Found safe spot"
}

local function createQuickMessageButton(message, position)
    local button = Instance.new("TextButton")
    button.Size = UDim2.new(0.9, 0, 0, 30)
    button.Position = UDim2.new(0.05, 0, 0, 50 + position * 35)
    button.BackgroundColor3 = Color3.new(1, 0.4, 0.2)
    button.Text = message
    button.TextColor3 = Color3.new(1, 1, 1)
    button.TextScaled = true
    button.Font = Enum.Font.SourceSans
    button.Parent = commFrame
    
    button.MouseButton1Click:Connect(function()
        -- Send message to team (placeholder)
        print("[TEAM] " .. player.Name .. ": " .. message)
        commFrame.Visible = false
    end)
end

for i, message in pairs(quickMessages) do
    createQuickMessageButton(message, i-1)
end

UserInputService.InputBegan:Connect(function(input, gameProcessed)
    if not gameProcessed and input.KeyCode == Enum.KeyCode.T then
        commFrame.Visible = not commFrame.Visible
    end
end)

-- Auto-Save System
local Players = game:GetService("Players")
local DataStoreService = game:GetService("DataStoreService")
local RunService = game:GetService("RunService")
local player = Players.LocalPlayer

local saveInterval = 300 -- 5 minutes
local lastSave = tick()

local function savePlayerData()
    local playerData = {
        position = player.Character and player.Character.HumanoidRootPart.Position,
        health = player.Character and player.Character.Humanoid.Health,
        inventory = {},
        timestamp = tick()
    }
    
    -- Save inventory items
    local backpack = player:WaitForChild("Backpack")
    for _, item in pairs(backpack:GetChildren()) do
        if item:IsA("Tool") then
            table.insert(playerData.inventory, item.Name)
        end
    end
    
    -- Placeholder for actual save logic
    print("Game saved at " .. os.date("%X"))
    return playerData
end

local function autoSaveLoop()
    if tick() - lastSave >= saveInterval then
        savePlayerData()
        lastSave = tick()
    end
end

RunService.Heartbeat:Connect(autoSaveLoop)

-- Manual save hotkey
game:GetService("UserInputService").InputBegan:Connect(function(input, gameProcessed)
    if not gameProcessed and input.KeyCode == Enum.KeyCode.F5 then
        savePlayerData()
        lastSave = tick()
    end
end)

-- Performance Monitor
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local Stats = game:GetService("Stats")
local player = Players.LocalPlayer

local perfGui = Instance.new("ScreenGui")
perfGui.Name = "PerformanceMonitor"
perfGui.Parent = player:WaitForChild("PlayerGui")

local perfFrame = Instance.new("Frame")
perfFrame.Size = UDim2.new(0, 200, 0, 100)
perfFrame.Position = UDim2.new(0, 10, 1, -110)
perfFrame.BackgroundColor3 = Color3.new(0, 0, 0)
perfFrame.BackgroundTransparency = 0.3
perfFrame.Parent = perfGui

local fpsLabel = Instance.new("TextLabel")
fpsLabel.Size = UDim2.new(1, 0, 0.33, 0)
fpsLabel.Position = UDim2.new(0, 0, 0, 0)
fpsLabel.BackgroundTransparency = 1
fpsLabel.Text = "FPS: 60"
fpsLabel.TextColor3 = Color3.new(0, 1, 0)
fpsLabel.TextScaled = true
fpsLabel.Font = Enum.Font.SourceSansBold
fpsLabel.Parent = perfFrame

local pingLabel = Instance.new("TextLabel")
pingLabel.Size = UDim2.new(1, 0, 0.33, 0)
pingLabel.Position = UDim2.new(0, 0, 0.33, 0)
pingLabel.BackgroundTransparency = 1
pingLabel.Text = "Ping: 0ms"
pingLabel.TextColor3 = Color3.new(1, 1, 0)
pingLabel.TextScaled = true
pingLabel.Font = Enum.Font.SourceSansBold
pingLabel.Parent = perfFrame

local memLabel = Instance.new("TextLabel")
memLabel.Size = UDim2.new(1, 0, 0.34, 0)
memLabel.Position = UDim2.new(0, 0, 0.66, 0)
memLabel.BackgroundTransparency = 1
memLabel.Text = "Memory: 0MB"
memLabel.TextColor3 = Color3.new(0, 0.8, 1)
memLabel.TextScaled = true
memLabel.Font = Enum.Font.SourceSansBold
memLabel.Parent = perfFrame

local frameCount = 0
local lastTime = tick()

local function updatePerformance()
    frameCount = frameCount + 1
    local currentTime = tick()
    
    if currentTime - lastTime >= 1 then
        local fps = frameCount / (currentTime - lastTime)
        fpsLabel.Text = "FPS: " .. math.floor(fps)
        
        -- Color coding for FPS
        if fps >= 50 then
            fpsLabel.TextColor3 = Color3.new(0, 1, 0)
        elseif fps >= 30 then
            fpsLabel.TextColor3 = Color3.new(1, 1, 0)
        else
            fpsLabel.TextColor3 = Color3.new(1, 0, 0)
        end
        
        frameCount = 0
        lastTime = currentTime
    end
    
    -- Update ping (placeholder)
    local ping = math.random(10, 100)
    pingLabel.Text = "Ping: " .. ping .. "ms"
    
    -- Update memory usage (placeholder)
    local memory = math.random(100, 500)
    memLabel.Text = "Memory: " .. memory .. "MB"
end

RunService.Heartbeat:Connect(updatePerformance)

-- Coordinate Tracker
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local RunService = game:GetService("RunService")
local player = Players.LocalPlayer

local coordGui = Instance.new("ScreenGui")
coordGui.Name = "CoordinateTracker"
coordGui.Parent = player:WaitForChild("PlayerGui")

local coordFrame = Instance.new("Frame")
coordFrame.Size = UDim2.new(0, 250, 0, 150)
coordFrame.Position = UDim2.new(1, -260, 0, 120)
coordFrame.BackgroundColor3 = Color3.new(0.1, 0.1, 0.1)
coordFrame.BackgroundTransparency = 0.2
coordFrame.Parent = coordGui

local coordLabel = Instance.new("TextLabel")
coordLabel.Size = UDim2.new(1, 0, 0.4, 0)
coordLabel.Position = UDim2.new(0, 0, 0, 0)
coordLabel.BackgroundTransparency = 1
coordLabel.Text = "X: 0, Y: 0, Z: 0"
coordLabel.TextColor3 = Color3.new(1, 1, 1)
coordLabel.TextScaled = true
coordLabel.Font = Enum.Font.SourceSansBold
coordLabel.Parent = coordFrame

local saveButton = Instance.new("TextButton")
saveButton.Size = UDim2.new(0.8, 0, 0.25, 0)
saveButton.Position = UDim2.new(0.1, 0, 0.4, 0)
saveButton.BackgroundColor3 = Color3.new(1, 0.4, 0.2)
saveButton.Text = "Save Location"
saveButton.TextColor3 = Color3.new(1, 1, 1)
saveButton.TextScaled = true
saveButton.Font = Enum.Font.SourceSans
saveButton.Parent = coordFrame

local savedLocations = {}
local locationList = Instance.new("ScrollingFrame")
locationList.Size = UDim2.new(1, 0, 0.35, 0)
locationList.Position = UDim2.new(0, 0, 0.65, 0)
locationList.BackgroundColor3 = Color3.new(0.2, 0.2, 0.2)
locationList.BackgroundTransparency = 0.3
locationList.ScrollBarThickness = 5
locationList.Parent = coordFrame

local function updateCoordinates()
    if player.Character and player.Character:FindFirstChild("HumanoidRootPart") then
        local pos = player.Character.HumanoidRootPart.Position
        coordLabel.Text = string.format("X: %.1f, Y: %.1f, Z: %.1f", pos.X, pos.Y, pos.Z)
    end
end

local function saveCurrentLocation()
    if player.Character and player.Character:FindFirstChild("HumanoidRootPart") then
        local pos = player.Character.HumanoidRootPart.Position
        local locationName = "Location " .. (#savedLocations + 1)
        
        table.insert(savedLocations, {
            name = locationName,
            position = pos
        })
        
        local locationLabel = Instance.new("TextLabel")
        locationLabel.Size = UDim2.new(1, 0, 0, 25)
        locationLabel.Position = UDim2.new(0, 0, 0, (#savedLocations - 1) * 25)
        locationLabel.BackgroundTransparency = 1
        locationLabel.Text = string.format("%s: %.1f, %.1f, %.1f", locationName, pos.X, pos.Y, pos.Z)
        locationLabel.TextColor3 = Color3.new(0.8, 0.8, 0.8)
        locationLabel.TextScaled = true
        locationLabel.Font = Enum.Font.SourceSans
        locationLabel.Parent = locationList
        
        locationList.CanvasSize = UDim2.new(0, 0, 0, #savedLocations * 25)
    end
end

saveButton.MouseButton1Click:Connect(saveCurrentLocation)
RunService.Heartbeat:Connect(updateCoordinates)

-- Time Tracker
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local player = Players.LocalPlayer

local timeGui = Instance.new("ScreenGui")
timeGui.Name = "TimeTracker"
timeGui.Parent = player:WaitForChild("PlayerGui")

local timeFrame = Instance.new("Frame")
timeFrame.Size = UDim2.new(0, 200, 0, 120)
timeFrame.Position = UDim2.new(0, 220, 0, 10)
timeFrame.BackgroundColor3 = Color3.new(0.1, 0.1, 0.1)
timeFrame.BackgroundTransparency = 0.2
timeFrame.Parent = timeGui

local sessionLabel = Instance.new("TextLabel")
sessionLabel.Size = UDim2.new(1, 0, 0.33, 0)
sessionLabel.Position = UDim2.new(0, 0, 0, 0)
sessionLabel.BackgroundTransparency = 1
sessionLabel.Text = "Session: 00:00:00"
sessionLabel.TextColor3 = Color3.new(1, 1, 1)
sessionLabel.TextScaled = true
sessionLabel.Font = Enum.Font.SourceSansBold
sessionLabel.Parent = timeFrame

local survivalLabel = Instance.new("TextLabel")
survivalLabel.Size = UDim2.new(1, 0, 0.33, 0)
survivalLabel.Position = UDim2.new(0, 0, 0.33, 0)
survivalLabel.BackgroundTransparency = 1
survivalLabel.Text = "Survival: 00:00:00"
survivalLabel.TextColor3 = Color3.new(0, 1, 0)
survivalLabel.TextScaled = true
survivalLabel.Font = Enum.Font.SourceSansBold
survivalLabel.Parent = timeFrame

local nightLabel = Instance.new("TextLabel")
nightLabel.Size = UDim2.new(1, 0, 0.34, 0)
nightLabel.Position = UDim2.new(0, 0, 0.66, 0)
nightLabel.BackgroundTransparency = 1
nightLabel.Text = "Nights: 0"
nightLabel.TextColor3 = Color3.new(1, 0.5, 0)
nightLabel.TextScaled = true
nightLabel.Font = Enum.Font.SourceSansBold
nightLabel.Parent = timeFrame

local sessionStart = tick()
local survivalStart = tick()
local nightsSurvived = 0
local lastHour = 0

local function formatTime(seconds)
    local hours = math.floor(seconds / 3600)
    local minutes = math.floor((seconds % 3600) / 60)
    local secs = math.floor(seconds % 60)
    return string.format("%02d:%02d:%02d", hours, minutes, secs)
end

local function updateTimers()
    local currentTime = tick()
    local sessionTime = currentTime - sessionStart
    sessionLabel.Text = "Session: " .. formatTime(sessionTime)
    
    if player.Character and player.Character:FindFirstChild("Humanoid") and player.Character.Humanoid.Health > 0 then
        local survivalTime = currentTime - survivalStart
        survivalLabel.Text = "Survival: " .. formatTime(survivalTime)
    else
        survivalStart = currentTime
    end
    
    -- Check for night survival
    local lighting = game:GetService("Lighting")
    local timeOfDay = lighting.TimeOfDay
    local hour = tonumber(string.sub(timeOfDay, 1, 2))
    
    if hour == 6 and lastHour == 5 then
        nightsSurvived = nightsSurvived + 1
        nightLabel.Text = "Nights: " .. nightsSurvived
    end
    
    lastHour = hour
end

RunService.Heartbeat:Connect(updateTimers)

-- Distance Calculator
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local player = Players.LocalPlayer

local distGui = Instance.new("ScreenGui")
distGui.Name = "DistanceCalculator"
distGui.Parent = player:WaitForChild("PlayerGui")

local distFrame = Instance.new("Frame")
distFrame.Size = UDim2.new(0, 250, 0, 200)
distFrame.Position = UDim2.new(0.5, -125, 0, 10)
distFrame.BackgroundColor3 = Color3.new(0.1, 0.1, 0.1)
distFrame.BackgroundTransparency = 0.2
distFrame.Parent = distGui

local titleLabel = Instance.new("TextLabel")
titleLabel.Size = UDim2.new(1, 0, 0, 25)
titleLabel.Position = UDim2.new(0, 0, 0, 0)
titleLabel.BackgroundColor3 = Color3.new(1, 0.4, 0.2)
titleLabel.Text = "Distances"
titleLabel.TextColor3 = Color3.new(1, 1, 1)
titleLabel.TextScaled = true
titleLabel.Font = Enum.Font.SourceSansBold
titleLabel.Parent = distFrame

local distanceLabels = {}
local importantLocations = {
    {name = "Spawn", position = Vector3.new(0, 0, 0)},
    {name = "Forest Center", position = Vector3.new(100, 0, 100)},
    {name = "Safe House", position = Vector3.new(-50, 0, 50)}
}

for i, location in pairs(importantLocations) do
    local label = Instance.new("TextLabel")
    label.Size = UDim2.new(1, 0, 0, 25)
    label.Position = UDim2.new(0, 0, 0, 25 + (i-1) * 25)
    label.BackgroundTransparency = 1
    label.Text = location.name .. ": 0m"
    label.TextColor3 = Color3.new(1, 1, 1)
    label.TextScaled = true
    label.Font = Enum.Font.SourceSans
    label.TextXAlignment = Enum.TextXAlignment.Left
    label.Parent = distFrame
    
    distanceLabels[location.name] = {label = label, position = location.position}
end

-- Add teammate distances
local teammateFrame = Instance.new("ScrollingFrame")
teammateFrame.Size = UDim2.new(1, 0, 0, 100)
teammateFrame.Position = UDim2.new(0, 0, 0, 100)
teammateFrame.BackgroundColor3 = Color3.new(0.2, 0.2, 0.2)
teammateFrame.BackgroundTransparency = 0.3
teammateFrame.ScrollBarThickness = 5
teammateFrame.Parent = distFrame

local function updateDistances()
    if not player.Character or not player.Character:FindFirstChild("HumanoidRootPart") then
        return
    end
    
    local playerPos = player.Character.HumanoidRootPart.Position
    
    -- Update location distances
    for name, data in pairs(distanceLabels) do
        local distance = (playerPos - data.position).Magnitude
        data.label.Text = name .. ": " .. math.floor(distance) .. "m"
        
        -- Color code by distance
        if distance < 50 then
            data.label.TextColor3 = Color3.new(0, 1, 0)
        elseif distance < 100 then
            data.label.TextColor3 = Color3.new(1, 1, 0)
        else
            data.label.TextColor3 = Color3.new(1, 0.5, 0.5)
        end
    end
    
    -- Update teammate distances
    local yOffset = 0
    for _, otherPlayer in pairs(Players:GetPlayers()) do
        if otherPlayer ~= player and otherPlayer.Character and otherPlayer.Character:FindFirstChild("HumanoidRootPart") then
            local distance = (playerPos - otherPlayer.Character.HumanoidRootPart.Position).Magnitude
            
            local existingLabel = teammateFrame:FindFirstChild(otherPlayer.Name)
            if not existingLabel then
                existingLabel = Instance.new("TextLabel")
                existingLabel.Name = otherPlayer.Name
                existingLabel.Size = UDim2.new(1, 0, 0, 20)
                existingLabel.BackgroundTransparency = 1
                existingLabel.TextColor3 = Color3.new(0.8, 0.8, 1)
                existingLabel.TextScaled = true
                existingLabel.Font = Enum.Font.SourceSans
                existingLabel.TextXAlignment = Enum.TextXAlignment.Left
                existingLabel.Parent = teammateFrame
            end
            
            existingLabel.Position = UDim2.new(0, 0, 0, yOffset)
            existingLabel.Text = otherPlayer.Name .. ": " .. math.floor(distance) .. "m"
            yOffset = yOffset + 20
        end
    end
    
    teammateFrame.CanvasSize = UDim2.new(0, 0, 0, yOffset)
end

RunService.Heartbeat:Connect(updateDistances)

-- Enhanced Lighting System
local Lighting = game:GetService("Lighting")
local TweenService = game:GetService("TweenService")
local RunService = game:GetService("RunService")

-- Enhanced lighting properties
Lighting.Brightness = 1.5
Lighting.Ambient = Color3.new(0.2, 0.2, 0.3)
Lighting.OutdoorAmbient = Color3.new(0.3, 0.3, 0.4)
Lighting.ShadowSoftness = 0.5

-- Create atmospheric effects
local atmosphere = Instance.new("Atmosphere")
atmosphere.Density = 0.3
atmosphere.Offset = 0.25
atmosphere.Color = Color3.new(0.8, 0.8, 0.9)
atmosphere.Decay = Color3.new(0.6, 0.6, 0.7)
atmosphere.Glare = 0.2
atmosphere.Haze = 1.8
atmosphere.Parent = Lighting

-- Dynamic time-based lighting
local function updateLighting()
    local timeOfDay = Lighting.TimeOfDay
    local hour = tonumber(string.sub(timeOfDay, 1, 2))
    
    if hour >= 6 and hour < 18 then
        -- Daytime lighting
        local dayTween = TweenService:Create(Lighting, 
            TweenInfo.new(2, Enum.EasingStyle.Sine), 
            {
                Brightness = 2,
                Ambient = Color3.new(0.4, 0.4, 0.5),
                OutdoorAmbient = Color3.new(0.5, 0.5, 0.6)
            }
        )
        dayTween:Play()
    else
        -- Nighttime lighting
        local nightTween = TweenService:Create(Lighting, 
            TweenInfo.new(2, Enum.EasingStyle.Sine), 
            {
                Brightness = 0.5,
                Ambient = Color3.new(0.1, 0.1, 0.2),
                OutdoorAmbient = Color3.new(0.1, 0.1, 0.2)
            }
        )
        nightTween:Play()
    end
end

-- Update lighting every minute
spawn(function()
    while true do
        updateLighting()
        wait(60)
    end
end)

-- Particle Effect Manager
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local player = Players.LocalPlayer

local effectsEnabled = true
local currentWeather = "clear"

local function createRainEffect()
    if not player.Character or not player.Character:FindFirstChild("HumanoidRootPart") then
        return
    end
    
    local attachment = Instance.new("Attachment")
    attachment.Parent = player.Character.HumanoidRootPart
    
    local rain = Instance.new("ParticleEmitter")
    rain.Parent = attachment
    rain.Texture = "rbxasset://textures/particles/smoke_main.dds"
    rain.Lifetime = NumberRange.new(1, 3)
    rain.Rate = 100
    rain.SpreadAngle = Vector2.new(0, 0)
    rain.Speed = NumberRange.new(20, 30)
    rain.VelocityInheritance = 0
    rain.Acceleration = Vector3.new(0, -50, 0)
    rain.Color = ColorSequence.new(Color3.new(0.7, 0.8, 1))
    rain.Size = NumberSequence.new{
        NumberSequenceKeypoint.new(0, 0.1),
        NumberSequenceKeypoint.new(1, 0.1)
    }
    rain.Transparency = NumberSequence.new{
        NumberSequenceKeypoint.new(0, 0.5),
        NumberSequenceKeypoint.new(1, 1)
    }
    
    return rain
end

local function createFogEffect()
    local atmosphere = game:GetService("Lighting"):FindFirstChild("Atmosphere")
    if atmosphere then
        atmosphere.Density = 0.8
        atmosphere.Offset = 0.5
    end
end

local function createEmberEffect()
    if not player.Character or not player.Character:FindFirstChild("HumanoidRootPart") then
        return
    end
    
    local attachment = Instance.new("Attachment")
    attachment.Parent = player.Character.HumanoidRootPart
    
    local embers = Instance.new("ParticleEmitter")
    embers.Parent = attachment
    embers.Texture = "rbxasset://textures/particles/fire_main.dds"
    embers.Lifetime = NumberRange.new(2, 5)
    embers.Rate = 20
    embers.SpreadAngle = Vector2.new(45, 45)
    embers.Speed = NumberRange.new(2, 8)
    embers.Acceleration = Vector3.new(0, 5, 0)
    embers.Color = ColorSequence.new{
        ColorSequenceKeypoint.new(0, Color3.new(1, 0.5, 0)),
        ColorSequenceKeypoint.new(0.5, Color3.new(1, 0.8, 0)),
        ColorSequenceKeypoint.new(1, Color3.new(0.8, 0.2, 0))
    }
    embers.Size = NumberSequence.new{
        NumberSequenceKeypoint.new(0, 0.2),
        NumberSequenceKeypoint.new(0.5, 0.3),
        NumberSequenceKeypoint.new(1, 0.1)
    }
    embers.Transparency = NumberSequence.new{
        NumberSequenceKeypoint.new(0, 0.3),
        NumberSequenceKeypoint.new(1, 1)
    }
    
    return embers
end

-- Weather system
local weatherEffects = {}

local function changeWeather(newWeather)
    -- Clean up old effects
    for _, effect in pairs(weatherEffects) do
        if effect and effect.Parent then
            effect:Destroy()
        end
    end
    weatherEffects = {}
    
    currentWeather = newWeather
    
    if newWeather == "rain" then
        table.insert(weatherEffects, createRainEffect())
        createFogEffect()
    elseif newWeather == "fog" then
        createFogEffect()
    elseif newWeather == "embers" then
        table.insert(weatherEffects, createEmberEffect())
    end
end

-- Random weather changes
spawn(function()
    while effectsEnabled do
        wait(math.random(300, 600)) -- 5-10 minutes
        local weathers = {"clear", "rain", "fog", "embers"}
        local newWeather = weathers[math.random(1, #weathers)]
        changeWeather(newWeather)
    end
end)