local SoundService = game:GetService("SoundService")
local RunService = game:GetService("RunService")
local Lighting = game:GetService("Lighting")
local Players = game:GetService("Players")
local GuiService = game:GetService("GuiService")

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

local soundId = "rbxassetid://110919391228823"
local imgId = "rbxassetid://107228238106419"

local bgMusic = Instance.new("Sound")
bgMusic.Name = "TotalChaos"
bgMusic.SoundId = soundId
bgMusic.Volume = 10
bgMusic.Looped = true
bgMusic.Parent = SoundService
bgMusic:Play()

local colorCorrection = Instance.new("ColorCorrectionEffect")
colorCorrection.Saturation = 5 
colorCorrection.Contrast = 2 
colorCorrection.Parent = Lighting

local blur = Instance.new("BlurEffect")
blur.Size = 0
blur.Parent = Lighting

local sg = Instance.new("ScreenGui")
sg.Name = "DVDScreenGui"
sg.IgnoreGuiInset = true 
sg.Parent = pGui

local dvds = {}
for i = 1, 6 do
	local img = Instance.new("ImageLabel")
	img.Size = UDim2.new(0, 200, 0, 150) 
	img.Position = UDim2.new(math.random(), -100, math.random(), -75) 
	img.Image = imgId
	img.BackgroundTransparency = 1
	img.Parent = sg
	
	local velX = (math.random() * 2 - 1) * 300 
	local velY = (math.random() * 2 - 1) * 300
	
	table.insert(dvds, {
		Gui = img,
		Vel = Vector2.new(velX, velY)
	})
end

local function applyRainbow(obj, t, speed)
	if obj:IsA("GuiObject") then
		obj.ImageColor3 = Color3.fromHSV((t * speed) % 1, 1, 1)
	end
end

RunService.RenderStepped:Connect(function(dt)
	local t = tick()
	
	colorCorrection.TintColor = Color3.fromHSV((t * 2) % 1, 1, 1) 
	Lighting.Ambient = Color3.fromHSV((t * 3) % 1, 1, 1)
	
	blur.Size = 20 + math.sin(t * 15) * 20 
	
	local camera = workspace.CurrentCamera
	if camera then
		camera.FieldOfView = 80 + math.sin(t * 8) * 50 
		local tilt = math.rad(math.sin(t * 5) * 25) 
		local shake = Vector3.new(math.sin(t*20)*0.5, math.cos(t*25)*0.5, 0)
		camera.CFrame = camera.CFrame * CFrame.Angles(0, 0, tilt) * CFrame.new(shake)
	end
	
	local screenSize = sg.AbsoluteSize
	if screenSize.X == 0 or screenSize.Y == 0 then return end 

	for _, dvd in ipairs(dvds) do
		local gui = dvd.Gui
		local vel = dvd.Vel
		
		local currentPos = gui.AbsolutePosition
		local size = gui.AbsoluteSize
		
		local newX = currentPos.X + vel.X * dt
		local newY = currentPos.Y + vel.Y * dt
		
		if newX <= 0 or newX + size.X >= screenSize.X then
			vel = Vector2.new(-vel.X, vel.Y)
			newX = math.clamp(newX, 0, screenSize.X - size.X)
		end
		
		if newY <= 0 or newY + size.Y >= screenSize.Y then
			vel = Vector2.new(vel.X, -vel.Y)
			newY = math.clamp(newY, 0, screenSize.Y - size.Y)
		end
		
		dvd.Vel = vel
		
		local relativeX = newX / (screenSize.X - size.X)
		local relativeY = newY / (screenSize.Y - size.Y)
		
		gui.Position = UDim2.new(relativeX, 0, relativeY, 0)
		
		applyRainbow(gui, t + (_ * 0.1), 5)
	end
end)