--[[
	WARNING: Heads up! This script has not been verified by ScriptBlox. Use at your own risk!
]]
--[[
	ADMIN PANEL - MEGA RAINBOW EDITION (FIXED GHOST LAG)
]]

local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local CoreGui = game:GetService("CoreGui")

local lp = Players.LocalPlayer
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Parent = CoreGui

local MainFrame = Instance.new("Frame")
local Title = Instance.new("TextLabel")
local CreditLabel = Instance.new("TextLabel")
local UIStroke = Instance.new("UIStroke")

-- UI SETUP
MainFrame.Name = "AdminPanel_MegaRainbow"
MainFrame.Parent = ScreenGui
MainFrame.Position = UDim2.new(0.5, -115, 0.5, -210)
MainFrame.Size = UDim2.new(0, 230, 0, 520) 
MainFrame.Active = true
MainFrame.Draggable = true

local UICorner = Instance.new("UICorner", MainFrame)
UICorner.CornerRadius = UDim.new(0, 15)

UIStroke.Parent = MainFrame
UIStroke.Thickness = 3
UIStroke.ApplyStrokeMode = Enum.ApplyStrokeMode.Border

Title.Parent = MainFrame
Title.Size = UDim2.new(1, 0, 0, 40)
Title.Text = "Admin Panel" 
Title.Font = Enum.Font.GothamBold
Title.TextSize = 18
Instance.new("UICorner", Title).CornerRadius = UDim.new(0, 15)

CreditLabel.Parent = MainFrame
CreditLabel.Size = UDim2.new(1, 0, 0, 20)
CreditLabel.Position = UDim2.new(0, 0, 0.96, 0)
CreditLabel.Text = "By sweet_orange"
CreditLabel.BackgroundTransparency = 1
CreditLabel.Font = Enum.Font.GothamBold
CreditLabel.TextSize = 12

local allBackgrounds = {MainFrame, Title}
local allTexts = {Title, CreditLabel}

local function createBtn(text, pos)
    local btn = Instance.new("TextButton")
    btn.Parent = MainFrame
    btn.Size = UDim2.new(0.9, 0, 0, 32)
    btn.Position = pos
    btn.Text = text
    btn.Font = Enum.Font.GothamBold
    btn.TextSize = 14
    Instance.new("UICorner", btn).CornerRadius = UDim.new(1, 0) 
    table.insert(allBackgrounds, btn)
    table.insert(allTexts, btn)
    return btn
end

-- BUTTONS
local FlyBtn = createBtn("Fly: OFF", UDim2.new(0.05, 0, 0.1, 0))
local NoclipBtn = createBtn("Noclip: OFF", UDim2.new(0.05, 0, 0.18, 0))
local BToolBtn = createBtn("Give Classic BTools", UDim2.new(0.05, 0, 0.26, 0))
local GodBtn = createBtn("God Mode: OFF", UDim2.new(0.05, 0, 0.34, 0))

local SpeedInput = Instance.new("TextBox", MainFrame)
SpeedInput.Size = UDim2.new(0.9, 0, 0, 45) 
SpeedInput.Position = UDim2.new(0.05, 0, 0.43, 0)
SpeedInput.PlaceholderText = "YOUR SPEED" 
SpeedInput.Text = "16"
SpeedInput.Font = Enum.Font.GothamBold
SpeedInput.TextSize = 20
Instance.new("UICorner", SpeedInput).CornerRadius = UDim.new(0, 12)
table.insert(allBackgrounds, SpeedInput)
table.insert(allTexts, SpeedInput)

local TargetBox = Instance.new("TextBox", MainFrame)
TargetBox.Size = UDim2.new(0.9, 0, 0, 32)
TargetBox.Position = UDim2.new(0.05, 0, 0.53, 0)
TargetBox.PlaceholderText = "Target Name..."
TargetBox.Font = Enum.Font.GothamBold
TargetBox.TextSize = 14
Instance.new("UICorner", TargetBox).CornerRadius = UDim.new(1, 0)
table.insert(allBackgrounds, TargetBox)
table.insert(allTexts, TargetBox)

local FlingBtn = createBtn("Fling Target", UDim2.new(0.05, 0, 0.61, 0))
local FakeLagBtn = createBtn("Fake Lag: OFF", UDim2.new(0.05, 0, 0.69, 0))

-- RAINBOW ENGINE
task.spawn(function()
    while true do
        for i = 0, 1, 0.005 do
            local bgCol = Color3.fromHSV(i, 0.6, 0.3)
            local mainCol = Color3.fromHSV(i, 0.8, 1)
            UIStroke.Color = mainCol
            for _, bg in pairs(allBackgrounds) do
                if bg:IsA("Frame") or bg:IsA("TextButton") or bg:IsA("TextBox") or bg:IsA("TextLabel") then
                    bg.BackgroundColor3 = bgCol
                end
            end
            for _, txt in pairs(allTexts) do
                txt.TextColor3 = mainCol
            end
            task.wait(0.02)
        end
    end
end)

-- SPEED & FLY LOGIC
SpeedInput.FocusLost:Connect(function()
    local s = tonumber(SpeedInput.Text)
    if s and lp.Character and lp.Character:FindFirstChildOfClass("Humanoid") then
        lp.Character:FindFirstChildOfClass("Humanoid").WalkSpeed = s
    end
end)

local flying = false
FlyBtn.MouseButton1Click:Connect(function()
    flying = not flying
    FlyBtn.Text = "Fly: " .. (flying and "ON" or "OFF")
    local char = lp.Character
    if not char then return end
    local root = char:FindFirstChild("HumanoidRootPart")
    if flying then
        local bv = Instance.new("BodyVelocity", root) bv.MaxForce = Vector3.new(9e9, 9e9, 9e9)
        local bg = Instance.new("BodyGyro", root) bg.MaxTorque = Vector3.new(9e9, 9e9, 9e9)
        task.spawn(function()
            while flying and char.Parent do
                local cam = workspace.CurrentCamera
                local dir = Vector3.new(0,0,0)
                if UserInputService:IsKeyDown(Enum.KeyCode.W) then dir += cam.CFrame.LookVector end
                if UserInputService:IsKeyDown(Enum.KeyCode.S) then dir -= cam.CFrame.LookVector end
                if UserInputService:IsKeyDown(Enum.KeyCode.A) then dir -= cam.CFrame.RightVector end
                if UserInputService:IsKeyDown(Enum.KeyCode.D) then dir += cam.CFrame.RightVector end
                bv.Velocity = dir * 70 bg.CFrame = cam.CFrame
                RunService.RenderStepped:Wait()
            end
            bv:Destroy() bg:Destroy()
        end)
    end
end)

-- NOCLIP & GOD
local noclip = false
NoclipBtn.MouseButton1Click:Connect(function() noclip = not noclip NoclipBtn.Text = "Noclip: " .. (noclip and "ON" or "OFF") end)
RunService.Stepped:Connect(function() if noclip and lp.Character then for _, v in pairs(lp.Character:GetDescendants()) do if v:IsA("BasePart") then v.CanCollide = false end end end end)

local god = false
GodBtn.MouseButton1Click:Connect(function() god = not god GodBtn.Text = "God Mode: " .. (god and "ON" or "OFF") end)
RunService.Heartbeat:Connect(function() 
    if god and lp.Character then 
        local hum = lp.Character:FindFirstChildOfClass("Humanoid")
        if hum then hum.Health = 9e9 hum.BreakJointsOnDeath = false end
    end 
end)

-- FIXED FAKE LAG (GHOST EFFECT)
local lagActive = false
FakeLagBtn.MouseButton1Click:Connect(function()
    lagActive = not lagActive
    FakeLagBtn.Text = "Fake Lag: " .. (lagActive and "ON" or "OFF")
end)

task.spawn(function()
    while true do
        if lagActive and lp.Character and lp.Character:FindFirstChild("HumanoidRootPart") then
            -- Khiến nhân vật "khựng" lại với server nhưng bạn vẫn di chuyển được
            lp.Character.HumanoidRootPart.Anchored = true
            task.wait(0.2) -- Độ trễ Ghost
            lp.Character.HumanoidRootPart.Anchored = false
            task.wait(0.05) -- Thời gian cập nhật vị trí mới
        end
        RunService.Heartbeat:Wait()
    end
end)

-- BTOOLS & FLING
BToolBtn.MouseButton1Click:Connect(function() for _, t in pairs({"Hammer", "Clone", "Grab"}) do Instance.new("HopperBin", lp.Backpack).BinType = t end end)

FlingBtn.MouseButton1Click:Connect(function()
    local function GetPlayer(String)
        for _, v in pairs(Players:GetPlayers()) do
            if v.Name:lower():sub(1, #String) == String:lower() or v.DisplayName:lower():sub(1, #String) == String:lower() then return v end
        end
    end
    local target = GetPlayer(TargetBox.Text)
    if target and target.Character then
        local root = lp.Character:FindFirstChild("HumanoidRootPart")
        local tRoot = target.Character:FindFirstChild("HumanoidRootPart")
        if root and tRoot then
            root.CFrame = tRoot.CFrame * CFrame.new(0, 0, 1)
            root.Velocity = Vector3.new(999999, 999999, 999999)
        end
    end
end)