--Variables--
local p = game.Players.LocalPlayer
local c = p.Character
local m = p:GetMouse()
local tor = c:WaitForChild("Torso")
local h = c:WaitForChild("Head")
local rl = c:WaitForChild("Right Leg")
local ll = c:WaitForChild("Left Leg")
local ra = c:WaitForChild("Right Arm")
local rl = c:WaitForChild("Left Leg")
local hum = c:WaitForChild("Humanoid")
local gui = p.PlayerGui
--end--
--Coroutines--

--end--

  p.Chatted:connect(function(msg)
   	if msg:sub(1,33) == "free me... from the pits of hell." or msg:sub(1,2) == "dr" then
	print'Activated'
	coroutine.resume(coroutine.create(function()
		local pd = 150
			while pd > 10 do
				pd = pd - 1
				local ring = Instance.new("Part", c.Torso)
				ring.Anchored = true
				ring.CanCollide = false
				ring.BrickColor = BrickColor.new("Really blue")
				ring.FormFactor = "Custom"
				ring.Size = Vector3.new(0.1,0.1,0.1)
				ring.Transparency = 0.3
				ring.CFrame = c.Torso.CFrame*CFrame.fromEulerAnglesXYZ(math.random(-20,20),0,math.random(-20,20))
				local rmesh = Instance.new("SpecialMesh", ring)
				rmesh.MeshId = "rbxassetid://437085648"
				rmesh.Scale = Vector3.new(0,0,0)
				game.Debris:AddItem(ring,2)
				coroutine.resume(coroutine.create(function(c)
					for i=1,10 do
						c.Transparency = i/10
						c.Mesh.Scale = c.Mesh.Scale + Vector3.new(.4,.4,.4)
						wait(0.1)
					end
					c.Parent = nil
				end),ring)
				wait()
			end
	end))
	coroutine.resume(coroutine.create(function()
		local pd = 300
			while pd > 10 do
				pd = pd - 1
				local ring = Instance.new("Part", c.Torso)
				ring.Anchored = true
				ring.CanCollide = false
				ring.Material = "Neon"
				ring.BrickColor = BrickColor.new("Toothpaste")
				ring.FormFactor = "Custom"
				ring.Size = Vector3.new(6,6,6)
				ring.Transparency = 0.3
				ring.CFrame = c.Torso.CFrame*CFrame.fromEulerAnglesXYZ(math.random(-20,20),0,math.random(-20,20))
				local rmesh = Instance.new("BlockMesh", ring)
				game.Debris:AddItem(ring,2)
				coroutine.resume(coroutine.create(function(c)
					for i=1,10 do
						c.Transparency = i/10
						c.Mesh.Scale = c.Mesh.Scale - Vector3.new(.4,.4,.4)
						c.CFrame = c.CFrame * CFrame.Angles(-.2,0,-.2)
						wait(0.1)
					end
					c.Parent = nil
				end),ring)
				wait()
			end
	end))
	wait(6)
		coroutine.resume(coroutine.create(function()
		local pd = 150
			while pd > 10 do
				pd = pd - 1
				local ring = Instance.new("Part", c.Torso)
				ring.Anchored = true
				ring.CanCollide = false
				ok = math.random(1,2)
				if ok == 1 then
				ring.BrickColor = BrickColor.new("Toothpaste")
				else
					ring.BrickColor = BrickColor.new("Really blue")
					end
				ring.FormFactor = "Custom"
				ring.Size = Vector3.new(0.1,0.1,0.1)
				ring.Transparency = 0.3
				ring.CFrame = c.Torso.CFrame*CFrame.new(0,10,10)*CFrame.fromEulerAnglesXYZ(math.rad(-90),0,math.rad(180))
				local rmesh = Instance.new("SpecialMesh", ring)
				rmesh.MeshId = "rbxassetid://430083238"
				rmesh.Scale = Vector3.new(.5414, .8022, .68596)
				game.Debris:AddItem(ring,2)
				coroutine.resume(coroutine.create(function(c)
					for i=1,10 do
						c.Transparency = i/10
						c.Mesh.Scale = c.Mesh.Scale + Vector3.new(.01,.01,.01)
						wait(0.1)
					end
					c.Parent = nil
				end),ring)
				wait()
			end
		end))
		for u, c in pairs (c:GetChildren()) do
		if c.className == "Hat" and c.Name ~= "Swordpack" and c.Name ~= "GlassesBlackFrame" then
		c.Handle.Transparency = 1
		end
		end
		local up = Vector3.new(0, 1, 0)
		local forward = Vector3.new( 0, 0, -1)
		local pos = Vector3.new( 0, 0.47, 0.07)
		local right = Vector3.new( 1, 0, 0)
		h = Instance.new("Hat")
		p = Instance.new("Part")
		h.Name = script.Parent.Name
		p.Parent = h
		p.Position = c:findFirstChild("Head").Position
		p.Name = "Handle"
		p.formFactor = 0
		p.Size = Vector3.new(1,2,2)
		p.BottomSurface = 0
		p.TopSurface = 0
		p.Locked = true
		local pm = Instance.new("SpecialMesh",p)
		pm.MeshId = "http://www.roblox.com/asset/?id=420164161"
		pm.TextureId = "http://www.roblox.com/asset/?id=420164265"
		h.Parent = c
		h.AttachmentForward = forward
		h.AttachmentPos = pos
		h.AttachmentRight = right
		h.AttachmentUp = up
end

 end)