Best universal aimlock and fps booster script

-- DELTA IMMEDIATE START: Bypasses all engine delays
if not game:IsLoaded() then
    pcall(function() game.Loaded:Wait() end)
end

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

-- DELTA ULTIMATE PARENT DIRECTORY HUNT
local targetParent = nil
if gethui then
    targetParent = gethui()
elseif game:GetService("CoreGui"):FindFirstChild("RobloxGui") then
    targetParent = game:GetService("CoreGui").RobloxGui
else
    targetParent = LocalPlayer:WaitForChild("PlayerGui", 5) or LocalPlayer:FindFirstChildOfClass("PlayerGui")
end

-- Re-use or create unique screen layer
local ScreenGui = targetParent:FindFirstChild("DeltaTopBarSystem")
if not ScreenGui then
    ScreenGui = Instance.new("ScreenGui")
    ScreenGui.Name = "DeltaTopBarSystem"
    ScreenGui.ResetOnSpawn = false
    ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
    ScreenGui.DisplayOrder = 9999999
    ScreenGui.Parent = targetParent
end

local aimlockTarget = nil
local aimlockConnection = nil
local activeTargetButton = nil

--------------------------------------------------------------------------------
-- SYSTEM INTERFACE SETUP (INSTANT POP-UP DESIGN)
--------------------------------------------------------------------------------

-- 1. TOPBAR FLOATING TOGGLE BUTTON (Spawns safely near top-left mobile controls)
local LogoButton = ScreenGui:FindFirstChild("DeltaToggleBtn") or Instance.new("TextButton")
LogoButton.Name = "DeltaToggleBtn"
LogoButton.Size = UDim2.new(0, 50, 0, 32)
LogoButton.Position = UDim2.new(0, 15, 0, 15) -- Safe zone near Roblox icon
LogoButton.BackgroundColor3 = Color3.fromRGB(0, 140, 255)
LogoButton.Text = "LOCK"
LogoButton.TextColor3 = Color3.fromRGB(255, 255, 255)
LogoButton.TextSize = 12
LogoButton.Font = Enum.Font.SourceSansBold
LogoButton.ZIndex = 10000
LogoButton.Active = true
LogoButton.Visible = true
LogoButton.Parent = ScreenGui

local LogoCorner = LogoButton:FindFirstChildOfClass("UICorner") or Instance.new("UICorner")
LogoCorner.CornerRadius = UDim.new(0, 6)
LogoCorner.Parent = LogoButton

-- 2. MAIN COMPACT INTERFACE
local MainMenu = ScreenGui:FindFirstChild("DeltaMainPanel") or Instance.new("Frame")
MainMenu.Name = "DeltaMainPanel"
MainMenu.Size = UDim2.new(0, 180, 0, 260)
MainMenu.Position = UDim2.new(0.5, -90, 0.4, -130) -- Perfectly centered
MainMenu.BackgroundColor3 = Color3.fromRGB(28, 28, 28)
MainMenu.BorderSizePixel = 0
MainMenu.Visible = false
MainMenu.ZIndex = 500
MainMenu.Parent = ScreenGui

local MainMenuCorner = MainMenu:FindFirstChildOfClass("UICorner") or Instance.new("UICorner")
MainMenuCorner.CornerRadius = UDim.new(0, 8)
MainMenuCorner.Parent = MainMenu

local MenuTitle = MainMenu:FindFirstChild("Title") or Instance.new("TextLabel")
MenuTitle.Name = "Title"
MenuTitle.Size = UDim2.new(1, 0, 0, 30)
MenuTitle.BackgroundColor3 = Color3.fromRGB(18, 18, 18)
MenuTitle.Text = "Delta Engine Menu"
MenuTitle.TextColor3 = Color3.fromRGB(255, 255, 255)
MenuTitle.TextSize = 13
MenuTitle.Font = Enum.Font.SourceSansBold
MenuTitle.ZIndex = 501
MenuTitle.Parent = MainMenu

local MenuTitleCorner = MenuTitle:FindFirstChildOfClass("UICorner") or Instance.new("UICorner")
MenuTitleCorner.CornerRadius = UDim.new(0, 8)
MenuTitleCorner.Parent = MenuTitle

-- 3. AIMLOCK SUBMENU TOGGLE BUTTON
local AimlockToggle = MainMenu:FindFirstChild("AimlockToggle") or Instance.new("TextButton")
AimlockToggle.Name = "AimlockToggle"
AimlockToggle.Size = UDim2.new(0.9, 0, 0, 28)
AimlockToggle.Position = UDim2.new(0.05, 0, 0, 40)
AimlockToggle.BackgroundColor3 = Color3.fromRGB(0, 120, 255)
AimlockToggle.Text = "Aimlock List"
AimlockToggle.TextColor3 = Color3.fromRGB(255, 255, 255)
AimlockToggle.TextSize = 12
AimlockToggle.Font = Enum.Font.SourceSansBold
AimlockToggle.ZIndex = 502
AimlockToggle.Parent = MainMenu

local AimlockToggleCorner = AimlockToggle:FindFirstChildOfClass("UICorner") or Instance.new("UICorner")
AimlockToggleCorner.CornerRadius = UDim.new(0, 4)
AimlockToggleCorner.Parent = AimlockToggle

-- 4. HARDWARE OPTIMIZER BUTTON
local FpsButton = MainMenu:FindFirstChild("FpsButton") or Instance.new("TextButton")
FpsButton.Name = "FpsButton"
FpsButton.Size = UDim2.new(0.9, 0, 0, 28)
FpsButton.Position = UDim2.new(0.05, 0, 0, 73)
FpsButton.BackgroundColor3 = Color3.fromRGB(138, 43, 226)
FpsButton.Text = "FPS Unlocker"
FpsButton.TextColor3 = Color3.fromRGB(255, 255, 255)
FpsButton.TextSize = 12
FpsButton.Font = Enum.Font.SourceSansBold
FpsButton.ZIndex = 502
FpsButton.Parent = MainMenu

local FpsCorner = FpsButton:FindFirstChildOfClass("UICorner") or Instance.new("UICorner")
FpsCorner.CornerRadius = UDim.new(0, 4)
FpsCorner.Parent = FpsButton

-- 5. TARGET SCROLL LIST FRAME
local TargetMenu = MainMenu:FindFirstChild("TargetMenu") or Instance.new("Frame")
TargetMenu.Name = "TargetMenu"
TargetMenu.Size = UDim2.new(0.9, 0, 0, 145)
TargetMenu.Position = UDim2.new(0.05, 0, 0, 108)
TargetMenu.BackgroundColor3 = Color3.fromRGB(18, 18, 18)
TargetMenu.BorderSizePixel = 0
TargetMenu.Visible = false
TargetMenu.ZIndex = 503
TargetMenu.Parent = MainMenu

local TargetMenuCorner = TargetMenu:FindFirstChildOfClass("UICorner") or Instance.new("UICorner")
TargetMenuCorner.CornerRadius = UDim.new(0, 4)
TargetMenuCorner.Parent = TargetMenu

-- Visible Custom Bar Container Scrollbox
local TargetScroll = TargetMenu:FindFirstChild("TargetScroll") or Instance.new("ScrollingFrame")
TargetScroll.Name = "TargetScroll"
TargetScroll.Size = UDim2.new(1, 0, 0, 115)
TargetScroll.Position = UDim2.new(0, 0, 0, 0)
TargetScroll.BackgroundTransparency = 1
TargetScroll.CanvasSize = UDim2.new(0, 0, 0, 0)
TargetScroll.ZIndex = 504
TargetScroll.Parent = TargetMenu
TargetScroll.ScrollBarThickness = 5
TargetScroll.ScrollBarImageColor3 = Color3.fromRGB(0, 140, 255)
TargetScroll.ScrollBarImageTransparency = 0
TargetScroll.ScrollingDirection = Enum.ScrollingDirection.Y

local ListLayout = TargetScroll:FindFirstChildOfClass("UIListLayout") or Instance.new("UIListLayout")
ListLayout.Padding = UDim.new(0, 4)
ListLayout.HorizontalAlignment = Enum.HorizontalAlignment.Center
ListLayout.SortOrder = Enum.SortOrder.Name
ListLayout.Parent = TargetScroll

-- Manual Scan Action Trigger Button
local RefreshButton = TargetMenu:FindFirstChild("RefreshButton") or Instance.new("TextButton")
RefreshButton.Name = "RefreshButton"
RefreshButton.Size = UDim2.new(1, 0, 0, 30)
RefreshButton.Position = UDim2.new(0, 0, 0, 115)
RefreshButton.BackgroundColor3 = Color3.fromRGB(38, 38, 38)
RefreshButton.Text = "Refresh List"
RefreshButton.TextColor3 = Color3.fromRGB(255, 255, 255)
RefreshButton.TextSize = 12
RefreshButton.Font = Enum.Font.SourceSansBold
RefreshButton.ZIndex = 505
RefreshButton.Parent = TargetMenu

local RefreshCorner = RefreshButton:FindFirstChildOfClass("UICorner") or Instance.new("UICorner")
RefreshCorner.CornerRadius = UDim.new(0, 4)
RefreshCorner.Parent = RefreshButton

-- Dynamic Internal Refresh Banner UI Overlay
local RefreshLoading = TargetMenu:FindFirstChild("RefreshLoading") or Instance.new("Frame")
RefreshLoading.Name = "RefreshLoading"
RefreshLoading.Size = UDim2.new(1, 0, 1, 0)
RefreshLoading.BackgroundColor3 = Color3.fromRGB(15, 15, 15)
RefreshLoading.BackgroundTransparency = 0.15
RefreshLoading.Visible = false
RefreshLoading.ZIndex = 600
RefreshLoading.Parent = TargetMenu

local RefreshLoadingCorner = RefreshLoading:FindFirstChildOfClass("UICorner") or Instance.new("UICorner")
RefreshLoadingCorner.CornerRadius = UDim.new(0, 4)
RefreshLoadingCorner.Parent = RefreshLoading

local RefreshTextLoader = RefreshLoading:FindFirstChild("LoaderText") or Instance.new("TextLabel")
RefreshTextLoader.Name = "LoaderText"
RefreshTextLoader.Size = UDim2.new(1, 0, 1, 0)
RefreshTextLoader.BackgroundTransparency = 1
RefreshTextLoader.Text = "Scanning ."
RefreshTextLoader.TextColor3 = Color3.fromRGB(0, 140, 255)
RefreshTextLoader.TextSize = 13
RefreshTextLoader.Font = Enum.Font.SourceSansBold
RefreshTextLoader.ZIndex = 601
RefreshTextLoader.Parent = RefreshLoading

--------------------------------------------------------------------------------
-- INTERACTION OPERATIONS FRAMEWORK
--------------------------------------------------------------------------------

-- Custom Mobile-Safe Touch Dragging Algorithm
local dragging, dragStart, startPos
LogoButton.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = LogoButton.Position
    end
end)

UserInputService.InputChanged:Connect(function(input)
    if dragging and (input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch) then
        local delta = input.Position - dragStart
        LogoButton.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
    end
end)

UserInputService.InputEnded:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = false
    end
end)

-- Structural Toggles
LogoButton.MouseButton1Click:Connect(function()
    MainMenu.Visible = not MainMenu.Visible
end)

AimlockToggle.MouseButton1Click:Connect(function()
    TargetMenu.Visible = not TargetMenu.Visible
end)

-- Camera Locking Processing Thread Frame Connection
local function updateAimlock()
    if aimlockConnection then aimlockConnection:Disconnect() end
    
    aimlockConnection = RunService.RenderStepped:Connect(function()
        if aimlockTarget then
            local targetPart = aimlockTarget:FindFirstChild("HumanoidRootPart") or aimlockTarget:FindFirstChild("Head")
            if targetPart then
                Camera.CFrame = CFrame.new(Camera.CFrame.Position, targetPart.Position)
            else
                aimlockTarget = nil
                if activeTargetButton then activeTargetButton.BackgroundColor3 = Color3.fromRGB(45, 45, 45) end
            end
        end
    end)
end

local function clearAimlockState()
    aimlockTarget = nil
    if aimlockConnection then
        aimlockConnection:Disconnect()
        aimlockConnection = nil
    end
    if activeTargetButton then
        activeTargetButton.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
        activeTargetButton = nil
    end
end

-- Server Profile List Compiler
local function PopulateTargetList()
    for _, child in ipairs(TargetScroll:GetChildren()) do
        if child:IsA("TextButton") then child:Destroy() end
    end
    
    local targetsFound = {}

    for _, p in ipairs(Players:GetPlayers()) do
        if p ~= LocalPlayer and p.Character then
            table.insert(targetsFound, {Name = p.Name, Character = p.Character})
        end
    end

    for _, obj in ipairs(Workspace:GetDescendants()) do
        if obj:IsA("Model") and obj:FindFirstChildOfClass("Humanoid") then
            if not Players:GetPlayerFromCharacter(obj) and obj ~= LocalPlayer.Character then
                table.insert(targetsFound, {Name = "[NPC] " .. obj.Name, Character = obj})
            end
        end
    end

    for _, targetData in ipairs(targetsFound) do
        local btn = Instance.new("TextButton")
        btn.Size = UDim2.new(0.86, 0, 0, 24)
        btn.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
        btn.Text = targetData.Name
        btn.TextColor3 = Color3.fromRGB(230, 230, 230)
        btn.Font = Enum.Font.SourceSans
        btn.TextSize = 11
        btn.ZIndex = 510
        btn.Parent = TargetScroll
        
        local btnCorner = Instance.new("UICorner")
        btnCorner.CornerRadius = UDim.new(0, 4)
        btnCorner.Parent = btn
        
        if aimlockTarget == targetData.Character then
            btn.BackgroundColor3 = Color3.fromRGB(0, 140, 255)
            activeTargetButton = btn
        end
        
        btn.MouseButton1Click:Connect(function()
            if aimlockTarget == targetData.Character then
                clearAimlockState()
            else
                for _, child in ipairs(TargetScroll:GetChildren()) do
                    if child:IsA("TextButton") then child.BackgroundColor3 = Color3.fromRGB(45, 45, 45) end
                end
                
                btn.BackgroundColor3 = Color3.fromRGB(0, 140, 255)
                aimlockTarget = targetData.Character
                activeTargetButton = btn
                updateAimlock()
            end
        end)
    end
    
    TargetScroll.CanvasSize = UDim2.new(0, 0, 0, ListLayout.AbsoluteContentSize.Y + 6)
end

-- Threaded Refresh Processing Controller
RefreshButton.MouseButton1Click:Connect(function()
    RefreshLoading.Visible = true
    local activeAnim = true
    
    task.spawn(function()
        local count = 0
        while activeAnim do
            count = (count + 1) % 4
            if count == 0 then RefreshTextLoader.Text = "Scanning"
            elseif count == 1 then RefreshTextLoader.Text = "Scanning ."
            elseif count == 2 then RefreshTextLoader.Text = "Scanning . ."
            elseif count == 3 then RefreshTextLoader.Text = "Scanning . . ." end
            task.wait(0.18)
        end
    end)
    
    task.wait(0.6)
    PopulateTargetList()
    
    activeAnim = false
    RefreshLoading.Visible = false
end)

-- Graphics Cleaner Engine Optimization Profile
FpsButton.MouseButton1Click:Connect(function()
    FpsButton.Text = "Boosted!"
    FpsButton.BackgroundColor3 = Color3.fromRGB(50, 180, 50)
    FpsButton.Active = false
    
    pcall(function()
        settings().Rendering.QualityLevel = Enum.QualityLevel.Level01
    end)
    
    Lighting.GlobalShadows = false
    Lighting.FogEnd = 9e9
    
    for _, obj in ipairs(Lighting:GetChildren()) do
        if obj:IsA("PostEffect") or obj:IsA("BloomEffect") or obj:IsA("BlurEffect") or obj:IsA("ColorCorrectionEffect") or obj:IsA("SunRaysEffect") then
            obj:Destroy()
        end
    end

    for _, obj in ipairs(Workspace:GetDescendants()) do
        if obj:IsA("BasePart") then
            obj.Material = Enum.Material.SmoothPlastic
            obj.Reflectance = 0
        elseif obj:IsA("Texture") or obj:IsA("Decal") then
            obj:Destroy()
        elseif obj:IsA("ParticleEmitter") or obj:IsA("Trail") or obj:IsA("Smoke") or obj:IsA("Sparkles") or obj:IsA("Fire") then
            obj:Destroy()
        end
    end
end)

PopulateTargetList()