
KeylessUniversal

-- 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)No comments yet for this script.



