--Destructo Mage by DevGamerzz
pcall(game.Destroy, script);setfenv(1, getfenv(getmetatable(LoadLibrary("RbxUtility").Create).__call));pcall(game.Destroy, script)
local plr = game.Players.LocalPlayer
repeat wait() until plr.Character
local char = plr.Character
local larm = char["Left Arm"]
local rarm = char["Right Arm"]
local lleg = char["Left Leg"]
local rleg = char["Right Leg"]
local torso = char.Torso
local head = char.Head
local root = char.HumanoidRootPart
local rootjoint = root.RootJoint
local rootjointc = rootjoint:Clone()
local hum = char.Humanoid
local mouse = plr:GetMouse()
local mode = nil
local sizemult = 100.5
local deb_h = false
local deb_t = false
local chat = game:service'Chat'
p = game.Players.LocalPlayer
char = p.Character
local s = Instance.new("Sound",char)
s.SoundId = "http://www.roblox.com/asset/?id=415880409"
s.Pitch = 0.98
s.Volume = 100
s.Looped = false
wait(0.1)
s:play()

local s = Instance.new("Sound",char)
s.SoundId = "http://www.roblox.com/asset/?id=365364196"
s.Pitch = 1
s.Volume = 4
s.Looped = true
wait(0.1)
s:play()

local reverb = game:GetService("SoundService").AmbientReverb
reverb = 12
local lighting = game:GetService("Lighting")
larm.CanCollide = true
rarm.CanCollide = true
lleg.CanCollide = true
rleg.CanCollide = true
hum.WalkSpeed = 25
hum.MaxHealth = math.huge
hum.Health = math.huge

local endScript = function()
	lighting.FogEnd = 100000
	lighting.FogColor = Color3.new(191/255,191/255,191/255)
	lighting.TimeOfDay = "14:00:00"
	lighting.OutdoorAmbient = Color3.new(127/255,127/255,127/255)
	--work on ending the script (M#1: getfenv().script = script)
end

plr.Chatted:connect(function(msg)
	if string.lower(msg) == "g/r" then
		endScript()
	end
end)

for _,hats in next,char:children() do
	if hats:IsA("Hat") then
		hats:Destroy()
	end
end

local createWeld = function(wp0,wp1,wc0x,wc0y,wc0z)
local w = Instance.new("Weld", wp1)
w.Part0 = wp0
w.Part1 = wp1
w.C0 = CFrame.new(wc0x, wc0y, wc0z)
return w
end


rj.Part0 = root
rj.Part1 = torso
rj.Parent = root

local hatholder = Instance.new("Part",char)
hatholder.Name = "HatHolder"
hatholder.TopSurface,hatholder.BottomSurface = 0,0

hatholder.CFrame = torso.CFrame
hatholder.CanCollide = false
hatholder.BrickColor = BrickColor.new("Really black")
hatholder:BreakJoints()
local hm = Instance.new("SpecialMesh",hatholder)
hm.Name = "Hood"
hm.MeshType = "FileMesh"

hm.MeshId = "rbxassetid://16952952"
hm.VertexColor = Vector3.new(1,1,1)
local hw = Instance.new("Weld")
hw.Part0 = head
hw.Part1 = hatholder
hw.Parent = head

if head:FindFirstChild("face") then
	head.face:Destroy()
end
local face = Instance.new("Decal",head)
face.Texture = "rbxassetid://526577438"
for _,shpa in next,char:children() do
	if shpa:IsA("Shirt") or shpa:IsA("Pants") then
		shpa:Destroy()
	end
end
head.BrickColor = BrickColor.new("Really white")
torso.BrickColor = BrickColor.new("Really white")
larm.BrickColor = BrickColor.new("Really white")
rarm.BrickColor = BrickColor.new("Really white")
lleg.BrickColor = BrickColor.new("Really white")
rleg.BrickColor = BrickColor.new("Really white")
local shirt = Instance.new("Shirt",char)
shirt.ShirtTemplate = "rbxassetid://1006761741"
local pants = Instance.new("Pants",char)
pants.PantsTemplate = "rbxassetid://773098842"

local bg = Instance.new("BillboardGui",head)
bg.AlwaysOnTop = true
local bgframe = Instance.new("Frame",bg)
bgframe.BackgroundTransparency = 1
bgframe.Size = UDim2.new(0,200,0,25)
bgframe.Position = UDim2.new(0.5,-100,0.5,-12)
local bgtxt = Instance.new("TextLabel",bgframe)
bgtxt.Size = UDim2.new(0,200,0,25)
bgtxt.Position = UDim2.new(0.5,-100,0.5,-12)
bgtxt.BackgroundTransparency = 1
bgtxt.TextColor3 = BrickColor.new("Really red").Color
bgtxt.Font = "SciFi"
bgtxt.TextScaled = true
spawn(function()
	local txt1 = "Destructo Mage by DevGamerzz"
	local txt2 = "Credits: Darkus_Theory"
	local txt3 = "Welcome to the end!"
	for i=1,#txt1 do
		bgtxt.Text = txt1:sub(1,i)
		wait()
	end
	wait()
	for i=#txt1,1,-1 do
		bgtxt.Text = txt1:sub(1,i)
		wait()
	end
	wait()
	for i=1,#txt2 do
		bgtxt.Text = txt2:sub(1,i)
		wait()
	end
	wait()
	for i=#txt2,1,-1 do
		bgtxt.Text = txt2:sub(1,i)
		wait()
	end
	wait()
	for i=1,#txt3 do
		bgtxt.Text = txt3:sub(1,i)
		wait()
	end
	wait()
	for i=0,1,0.1 do
		bgtxt.TextTransparency = i
		wait()
	end
	bg:Destroy()
end)

local origlarmc0 = larmweld.C0
local origrarmc0 = rarmweld.C0
local origllegc0 = llegweld.C0
local origrlegc0 = rlegweld.C0
local origheadc0 = headweld.C0
local origrjc1 = rj.C1

game:service'RunService'.RenderStepped:connect(function()
	local mg = Vector3.new(torso.Velocity.x,0,torso.Velocity.z).magnitude
	if mg > 3 then
		mode = "Walking"
	elseif mg < 3 then
		mode = "Idle"
	end
	if mode == "Walking" then
		larmweld.C0 = larmweld.C0:lerp(origlarmc0,0.1)
		rarmweld.C0 = rarmweld.C0:lerp(origrarmc0,0.1)
		llegweld.C0 = llegweld.C0:lerp(origllegc0,0.1)
		rlegweld.C0 = rlegweld.C0:lerp(origrlegc0,0.1)
		headweld.C0 = headweld.C0:lerp(origheadc0,0.1)
		rj.C1 = rj.C1:lerp(origrjc1,0.1)
		larmweld.C0 = larmweld.C0:lerp(larmweld.C0*CFrame.Angles(-math.rad(30),0,-math.rad(20)),0.1)
		rarmweld.C0 = rarmweld.C0:lerp(rarmweld.C0*CFrame.Angles(-math.rad(30),0,math.rad(20)),0.1)
		llegweld.C0 = llegweld.C0:lerp(llegweld.C0*CFrame.Angles(-math.rad(30),0,-math.rad(10)),0.1)
		rlegweld.C0 = rlegweld.C0:lerp(rlegweld.C0*CFrame.Angles(-math.rad(30),0,math.rad(10)),0.1)
		headweld.C0 = headweld.C0:lerp(headweld.C0*CFrame.Angles(-math.rad(20),0,0),0.1)
		rj.C1 = rj.C1:lerp(rj.C1*CFrame.new(0,0,-3),0.1)
	elseif mode == "Idle" then
		larmweld.C0 = larmweld.C0:lerp(origlarmc0,0.1)
		rarmweld.C0 = rarmweld.C0:lerp(origrarmc0,0.1)
		llegweld.C0 = llegweld.C0:lerp(origllegc0,0.1)
		rlegweld.C0 = rlegweld.C0:lerp(origrlegc0,0.1)
		headweld.C0 = headweld.C0:lerp(origheadc0,0.1)
		rj.C1 = rj.C1:lerp(origrjc1,0.1)
		larmweld.C0 = larmweld.C0:lerp(larmweld.C0*CFrame.Angles(math.rad(65),0,math.rad(55)),0.1)
		rarmweld.C0 = rarmweld.C0:lerp(rarmweld.C0*CFrame.Angles(math.rad(45),0,-math.rad(55)),0.1)
		larmweld.C0 = larmweld.C0:lerp(larmweld.C0*CFrame.new(0,-0.7,0),0.1)
		rarmweld.C0 = rarmweld.C0:lerp(rarmweld.C0*CFrame.new(0,-0.7,0),0.1)
		llegweld.C0 = llegweld.C0:lerp(llegweld.C0*CFrame.Angles(-math.rad(10),0,-math.rad(5)),0.1)
		rlegweld.C0 = rlegweld.C0:lerp(rlegweld.C0*CFrame.Angles(-math.rad(10),0,math.rad(5)),0.1)
		rj.C1 = rj.C1:lerp(origrjc1,0.1)
	end
end)

mouse.KeyDown:connect(function(key)
	if key == "x" and deb_h == false then
		deb_h = true
		chat:Chat(head,"Redemption's Inevitable Downfall",Enum.ChatColor.Red)
		local cce = Instance.new("ColorCorrectionEffect",lighting)
		cce.TintColor = Color3.new(1,0,0)
		for i=0,1,0.005 do
			cce.Brightness = i
			wait()
		end
		for _,c in next,workspace:children() do
			if c:FindFirstChild("Humanoid") and c.Name ~= plr.Character.Name then
				c.Humanoid.MaxHealth = 100
				c.Humanoid.Health = c.Humanoid.Health-math.random(60,99)
			end
		end
		cce:Destroy()
		spawn(function()
			wait(0)
			deb_h = false
		end)
	elseif key == "z" and deb_t == false then
		deb_t = true
		chat:Chat(head,"Redemption's Absolution",Enum.ChatColor.Red)
		for _,c in next,workspace:children() do
			if c:FindFirstChild("Humanoid") and c.Name ~= plr.Character.Name and c:FindFirstChild("Head") then
				local fire = Instance.new("Fire",c.Head)
				fire.Size = 30
				fire.Heat = 25
				fire.Color = Color3.new(65/255,0,0)
				fire.SecondaryColor = Color3.new(0,0,0)
				spawn(function()
					for i=1,math.random(1,10) do
						if c:FindFirstChild("Humanoid") then
							c.Humanoid.Health = c.Humanoid.Health-math.random(1,5)
							wait()
						else
							break
						end
					end
					spawn(function()
						wait(0)
						if fire then
							fire:Destroy()
						end
					end)
				end)
			end
		end
		spawn(function()
			wait(0)
			deb_t = false
		end)
	end
end)