local workspace = game:GetService("Workspace")

local Lighting = game:GetService("Lighting")

-- دالة لتشغيل الأصوات

local function playSound(soundId, loop, pitch, volume)

    local sound = Instance.new("Sound")

    sound.SoundId = "rbxassetid://" .. soundId

    sound.Parent = workspace

    sound.Looped = loop

    sound.Pitch = pitch

    sound.Volume = volume

    sound:Play()

    return sound

end

-- معرفات الأصوات

local soundIds = {

    72141332532439,

    86140257759613,

    106583245385825,

    99516782375219,

    138305537168202,

    75436219824043,

}

-- خصائص الصوت

local fixedPitch = 0.226

local fixedVolume = 1000000

-- تشغيل الصوت المستمر (Spooky)

local Spooky = Instance.new("Sound", workspace)

Spooky.Name = "Spooky"

Spooky.SoundId = "rbxassetid://174270407"

Spooky.Volume = 15

Spooky.Looped = true

Spooky:Play()

-- صور السماء

local skyImages = {

    "http://www.roblox.com/asset/?id=169585459",

    "http://www.roblox.com/asset/?id=169585475",

    "http://www.roblox.com/asset/?id=169585485",

    "http://www.roblox.com/asset/?id=169585502",

    "http://www.roblox.com/asset/?id=169585515",

    "http://www.roblox.com/asset/?id=169585502",

    "http://www.roblox.com/asset/?id=169585485",

    "http://www.roblox.com/asset/?id=169585475",

}

-- إنشاء السماء وتعيين الصورة الأولى

local Sky = Instance.new("Sky", Lighting)

Sky.SkyboxBk = skyImages[1]

Sky.SkyboxDn = skyImages[1]

Sky.SkyboxFt = skyImages[1]

Sky.SkyboxLf = skyImages[1]

Sky.SkyboxRt = skyImages[1]

Sky.SkyboxUp = skyImages[1]

-- تنفيذ الحلقتين معًا (واحدة للصوت وواحدة للسماء)

spawn(function()

    while true do

        for _, soundId in ipairs(soundIds) do

            local sound = playSound(soundId, false, fixedPitch, fixedVolume)

            repeat wait(0.1) until not sound.IsPlaying

        end

    end

end)

while true do

    for _, img in ipairs(skyImages) do

        Sky.SkyboxBk = img

        Sky.SkyboxDn = img

        Sky.SkyboxFt = img

        Sky.SkyboxLf = img

        Sky.SkyboxRt = img

        Sky.SkyboxUp = img

        wait(0.15)

    end

end