Bill

local plr = game:GetService("Players").LocalPlayer

local function Sound(id)
        local s = Instance.new("Sound", plr.Character)
        s.SoundId = 'rbxassetid://' .. tostring(id)
        s.Looped = false
        s.Volume = 4
        s:Play()
        return s
end
--Decal(814260764)
local bg = Instance.new("BillboardGui", plr.Character.Torso)
bg.Adornee = plr.Character.Torso
bg.Size = UDim2.new(40,0,40,0)
bg.StudsOffset = Vector3.new(6, 2, 0)
local il = Instance.new("ImageLabel", bg)
il.Image = 'rbxassetid://814260764'
il.Size = UDim2.new(0.7,0,1,0)
il.BackgroundTransparency = 1
il.BorderSizePixel = 0
il.ImageColor3 = Color3.fromRGB(0,0,0)
for i,v in pairs(plr.Character:GetChildren()) do
        if v:IsA'BasePart' and v.Name ~= "Head" then
                v.Transparency = 1
        elseif v:IsA'Accessory' then
                coroutine.resume(coroutine.create(function()
                        v:WaitForChild'Handle'.Transparency = 1
                end))
        end
end
plr.Character.Head:FindFirstChildOfClass'SpecialMesh':Remove()
plr.Character.Head.face:Remove()
Instance.new("SpecialMesh", plr.Character.Head).MeshType = 'FileMesh'
local s = Sound(814276822)
s.Volume = 10
local hum = plr.Character:FindFirstChild("HumanoidRootPart")
hum.CFrame = hum.CFrame + Vector3.new(0,100,0)
wait(.1)
plr.Character.HumanoidRootPart.Anchored = true
local function Wave(clr, part, size)
        local p = Instance.new("Part", plr.Character)
        p.CanCollide = false
        p.Shape = 'Ball'
        p.Transparency = 0.7
        p.Anchored = true
        p.Size = Vector3.new(0,0,0)
        p.Locked = true
        p.BrickColor = clr or BrickColor.new("Really white")
        p.Position = part.Position or plr.Character.Torso.Position
        p.TopSurface = 'Smooth'
        p.BottomSurface = 'Smooth'
        local m = Instance.new("SpecialMesh", p)
        m.MeshType = 'Sphere'
        for i=0,size,30 do
                wait()
                m.Scale = Vector3.new(i*10,i*10,i*10)
        end
        p:Destroy()
end
local function Castle()
local mas = Instance.new("Model",game:GetService("Lighting"))
mas.Name = "Castle of that kind"
local o1 = Instance.new("Model")
local o2 = Instance.new("Part")
local o3 = Instance.new("WedgePart")
local o4 = Instance.new("WedgePart")
o1.Parent = mas
o2.Parent = o1
o2.BrickColor = BrickColor.new("Really black")
o2.Position = Vector3.new(26, 36.5, 81)
o2.Anchored = true
o2.Locked = true
o2.Size = Vector3.new(130, 1, 130)
o2.CFrame = CFrame.new(26, 36.5, 81, 1, 0, 0, 0, 1, 0, 0, 0, 1)
o2.BottomSurface = Enum.SurfaceType.SmoothNoOutlines
o2.TopSurface = Enum.SurfaceType.SmoothNoOutlines
o2.Color = Color3.new(0.0666667, 0.0666667, 0.0666667)
o2.Position = Vector3.new(26, 36.5, 81)
o3.Parent = o1
o3.BrickColor = BrickColor.new("Really black")
o3.Position = Vector3.new(26, 107, 48.5000038)
o3.Anchored = true
o3.Locked = true
o3.Size = Vector3.new(130, 140, 65)
o3.CFrame = CFrame.new(26, 107, 48.5000038, 1, 0, 0, 0, 1, 0, 0, 0, 1)
o3.LeftSurface = Enum.SurfaceType.SmoothNoOutlines
o3.RightSurface = Enum.SurfaceType.SmoothNoOutlines
o3.Color = Color3.new(0.0666667, 0.0666667, 0.0666667)
o3.Position = Vector3.new(26, 107, 48.5000038)
o4.Parent = o1
o4.BrickColor = BrickColor.new("Really black")
o4.Position = Vector3.new(26, 107, 113.5)
o4.Rotation = Vector3.new(-180, 0, -180)
o4.Anchored = true
o4.Locked = true
o4.Size = Vector3.new(130, 140, 65)
o4.CFrame = CFrame.new(26, 107, 113.5, -1.00000262, 0, 0, 0, 1, 0, 0, 0, -1.00000262)
o4.LeftSurface = Enum.SurfaceType.SmoothNoOutlines
o4.RightSurface = Enum.SurfaceType.SmoothNoOutlines
o4.Color = Color3.new(0.0666667, 0.0666667, 0.0666667)
o4.Position = Vector3.new(26, 107, 113.5)
mas.Parent = workspace
mas:MakeJoints()
local mas1 = mas:GetChildren()
local m = Instance.new("Model", plr.Character)
for i=1,#mas1 do
        mas1[i].Parent = m
        ypcall(function() mas1[i]:MakeJoints() end)
end
mas:Destroy()
m.PrimaryPart = o2
m:SetPrimaryPartCFrame(CFrame.new(Vector3.new(0,-250,0)))
for i=-250,150,5 do
        wait()
        m:SetPrimaryPartCFrame(CFrame.new(Vector3.new(0,i,0)))
end
end
local function CreateBubble(rs, int)
        coroutine.resume(coroutine.create(function()
                local s,e = pcall(function()
                        local b = Instance.new("Part", plr.Character)
                        b.Shape = 'Ball'
                        b.Anchored = true
                        b.Locked = true
                        b.TopSurface = 'Smooth'
                        b.BottomSurface = 'Smooth'
                        b.CanCollide = false
                        b.Size = Vector3.new(0,0,0)
                        local m = Instance.new("SpecialMesh", b)
                        m.MeshType = 'Sphere'
                        b.BrickColor = BrickColor.Random()
                        b.Transparency = 0.7
                        m.Scale = Vector3.new(100,100,100)
                        math.randomseed(rs or os.time())
                        b.Position = Vector3.new(math.random(-300,300), math.random(5,15), math.random(-300,300))
                        game:GetService("Debris"):AddItem(b, 5)
                        coroutine.resume(coroutine.create(function()
                                while b.Parent do
                                        wait()
                                        b.Position = b.Position + Vector3.new(0,math.random(1,3),0)
                                end
                        end))
                        coroutine.resume(coroutine.create(function()
                                wait(5)
                                CreateBubble(int^5, int)
                        end))
                end)
                if not s and e then print(e) end
        end))
end
local t = 0
local tab = {11.902521692332811654, 22.332537756825331599, 42.780485221126582474, 48.632154458260629326, 54.38235228433040902, 63.607111451448872685}
game:GetService("RunService").Stepped:connect(function()
        pcall(function()
                if s.TimePosition > tab[1] then
                        table.remove(tab, 1)
                        t = t + 1
                        if t == 1 then
                                coroutine.resume(coroutine.create(function()
                                        Wave(BrickColor.new("Bright red"), plr.Character.Torso, 500)
                                end))
                                wait(.1)
                                il.ImageColor3 = Color3.fromRGB(255,255,255)
                        elseif t == 2 then
                                plr.Character.Humanoid.HipHeight = 20
                                plr.Character.Humanoid.WalkSpeed = 100
                                plr.Character.HumanoidRootPart.Anchored = false
                                plr.Character.HumanoidRootPart.CFrame = CFrame.new(Vector3.new(plr.Character.HumanoidRootPart.Position.X, 0, plr.Character.HumanoidRootPart.Z))
                        elseif t == 3 then
                                Castle()
                        elseif t == 4 then
                                coroutine.resume(coroutine.create(function()
                                        for i=0,30 do
                                                coroutine.resume(coroutine.create(function()
                                                        CreateBubble((i+1)^5, i+1)
                                                end))
                                        end
                                end))
                        elseif t == 5 then
                                game:GetService("Lighting").TimeOfDay = "19:00:00"
                        elseif t == 6 then
                                Wave(BrickColor.new("Bright red"), plr.Character.Torso, 2000)
                        end
                end
                if s.Playing == false then
                        played = true
                        s:Remove()
                        local asd = Sound(366263697)
                        asd.Looped = true
                        asd.Volume = 10
                end
        end)
end)
local key = false
local m = plr:GetMouse()
m.KeyDown:connect(function(k)
        if k == 'j' then
                key = true
                asd()
        end
end)
m.KeyUp:connect(function(k)
        if k == 'j' then
                key = false
                if beam then beam:Destroy() end
        end
end)
m.KeyDown:connect(function(k)
        if k == 'v' then
                key = true
                asgd()
        end
end)
m.KeyUp:connect(function(k)
        if k == 'v' then
                key = false
                if beam then beam:Destroy() end
        end
end)
function asd()
        coroutine.resume(coroutine.create(function()
                while key do
                wait()
                if beam then beam:Destroy() end
                local torso = plr.Character.Torso
                local ray = Ray.new(torso.CFrame.p, (m.Hit.p - torso.CFrame.p).unit * 300)
                local p, pos = workspace:FindPartOnRay(ray, plr.Character, false, true)
                beam = Instance.new("Part", workspace)
                beam.BrickColor = BrickColor.new("Cyan")
                beam.FormFactor = "Custom"
                beam.Material = "Neon"
                beam.Transparency = 0.25
                beam.Anchored = true
                beam.Locked = true
                beam.CanCollide = false
                game:GetService("Debris"):AddItem(beam, 0.1)

                local distance = (torso.CFrame.p - pos).magnitude
                beam.Size = Vector3.new(3, 3, distance)
                beam.CFrame = CFrame.new(torso.CFrame.p, pos) * CFrame.new(0, 0, -distance / 2)

                if p then
                        for a,b in pairs(workspace:GetChildren()) do
                                if b:IsA'Model' and b:FindFirstChildOfClass'Humanoid' then
                                        if b:IsAncestorOf(p) then
                                                local char = b
                                                function Recur(part)
                                                        for c,d in pairs(part:GetChildren()) do
                                                                Recur(d)
                                                        end
                                                        if part:IsA'BasePart' then
                                                                part.BrickColor = BrickColor.Gray()
                                                                part.Material = Enum.Material.Cobblestone
                                                                part.Anchored = true
                                                        elseif part:IsA'Accessory' then
                                                                local h = part:FindFirstChild'Handle' if h then h.BrickColor = BrickColor.Gray() h.Material = Enum.Material.Cobblestone end
                                                                local m = part:FindFirstChildOfClass'SpecialMesh' if m then m.TextureId = "" end
                                                        elseif part:IsA'SpecialMesh' then
                                                                part.TextureId = ""
                                                        elseif part:IsA'Clothing' then
                                                                part:Destroy()
                                                        elseif part:IsA'ShirtGraphic' then
                                                                part:Destroy()
                                                        end
                                                end
                                                for i,v in pairs(b:GetChildren()) do
                                                        Recur(v)
                                                end
                                        end
                                end
                        end
                                --[[local ff = Instance.new("ForceField", plr.Character)
                                ff.Visible = false
                                game:GetService("Debris"):AddItem(ff, 0.5)
                                local ex = Instance.new("Explosion", p)
                                ex.Position = p.Position]]
                        end
                end
        end))
end
function asgd()
        coroutine.resume(coroutine.create(function()
                while key do
                wait()
                if beam then beam:Destroy() end
                local torso = plr.Character.Torso
                local ray = Ray.new(torso.CFrame.p, (m.Hit.p - torso.CFrame.p).unit * 300)
                local p, pos = workspace:FindPartOnRay(ray, plr.Character, false, true)
                beam = Instance.new("Part", workspace)
                beam.BrickColor = BrickColor.new("Bright red")
                beam.FormFactor = "Custom"
                beam.Material = "Neon"
                beam.Transparency = 0.25
                beam.Anchored = true
                beam.Locked = true
                beam.CanCollide = false
                game:GetService("Debris"):AddItem(beam, 0.1)

                local distance = (torso.CFrame.p - pos).magnitude
                beam.Size = Vector3.new(19, 19, distance)
                beam.CFrame = CFrame.new(torso.CFrame.p, pos) * CFrame.new(0, 0, -distance / 2)

                if p then
                        for a,b in pairs(workspace:GetChildren()) do
                                if b:IsA'Model' and b:FindFirstChildOfClass'Humanoid' then
                                        if b:IsAncestorOf(p) then
                                                local char = b
                                                function Recur(part)
                                                        for c,d in pairs(part:GetChildren()) do
                                                                Recur(d)
                                                        end
                                                        if part:IsA'BasePart' then
                                                                part.BrickColor = BrickColor.Gray()
                                                                part.Material = Enum.Material.Cobblestone
                                                                part.Anchored = true
                                                        elseif part:IsA'Accessory' then
                                                                local h = part:FindFirstChild'Handle' if h then h.BrickColor = BrickColor.Gray() h.Material = Enum.Material.Cobblestone end
                                                                local m = part:FindFirstChildOfClass'SpecialMesh' if m then m.TextureId = "" end
                                                        elseif part:IsA'SpecialMesh' then
                                                                part.TextureId = ""
                                                        elseif part:IsA'Clothing' then
                                                                part:Destroy()
                                                        elseif part:IsA'ShirtGraphic' then
                                                                part:Destroy()
                                                        end
                                                end
                                                for i,v in pairs(b:GetChildren()) do
                                                        Recur(v)
                                                end
                                        end
                                end
                        end
                        end
                end
        end))
end
plr.CharacterAdded:connect(function()
        local bg = Instance.new("BillboardGui", plr.Character:WaitForChild'Torso')
bg.Adornee = plr.Character:WaitForChild'Torso'
bg.Size = UDim2.new(40,0,40,0)
bg.StudsOffset = Vector3.new(6, 2, 0)
local il = Instance.new("ImageLabel", bg)
il.Image = 'rbxassetid://814260764'
il.Size = UDim2.new(0.7,0,1,0)
il.BackgroundTransparency = 1
il.BorderSizePixel = 0
il.ImageColor3 = Color3.fromRGB(0,0,0)
for i,v in pairs(plr.Character:GetChildren()) do
        if v:IsA'BasePart' and v.Name ~= "Head" then
                v.Transparency = 1
        elseif v:IsA'Accessory' then
                coroutine.resume(coroutine.create(function()
                        v:WaitForChild'Handle'.Transparency = 1
                end))
        end
end
plr.Character:WaitForChild'Head':FindFirstChildOfClass'SpecialMesh':Remove()
plr.Character:WaitForChild'Head'.face:Remove()
Instance.new("SpecialMesh", plr.Character.Head).MeshType = 'FileMesh'
plr.Character.Humanoid.HipHeight = 20
plr.Character.Humanoid.WalkSpeed = 100
        if played then
                il.ImageColor3 = Color3.fromRGB(255,255,255)
                Sound(366263697).Looped = true
        else
                local s = Sound(814276822)
                s.Volume = 10
                plr.Character.Humanoid.HipHeight = 20
                plr.Character.Humanoid.WalkSpeed = 100
                local t = 0
local tab = {11.902521692332811654, 22.332537756825331599, 42.780485221126582474, 48.632154458260629326, 54.38235228433040902, 63.607111451448872685}
game:GetService("RunService").Stepped:connect(function()
        pcall(function()
                if s.TimePosition > tab[1] then
                        table.remove(tab, 1)
                        t = t + 1
                        if t == 1 then
                                coroutine.resume(coroutine.create(function()
                                        Wave(BrickColor.new("Bright red"), plr.Character.Torso, 500)
                                end))
                                wait(.1)
                                il.ImageColor3 = Color3.fromRGB(255,255,255)
                        elseif t == 2 then
                                plr.Character.Humanoid.HipHeight = 20
                                plr.Character.Humanoid.WalkSpeed = 100
                                plr.Character.Torso.Anchored = false
                                plr.Character.HumanoidRootPart.CFrame = CFrame.new(Vector3.new(plr.Character.HumanoidRootPart.Position.X, 0, plr.Character.HumanoidRootPart.Z))
                        elseif t == 3 then
                                Castle()
                        elseif t == 4 then
                                coroutine.resume(coroutine.create(function()
                                        for i=0,30 do
                                                coroutine.resume(coroutine.create(function()
                                                        CreateBubble((i+1)^5, i+1)
                                                end))
                                        end
                                end))
                        elseif t == 5 then
                                game:GetService("Lighting").TimeOfDay = "19:00:00"
                        elseif t == 6 then
                                Wave(BrickColor.new("Bright red"), plr.Character.Torso, 2000)
                        end
                end
                if s.Playing == false then
                        il.ImageColor3 = Color3.fromRGB(255,255,255)
                        played = true
                        s:Remove()
                        local asd = Sound(366263697)
                        asd.Looped = true
                        asd.Volume = 10
                end
        end)
end)
        end
end)