--// KD GUI : Noclip + Fly + Night Vision + Paramètres (Joystick iOS)
--// Fait pour Delta Executor iOS

-- Variables
local Players = game:GetService("Players")
local LocalPlayer = Players.LocalPlayer
local RunService = game:GetService("RunService")

-- GUI
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "KD_GUI"
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = LocalPlayer:WaitForChild("PlayerGui")

local Frame = Instance.new("Frame")
Frame.Size = UDim2.new(0, 200, 0, 210)
Frame.Position = UDim2.new(0.05, 0, 0.3, 0)
Frame.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
Frame.BorderSizePixel = 0
Frame.Active = true
Frame.Draggable = true
Frame.Parent = ScreenGui

local UICorner = Instance.new("UICorner", Frame)
UICorner.CornerRadius = UDim.new(0, 10)

-- Boutons
local NoclipBtn = Instance.new("TextButton")
NoclipBtn.Size = UDim2.new(0, 180, 0, 40)
NoclipBtn.Position = UDim2.new(0, 10, 0, 10)
NoclipBtn.Text = "Noclip : OFF"
NoclipBtn.BackgroundColor3 = Color3.fromRGB(70, 70, 70)
NoclipBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
NoclipBtn.Parent = Frame
Instance.new("UICorner", NoclipBtn)

local FlyBtn = Instance.new("TextButton")
FlyBtn.Size = UDim2.new(0, 180, 0, 40)
FlyBtn.Position = UDim2.new(0, 10, 0, 60)
FlyBtn.Text = "Fly : OFF"
FlyBtn.BackgroundColor3 = Color3.fromRGB(70, 70, 70)
FlyBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
FlyBtn.Parent = Frame
Instance.new("UICorner", FlyBtn)

local NightVisionBtn = Instance.new("TextButton")
NightVisionBtn.Size = UDim2.new(0, 180, 0, 40)
NightVisionBtn.Position = UDim2.new(0, 10, 0, 110)
NightVisionBtn.Text = "Night Vision : OFF"
NightVisionBtn.BackgroundColor3 = Color3.fromRGB(70, 70, 70)
NightVisionBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
NightVisionBtn.Parent = Frame
Instance.new("UICorner", NightVisionBtn)

local SettingsBtn = Instance.new("TextButton")
SettingsBtn.Size = UDim2.new(0, 180, 0, 40)
SettingsBtn.Position = UDim2.new(0, 10, 0, 160)
SettingsBtn.Text = "Paramètres ⚙️"
SettingsBtn.BackgroundColor3 = Color3.fromRGB(0, 120, 255)
SettingsBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
SettingsBtn.Parent = Frame
Instance.new("UICorner", SettingsBtn)

-- Bouton cacher/afficher GUI
local ToggleBtn = Instance.new("TextButton")
ToggleBtn.Size = UDim2.new(0, 50, 0, 50)
ToggleBtn.Position = UDim2.new(0, 0, 0.8, 0)
ToggleBtn.Text = "👁"
ToggleBtn.BackgroundColor3 = Color3.fromRGB(0, 120, 255)
ToggleBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
ToggleBtn.Parent = ScreenGui
Instance.new("UICorner", ToggleBtn)

-- Variables de pouvoirs
local Noclip = false
local Fly = false
local NightVision = false
local NVHighlights = {}
local BodyGyro, BodyVelocity
local FlySpeed = 50

-- Paramètres GUI
local SettingsFrame = Instance.new("Frame")
SettingsFrame.Size = UDim2.new(0, 200, 0, 120)
SettingsFrame.Position = UDim2.new(0.27, 0, 0.3, 0)
SettingsFrame.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
SettingsFrame.Visible = false
SettingsFrame.Parent = ScreenGui
Instance.new("UICorner", SettingsFrame)

local Title = Instance.new("TextLabel")
Title.Size = UDim2.new(1, 0, 0, 30)
Title.Text = "⚙️ Paramètres"
Title.BackgroundTransparency = 1
Title.TextColor3 = Color3.fromRGB(255,255,255)
Title.TextScaled = true
Title.Parent = SettingsFrame

local FlySpeedBox = Instance.new("TextBox")
FlySpeedBox.Size = UDim2.new(0, 180, 0, 40)
FlySpeedBox.Position = UDim2.new(0, 10, 0, 40)
FlySpeedBox.PlaceholderText = "Vitesse du Fly ("..FlySpeed..")"
FlySpeedBox.Text = ""
FlySpeedBox.TextColor3 = Color3.fromRGB(255,255,255)
FlySpeedBox.BackgroundColor3 = Color3.fromRGB(70,70,70)
FlySpeedBox.Parent = SettingsFrame
Instance.new("UICorner", FlySpeedBox)

local ApplyBtn = Instance.new("TextButton")
ApplyBtn.Size = UDim2.new(0, 180, 0, 30)
ApplyBtn.Position = UDim2.new(0, 10, 0, 85)
ApplyBtn.Text = "Appliquer"
ApplyBtn.BackgroundColor3 = Color3.fromRGB(0,120,255)
ApplyBtn.TextColor3 = Color3.fromRGB(255,255,255)
ApplyBtn.Parent = SettingsFrame
Instance.new("UICorner", ApplyBtn)

SettingsBtn.MouseButton1Click:Connect(function()
    SettingsFrame.Visible = not SettingsFrame.Visible
end)

ApplyBtn.MouseButton1Click:Connect(function()
    local val = tonumber(FlySpeedBox.Text)
    if val and val > 0 then
        FlySpeed = val
        FlySpeedBox.PlaceholderText = "Vitesse du Fly ("..FlySpeed..")"
    end
    FlySpeedBox.Text = ""
end)

-- Fonction Noclip
NoclipBtn.MouseButton1Click:Connect(function()
    Noclip = not Noclip
    NoclipBtn.Text = Noclip and "Noclip : ON" or "Noclip : OFF"
end)

RunService.Stepped:Connect(function()
    if Noclip and LocalPlayer.Character then
        for _, part in pairs(LocalPlayer.Character:GetDescendants()) do
            if part:IsA("BasePart") then
                part.CanCollide = false
            end
        end
    end
end)

-- Fonction Fly
FlyBtn.MouseButton1Click:Connect(function()
    Fly = not Fly
    if Fly then
        FlyBtn.Text = "Fly : ON"
        local hrp = LocalPlayer.Character:WaitForChild("HumanoidRootPart")
        BodyGyro = Instance.new("BodyGyro")
        BodyGyro.P = 9e4
        BodyGyro.MaxTorque = Vector3.new(9e9, 9e9, 9e9)
        BodyGyro.CFrame = hrp.CFrame
        BodyGyro.Parent = hrp

        BodyVelocity = Instance.new("BodyVelocity")
        BodyVelocity.Velocity = Vector3.new(0,0,0)
        BodyVelocity.MaxForce = Vector3.new(9e9, 9e9, 9e9)
        BodyVelocity.Parent = hrp

        RunService.RenderStepped:Connect(function()
            if Fly and hrp and hrp.Parent then
                BodyGyro.CFrame = workspace.CurrentCamera.CFrame
                local humanoid = LocalPlayer.Character:FindFirstChildOfClass("Humanoid")
                local moveDirection = humanoid and humanoid.MoveDirection or Vector3.new()

                if moveDirection.Magnitude > 0 then
                    local camLook = workspace.CurrentCamera.CFrame.LookVector
                    local vertical = camLook.Y * FlySpeed
                    BodyVelocity.Velocity = Vector3.new(moveDirection.X * FlySpeed, vertical, moveDirection.Z * FlySpeed)
                else
                    BodyVelocity.Velocity = Vector3.new(0,0,0)
                end
            end
        end)
    else
        FlyBtn.Text = "Fly : OFF"
        if BodyGyro then BodyGyro:Destroy() BodyGyro = nil end
        if BodyVelocity then BodyVelocity:Destroy() BodyVelocity = nil end
    end
end)

-- Fonction Night Vision
NightVisionBtn.MouseButton1Click:Connect(function()
    NightVision = not NightVision
    NightVisionBtn.Text = NightVision and "Night Vision : ON" or "Night Vision : OFF"

    if not NightVision then
        for _, obj in pairs(NVHighlights) do
            if obj and obj.Parent then obj:Destroy() end
        end
        NVHighlights = {}
        return
    end

    local function addHighlight(player)
        if player ~= LocalPlayer and player.Character and player.Character:FindFirstChild("HumanoidRootPart") then
            local highlight = Instance.new("Highlight")
            highlight.Adornee = player.Character
            highlight.FillColor = Color3.fromRGB(255, 0, 0)
            highlight.OutlineColor = Color3.fromRGB(255, 0, 0)
            highlight.DepthMode = Enum.HighlightDepthMode.AlwaysOnTop
            highlight.Parent = workspace
            table.insert(NVHighlights, highlight)

            local billboard = Instance.new("BillboardGui")
            billboard.Adornee = player.Character:FindFirstChild("HumanoidRootPart")
            billboard.Size = UDim2.new(0,100,0,40)
            billboard.StudsOffset = Vector3.new(0,2,0)
            billboard.AlwaysOnTop = true

            local text = Instance.new("TextLabel")
            text.Text = player.Name
            text.Size = UDim2.new(1,0,1,0)
            text.BackgroundTransparency = 1
            text.TextColor3 = Color3.fromRGB(255,0,0)
            text.TextScaled = true
            text.Parent = billboard

            billboard.Parent = workspace
            table.insert(NVHighlights, billboard)
        end
    end

    for _, player in pairs(Players:GetPlayers()) do
        addHighlight(player)
    end

    Players.PlayerAdded:Connect(function(player)
        if NightVision then
            task.wait(1)
            addHighlight(player)
        end
    end)
end)

-- Cacher/afficher le GUI
local Hidden = false
ToggleBtn.MouseButton1Click:Connect(function()
    Hidden = not Hidden
    Frame.Visible = not Hidden
    SettingsFrame.Visible = not Hidden and SettingsFrame.Visible
end)