local Players = game:GetService("Players")
local Player = Players.LocalPlayer
local Workspace = game:GetService("Workspace")
local RunService = game:GetService("RunService")
local TweenService = game:GetService("TweenService")

-- GUI Setup
local ScreenGui = Instance.new("ScreenGui", Player:WaitForChild("PlayerGui"))

-- Open Menu Button
local OpenButton = Instance.new("TextButton", ScreenGui)
OpenButton.Size = UDim2.new(0, 150, 0, 50)
OpenButton.Position = UDim2.new(0.5, -75, 0.05, 0)
OpenButton.Text = "Open Menu"
OpenButton.BackgroundColor3 = Color3.fromRGB(50, 200, 50)
OpenButton.TextColor3 = Color3.new(1, 1, 1)
OpenButton.Font = Enum.Font.SourceSansBold
OpenButton.TextSize = 20

-- Function to Create Frames
local function createFrame()
	local frame = Instance.new("Frame", ScreenGui)
	frame.Size = UDim2.new(0.7, 0, 0.5, 0)
	frame.Position = UDim2.new(0.15, 0, 0.35, 0)
	frame.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
	frame.Visible = false
	
	local layout = Instance.new("UIListLayout", frame)
	layout.HorizontalAlignment = Enum.HorizontalAlignment.Center
	layout.Padding = UDim.new(0, 10)
	return frame
end

-- Create Frames
local MenuFrame1 = createFrame()
local MenuFrame2 = createFrame()
local MenuFrame3 = createFrame()

-- Function to Create Buttons
local function createButton(parent, text, color)
	local button = Instance.new("TextButton", parent)
	button.Size = UDim2.new(0.9, 0, 0.15, 0)
	button.Text = text
	button.BackgroundColor3 = color
	button.TextColor3 = Color3.new(0, 0, 0)
	button.Font = Enum.Font.SourceSansBold
	button.TextSize = 20
	return button
end

-- Buttons for Frame 1
local HighlightPlayersButton = createButton(MenuFrame1, "Loop Highlight Players", Color3.fromRGB(255, 255, 0))
local HighlightExitsButton = createButton(MenuFrame1, "Loop Highlight Exits", Color3.fromRGB(0, 255, 0))
local HighlightRunButton = createButton(MenuFrame1, "Loop Highlight Run", Color3.fromRGB(255, 0, 0))
local NextFrameButton = createButton(MenuFrame1, "Next Frame", Color3.fromRGB(0, 150, 255))

-- Buttons for Frame 2
local SpeedTextBox = Instance.new("TextBox", MenuFrame2)
SpeedTextBox.Size = UDim2.new(0.9, 0, 0.15, 0)
SpeedTextBox.PlaceholderText = "Enter Speed"
SpeedTextBox.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
SpeedTextBox.TextColor3 = Color3.new(0, 0, 0)
SpeedTextBox.Font = Enum.Font.SourceSansBold
SpeedTextBox.TextSize = 20

local SetSpeedButton = createButton(MenuFrame2, "Set Speed", Color3.fromRGB(0, 255, 0))
local NextFrame2Button = createButton(MenuFrame2, "Next Frame", Color3.fromRGB(0, 150, 255))

-- Buttons for Frame 3
local DeleteRunButton = createButton(MenuFrame3, "Delete All RUN Parts", Color3.fromRGB(255, 50, 50))
local GotoExitButton = createButton(MenuFrame3, "Go to Exit", Color3.fromRGB(0, 200, 200))
local BackButton = createButton(MenuFrame3, "Back to Frame 1", Color3.fromRGB(200, 50, 50))

-- Function to Find Child (Case-Insensitive)
local function findFirstChildCaseInsensitive(parent, childName)
	for _, child in pairs(parent:GetChildren()) do
		if string.lower(child.Name) == string.lower(childName) then
			return child
		end
	end
	return nil
end

-- Function to Loop Highlight Players
local function loopHighlightPlayers()
	RunService.RenderStepped:Connect(function()
		for _, player in pairs(Players:GetPlayers()) do
			if player.Character and player.Character:FindFirstChild("HumanoidRootPart") then
				if not player.Character:FindFirstChild("Highlight") then
					local highlight = Instance.new("Highlight")
					highlight.Parent = player.Character
					highlight.FillColor = Color3.fromRGB(255, 255, 0)
					highlight.OutlineColor = Color3.new(0, 0, 0)
				end
			end
		end
	end)
end

-- Function to Loop Highlight Exits
local function loopHighlightExits()
	RunService.RenderStepped:Connect(function()
		for _, exit in pairs(Workspace:GetDescendants()) do
			if exit:IsA("Model") then
				local exitPart = findFirstChildCaseInsensitive(exit, "exit")
				if exitPart and not exitPart:FindFirstChild("Highlight") then
					local highlight = Instance.new("Highlight")
					highlight.Parent = exitPart
					highlight.FillColor = Color3.fromRGB(0, 255, 0)
					highlight.OutlineColor = Color3.new(0, 0, 0)
				end
			end
		end
	end)
end

-- Function to Set Speed
local function setSpeed()
	local speed = tonumber(SpeedTextBox.Text)
	if speed then
		Player.Character.Humanoid.WalkSpeed = speed
	end
end

-- Function to Delete RUN Parts
local function deleteRunParts()
	for _, runPart in pairs(Workspace:GetChildren()) do
		if runPart:IsA("BasePart") and (string.lower(runPart.Name) == "run") then
			runPart:Destroy()
		end
	end
end

-- Function to Teleport to Exit
local function goToExit()
	for _, model in pairs(Workspace:GetDescendants()) do
		if model:IsA("Model") then
			local exitPart = findFirstChildCaseInsensitive(model, "exit")
			if exitPart and exitPart:IsA("BasePart") then
				Player.Character:SetPrimaryPartCFrame(exitPart.CFrame + Vector3.new(0, 3, 0))
				break
			end
		end
	end
end

-- UI Navigation and Button Actions
OpenButton.MouseButton1Click:Connect(function()
	MenuFrame1.Visible = not MenuFrame1.Visible
end)
HighlightPlayersButton.MouseButton1Click:Connect(loopHighlightPlayers)
HighlightExitsButton.MouseButton1Click:Connect(loopHighlightExits)
SetSpeedButton.MouseButton1Click:Connect(setSpeed)
NextFrameButton.MouseButton1Click:Connect(function()
	MenuFrame1.Visible, MenuFrame2.Visible = false, true
end)
NextFrame2Button.MouseButton1Click:Connect(function()
	MenuFrame2.Visible, MenuFrame3.Visible = false, true
end)
DeleteRunButton.MouseButton1Click:Connect(deleteRunParts)
GotoExitButton.MouseButton1Click:Connect(goToExit)
BackButton.MouseButton1Click:Connect(function()
	MenuFrame3.Visible, MenuFrame1.Visible = false, true
end)