-- Services
local Players = game:GetService("Players")
local TweenService = game:GetService("TweenService")
local RunService = game:GetService("RunService")
local StarterGui = game:GetService("StarterGui")
local Lighting = game:GetService("Lighting")

local player = Players.LocalPlayer
local playerGui = player:WaitForChild("PlayerGui")

-- Configuración de IDs
local cieloID = "382332426"
local texturaID = "382332426"
local particulaID = "382332426"
local audioID = "123456" -- Cambia esto al ID del audio que quieras reproducir

-- Crear GUI
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "ControlGUI"
screenGui.Parent = playerGui

local boton = Instance.new("TextButton")
boton.Size = UDim2.new(0, 150, 0, 50)
boton.Position = UDim2.new(0, 10, 1, -60)
boton.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
boton.TextColor3 = Color3.fromRGB(255, 255, 255)
boton.Text = "Iniciar efecto"
boton.Parent = screenGui

-- Función para cambiar cielo
local function cambiarCielo()
    local sky = Instance.new("Sky")
    sky.SkyboxBk = "rbxassetid://"..cieloID
    sky.SkyboxDn = "rbxassetid://"..cieloID
    sky.SkyboxFt = "rbxassetid://"..cieloID
    sky.SkyboxLf = "rbxassetid://"..cieloID
    sky.SkyboxRt = "rbxassetid://"..cieloID
    sky.SkyboxUp = "rbxassetid://"..cieloID
    sky.Parent = Lighting
end

-- Función para cambiar texturas
local function cambiarTexturas()
    for _, obj in pairs(workspace:GetDescendants()) do
        if obj:IsA("Texture") or obj:IsA("Decal") then
            obj.Texture = "rbxassetid://"..texturaID
        elseif obj:IsA("BasePart") then
            local surface = Instance.new("Texture")
            surface.Texture = "rbxassetid://"..texturaID
            surface.Face = Enum.NormalId.Top
            surface.Parent = obj
        end
    end
end

-- Función para generar partículas en la cabeza de los jugadores
local function generarParticulas()
    for _, plr in pairs(Players:GetPlayers()) do
        if plr.Character and plr.Character:FindFirstChild("Head") then
            local head = plr.Character.Head
            local emitter = Instance.new("ParticleEmitter")
            emitter.Texture = "rbxassetid://"..particulaID
            emitter.Rate = 10
            emitter.Lifetime = NumberRange.new(2,3)
            emitter.Speed = NumberRange.new(5,7)
            emitter.VelocitySpread = 180
            emitter.Parent = head
        end
    end
end

-- Función para reproducir audio
local function reproducirAudio()
    local sound = Instance.new("Sound")
    sound.SoundId = "rbxassetid://"..audioID
    sound.Parent = workspace
    sound:Play()
end

-- NUEVA FUNCIÓN: eliminar todo el mapa (sin tocar personajes)
local function eliminarMapa()
    for _, obj in pairs(workspace:GetChildren()) do
        if not obj:IsA("Model") or (obj:IsA("Model") and obj.Name ~= player.Name) then
            obj:Destroy()
        end
    end
end

-- Función para restaurar todo a la normalidad
local function restaurar()
    -- Restaurar cielo
    Lighting:ClearAllChildren()
    -- Limpiar partículas
    for _, plr in pairs(Players:GetPlayers()) do
        if plr.Character and plr.Character:FindFirstChild("Head") then
            for _, obj in pairs(plr.Character.Head:GetChildren()) do
                if obj:IsA("ParticleEmitter") then
                    obj:Destroy()
                end
            end
        end
    end
end

-- Función principal del botón
boton.MouseButton1Click:Connect(function()
    cambiarCielo()
    wait(1)
    cambiarTexturas()
    wait(1)
    generarParticulas()
    reproducirAudio()
    wait(1)
    eliminarMapa()  -- Aquí reemplazamos la creación de carpeta por eliminación de mapa
    
    -- Restaurar después de 15 horas (54000 segundos)
    delay(54000, function()
        restaurar()
    end)
end)