Lua Aimbot

local UI = game:GetObjects("rbxassetid://2989692423")[1]
local Services = setmetatable(game:GetChildren(), {
    __index = function(self, ServiceName)
        local Valid, Service = pcall(game.GetService, game, ServiceName)
        if Valid then
            self[ServiceName] = Service
            return Service
        end
    end
})
local Me = Services.Players.LocalPlayer
local Camera = workspace.CurrentCamera
local Code = Services.HttpService:GenerateGUID(true)
local DeltaSens
local Settings = setmetatable({
    Set = function(self, Setting, Value)
        local Label = UI[Setting]
        if Setting:sub(#Setting - 2) == "Key" then
            Label.State.Text = Value.Name
        else
            Label.State.Text = Value and "ON" or "OFF"
            Label.State.TextColor3 = Value and Color3.new(0,1,0) or Color3.new(1,0,0)
        end
    end,
    Hook = function(self, Setting, Function)
        return UI[Setting].State:GetPropertyChangedSignal("Text"):Connect(function()
                Function(UI[Setting].State.Text == "ON")
        end)
    end
}, {
    __index = function(self, Setting)
        if Setting:sub(#Setting - 2) == "Key" then
            local Setting = UI[Setting].State.Text
            return Setting ~= "Awaiting input..." and ((Setting:match("MouseButton") and Enum.UserInputType[Setting]) or Enum.KeyCode[Setting])
        elseif UI[Setting]:FindFirstChild("Slide") then
            return tonumber(UI[Setting].Value.Text)
        else
            return UI[Setting].State.Text == "ON"
        end
    end
})
local Utility = {
    GetPlayer = function(self)
        local MousePos = Services.UserInputService:GetMouseLocation()
        local Players = Services.Players:GetPlayers()
        local Selected, Distance = nil, Settings.MaxDistance
        for i = 1, #Players do
            local Player = Players[i]
            local Character = Player.Character or workspace:FindFirstChild(Player.Name, true)
            local Head = Character and (Character:FindFirstChild(Settings.AimForHead and "Head" or "HumanoidRootPart", true) or Character.PrimaryPart)
            if (Player ~= Me) and (self:IsValidHead(Head)) and ((Settings.TeamCheck and Player.TeamColor ~= Me.TeamColor) or (not Settings.TeamCheck)) then
                local Point, Visible = Camera:WorldToScreenPoint(Head.Position)
                if Visible then
                    local SelectedDistance = (Vector2.new(Point.X, Point.Y) - MousePos).Magnitude
                    local Eval = SelectedDistance <= Distance
                    Selected = Eval and Head or Selected
                    Distance = Eval and SelectedDistance or Distance
                end
            end
        end
        return Selected
    end,
    GetInputType = function(self, Input)
        return Input.KeyCode.Name ~= "Unknown" and Input.KeyCode or
        Input.UserInputType.Name:match("MouseButton") and Input.UserInputType
    end,
    IsValidHead = function(self, Head)
        if not Head then
            return false
        end
        local Character = Head:FindFirstAncestorOfClass("Model")
        local Humanoid = Character and (Character:FindFirstChildWhichIsA("Humanoid",true) or {Health = (Character:FindFirstChild("Health",true) or {Value = 1}).Value})
        local _, Visible = Camera:WorldToViewportPoint(Head.Position)
        return Humanoid and Visible and Humanoid.Health > 0
    end
}
local ContextActionFunctions = {
    Aimbotting = function(_, State)
        if not Settings.Functionality or (Settings.AimKeyToggles and State == Enum.UserInputState.End) then
            return
        end
        Settings:Set("Aimbotting", not Settings.Aimbotting)
    end,
    Functionality = function(_, State)
        if State == Enum.UserInputState.Begin and not Settings.Aimbotting then
            Settings:Set("Functionality", not Settings.Functionality)
        end
    end
}
local MoveMouse = (Input and Input.MoveMouse) or mousemoverel
for Index, Button in next, UI:GetChildren() do
    if Button.ClassName == "TextButton" and Button:FindFirstChild("State") then
        if Button.Name:sub(#Button.Name - 2) == "Key" then
            local FunctionName = Button.Name:sub(1, #Button.Name - 3)
            Button.MouseButton1Click:Connect(function()
                Services.ContextActionService:UnbindAction(Code..Button.Name:sub(1, #Button.Name - 3))
                Button.State.Text = "Awaiting input..."
                local Input
                repeat
                    Input = Utility:GetInputType(Services.UserInputService.InputBegan:Wait())
                until Input
                Settings:Set(Button.Name, Input)
            end)
            Settings:Hook(Button.Name, function()
                local Input = Settings[Button.Name]
                if Input then
                    Services.ContextActionService:BindAction(Code..FunctionName, ContextActionFunctions[FunctionName], false, Input)
                end
            end)
            Services.ContextActionService:BindAction(Code..FunctionName, ContextActionFunctions[FunctionName], false, Settings[Button.Name])
        else
            Button.MouseButton1Click:Connect(function()
                Settings:Set(Button.Name, not Settings[Button.Name])
            end)
        end
    elseif Button:FindFirstChild("Slide") then
        local Slider = Button.Slide.Slider
        local MaxValue = tonumber(Button.Value.Text)
        Slider.MouseButton1Down:Connect(function()
            while Services.UserInputService:IsMouseButtonPressed(Enum.UserInputType.MouseButton1) do
                local Mouse = Services.UserInputService:GetMouseLocation()
                Slider.Position = UDim2.new(
                    math.clamp((Mouse.X - Slider.Parent.AbsolutePosition.X) / 184, 0, 1),
                    0,
                    .5,
                    -3
                )
                Button.Value.Text = math.floor(math.clamp(MaxValue * Slider.Position.X.Scale, 0, MaxValue))
                Services.RunService.RenderStepped:Wait()
            end
        end)
    end
end
local CF = CFrame.new
local V2 = Vector2.new
Settings:Hook("Aimbotting", function(Aimbotting)
    if Aimbotting then
        local Aim = Utility:GetPlayer()
        local Smoothness = 1 - Settings.Smoothness / 100
        if MoveMouse and Smoothness ~= 0.99 then
            DeltaSens = Services.UserInputService.MouseDeltaSensitivity
            Services.UserInputService.MouseDeltaSensitivity = Smoothness
            Services.RunService:BindToRenderStep(Code.."RenderStep", 2000, function()
                if not Utility:IsValidHead(Aim) then
                    Aim = Utility:GetPlayer()
                    return
                end
                local ScreenPoint = Camera:WorldToViewportPoint(Aim.Position)
                local MousePos = V2(ScreenPoint.X, ScreenPoint.Y) - Services.UserInputService:GetMouseLocation()
                MoveMouse(MousePos.X, MousePos.Y)
            end)
        else
            Services.RunService:BindToRenderStep(Code.."RenderStep", 2000, function()
                if not Utility:IsValidHead(Aim) then
                    Aim = Utility:GetPlayer()
                    return
                end
                Camera.CFrame = Camera.CFrame:Lerp(CF(Camera.CFrame.Position, Aim.Position), Smoothness)
            end)
        end
    else
        Services.UserInputService.MouseDeltaSensitivity = DeltaSens
        Services.RunService:UnbindFromRenderStep(Code.."RenderStep")
    end
end)
Services.ContextActionService:BindAction(Code.."CloseOpen", function(_, State)
    if State == Enum.UserInputState.Begin and Services.UserInputService:IsKeyDown(Enum.KeyCode.LeftControl) then
        UI.Visible = not UI.Visible
    end
end, false, Enum.KeyCode.Tab)
Settings:Set("TeamCheck", #Services.Teams:GetChildren() > 0)
UI.Name = Code
UI.Parent = game:GetService("CoreGui"):FindFirstChildOfClass("ScreenGui")