Some modified pingu script i created a long time ago

pingu.luau

--// Note, you will have to upload the pingu song onto an account and whitelist it for the game for the sound to work, There is a "PLACEHOLDER" text that you have to modify with the soundid, To download the song you can refer to https://www.youtube.com/watch?v=1O3FK6rzpiw, Can use yt-dlp, actual working mp3 downloaders & such.

local plr = "playerName"
	local msg = Instance.new("Message",workspace)
	msg.Text = "Modified pingu script has loaded!"
	task.wait(3)
	msg:Destroy()
   local pingudecal = "http://www.roblox.com/asset/?id=382332426"
	local didpingu = false
	local ScreenGui = Instance.new("ScreenGui",game:GetService("Players")[plr].PlayerGui)
	ScreenGui.Name = "ByeBye"
	local lol = Instance.new("TextButton",ScreenGui)
	lol.BackgroundColor3 = Color3.new(0,0,0)
	lol.BorderColor3 = Color3.new(0,0,0)
	lol.Name = "ByeBye"
	lol.Position = UDim2.new(1,-150,1,-90)
	lol.Size = UDim2.new(0,150,0,45)
	lol.Font = "SourceSansBold"
	lol.FontSize = "Size32"
   lol.Text = "Destory server"
   lol.AutoLocalize = true
   lol.TextScaled = true
	lol.TextColor3 = Color3.new(0.780392, 0, 0)
   lol.MouseButton1Down:connect(function(plr)
		if didpingu == false then
         didpingu = true
         local nooties = Instance.new("Sound",workspace)
         nooties.SoundId = "http://www.roblox.com/asset/?id=PLACEHOLDER"
         nooties.Volume = 10
         nooties.Looped = true
         nooties:Play()
         local msg = Instance.new("Message",workspace)
         msg.Text = "Pingu is coming"
         task.wait(3)
         msg:Destroy()
         task.wait(5)
         local msg = Instance.new("Message",workspace)
         msg.Text = "PINGU IS HERE!"
         task.wait(5)
         msg:Destroy()
			local Sky = Instance.new("Sky",game:GetService("Lighting"))
			Sky.SkyboxBk = pingudecal
			Sky.SkyboxDn = pingudecal
			Sky.SkyboxFt = pingudecal
			Sky.SkyboxLf = pingudecal
			Sky.SkyboxRt = pingudecal
			Sky.SkyboxUp = pingudecal
			local function er()
            for i,a in pairs(workspace:GetDescendants()) do
               pcall(function()
							local top = Instance.new("Decal",a)
							top.Face = "Top"
							top.Texture = pingudecal
							local btm = Instance.new("Decal",a)
							btm.Face = "Bottom"
							btm.Texture = pingudecal
							local lft = Instance.new("Decal",a)
							lft.Face = "Left"
							lft.Texture = pingudecal
							local rft = Instance.new("Decal",a)
							rft.Face = "Right"
							rft.Texture = pingudecal
							local frnt = Instance.new("Decal",a)
							frnt.Face = "Front"
							frnt.Texture = pingudecal
							local bk = Instance.new("Decal",a)
							bk.Face = "Back"
							bk.Texture = pingudecal
							local VTest = Instance.new("ParticleEmitter")  
							VTest.Parent = a
							VTest.Texture = pingudecal
							VTest.Speed = NumberRange.new(200)
							VTest.Rate = 200
							VTest.Size = NumberSequence.new(10000,10000)
							VTest.Lifetime = NumberRange.new(1000)
							local xd = coroutine.create(function()
                        while task.wait() do
                           pcall(function()
									local Explosion = Instance.new("Explosion",a)
                              Explosion.BlastRadius = 10000
                           end)
                           end
							end)
                  coroutine.resume(xd)
               end)
						end
			end
			local function xd()
            for i,a in pairs(workspace:GetDescendants()) do
               pcall(function()
					local top = Instance.new("Decal",a)
					top.Face = "Top"
					top.Texture = pingudecal
					local btm = Instance.new("Decal",a)
					btm.Face = "Bottom"
					btm.Texture = pingudecal
					local lft = Instance.new("Decal",a)
					lft.Face = "Left"
					lft.Texture = pingudecal
					local rft = Instance.new("Decal",a)
					rft.Face = "Right"
					rft.Texture = pingudecal
					local frnt = Instance.new("Decal",a)
					frnt.Face = "Front"
					frnt.Texture = pingudecal
					local bk = Instance.new("Decal",a)
					bk.Face = "Back"
					bk.Texture = pingudecal
					local VTest = Instance.new("ParticleEmitter")  
					VTest.Parent = a
					VTest.Texture = pingudecal
					VTest.Speed = NumberRange.new(200)
					VTest.Rate = 200
					VTest.Lifetime = NumberRange.new(1000)
               VTest.Size = NumberSequence.new(10000,10000)
               task.spawn(function()
                  while task.wait() do
                     pcall(function()
                           for _, player in pairs(game:GetService("Players"):GetPlayers()) do
                              local playerGui = player:FindFirstChildOfClass("PlayerGui")
                              if playerGui then
                                 local screenGui = playerGui:FindFirstChild("rippc")
                                 if not screenGui then
                                    screenGui = Instance.new("ScreenGui")
                                    screenGui.Name = "rippc"
                                    local imageLabel = Instance.new("ImageLabel", screenGui)
                                    imageLabel.Image = pingudecal
                                    imageLabel.Size = UDim2.new(0, 100,0, 100)
                                    screenGui.Parent = playerGui
                                 end
                              end
                           end
                     end)
                     end
               end)
					local owo = coroutine.create(function()
                  while task.wait() do
                     pcall(function()
							if a.Name ~= "Head" or "Torso" or "Left Arm" or "Right Arm" or "Left Leg" or "Right Leg" then
								local Explosion = Instance.new("Explosion",a)
								Explosion.BlastRadius = 10000
                        end
                     end)
						end
					end)
                  coroutine.resume(owo)
               end)
               end
         end
         task.spawn(function()
			xd()
            er()
         end)
		else
			warn("cannot run two times aka the pingu script")
		end
	end)