local Players = game:GetService("Players")
local LocalPlayer = Players.LocalPlayer
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local Camera = workspace.CurrentCamera

-- ESP Setup
local function createESP(player)
    local box = Instance.new("BoxHandleAdornment")
    box.Adornee = player.Character and player.Character:FindFirstChild("HumanoidRootPart")
    box.AlwaysOnTop = true
    box.ZIndex = 10
    box.Size = Vector3.new(4, 6, 4)
    box.Color3 = Color3.new(1, 0, 0)
    box.Transparency = 0.5
    box.Parent = player.Character and player.Character:FindFirstChild("HumanoidRootPart")
    return box
end

local espBoxes = {}

local function onCharacterAdded(character)
    local player = Players:GetPlayerFromCharacter(character)
    if player and player ~= LocalPlayer then
        local hrp = character:WaitForChild("HumanoidRootPart")
        local box = createESP(player)
        espBoxes[player] = box
        box.Adornee = hrp
    end
end

local function onPlayerAdded(player)
    player.CharacterAdded:Connect(onCharacterAdded)
    if player.Character then
        onCharacterAdded(player.Character)
    end
end

for _, player in pairs(Players:GetPlayers()) do
    if player ~= LocalPlayer then
        onPlayerAdded(player)
    end
end

Players.PlayerAdded:Connect(onPlayerAdded)

-- Aimbot Setup
local aimbotEnabled = true
local aimbotFOV = 100 -- degrees
local aimbotSmoothness = 0.2

local function getClosestTarget()
    local closestPlayer = nil
    local closestDistance = math.huge
    local mousePos = UserInputService:GetMouseLocation()
    for _, player in pairs(Players:GetPlayers()) do
        if player ~= LocalPlayer and player.Character and player.Character:FindFirstChild("HumanoidRootPart") and player.Character:FindFirstChild("Humanoid") and player.Character.Humanoid.Health > 0 then
            local hrp = player.Character.HumanoidRootPart
            local screenPos, onScreen = Camera:WorldToViewportPoint(hrp.Position)
            if onScreen then
                local dist = (Vector2.new(screenPos.X, screenPos.Y) - Vector2.new(mousePos.X, mousePos.Y)).Magnitude
                if dist < closestDistance and dist < aimbotFOV then
                    closestDistance = dist
                    closestPlayer = player
                end
            end
        end
    end
    return closestPlayer
end

RunService.RenderStepped:Connect(function()
    if aimbotEnabled and UserInputService:IsMouseButtonPressed(Enum.UserInputType.MouseButton2) then -- Right mouse button
        local target = getClosestTarget()
        if target and target.Character and target.Character:FindFirstChild("Head") then
            local headPos = Camera:WorldToViewportPoint(target.Character.Head.Position)
            local mousePos = UserInputService:GetMouseLocation()
            local delta = Vector2.new(headPos.X, headPos.Y) - Vector2.new(mousePos.X, mousePos.Y)
            local newMousePos = Vector2.new(mousePos.X, mousePos.Y) + delta * aimbotSmoothness
            UserInputService:SetMouseLocation(newMousePos.X, newMousePos.Y)
        end
    end
end)

-- Infinite Ammo and Gun Setup
local function setupInfiniteAmmo()
    local backpack = LocalPlayer:WaitForChild("Backpack")
    for _, tool in pairs(backpack:GetChildren()) do
        if tool:IsA("Tool") and tool:FindFirstChild("Ammo") then
            tool.Ammo.Value = math.huge
            tool.Ammo.Changed:Connect(function()
                if tool.Ammo.Value < math.huge then
                    tool.Ammo.Value = math.huge
                end
            end)
        end
    end
end

LocalPlayer.Backpack.ChildAdded:Connect(function(child)
    if child:IsA("Tool") and child:FindFirstChild("Ammo") then
        child.Ammo.Value = math.huge
        child.Ammo.Changed:Connect(function()
            if child.Ammo.Value < math.huge then
                child.Ammo.Value = math.huge
            end
        end)
    end
end)

setupInfiniteAmmo()

-- Infinite Money Setup
local leaderstats = LocalPlayer:WaitForChild("leaderstats", 10)
if leaderstats then
    for _, stat in pairs(leaderstats:GetChildren()) do
        if stat.Name:lower():find("money") or stat.Name:lower():find("cash") or stat.Name:lower():find("coins") then
            stat.Value = math.huge
            stat.Changed:Connect(function()
                if stat.Value < math.huge then
                    stat.Value = math.huge
                end
            end)
        end
    end
end