-- Modern Custom UI (No Library)

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

local plr = Players.LocalPlayer
local char = plr.Character or plr.CharacterAdded:Wait()
local hum = char:WaitForChild("Humanoid")
local root = char:WaitForChild("HumanoidRootPart")

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

local main = Instance.new("Frame", gui)
main.Size = UDim2.new(0, 420, 0, 260)
main.Position = UDim2.new(0.5,-210,0.5,-130)
main.BackgroundColor3 = Color3.fromRGB(20,20,20)
main.BorderSizePixel = 0

local corner = Instance.new("UICorner", main)
corner.CornerRadius = UDim.new(0,12)

local title = Instance.new("TextLabel", main)
title.Size = UDim2.new(1,0,0,40)
title.Text = "Modern Executor UI"
title.Font = Enum.Font.GothamBold
title.TextSize = 18
title.TextColor3 = Color3.new(1,1,1)
title.BackgroundTransparency = 1

-- Drag
local dragging, startPos, startInput
title.InputBegan:Connect(function(i)
	if i.UserInputType == Enum.UserInputType.MouseButton1 then
		dragging = true
		startInput = i.Position
		startPos = main.Position
	end
end)

UIS.InputChanged:Connect(function(i)
	if dragging and i.UserInputType == Enum.UserInputType.MouseMovement then
		local delta = i.Position - startInput
		main.Position = startPos + UDim2.fromOffset(delta.X, delta.Y)
	end
end)

UIS.InputEnded:Connect(function(i)
	if i.UserInputType == Enum.UserInputType.MouseButton1 then
		dragging = false
	end
end)

------------------------------------------------
-- Tabs
------------------------------------------------
local tabBar = Instance.new("Frame", main)
tabBar.Size = UDim2.new(0,120,1,-40)
tabBar.Position = UDim2.new(0,0,0,40)
tabBar.BackgroundColor3 = Color3.fromRGB(25,25,25)
tabBar.BorderSizePixel = 0

local pages = Instance.new("Frame", main)
pages.Size = UDim2.new(1,-120,1,-40)
pages.Position = UDim2.new(0,120,0,40)
pages.BackgroundTransparency = 1

local function createPage()
	local f = Instance.new("Frame", pages)
	f.Size = UDim2.new(1,0,1,0)
	f.Visible = false
	f.BackgroundTransparency = 1
	return f
end

local function tabButton(text, y, page)
	local b = Instance.new("TextButton", tabBar)
	b.Size = UDim2.new(1,0,0,40)
	b.Position = UDim2.new(0,0,0,y)
	b.Text = text
	b.Font = Enum.Font.Gotham
	b.TextSize = 14
	b.TextColor3 = Color3.new(1,1,1)
	b.BackgroundTransparency = 1
	b.MouseButton1Click:Connect(function()
		for _,p in pairs(pages:GetChildren()) do p.Visible = false end
		page.Visible = true
	end)
end

------------------------------------------------
-- MAIN PAGE
------------------------------------------------
local MainPage = createPage()
MainPage.Visible = true

tabButton("Main", 0, MainPage)

local function button(parent, text, y, cb)
	local b = Instance.new("TextButton", parent)
	b.Size = UDim2.new(0,200,0,40)
	b.Position = UDim2.new(0,20,0,y)
	b.BackgroundColor3 = Color3.fromRGB(35,35,35)
	b.Text = text
	b.TextColor3 = Color3.new(1,1,1)
	b.Font = Enum.Font.Gotham
	b.TextSize = 14
	Instance.new("UICorner", b)
	b.MouseButton1Click:Connect(cb)
end

-- Vehicle Fly
local flying = false
local bv, bg

button(MainPage,"Toggle Vehicle Fly",20,function()
	flying = not flying
	if flying then
		bv = Instance.new("BodyVelocity", root)
		bv.MaxForce = Vector3.new(1e9,1e9,1e9)

		bg = Instance.new("BodyGyro", root)
		bg.MaxTorque = Vector3.new(1e9,1e9,1e9)
		bg.P = 9e4

		RunService:BindToRenderStep("Fly",0,function()
			local cam = workspace.CurrentCamera
			local move = Vector3.zero
			if UIS:IsKeyDown(Enum.KeyCode.W) then move += cam.CFrame.LookVector end
			if UIS:IsKeyDown(Enum.KeyCode.S) then move -= cam.CFrame.LookVector end
			if UIS:IsKeyDown(Enum.KeyCode.A) then move -= cam.CFrame.RightVector end
			if UIS:IsKeyDown(Enum.KeyCode.D) then move += cam.CFrame.RightVector end
			if UIS:IsKeyDown(Enum.KeyCode.Space) then move += cam.CFrame.UpVector end
			if UIS:IsKeyDown(Enum.KeyCode.LeftControl) then move -= cam.CFrame.UpVector end
			bv.Velocity = move * 60
			bg.CFrame = cam.CFrame
		end)
	else
		RunService:UnbindFromRenderStep("Fly")
		if bv then bv:Destroy() end
		if bg then bg:Destroy() end
	end
end)

-- Noclip
local noclip = false
button(MainPage,"Toggle Noclip",70,function()
	noclip = not noclip
end)

RunService.Stepped:Connect(function()
	if noclip then
		for _,v in pairs(char:GetDescendants()) do
			if v:IsA("BasePart") then
				v.CanCollide = false
			end
		end
	end
end)

------------------------------------------------
-- BROOKHAVEN PAGE
------------------------------------------------
local BrookPage = createPage()
tabButton("Brookhaven", 40, BrookPage)

button(BrookPage,"Speed Boost",20,function()
	hum.WalkSpeed = 100
end)

button(BrookPage,"Jump Boost",70,function()
	hum.JumpPower = 120
end)

button(BrookPage,"Unlock Camera Zoom",120,function()
	plr.CameraMinZoomDistance = 0.5
	plr.CameraMaxZoomDistance = 1000
end)