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

-- SETTINGS
local KEY = "rlm8"
local unlocked = false

-- STATES
local flying = false
local noclip = false
local infjump = false

local flySpeed = 50
local bodyVel, bodyGyro

-- GUI
local gui = Instance.new("ScreenGui", player:WaitForChild("PlayerGui"))

-- KEY FRAME
local keyFrame = Instance.new("Frame", gui)
keyFrame.Size = UDim2.new(0,300,0,180)
keyFrame.Position = UDim2.new(0.5,-150,0.5,-90)
keyFrame.BackgroundColor3 = Color3.fromRGB(25,25,25)

local title = Instance.new("TextLabel", keyFrame)
title.Size = UDim2.new(1,0,0,40)
title.Text = "Enter Key"
title.TextColor3 = Color3.new(1,1,1)
title.BackgroundTransparency = 1

local keyBox = Instance.new("TextBox", keyFrame)
keyBox.Size = UDim2.new(0.8,0,0,40)
keyBox.Position = UDim2.new(0.1,0,0.4,0)
keyBox.PlaceholderText = "Key here..."

local submit = Instance.new("TextButton", keyFrame)
submit.Size = UDim2.new(0.5,0,0,35)
submit.Position = UDim2.new(0.25,0,0.7,0)
submit.Text = "Submit"

local status = Instance.new("TextLabel", keyFrame)
status.Size = UDim2.new(1,0,0,30)
status.Position = UDim2.new(0,0,1,-30)
status.BackgroundTransparency = 1
status.TextColor3 = Color3.new(1,0,0)

-- ADMIN FRAME
local adminFrame = Instance.new("Frame", gui)
adminFrame.Size = UDim2.new(0,350,0,200)
adminFrame.Position = UDim2.new(0.5,-175,0.5,-100)
adminFrame.BackgroundColor3 = Color3.fromRGB(40,40,40)
adminFrame.Visible = false

local cmdTitle = Instance.new("TextLabel", adminFrame)
cmdTitle.Size = UDim2.new(1,0,0,40)
cmdTitle.Text = "Admin Commands"
cmdTitle.TextColor3 = Color3.new(1,1,1)
cmdTitle.BackgroundTransparency = 1

local cmdBox = Instance.new("TextBox", adminFrame)
cmdBox.Size = UDim2.new(0.8,0,0,50)
cmdBox.Position = UDim2.new(0.1,0,0.4,0)
cmdBox.PlaceholderText = "Type command..."

-- KEY SYSTEM
submit.MouseButton1Click:Connect(function()
	if keyBox.Text == KEY then
		unlocked = true
		keyFrame.Visible = false
		adminFrame.Visible = true
	else
		status.Text = "Wrong Key!"
	end
end)

-- COMMANDS
cmdBox.FocusLost:Connect(function(enter)
	if not enter then return end
	
	if not unlocked then
		cmdBox.Text = ""
		return
	end
	
	local cmd = string.lower(cmdBox.Text)
	local char = player.Character
	local hum = char and char:FindFirstChild("Humanoid")
	local root = char and char:FindFirstChild("HumanoidRootPart")
	
	if not char or not hum or not root then return end
	
	if cmd == "speed" then
		hum.WalkSpeed = 50
		
	elseif cmd == "unspeed" then
		hum.WalkSpeed = 16
		
	elseif cmd == "infjump" then
		infjump = not infjump
		
	elseif cmd == "noclip" then
		noclip = not noclip
		
	elseif cmd == "fly" then
		flying = not flying
		
		if flying then
			bodyVel = Instance.new("BodyVelocity", root)
			bodyVel.MaxForce = Vector3.new(999999,999999,999999)
			
			bodyGyro = Instance.new("BodyGyro", root)
			bodyGyro.MaxTorque = Vector3.new(999999,999999,999999)
		else
			if bodyVel then bodyVel:Destroy() end
			if bodyGyro then bodyGyro:Destroy() end
		end
	end
	
	cmdBox.Text = ""
end)

-- INF JUMP
UIS.JumpRequest:Connect(function()
	if infjump then
		local char = player.Character
		if char and char:FindFirstChild("Humanoid") then
			char.Humanoid:ChangeState("Jumping")
		end
	end
end)

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

-- FLY
RunService.RenderStepped:Connect(function()
	if flying and bodyVel and bodyGyro then
		local cam = workspace.CurrentCamera
		bodyGyro.CFrame = cam.CFrame
		
		local dir = Vector3.new()
		
		if UIS:IsKeyDown(Enum.KeyCode.W) then
			dir += cam.CFrame.LookVector
		end
		if UIS:IsKeyDown(Enum.KeyCode.S) then
			dir -= cam.CFrame.LookVector
		end
		if UIS:IsKeyDown(Enum.KeyCode.A) then
			dir -= cam.CFrame.RightVector
		end
		if UIS:IsKeyDown(Enum.KeyCode.D) then
			dir += cam.CFrame.RightVector
		end
		
		bodyVel.Velocity = dir * flySpeed
	end
end)