Crypton X morph loud

local player = game.Players.LocalPlayer

--------------------------------------------------------------------
-- GUI PRINCIPAL
--------------------------------------------------------------------
local gui = Instance.new("ScreenGui")
gui.Name = "CryptoXPowers"
gui.ResetOnSpawn = false
gui.Parent = player:WaitForChild("PlayerGui")

local frame = Instance.new("Frame")
frame.Size = UDim2.new(0, 260, 0, 70)
frame.Position = UDim2.new(0.5, -130, 0.1, 0)
frame.BackgroundColor3 = Color3.fromRGB(20,20,20)
frame.BorderSizePixel = 3
frame.Parent = gui

local title = Instance.new("TextLabel")
title.Size = UDim2.new(1,0,0,22)
title.BackgroundColor3 = Color3.fromRGB(35,35,35)
title.TextColor3 = Color3.fromRGB(255,255,255)
title.BorderSizePixel = 2
title.Font = Enum.Font.Arcade
title.TextSize = 18
title.Text = "Crypto X Powers"
title.Parent = frame

frame.Active = true
frame.Draggable = true

--------------------------------------------------------------------
-- BOTONES
--------------------------------------------------------------------
local function createBtn(text, x)
    local b = Instance.new("TextButton")
    b.Size = UDim2.new(0,120,0,40)
    b.Position = UDim2.new(0, x, 0, 25)
    b.BackgroundColor3 = Color3.fromRGB(50,50,50)
    b.BorderSizePixel = 2
    b.TextColor3 = Color3.fromRGB(255,255,255)
    b.Font = Enum.Font.Arcade
    b.TextSize = 16
    b.Text = text
    b.Parent = frame
    return b
end

local wallsBtn = createBtn("90 Walls", 5)
local speedBtn = createBtn("Speed 50", 135)

--------------------------------------------------------------------
-- MUSICA DE TENSIÓN
--------------------------------------------------------------------
local tension = Instance.new("Sound", gui)
tension.SoundId = "rbxassetid://1847183902"
tension.Volume = 2
tension.Looped = true
tension:Play()

--------------------------------------------------------------------
-- EXPLOSION ULTRA LOUD
--------------------------------------------------------------------
local function ultraExplosion(position)
    for i = 1,3 do
        local s = Instance.new("Sound")
        s.SoundId = "rbxassetid://138186576"
        s.Volume = 10
        s.PlaybackSpeed = 1.5
        s.Parent = workspace
        s:Play()
        game:GetService("Debris"):AddItem(s, 2)
    end
end

--------------------------------------------------------------------
-- 90 WALLS QUE DESAPARECEN A LOS 3 SEGUNDOS
--------------------------------------------------------------------
local function spawnWalls()
    local char = player.Character
    if not char then return end
    local root = char:WaitForChild("HumanoidRootPart")

    for i = 1, 90 do
        local wall = Instance.new("Part")
        wall.Size = Vector3.new(8, 12, 1)
        wall.Anchored = true
        wall.CanCollide = false
        wall.Position = root.Position + root.CFrame.LookVector * (4 + i*2)
        wall.Parent = workspace

        -- decal creepy
        local decal = Instance.new("Decal", wall)
        decal.Face = Enum.NormalId.Front
        decal.Texture = "rbxassetid://12994914098"

        -- partículas rojas gigantes
        local p = Instance.new("ParticleEmitter")
        p.Rate = 220
        p.Lifetime = NumberRange.new(0.6,1.2)
        p.Speed = NumberRange.new(4,9)
        p.Size = NumberSequence.new(5)
        p.Texture = "rbxassetid://243660364"
        p.Color = ColorSequence.new(Color3.fromRGB(255,0,0))
        p.Parent = wall

        -- movimiento + explosión
        task.spawn(function()
            for t = 0,1,0.02 do
                wall.Position = wall.Position + (root.Position - wall.Position).Unit * 4
                task.wait()
            end

            ultraExplosion(wall.Position)

            local exp = Instance.new("Explosion")
            exp.Position = wall.Position
            exp.BlastPressure = 0
            exp.BlastRadius = 8
            exp.Parent = workspace
        end)

        -- A LOS 3 SEGUNDOS SE DESAPARECEN
        task.delay(3, function()
            if wall and wall.Parent then
                wall:Destroy()
            end
        end)

        task.wait(0.03)
    end
end

wallsBtn.MouseButton1Click:Connect(spawnWalls)

--------------------------------------------------------------------
-- SPEED 50
--------------------------------------------------------------------
speedBtn.MouseButton1Click:Connect(function()
    local hum = player.Character:WaitForChild("Humanoid")
    hum.WalkSpeed = 50
end)

--------------------------------------------------------------------
-- AVATAR NEGRO CON PARTICULAS ROJAS
--------------------------------------------------------------------
local function applyDark(char)
    task.wait(0.2)

    -- quitar accesorios
    for _,acc in pairs(char:GetChildren()) do
        if acc:IsA("Accessory") then acc:Destroy() end
    end

    -- quitar meshes del cuerpo
    for _,obj in pairs(char:GetDescendants()) do
        if obj:IsA("Mesh") or obj:IsA("SpecialMesh") then obj:Destroy() end
    end

    -- poner negro + partículas rojas
    for _,p in pairs(char:GetDescendants()) do
        if p:IsA("BasePart") then
            p.Color = Color3.fromRGB(0,0,0)

            local em = Instance.new("ParticleEmitter")
            em.Rate = 60
            em.Lifetime = NumberRange.new(0.4,0.7)
            em.Speed = NumberRange.new(1,2)
            em.Size = NumberSequence.new(0.5)
            em.Texture = "rbxassetid://243660364"
            em.Color = ColorSequence.new(Color3.fromRGB(255,0,0))
            em.Parent = p
        end
    end
end

player.CharacterAdded:Connect(applyDark)
if player.Character then applyDark(player.Character) end