local Players = game:GetService("Players")
local Lighting = game:GetService("Lighting")
local InsertService = game:GetService("InsertService")
local TweenService = game:GetService("TweenService")
local Debris = game:GetService("Debris")

local player = Players.LocalPlayer
if not player then return end

----------------------------------------------------
-- GUI
----------------------------------------------------
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "MyGui"
screenGui.ResetOnSpawn = false
screenGui.Parent = player:WaitForChild("PlayerGui")

local frame = Instance.new("Frame")
frame.Size = UDim2.new(0, 300, 0, 500)
frame.Position = UDim2.new(0.5, -150, 0.5, -250)
frame.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
frame.Parent = screenGui

local layout = Instance.new("UIListLayout")
layout.Padding = UDim.new(0, 5)
layout.Parent = frame

----------------------------------------------------
-- SKYBOX
----------------------------------------------------
local function setSkybox(assetId)
	for _, v in ipairs(Lighting:GetChildren()) do
		if v:IsA("Sky") then
			v:Destroy()
		end
	end

	local sky = Instance.new("Sky")
	sky.Parent = Lighting

	local id = "rbxassetid://" .. tostring(assetId)

	sky.SkyboxBk = id
	sky.SkyboxDn = id
	sky.SkyboxFt = id
	sky.SkyboxLf = id
	sky.SkyboxRt = id
	sky.SkyboxUp = id
end

local function smoothSetSkybox(assetId)
	local fadeOut = TweenService:Create(Lighting, TweenInfo.new(0.4), {Brightness = 0})
	local fadeIn = TweenService:Create(Lighting, TweenInfo.new(0.4), {Brightness = 2})

	fadeOut:Play()
	fadeOut.Completed:Wait()

	for _, v in ipairs(Lighting:GetChildren()) do
		if v:IsA("Sky") then
			v:Destroy()
		end
	end

	local sky = Instance.new("Sky")
	sky.Parent = Lighting

	local id = "rbxassetid://" .. tostring(assetId)

	sky.SkyboxBk = id
	sky.SkyboxDn = id
	sky.SkyboxFt = id
	sky.SkyboxLf = id
	sky.SkyboxRt = id
	sky.SkyboxUp = id

	fadeIn:Play()
end

----------------------------------------------------
-- TEXTURES
----------------------------------------------------
local function applyTextures(assetId)
	local textureId = "rbxassetid://" .. tostring(assetId)

	for _, obj in ipairs(workspace:GetDescendants()) do
		if obj:IsA("BasePart") then
			for _, d in ipairs(obj:GetChildren()) do
				if d:IsA("Decal") then
					d:Destroy()
				end
			end

			for _, face in ipairs(Enum.NormalId:GetEnumItems()) do
				local decal = Instance.new("Decal")
				decal.Texture = textureId
				decal.Face = face
				decal.Parent = obj
			end
		end
	end
end

----------------------------------------------------
-- WORLD COLOR LOOP
----------------------------------------------------
local worldColorLoop = false

local function startWorldColorLoop()
	if worldColorLoop then return end
	worldColorLoop = true

	task.spawn(function()
		while worldColorLoop do
			local c = Color3.fromRGB(math.random(255), math.random(255), math.random(255))

			for _, obj in ipairs(workspace:GetDescendants()) do
				if obj:IsA("BasePart") then
					obj.Color = c
				end
			end

			task.wait(1)
		end
	end)
end

----------------------------------------------------
-- AVATAR CHAOS
----------------------------------------------------
local avatarLoop = false

local function startAvatarChaos()
	if avatarLoop then return end
	avatarLoop = true

	task.spawn(function()
		while avatarLoop do
			local character = player.Character or player.CharacterAdded:Wait()

			local old = character:FindFirstChildOfClass("BodyColors")
			if old then old:Destroy() end

			local bodyColors = Instance.new("BodyColors")
			bodyColors.HeadColor3 = Color3.fromRGB(math.random(255), math.random(255), math.random(255))
			bodyColors.TorsoColor3 = Color3.fromRGB(math.random(255), math.random(255), math.random(255))
			bodyColors.LeftArmColor3 = Color3.fromRGB(math.random(255), math.random(255), math.random(255))
			bodyColors.RightArmColor3 = Color3.fromRGB(math.random(255), math.random(255), math.random(255))
			bodyColors.LeftLegColor3 = Color3.fromRGB(math.random(255), math.random(255), math.random(255))
			bodyColors.RightLegColor3 = Color3.fromRGB(math.random(255), math.random(255), math.random(255))
			bodyColors.Parent = character

			task.wait(1)
		end
	end)
end

----------------------------------------------------
-- PARTICLES
----------------------------------------------------
local function spawnChaosParticles()
	local textureId = "rbxassetid://134894044978656"

	for _, obj in ipairs(workspace:GetDescendants()) do
		if obj:IsA("BasePart") then
			local old = obj:FindFirstChild("ChaosParticles")
			if old then old:Destroy() end

			local emitter = Instance.new("ParticleEmitter")
			emitter.Name = "ChaosParticles"
			emitter.Texture = textureId
			emitter.Rate = 10
			emitter.Lifetime = NumberRange.new(1, 2)
			emitter.Speed = NumberRange.new(10)
			emitter.SpreadAngle = Vector2.new(360, 360)
			emitter.RotSpeed = NumberRange.new(-180, 180)
			emitter.Parent = obj
		end
	end
end

----------------------------------------------------
-- MODEL RAIN
----------------------------------------------------
local function rainModel(assetId)
	local success, model = pcall(function()
		return InsertService:LoadAsset(assetId)
	end)

	if not success or not model then return end

	local template = model:FindFirstChildWhichIsA("Model") or model
	template.Parent = nil

	task.spawn(function()
		while true do
			local clone = template:Clone()

			for _, v in ipairs(clone:GetDescendants()) do
				if v:IsA("BasePart") then
					v.Anchored = false
					v.CanCollide = true
				end
			end

			local char = player.Character
			local root = char and char:FindFirstChild("HumanoidRootPart")

			if root then
				local pos = root.Position + Vector3.new(math.random(-30, 30), 60, math.random(-30, 30))
				clone:PivotTo(CFrame.new(pos))
			end

			clone.Parent = workspace
			task.wait(0.2)
		end
	end)
end

----------------------------------------------------
-- BIG WATER
----------------------------------------------------
local function spawnBigWater()
	local char = player.Character or player.CharacterAdded:Wait()
	local root = char:FindFirstChild("HumanoidRootPart")
	if not root then return end

	local water = Instance.new("Part")
	water.Name = "ClientWater"
	water.Size = Vector3.new(500, 20, 500)
	water.Position = root.Position - Vector3.new(0, 10, 0)
	water.Anchored = true
	water.CanCollide = false
	water.Material = Enum.Material.Water
	water.Transparency = 0.3
	water.Color = Color3.fromRGB(0, 170, 255)
	water.Parent = workspace

	task.spawn(function()
		for i = 1, 50 do
			water.Position += Vector3.new(0, 0.5, 0)
			task.wait(0.05)
		end
	end)
end

----------------------------------------------------
-- FAST PARTICLES
----------------------------------------------------
local function spawnGlobalFastParticles(assetId)
	local textureId = "rbxassetid://" .. tostring(assetId)

	for _, obj in ipairs(workspace:GetDescendants()) do
		if obj:IsA("BasePart") then
			local old = obj:FindFirstChild("GlobalParticles")
			if old then old:Destroy() end

			local emitter = Instance.new("ParticleEmitter")
			emitter.Name = "GlobalParticles"
			emitter.Texture = textureId
			emitter.Rate = 200
			emitter.Lifetime = NumberRange.new(0.5, 1.5)
			emitter.Speed = NumberRange.new(15, 25)
			emitter.SpreadAngle = Vector2.new(360, 360)
			emitter.RotSpeed = NumberRange.new(-360, 360)
			emitter.Parent = obj
		end
	end
end

----------------------------------------------------
-- EXPLODING CLONES
----------------------------------------------------
local function spawnExplodingClones()
	local character = player.Character or player.CharacterAdded:Wait()
	local root = character:FindFirstChild("HumanoidRootPart")
	if not root then return end

	for i = 1, 8 do
		local clone = character:Clone()
		clone.Parent = workspace

		for _, v in ipairs(clone:GetDescendants()) do
			if v:IsA("Script") or v:IsA("LocalScript") then
				v:Destroy()
			elseif v:IsA("BasePart") then
				v.Anchored = false
				v.CanCollide = true
			end
		end

		clone:PivotTo(root.CFrame + Vector3.new(math.random(-10, 10), 0, math.random(-10, 10)))

		task.delay(6, function()
			local hrp = clone:FindFirstChild("HumanoidRootPart")
			if hrp then
				local explosion = Instance.new("Explosion")
				explosion.Position = hrp.Position
				explosion.BlastRadius = 10
				explosion.BlastPressure = 500000
				explosion.Parent = workspace
			end
			clone:Destroy()
		end)
	end
end

----------------------------------------------------
-- BALL RAIN
----------------------------------------------------
local function rainBalls()
	local materials = {
		Enum.Material.Plastic,
		Enum.Material.SmoothPlastic,
		Enum.Material.Neon,
		Enum.Material.Wood,
		Enum.Material.Metal,
		Enum.Material.Glass,
		Enum.Material.Grass,
		Enum.Material.Slate
	}

	local char = player.Character or player.CharacterAdded:Wait()
	local root = char:FindFirstChild("HumanoidRootPart")
	if not root then return end

	task.spawn(function()
		while true do
			local ball = Instance.new("Part")
			ball.Shape = Enum.PartType.Ball
			ball.Size = Vector3.new(2, 2, 2)
			ball.Material = materials[math.random(1, #materials)]
			ball.Color = Color3.fromRGB(math.random(255), math.random(255), math.random(255))
			ball.Anchored = false
			ball.CanCollide = true

			ball.Position = root.Position + Vector3.new(math.random(-40, 40), 60, math.random(-40, 40))
			ball.Parent = workspace

			Debris:AddItem(ball, 10)
			task.wait(0.05)
		end
	end)
end

----------------------------------------------------
-- BUTTON SYSTEM (NAMED)
----------------------------------------------------
for i = 1, 15 do
	local button = Instance.new("TextButton")
	button.Size = UDim2.new(1, -10, 0, 30)
	button.BackgroundColor3 = Color3.fromRGB(20, 20, 20)
	button.TextColor3 = Color3.fromRGB(255, 255, 255)
	button.Parent = frame

	local stroke = Instance.new("UIStroke")
	stroke.Color = Color3.fromRGB(255, 0, 0)
	stroke.Thickness = 2
	stroke.Parent = button

	-- TEXT NAMES
	if i == 1 then button.Text = "🔥 Fire Sky & Texture"
	elseif i == 2 then button.Text = "🌌 Dark Sky & Texture"
	elseif i == 3 then button.Text = "🌈 World Color Chaos"
	elseif i == 4 then button.Text = "🧍 Avatar Chaos"
	elseif i == 5 then button.Text = "💀 Unanchor World"
	elseif i == 6 then button.Text = "🖼 Floating Head Image"
	elseif i == 7 then button.Text = "❌ Unused Button"
	elseif i == 8 then button.Text = "✨ Chaos Particles"
	elseif i == 9 then button.Text = "📦 Model Rain"
	elseif i == 10 then button.Text = "🌠 Smooth Sky Change"
	elseif i == 11 then button.Text = "🌊 Big Water Flood"
	elseif i == 12 then button.Text = "💨 Fast Particle Storm"
	elseif i == 13 then button.Text = "💥 Exploding Clones"
	elseif i == 14 then button.Text = "🎱 Ball Rain Chaos"
	elseif i == 15 then button.Text = "🏆 Become Leaderboard Top"
	end

	-- ACTIONS
	if i == 1 then
		button.MouseButton1Click:Connect(function()
			setSkybox(134894044978656)
			applyTextures(134894044978656)
		end)

	elseif i == 2 then
		button.MouseButton1Click:Connect(function()
			setSkybox(84372126335871)
			applyTextures(84372126335871)
		end)

	elseif i == 3 then button.MouseButton1Click:Connect(startWorldColorLoop)
	elseif i == 4 then button.MouseButton1Click:Connect(startAvatarChaos)

	elseif i == 5 then
		button.MouseButton1Click:Connect(function()
			for _, obj in ipairs(workspace:GetDescendants()) do
				if obj:IsA("BasePart") then obj.Anchored = false end
			end
		end)

	elseif i == 6 then
		button.MouseButton1Click:Connect(function()
			local char = player.Character or player.CharacterAdded:Wait()
			local head = char:WaitForChild("Head")

			local old = head:FindFirstChild("FloatingGui")
			if old then old:Destroy() end

			local gui = Instance.new("BillboardGui")
			gui.Size = UDim2.new(4,0,2,0)
			gui.Parent = head

			local img = Instance.new("ImageLabel")
			img.Size = UDim2.new(1,0,1,0)
			img.BackgroundTransparency = 1
			img.Image = "rbxassetid://127701265667109"
			img.Parent = gui
		end)

	elseif i == 8 then button.MouseButton1Click:Connect(spawnChaosParticles)
	elseif i == 9 then button.MouseButton1Click:Connect(function() rainModel(9037855561) end)
	elseif i == 10 then button.MouseButton1Click:Connect(function() smoothSetSkybox(6909151883) end)
	elseif i == 11 then button.MouseButton1Click:Connect(spawnBigWater)
	elseif i == 12 then button.MouseButton1Click:Connect(function() spawnGlobalFastParticles(6909151883) end)
	elseif i == 13 then button.MouseButton1Click:Connect(spawnExplodingClones)
	elseif i == 14 then button.MouseButton1Click:Connect(rainBalls)
	end
end