Kalan Kontrol Hub v1

-- 🔵 Kalan Kontrol Hub (KKH) - Full Admin GUI
-- Car Mode added back (low gravity, sit, face camera, no A/D, acceleration)
-- Fall Damage toggle, Sprint toggle, all toggles update button text
-- Search bar at bottom

local Players = game:GetService("Players")
local UIS = game:GetService("UserInputService")
local RS = game:GetService("RunService")
local TS = game:GetService("TeleportService")
local cam = workspace.CurrentCamera
local plr = Players.LocalPlayer

local function char() return plr.Character or plr.CharacterAdded:Wait() end
local function hum() return char():WaitForChild("Humanoid") end
local function hrp() return char():WaitForChild("HumanoidRootPart") end

-- COLORS
local C1 = Color3.fromRGB(0,170,255)
local C2 = Color3.fromRGB(0,0,255)
local BG = Color3.fromRGB(15,15,30)

-- GUI
local gui = Instance.new("ScreenGui", plr.PlayerGui)
gui.Name = "BlueAdmin"
gui.ResetOnSpawn = false

local main = Instance.new("Frame", gui)
main.Size = UDim2.fromScale(0.28, 0.65)
main.Position = UDim2.fromScale(0.02, 0.18)
main.BackgroundColor3 = BG
main.BorderColor3 = C2
main.BorderSizePixel = 2
main.Active = true
main.Draggable = true

local top = Instance.new("Frame", main)
top.Size = UDim2.new(1,0,0,34)
top.BackgroundColor3 = C2
top.BorderSizePixel = 0

local title = Instance.new("TextLabel", top)
title.Size = UDim2.new(1,-80,1,0)
title.Position = UDim2.new(0,8,0,0)
title.Text = "Kalan Kontrol Hub"
title.TextColor3 = Color3.new(1,1,1)
title.BackgroundTransparency = 1
title.TextXAlignment = Enum.TextXAlignment.Left

local min = Instance.new("TextButton", top)
min.Size = UDim2.new(0,34,1,0)
min.Position = UDim2.new(1,-68,0,0)
min.Text = "—"
min.BackgroundColor3 = C1
min.TextColor3 = Color3.new(1,1,1)

local close = Instance.new("TextButton", top)
close.Size = UDim2.new(0,34,1,0)
close.Position = UDim2.new(1,-34,0,0)
close.Text = "X"
close.BackgroundColor3 = Color3.fromRGB(170,50,50)
close.TextColor3 = Color3.new(1,1,1)

-- SEARCH BAR (bottom)
local searchBox = Instance.new("TextBox")
searchBox.Size = UDim2.new(1,-20,0,30)
searchBox.Position = UDim2.new(0,10,1,-40)
searchBox.AnchorPoint = Vector2.new(0,1)
searchBox.BackgroundColor3 = Color3.fromRGB(30,30,50)
searchBox.TextColor3 = Color3.new(1,1,1)
searchBox.PlaceholderText = "Search commands..."
searchBox.TextScaled = true
searchBox.Parent = main

-- SCROLL FRAME
local scroll = Instance.new("ScrollingFrame", main)
scroll.Position = UDim2.new(0,0,0,34)
scroll.Size = UDim2.new(1,0,1,-74)
scroll.CanvasSize = UDim2.new()
scroll.ScrollBarImageColor3 = C1
scroll.BackgroundTransparency = 1

local layout = Instance.new("UIListLayout", scroll)
layout.Padding = UDim.new(0,6)
layout:GetPropertyChangedSignal("AbsoluteContentSize"):Connect(function()
    scroll.CanvasSize = UDim2.new(0,0,0,layout.AbsoluteContentSize.Y + 10)
end)

-- Search filter
searchBox:GetPropertyChangedSignal("Text"):Connect(function()
    local query = searchBox.Text:lower()
    for _, child in ipairs(scroll:GetChildren()) do
        if child:IsA("TextButton") or child:IsA("TextLabel") then
            child.Visible = (query == "" or child.Text:lower():find(query, 1, true))
        end
    end
end)

-- HELPERS
local function section(title)
    local sec = Instance.new("TextLabel")
    sec.Size = UDim2.new(1,-10,0,28)
    sec.Text = "▸ " .. title
    sec.BackgroundColor3 = C2
    sec.TextColor3 = Color3.new(1,1,1)
    sec.BorderColor3 = C1
    sec.TextScaled = true
    sec.Font = Enum.Font.GothamBold
    sec.Parent = scroll
end

local function button(txt)
    local b = Instance.new("TextButton")
    b.Size = UDim2.new(1,-10,0,36)
    b.Text = txt
    b.BackgroundColor3 = C1
    b.TextColor3 = Color3.new(1,1,1)
    b.BorderColor3 = C2
    b.TextScaled = true
    b.Font = Enum.Font.GothamBold
    b.Parent = scroll
    return b
end

local function toggleButton(txt, initialState)
    local b = Instance.new("TextButton")
    b.Size = UDim2.new(1,-10,0,36)
    b.Text = txt .. ": " .. (initialState and "ON" or "OFF")
    b.BackgroundColor3 = initialState and Color3.fromRGB(40,140,40) or C1
    b.TextColor3 = Color3.new(1,1,1)
    b.BorderColor3 = C2
    b.TextScaled = true
    b.Font = Enum.Font.GothamBold
    b.Parent = scroll
    return b
end

-- ========================================================================
--   FEATURES
-- ========================================================================

section("Script Loaders")
button("FE Invisible").MouseButton1Click:Connect(function()
    warn("[KKH] Loading FE Invisible")
    loadstring(game:HttpGet('https://pastebin.com/raw/3Rnd9rHf'))()
end)

button("C00LGui").MouseButton1Click:Connect(function()
    warn("[KKH] Loading C00LGui")
    loadstring(game:GetObjects("rbxassetid://11801763945")[1].Source)()
end)

button("Infinite Yield").MouseButton1Click:Connect(function()
    warn("[KKH] Loading Infinite Yield")
    loadstring(game:HttpGet("https://raw.githubusercontent.com/EdgeIY/infiniteyield/master/source"))()
end)

section("Graphics / Shaders")
button("SpectriumPro RTX").MouseButton1Click:Connect(function()
    warn("[KKH] Loading SpectriumPro RTX")
    loadstring(game:HttpGet("https://raw.githubusercontent.com/deedlemcdoodledeedlemcdoodle-creator/SpectravaxHub/refs/heads/main/thebestrtxscriptevermade.lua"))()
end)

section("Movement / Parkour")
button("Parkour").MouseButton1Click:Connect(function()
    warn("[KKH] Loading Parkour Engine")
    loadstring(game:HttpGet("https://raw.githubusercontent.com/KalanGamesYT/roblox-parkour-script-r15-r6/e15164cff0fce1b615f868d2fa53b7a5d03427e5/parkour.txt"))()
end)

local flying, bv, bg = false
button("Fly").MouseButton1Click:Connect(function()
    flying = not flying
    if flying then
        bv = Instance.new("BodyVelocity", hrp())
        bv.MaxForce = Vector3.new(1e9,1e9,1e9)
        bg = Instance.new("BodyGyro", hrp())
        bg.MaxTorque = Vector3.new(1e9,1e9,1e9)
        RS:BindToRenderStep("Fly", 1, function()
            bg.CFrame = cam.CFrame
            bv.Velocity = 
                (cam.CFrame.LookVector * (UIS:IsKeyDown(Enum.KeyCode.W) and 70 or 0)) +
                (-cam.CFrame.LookVector * (UIS:IsKeyDown(Enum.KeyCode.S) and 70 or 0)) +
                (cam.CFrame.RightVector * (UIS:IsKeyDown(Enum.KeyCode.D) and 70 or 0)) +
                (-cam.CFrame.RightVector * (UIS:IsKeyDown(Enum.KeyCode.A) and 70 or 0))
        end)
    else
        RS:UnbindFromRenderStep("Fly")
        if bv then bv:Destroy() end
        if bg then bg:Destroy() end
    end
end)

local noclip = false
button("Noclip").MouseButton1Click:Connect(function() noclip = not noclip end)
RS.Stepped:Connect(function()
    if noclip and char() then
        for _, v in ipairs(char():GetDescendants()) do
            if v:IsA("BasePart") then v.CanCollide = false end
        end
    end
end)

-- Infinite Jump toggle
local infJumpEnabled = false
local infJumpBtn = toggleButton("Infinite Jump", infJumpEnabled)
infJumpBtn.MouseButton1Click:Connect(function()
    infJumpEnabled = not infJumpEnabled
    infJumpBtn.Text = "Infinite Jump: " .. (infJumpEnabled and "ON" or "OFF")
    infJumpBtn.BackgroundColor3 = infJumpEnabled and Color3.fromRGB(40,140,40) or C1
end)

UIS.JumpRequest:Connect(function()
    if infJumpEnabled and hum() then
        hum():ChangeState(Enum.HumanoidStateType.Jumping)
    end
end)

-- Sprint Toggle
local sprintEnabled = false
local sprintBtn = toggleButton("Sprint", sprintEnabled)
sprintBtn.MouseButton1Click:Connect(function()
    sprintEnabled = not sprintEnabled
    sprintBtn.Text = "Sprint: " .. (sprintEnabled and "ON" or "OFF")
    sprintBtn.BackgroundColor3 = sprintEnabled and Color3.fromRGB(40,140,40) or C1
    hum().WalkSpeed = sprintEnabled and 32 or 16
end)

-- Fall Damage Toggle (OFF = no damage)
local fallDamageEnabled = true  -- ON by default (damage allowed)
local fallDamageBtn = toggleButton("Fall Damage", fallDamageEnabled)
fallDamageBtn.MouseButton1Click:Connect(function()
    fallDamageEnabled = not fallDamageEnabled
    fallDamageBtn.Text = "Fall Damage: " .. (fallDamageEnabled and "ON" or "OFF")
    fallDamageBtn.BackgroundColor3 = fallDamageEnabled and Color3.fromRGB(40,140,40) or C1
end)

-- Anti-Fall Damage logic (only when toggle is OFF)
RS.Heartbeat:Connect(function()
    if fallDamageEnabled then return end
    if hum():GetState() == Enum.HumanoidStateType.Freefall and hum().Velocity.Y < -100 then
        hum():ChangeState(Enum.HumanoidStateType.Landed)
    end
end)

-- Car Mode (added back)
local carModeEnabled = false
local carBodyGyro, carBodyVelocity
local originalGravity = workspace.Gravity
local currentSpeed = 0
local maxSpeed = 100
local accelRate = 50
local decelRate = 30

local carBtn = toggleButton("Car Mode", carModeEnabled)
carBtn.MouseButton1Click:Connect(function()
    carModeEnabled = not carModeEnabled
    carBtn.Text = "Car Mode: " .. (carModeEnabled and "ON" or "OFF")
    carBtn.BackgroundColor3 = carModeEnabled and Color3.fromRGB(40,140,40) or C1

    if carModeEnabled then
        hum().Sit = true
        workspace.Gravity = originalGravity * 0.5

        carBodyGyro = Instance.new("BodyGyro")
        carBodyGyro.MaxTorque = Vector3.new(1e5, 1e5, 1e5)
        carBodyGyro.P = 1000
        carBodyGyro.Parent = hrp()

        carBodyVelocity = Instance.new("BodyVelocity")
        carBodyVelocity.MaxForce = Vector3.new(1e5, 0, 1e5)
        carBodyVelocity.Parent = hrp()

        RS:BindToRenderStep("CarMode", Enum.RenderPriority.Input.Value + 1, function(dt)
            if not carModeEnabled then return end

            local moveDir = hum().MoveDirection
            moveDir = Vector3.new(0, 0, moveDir.Z)  -- disable A/D

            local cameraDir = cam.CFrame.LookVector
            cameraDir = Vector3.new(cameraDir.X, 0, cameraDir.Z).Unit
            carBodyGyro.CFrame = CFrame.new(Vector3.new(), cameraDir)

            if moveDir.Z < 0 then
                currentSpeed = math.max(currentSpeed - decelRate * dt, 0)
            elseif moveDir.Z > 0 then
                currentSpeed = math.min(currentSpeed + accelRate * dt, maxSpeed)
            else
                currentSpeed = math.max(currentSpeed - decelRate * dt, 0)
            end

            carBodyVelocity.Velocity = cameraDir * currentSpeed
        end)
    else
        workspace.Gravity = originalGravity
        if carBodyGyro then carBodyGyro:Destroy() end
        if carBodyVelocity then carBodyVelocity:Destroy() end
        RS:UnbindFromRenderStep("CarMode")
        hum().Sit = false
        currentSpeed = 0
    end
end)

section("Funny / Trolling")
local ragdollEnabled = false
local ragdollConstraints = {}

button("Ragdoll (BallSockets)").MouseButton1Click:Connect(function()
    if ragdollEnabled then return end
    ragdollEnabled = true
    hum().PlatformStand = true
    for _, part in ipairs(char():GetDescendants()) do
        if part:IsA("BasePart") and part.Name ~= "HumanoidRootPart" and part.Name ~= "Head" then
            local a0 = Instance.new("Attachment", part)
            local a1 = Instance.new("Attachment", hrp())
            local socket = Instance.new("BallSocketConstraint")
            socket.Attachment0 = a0
            socket.Attachment1 = a1
            socket.Parent = part
            table.insert(ragdollConstraints, {socket, a0, a1})
        end
    end
end)

button("Legacy Ragdoll").MouseButton1Click:Connect(function()
    hum():ChangeState(Enum.HumanoidStateType.Physics)
end)

button("Disable Ragdoll").MouseButton1Click:Connect(function()
    ragdollEnabled = false
    for _, t in ipairs(ragdollConstraints) do
        t[1]:Destroy() t[2]:Destroy() t[3]:Destroy()
    end
    ragdollConstraints = {}
    hum().PlatformStand = false
    hum():ChangeState(Enum.HumanoidStateType.GettingUp)
end)

button("Multi Fling").MouseButton1Click:Connect(function()
    warn("[KKH] Loading Multi Fling")
    loadstring(game:HttpGet("https://raw.githubusercontent.com/Jhona852804/Script-roblox/refs/heads/main/FlingSCRIPT"))()
end)

local spinning = false
button("Spin").MouseButton1Click:Connect(function()
    spinning = not spinning
end)
RS.RenderStepped:Connect(function()
    if spinning then
        hrp().CFrame *= CFrame.Angles(0, math.rad(10), 0)
    end
end)

button("PlatformStand").MouseButton1Click:Connect(function()
    hum().PlatformStand = not hum().PlatformStand
end)

section("Other Players")
local nameBox = Instance.new("TextBox")
nameBox.Size = UDim2.new(1,-10,0,36)
nameBox.PlaceholderText = "Type name (partial works)"
nameBox.BackgroundColor3 = Color3.fromRGB(20,20,35)
nameBox.TextColor3 = Color3.new(1,1,1)
nameBox.BorderColor3 = C2
nameBox.TextScaled = true
nameBox.Parent = scroll

button("Teleport To Player").MouseButton1Click:Connect(function()
    local text = nameBox.Text:lower()
    if text == "" then return end
    for _, p in pairs(Players:GetPlayers()) do
        if p.Name:lower():sub(1,#text) == text or p.DisplayName:lower():sub(1,#text) == text then
            if p.Character and p.Character:FindFirstChild("HumanoidRootPart") then
                hrp().CFrame = p.Character.HumanoidRootPart.CFrame + Vector3.new(0,3,0)
            end
            break
        end
    end
end)

section("Utility")
button("FullBright").MouseButton1Click:Connect(function()
    game.Lighting.Brightness = 2
    game.Lighting.ClockTime = 14
    game.Lighting.FogEnd = 1e9
end)

button("Godmode").MouseButton1Click:Connect(function()
    hum().MaxHealth = math.huge
    hum().Health = math.huge
end)

button("Rejoin").MouseButton1Click:Connect(function()
    TS:Teleport(game.PlaceId, plr)
end)

button("ServerHop").MouseButton1Click:Connect(function()
    TS:Teleport(game.PlaceId, plr)
end)

button("Remote Spy").MouseButton1Click:Connect(function()
    warn("[KKH] Loading Remote Spy")
    loadstring(game:HttpGet("https://raw.githubusercontent.com/exxtremestuffs/SimpleSpySource/master/SimpleSpyV3/main.lua"))()
end)

-- PANIC BUTTON
button("PANIC - Reset All").MouseButton1Click:Connect(function()
    flying = false
    if bv then bv:Destroy() end
    if bg then bg:Destroy() end
    RS:UnbindFromRenderStep("Fly")
    noclip = false
    infJumpEnabled = false
    sprintEnabled = false
    hum().WalkSpeed = 16
    hum().JumpPower = 50
    workspace.Gravity = 196
    cam.FieldOfView = 70
    ragdollEnabled = false
    for _, t in ipairs(ragdollConstraints) do t[1]:Destroy() t[2]:Destroy() t[3]:Destroy() end
    ragdollConstraints = {}
    hum().PlatformStand = false
    hum():ChangeState(Enum.HumanoidStateType.GettingUp)
    carModeEnabled = false
    if carBodyGyro then carBodyGyro:Destroy() end
    if carBodyVelocity then carBodyVelocity:Destroy() end
    RS:UnbindFromRenderStep("CarMode")
    hum().Sit = false
    gui.Enabled = false
    print("[KKH] PANIC - All resets applied")
end)

-- MINIMIZE / CLOSE
local minimized = false
min.MouseButton1Click:Connect(function()
    minimized = not minimized
    scroll.Visible = not minimized
    main.Size = minimized and UDim2.fromScale(0.28,0.08) or UDim2.fromScale(0.28,0.65)
end)

close.MouseButton1Click:Connect(function()
    gui.Enabled = false
end)

-- KEYBIND
UIS.InputBegan:Connect(function(i, gp)
    if not gp and i.KeyCode == Enum.KeyCode.K then
        gui.Enabled = not gui.Enabled
    end
end)

print("[KKH] Fully loaded - press K to toggle")