--[[
	WARNING: Heads up! This script has not been verified by ScriptBlox. Use at your own risk!
]]
--// ULTIMATE ADMIN GUI

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

local player = Players.LocalPlayer
local mouse = player:GetMouse()

-- REMOVE OLD GUI IF IT ALREADY EXISTS
local existingGui = player.PlayerGui:FindFirstChild("UltimateAdminGUI")

if existingGui then
	existingGui:Destroy()
end

-- CHARACTER
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local root = character:WaitForChild("HumanoidRootPart")

player.CharacterAdded:Connect(function(char)
	character = char
	humanoid = char:WaitForChild("Humanoid")
	root = char:WaitForChild("HumanoidRootPart")
end)

-- GUI
local gui = Instance.new("ScreenGui")
gui.Name = "UltimateAdminGUI"
gui.ResetOnSpawn = false
gui.Parent = player.PlayerGui

local frame = Instance.new("Frame")
frame.Size = UDim2.new(0,250,0,620)
frame.Position = UDim2.new(0,20,0.5,-330)
frame.BackgroundColor3 = Color3.fromRGB(30,30,30)
frame.BorderSizePixel = 0
frame.Active = true
frame.Draggable = true
frame.Parent = gui

Instance.new("UICorner", frame)

local title = Instance.new("TextLabel")
title.Size = UDim2.new(1,0,0,40)
title.BackgroundTransparency = 1
title.Text = "ChatUI Uni v2"
title.Font = Enum.Font.SourceSansBold
title.TextColor3 = Color3.new(1,1,1)
title.TextSize = 30
title.Parent = frame

-- BUTTON CREATOR
local function createButton(text, y)

	local button = Instance.new("TextButton")
	button.Size = UDim2.new(0.9,0,0,35)
	button.Position = UDim2.new(0.05,0,0,y)
	button.BackgroundColor3 = Color3.fromRGB(50,50,50)
	button.TextColor3 = Color3.new(1,1,1)
	button.Font = Enum.Font.SourceSansBold
	button.TextSize = 22
	button.Text = text
	button.Parent = frame

	Instance.new("UICorner", button)

	return button
end

-- BUTTONS
local flyBtn = createButton("Fly: OFF", 50)
local noclipBtn = createButton("Noclip: OFF", 90)
local speedBtn = createButton("Speed x2", 130)
local tpToolBtn = createButton("Teleport Tool: OFF", 170)
local nearestBtn = createButton("TP Nearest Player", 210)
local skyboxBtn = createButton("Change Skybox", 250)
local stopAnimBtn = createButton("Stop Emote", 410)
local undoSkyBtn = createButton("Undo Skybox", 290)
local swordBtn = createButton("Give Sword", 490)
local invisBtn = createButton("Invisible: OFF", 530)
local flingBtn = createButton("Fling: OFF", 570)

-------------------------------------------------------
-- FLY
-------------------------------------------------------

local flying = false
local bv
local bg

flyBtn.MouseButton1Click:Connect(function()

	flying = not flying

	if flying then

		flyBtn.Text = "Fly: ON"

		bv = Instance.new("BodyVelocity")
		bv.MaxForce = Vector3.new(math.huge, math.huge, math.huge)
		bv.Parent = root

		bg = Instance.new("BodyGyro")
		bg.MaxTorque = Vector3.new(math.huge, math.huge, math.huge)
		bg.Parent = root

		RunService:BindToRenderStep("Fly", Enum.RenderPriority.Character.Value, function()

			local cam = workspace.CurrentCamera

			bg.CFrame = cam.CFrame

			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 += Vector3.new(0,1,0)
			end

			if UIS:IsKeyDown(Enum.KeyCode.LeftControl) then
				move -= Vector3.new(0,1,0)
			end

			bv.Velocity = move * 80
		end)

	else

		flyBtn.Text = "Fly: OFF"

		RunService:UnbindFromRenderStep("Fly")

		if bv then bv:Destroy() end
		if bg then bg:Destroy() end
	end
end)

-------------------------------------------------------
-- NOCLIP
-------------------------------------------------------

local noclip = false

noclipBtn.MouseButton1Click:Connect(function()

	noclip = not noclip
	noclipBtn.Text = noclip and "Noclip: ON" or "Noclip: OFF"

end)

RunService.Stepped:Connect(function()

	if noclip and character then

		for _,v in pairs(character:GetDescendants()) do

			if v:IsA("BasePart") then
				v.CanCollide = false
			end
		end
	end
end)

-------------------------------------------------------
-- SPEED
-------------------------------------------------------

local speed = false

speedBtn.MouseButton1Click:Connect(function()

	speed = not speed

	if speed then
		humanoid.WalkSpeed = 32
		speedBtn.Text = "Normal Speed"
	else
		humanoid.WalkSpeed = 16
		speedBtn.Text = "Speed x2"
	end
end)

-------------------------------------------------------
-- TELEPORT TOOL
-------------------------------------------------------

local tpEnabled = false

tpToolBtn.MouseButton1Click:Connect(function()

	tpEnabled = not tpEnabled
	tpToolBtn.Text = tpEnabled and "Teleport Tool: ON" or "Teleport Tool: OFF"

end)

mouse.Button1Down:Connect(function()

	if tpEnabled and root then
		root.CFrame = CFrame.new(mouse.Hit.Position + Vector3.new(0,5,0))
	end
end)

-------------------------------------------------------
-- TP TO NEAREST PLAYER
-------------------------------------------------------

nearestBtn.MouseButton1Click:Connect(function()

	local nearest
	local distance = math.huge

	for _,plr in pairs(Players:GetPlayers()) do

		if plr ~= player and plr.Character and plr.Character:FindFirstChild("HumanoidRootPart") then

			local dist = (root.Position - plr.Character.HumanoidRootPart.Position).Magnitude

			if dist < distance then
				distance = dist
				nearest = plr
			end
		end
	end

	if nearest then
		root.CFrame = nearest.Character.HumanoidRootPart.CFrame + Vector3.new(3,0,0)
	end
end)

-------------------------------------------------------
-- GIVE SWORD
-------------------------------------------------------

swordBtn.MouseButton1Click:Connect(function()
	game.ReplicatedStorage.GiveSword:FireServer()
end)

local textlabel = Instance.new("TextLabel")
textlabel.Size = UDim2.new(0.9,0,0,35)
textlabel.Position = UDim2.new(0.05,0,0,450)
textlabel.Text = "DOESN'T WORK IN MOST GAMES ⚠️"
textlabel.TextColor3 = Color3.new(1, 0, 0)
textlabel.BackgroundTransparency = 1
textlabel.Font = Enum.Font.SourceSansBold
textlabel.TextScaled = true
textlabel.Parent = frame

-------------------------------------------------------
-- SKYBOX
-------------------------------------------------------

local originalSky = Lighting:FindFirstChildOfClass("Sky")

skyboxBtn.MouseButton1Click:Connect(function()

	if Lighting:FindFirstChild("CustomSky") then
		Lighting.CustomSky:Destroy()
	end

	local sky = Instance.new("Sky")
	sky.Name = "CustomSky"

	sky.SkyboxBk = "rbxassetid://91673333400252"
	sky.SkyboxDn = "rbxassetid://91673333400252"
	sky.SkyboxFt = "rbxassetid://91673333400252"
	sky.SkyboxLf = "rbxassetid://91673333400252"
	sky.SkyboxRt = "rbxassetid://91673333400252"
	sky.SkyboxUp = "rbxassetid://91673333400252"

	sky.Parent = Lighting
end)

-------------------------------------------------------
-- UNDO SKYBOX
-------------------------------------------------------

undoSkyBtn.MouseButton1Click:Connect(function()

	if Lighting:FindFirstChild("CustomSky") then
		Lighting.CustomSky:Destroy()
	end

	if originalSky and not Lighting:FindFirstChild(originalSky.Name) then

		local clone = originalSky:Clone()
		clone.Parent = Lighting
	end
end)

-------------------------------------------------------
-- ANIMATION SYSTEM
-------------------------------------------------------

local currentTrack

local function playAnimation(id)

	if currentTrack then
		currentTrack:Stop()
	end

	local anim = Instance.new("Animation")
	anim.AnimationId = "rbxassetid://" .. id

	currentTrack = humanoid:LoadAnimation(anim)
	currentTrack:Play()
end

-------------------------------------------------------
-- STOP EMOTE BUTTON
-------------------------------------------------------

stopAnimBtn.MouseButton1Click:Connect(function()

	if currentTrack then
		currentTrack:Stop()
	end
end)

-------------------------------------------------------
-- CUSTOM EMOTE TEXTBOX
-------------------------------------------------------

local animBox = Instance.new("TextBox")
animBox.Size = UDim2.new(0.9,0,0,35)
animBox.Position = UDim2.new(0.05,0,0,370)
animBox.BackgroundColor3 = Color3.fromRGB(45,45,45)
animBox.TextColor3 = Color3.new(1,1,1)
animBox.PlaceholderText = "Enter Animation ID"
animBox.Text = ""
animBox.Font = Enum.Font.SourceSansBold
animBox.TextSize = 20
animBox.Parent = frame

Instance.new("UICorner", animBox)

-------------------------------------------------------
-- PLAY CUSTOM EMOTE
-------------------------------------------------------

local playAnimBtn = createButton("Play Custom Emote", 330)

playAnimBtn.MouseButton1Click:Connect(function()

	local id = tonumber(animBox.Text)

	if id then
		playAnimation(id)
	end
end)

-------------------------------------------------------
-- INVISIBILITY SYSTEM
-------------------------------------------------------

local invisible = false

invisBtn.MouseButton1Click:Connect(function()

	invisible = not invisible

	if invisible then

		invisBtn.Text = "Invisible: ON"

		for _, obj in pairs(character:GetDescendants()) do

			if obj:IsA("BasePart") then

				-- keep root part slightly visible for movement
				if obj.Name == "HumanoidRootPart" then
					obj.Transparency = 1
				else
					obj.Transparency = 1
				end

			elseif obj:IsA("Decal") then

				obj.Transparency = 1
			end
		end

	else

		invisBtn.Text = "Invisible: OFF"

		for _, obj in pairs(character:GetDescendants()) do

			if obj:IsA("BasePart") then

				if obj.Name == "HumanoidRootPart" then
					obj.Transparency = 1
				else
					obj.Transparency = 0
				end

			elseif obj:IsA("Decal") then

				obj.Transparency = 0
			end
		end
	end
end)

-------------------------------------------------------
-- MINIMIZE BUTTON
-------------------------------------------------------

local minimized = false

local minimizeBtn = Instance.new("TextButton")
minimizeBtn.Size = UDim2.new(0,35,0,35)
minimizeBtn.Position = UDim2.new(1,-40,0,5)
minimizeBtn.BackgroundColor3 = Color3.fromRGB(60,60,60)
minimizeBtn.TextColor3 = Color3.new(1,1,1)
minimizeBtn.Font = Enum.Font.SourceSansBold
minimizeBtn.TextSize = 24
minimizeBtn.Text = "-"
minimizeBtn.Parent = frame

Instance.new("UICorner", minimizeBtn)

-------------------------------------------------------
-- STORE ORIGINAL SIZE
-------------------------------------------------------

local expandedSize = frame.Size
local minimizedSize = UDim2.new(0,250,0,45)

-------------------------------------------------------
-- GET ALL UI OBJECTS TO HIDE
-------------------------------------------------------

local function setGuiVisible(state)

	for _, obj in pairs(frame:GetChildren()) do

		-- keep title + minimize button visible
		if obj ~= title and obj ~= minimizeBtn and not obj:IsA("UICorner") then

			obj.Visible = state
		end
	end
end

-------------------------------------------------------
-- MINIMIZE FUNCTION
-------------------------------------------------------

minimizeBtn.MouseButton1Click:Connect(function()

	minimized = not minimized

	if minimized then

		minimizeBtn.Text = "+"

		setGuiVisible(false)

		frame:TweenSize(
			minimizedSize,
			Enum.EasingDirection.Out,
			Enum.EasingStyle.Quad,
			0.2,
			true
		)

	else

		minimizeBtn.Text = "-"

		setGuiVisible(true)

		frame:TweenSize(
			expandedSize,
			Enum.EasingDirection.Out,
			Enum.EasingStyle.Quad,
			0.2,
			true
		)
	end
end)

-------------------------------------------------------
-- WORKING FLING SYSTEM
-------------------------------------------------------

local flingEnabled = false
local flingConnection

flingBtn.MouseButton1Click:Connect(function()

	flingEnabled = not flingEnabled

	if flingEnabled then

		flingBtn.Text = "Fling: ON"

		flingConnection = RunService.Heartbeat:Connect(function()

			if not character or not root then
				return
			end

			for _, obj in ipairs(workspace:GetDescendants()) do

				if obj:IsA("BasePart") then

					------------------------------------------------
					-- IGNORE PLAYER CHARACTER
					------------------------------------------------

					if obj:IsDescendantOf(character) then
						continue
					end

					------------------------------------------------
					-- ONLY UNANCHORED PARTS
					------------------------------------------------

					if obj.Anchored then
						continue
					end

					------------------------------------------------
					-- DISTANCE CHECK
					------------------------------------------------

					local distance =
						(obj.Position - root.Position).Magnitude

					if distance <= 12 then

						------------------------------------------------
						-- CREATE BODY VELOCITY
						------------------------------------------------

						local bv = Instance.new("BodyVelocity")
						bv.MaxForce = Vector3.new(
							999999999,
							999999999,
							999999999
						)

						local direction =
							(obj.Position - root.Position).Unit

						bv.Velocity =
							(direction * 300)
							+
							Vector3.new(0,120,0)

						bv.Parent = obj

						------------------------------------------------
						-- SPIN
						------------------------------------------------

						local bav = Instance.new("BodyAngularVelocity")
						bav.MaxTorque = Vector3.new(
							999999999,
							999999999,
							999999999
						)

						bav.AngularVelocity = Vector3.new(
							math.random(-50,50),
							math.random(-50,50),
							math.random(-50,50)
						)

						bav.Parent = obj

						------------------------------------------------
						-- CLEANUP
						------------------------------------------------

						game:GetService("Debris"):AddItem(bv, 0.15)
						game:GetService("Debris"):AddItem(bav, 0.15)
					end
				end
			end
		end)

	else

		flingBtn.Text = "Fling: OFF"

		if flingConnection then
			flingConnection:Disconnect()
			flingConnection = nil
		end
	end
end)