Soul and Heart

	wait(1/30)

	local player = game.Players.LocalPlayer
	local character = player.Character
	local humanoid = character:WaitForChild("Humanoid")
	local mouse = player:GetMouse()

	local enabled = false
	local bassactive = false

	humanoid.WalkSpeed = 26
	humanoid.MaxHealth = "inf"
	humanoid.Health = "inf"

	--Health
	coroutine.resume(coroutine.create(function()
		while true do
			humanoid.PlatformStand = false
			humanoid.MaxHealth = "inf"
			humanoid.Health = "inf"
			if bassactive == false then
				humanoid.WalkSpeed = 26
			else
				humanoid.WalkSpeed = 100
			end
			wait()
		end
	end))

	for i,v in pairs(character:GetChildren()) do
		if v:IsA("Part") then
			v.Transparency = 1
			v.BrickColor = BrickColor.new("Institutional white")
		elseif v:IsA("Accessory") then
			v:Destroy()
		end
	end

	--Music
	local music = Instance.new("Sound", character.Torso)
	music.SoundId = 'rbxassetid://1181897442'
	music.Looped = true
	music.Pitch = 0.1
	music:Play()

	--Chat noise
	local chatnoise = Instance.new("Sound", character.Torso)
	chatnoise.SoundId = 'rbxassetid://168143115'
	chatnoise.Pitch = 6
	character.Head.face:Destroy()

	--BASS
	local bassnoise = Instance.new("Sound", character.Torso)
	bassnoise.SoundId = 'rbxassetid://387927244'

	--Text
    local bgui = Instance.new("BillboardGui",character)
    bgui.Size = UDim2.new(0,100,0,40)
    bgui.StudsOffset = Vector3.new(0,2,0)
    bgui.Adornee = character.Head
    local text = Instance.new("TextLabel", bgui)
    text.BackgroundTransparency = 1
    text.BorderSizePixel = 0
    text.Text = "By SlaveDash"
    text.Font = "ArialBold"
    text.FontSize = "Size24"
    text.TextStrokeTransparency = 0.7
    text.TextStrokeColor3 = Color3.new(255,255,255)
    text.TextColor3 = Color3.new(255,255,255)
    text.Size = UDim2.new(1,0,0.5,0)
    player.Chatted:connect(function(chat)
		if enabled == true then
			chat = game:GetService("Chat"):FilterStringForBroadcast(chat, player)
	        for i=1,string.len(chat) do
	            text.Text = string.sub(chat, 1, i)
				chatnoise:Play()
	            wait()
	        end
	        wait(2)
	        text.Text = ""
		end
	end)
    wait(0.2)
    for i=1,10 do
        wait()
        text.Transparency = text.Transparency + (0.05 * i)
    end
    text.Text = ""
    text.FontSize = "Size28"
    for i=1,10 do
        text.Transparency = text.Transparency - (0.05 * i)
        wait()
    end

--Startup

local color = Color3.new(0,0,0)

local folder = Instance.new("Folder", character)
folder.Name = "Body Parts"

coroutine.resume(coroutine.create(function()
	while true do
		wait()
		if bassactive == false then
			for i,v in pairs(character:GetChildren()) do
				if v:IsA("Part") then
					local shadow = v:Clone()
					shadow:ClearAllChildren()
					if shadow.Name == "Head" then
						shadow.Size = Vector3.new(1.25,1.25,1.25)
					end
					shadow.CanCollide = false
					shadow.Anchored = true
					shadow.Transparency = 0.95
					shadow.Material = Enum.Material.Neon
					shadow.BrickColor = BrickColor.new("Institutional white")
					shadow.Parent = folder
					game.Debris:AddItem(shadow, 1)
					coroutine.resume(coroutine.create(function()
						for i=1,10 do
							wait()
							shadow.CFrame = shadow.CFrame:lerp(v.CFrame + (Vector3.new(math.random(-1,1),math.random(-1,1),math.random(-1,1)) * 3), 0.1)
						end
						shadow:Destroy()
					end))
				end
			end
		end
	end
end))

local function Chat(texty, enddelay)
	for i=1,string.len(texty) do
		text.Text = string.sub(texty, 1, i)
		chatnoise:Play()
		if string.sub(texty, i, i) == "." then
			wait(0.5)
		elseif string.sub(texty, i, i) == "," then
			wait(0.2)
		end
		wait()
	end
	wait(enddelay)
	text.Text = ""
end

for i,v in pairs(character:GetChildren()) do
	if v:IsA("Part") then
		v.Transparency = 1
		v.BrickColor = BrickColor.new("Institutional white")
	elseif v:IsA("Accessory") then
		v:Destroy()
	end
end

if character.Head:FindFirstChild("face") then
	character.Head:FindFirstChild("face"):Destroy()
end

--Introducton
--[[
wait(1)
Chat("I'm not me anymore...", 2)
wait(1)
Chat("This pain..", 1)
Chat("This pain welling up inside of me, about to burst like a grenade.", 2)
Chat("I can't take it anymore.", 1)
Chat("When will this end?", 1)
Chat("Why can't I be free?", 1)
Chat("I want to be free!")
Chat("I.. I want my freedom back. I want to be young again. Eternal youth is what I want.", 2)
Chat("But, I won't ever become that, will I?", 2)
Chat("It hurts...", 2)
Chat("But it's time to let go.", 3)
--]]


local change = Vector3.new(0,0,0)

--Functions

local function Mesh(parent,meshtype)
	local mesh = Instance.new("SpecialMesh")
	mesh.MeshType = meshtype
	mesh.Name = "Meshy"
	mesh.Parent = parent
end

local function Effect(place, parent)
	local effect = Instance.new("Part")
	effect.Size = Vector3.new(0.4,0.4,0.4)
	effect.Name = "Effect"
	effect.BrickColor = BrickColor.new("Institutional white")
	Mesh(effect, "Sphere")
	effect.CFrame = CFrame.new(place.Position + Vector3.new(math.random(-5,5),math.random(-5,5),math.random(-5,5)))
	effect.Anchored = true
	effect.Material = Enum.Material.Neon
	effect.CanCollide = false
	effect.Parent = parent
	coroutine.resume(coroutine.create(function()
		for i=1,10 do
			effect.Transparency = effect.Transparency + 0.1
			effect.CFrame = effect.CFrame:lerp(place.CFrame, 0.05 * i)
			wait()
		end
		effect:Destroy()
	end))
end

--Develop

for i=1,100 do
	change = change:lerp(Vector3.new(0,1,0), 0.05)
	Effect(character.Torso, character.Torso)
	music.Pitch = change.Y
,	wait()
end
music.Pitch = 1

enabled = true

local zdown = false

local function HitEffect(place, parent)
	local hitef = Instance.new("Part", parent)
	hitef.Size = Vector3.new()
	hitef.Anchored = true
	hitef.Shape = "Ball"
	hitef.CanCollide = false
	hitef.Material = Enum.Material.Neon
	hitef.BrickColor = BrickColor.new("Institutional white")
	hitef.CFrame = place
	coroutine.resume(coroutine.create(function()
		for i=1,5 do
			hitef.Transparency = hitef.Transparency + 0.2
			hitef.Size = hitef.Size:lerp(Vector3.new(2,2,2), 0.2)
			wait()
		end
		hitef:Destroy()
	end))
end

local function Check(item, range)
	local dist = range
	local hum = nil
	local root = nil
	local scanned = {}
	for i,v in pairs(game.Workspace:GetDescendants()) do
		if v:IsA("Model") then
			if v:FindFirstChild("Humanoid") then
				root = v:FindFirstChild("HumanoidRootPart")
				if not root then
					root = v:FindFirstChild("Torso")
					if not root then
						root = v:FindFirstChild("UpperTorso")
					end
				end
				if root then
					table.insert(scanned, 1, v)
				end
			end
		end
	end
	for i,v in pairs(scanned) do
		if v:IsA("Model") and v ~= character then
			hum = v:FindFirstChild("Humanoid")
			root = v:FindFirstChild("HumanoidRootPart")
			if not root then
				root = v:FindFirstChild("Torso")
				if not root then
					root = v:FindFirstChild("UpperTorso")
				end
			end
			if hum and root then
				if (root.Position - item.Position).magnitude < dist then
					dist = (root.Position - item.Position).magnitude
				else
					hum = nil
					root = nil
				end
			end
		end
	end
	if hum and root then
		hum:TakeDamage(17)
		HitEffect(root.CFrame + Vector3.new(math.random(-3,3),math.random(-3,3),math.random(-3,3)), character.Torso)
	end
end

local function CreateFist(place, parent)
	local fist = Instance.new("Part", parent)
	fist.Size = Vector3.new(1,1,2)
	fist.BrickColor = BrickColor.new("Institutional white")
	fist.Transparency = 0.7
	fist.Material = Enum.Material.Neon
	fist.Anchored = true
	fist.CanCollide = false
	local phase = Vector3.new(0,fist.Transparency, 0)
	fist.CFrame = CFrame.new(place.Position + Vector3.new(math.random(-5,5),math.random(-5,5),math.random(-5,5))) * CFrame.Angles(math.random(-360,360),math.random(-360,360),math.random(-360,360))
	Check(fist, 15)
	coroutine.resume(coroutine.create(function()
		for i=1,10 do
			phase = phase:lerp(Vector3.new(0,1,0), 0.05 * i)
			fist.Transparency = phase.Y
			fist.Size = fist.Size:lerp(Vector3.new(0,0,25), 0.1 * i)
			wait()
		end
		fist:Destroy()
	end))
end

mouse.KeyUp:connect(function(key)
	key = key:lower()
	if key == "z" then
		zdown = false
	end
end)

mouse.KeyDown:connect(function(key)
	key = key:lower()
	if key == "r" then
		bassnoise:Play()
		humanoid.WalkSpeed = 26
		if character.Torso.Anchored == true then
			bassactive = false
			for i,v in pairs(character:GetChildren()) do --UNANCHOR
				if v:IsA("Part") then
					v.Anchored = false
				end
			end
		else
			bassactive = true
			humanoid.WalkSpeed = 100
			for i,v in pairs(character:GetChildren()) do --ANCHOR
				if v:IsA("Part") then
					v.Anchored = true
				end
			end
		end
	elseif key == "e" then
		character.Torso.CFrame = CFrame.new(mouse.Hit.p + Vector3.new(0,3,0))
	elseif key == "z" then
		zdown = true
		repeat
			CreateFist(character.Torso, character.Torso)
			wait()
		until zdown == false
	end
end)