Character=script.Parent Humanoid=Character:FindFirstChild("\072\117\109\097\110\111\105\100")Debris=game:GetService("\068\101\098\114\105\115")WindDirection=script:FindFirstChild("\087\105\110\100\068\105\114\101\099\116\105\111\110")Force=script:FindFirstChild("\070\111\114\099\101")Parts={}BaseColor=BrickColor.new("\082\101\097\108\108\121 \114\101\100")Color=BaseColor.Color Gravity=196.2 Duration=3 Classes={BasePart={BrickColor=BaseColor;Material=Enum.Material.Plastic;Reflectance=0;Transparency=.75};FileMesh={TextureId=""},DataModelMesh={VertexColor=Vector3.new(Color.r,Color.g,Color.b)},CharacterMesh={BaseTextureId=0,OverlayTextureId=0},Shirt={ShirtTemplate=""},Pants={PantsTemplate=""},FaceInstance={Texture=""},Sparkles={SparkleColor=Color;Enabled=false},Fire={Color=Color,SecondaryColor=Color;Enabled=false};Smoke={Color=Color;Enabled=false};Light={Color=Color;Enabled=false};ParticleEmitter={Color=ColorSequence.new(Color,Color);Enabled=false}}Fire=script:FindFirstChild("\070\105\114\101")Objects={}RemovedObjects={}FakeParts={}Hats={}Tools={}Particles={}function DestroyScript()Debris:AddItem(script,.5)end function TweenNumber(Q,i,N)return(i-Q)/N end function Decorate(Q)local i={Object=nil,Properties={}}for N,B in pairs(Classes)do if Q:IsA(N)then if Q:IsA("\067\104\097\114\097\099\116\101\114\077\101\115\104")then local i=Instance.new("\083\112\101\099\105\097\108\077\101\115\104")i.MeshType=Enum.MeshType.FileMesh i.MeshId="\104\116\116\112\058\047\047\119\119\119\046\114\111\098\108\111\120\046\099\111\109\047\097\115\115\101\116\047\063\105\100\061"..Q.MeshId for N,B in pairs(Character:GetChildren())do if B:IsA("\066\097\115\101\080\097\114\116")and Q.BodyPart.Name==string.gsub(B.Name," ","")then i.Parent=B table.insert(RemovedObjects,{Object=Q;NewObject=i,Parent=Q.Parent})Q.Parent=nil end end elseif Q:IsA("\066\097\115\101\080\097\114\116")and Q.Transparency>=1 then else i.Object=Q for N,B in pairs(B)do local V=nil local h=false pcall(function()V=Q[N]h=true Q[N]=B end)if h then i.Properties[N]=V end end end end end table.insert(Objects,i)end function Redesign(Q)for Q,i in pairs(Q:GetChildren())do if i~=script then Decorate(i)Redesign(i)end end end if not Humanoid or not WindDirection then DestroyScript()return end for Q,i in pairs(Character:GetChildren())do if i:IsA("\072\097\116")or i:IsA("\084\111\111\108")then local Q=i:Clone()Decorate(Q)table.insert(i:IsA("\072\097\116")and Hats or Tools,i)for Q,N in pairs(Q:GetChildren())do if N:IsA("\066\097\115\101\080\097\114\116")then local Q=N:Clone()Q.Name=i.Name table.insert(FakeParts,Q)Q.Parent=Character Q.CFrame=N.CFrame end end end end Humanoid:UnequipTools()for Q,i in pairs({Hats,Tools})do for Q,i in pairs(i)do i.Parent=nil end end Redesign(Character)local Q=Instance.new("\077\111\100\101\108")Q.Name="\071\104\111\115\116\077\111\100\101\108"for i,N in pairs(Character:GetChildren())do if N:IsA("\066\097\115\101\080\097\114\116")then if N.Name~="\072\117\109\097\110\111\105\100\082\111\111\116\080\097\114\116"then local i=N:Clone()i.Name="\080\097\114\116"i.CanCollide=false for Q,i in pairs(i:GetChildren())do if not i:IsA("\068\097\116\097\077\111\100\101\108\077\101\115\104")then i:Destroy()end end table.insert(FakeParts,i)local B=N:GetMass()*Gravity^2 local V=Instance.new("\066\111\100\121\086\101\108\111\099\105\116\121")V.maxForce=Vector3.new(B,B,B)V.velocity=WindDirection.Value*Force.Value V.Parent=i i.Parent=Q local h=Fire:Clone()h.Enabled=true table.insert(Particles,h)h.Parent=i end N:Destroy()end end Spawn(function()local Q=Classes.BasePart.Transparency local i=1 local N=.75 local B=.033333333333333 local V=N/B for N=1,V,1 do local h=Q+TweenNumber(Q,i,V/(N+1))for Q,i in pairs(FakeParts)do if i and i.Parent then i.Transparency=h end end wait(B)end for Q,i in pairs(Particles)do i.Enabled=false end end)Debris:AddItem(Q,5)Q.Parent=game:GetService("\087\111\114\107\115\112\097\099\101")
--Made by Luckymaxer

Character = script.Parent
Humanoid = Character:FindFirstChild("Humanoid")

Debris = game:GetService("Debris")

WindDirection = script:FindFirstChild("WindDirection")
Force = script:FindFirstChild("Force")

Parts = {}

BaseColor = BrickColor.new("Really red")
Color = BaseColor.Color

Gravity = 196.20

Duration = 3

Classes = {
	BasePart = {
		BrickColor = BaseColor,
		Material = Enum.Material.Plastic,
		Reflectance = 0,
		Transparency = 0.75,
	},
	FileMesh = {
		TextureId = "",
	},
	DataModelMesh = {
		VertexColor = Vector3.new(Color.r, Color.g, Color.b),
	},
	CharacterMesh = {
		BaseTextureId = 0,
		OverlayTextureId = 0,
	},
	Shirt = {
		ShirtTemplate = "",
	},
	Pants = {
		PantsTemplate = "",
	},
	FaceInstance = {
		Texture = "",
	},
	Sparkles = {
		SparkleColor = Color,
		Enabled = false,
	},
	Fire = {
		Color = Color,
		SecondaryColor = Color,
		Enabled = false,
	},
	Smoke = {
		Color = Color,
		Enabled = false,
	},
	Light = {
		Color = Color,
		Enabled = false,
	},
	ParticleEmitter = {
		Color = ColorSequence.new(Color, Color),
		Enabled = false,
	},
}

Fire = script:FindFirstChild("Fire")

Objects = {}
RemovedObjects = {}
FakeParts = {}
Hats = {}
Tools = {}
Particles = {}

function DestroyScript()
	Debris:AddItem(script, 0.5)
end

function TweenNumber(Start, Goal, Time)
	return ((Goal - Start) / Time)
end

function Decorate(Object)
	local ObjectData = {
		Object = nil,
		Properties = {},
	}
	for i, v in pairs(Classes) do
		if Object:IsA(i) then
			if Object:IsA("CharacterMesh") then
				local Mesh = Instance.new("SpecialMesh")
				Mesh.MeshType = Enum.MeshType.FileMesh
				Mesh.MeshId = ("http://www.roblox.com/asset/?id=" .. Object.MeshId)
				for ii, vv in pairs(Character:GetChildren()) do
					if vv:IsA("BasePart") and Object.BodyPart.Name == string.gsub(vv.Name, " ", "") then
						Mesh.Parent = vv
						table.insert(RemovedObjects, { Object = Object, NewObject = Mesh, Parent = Object.Parent })
						Object.Parent = nil
					end
				end
			elseif Object:IsA("BasePart") and Object.Transparency >= 1 then
			else
				ObjectData.Object = Object
				for ii, vv in pairs(v) do
					local PropertyValue = nil
					local PropertyValueSet = false
					pcall(function()
						PropertyValue = Object[ii]
						PropertyValueSet = true
						Object[ii] = vv
					end)
					if PropertyValueSet then
						ObjectData.Properties[ii] = PropertyValue
					end
				end
			end
		end
	end
	table.insert(Objects, ObjectData)
end

function Redesign(Parent)
	for i, v in pairs(Parent:GetChildren()) do
		if v ~= script then
			Decorate(v)
			Redesign(v)
		end
	end
end

if not Humanoid or not WindDirection then
	DestroyScript()
	return
end

for i, v in pairs(Character:GetChildren()) do
	if v:IsA("Hat") or v:IsA("Tool") then
		local FakeObject = v:Clone()
		Decorate(FakeObject)
		table.insert(((v:IsA("Hat") and Hats) or Tools), v)
		for ii, vv in pairs(FakeObject:GetChildren()) do
			if vv:IsA("BasePart") then
				local FakePart = vv:Clone()
				FakePart.Name = v.Name
				table.insert(FakeParts, FakePart)
				FakePart.Parent = Character
				FakePart.CFrame = vv.CFrame
			end
		end
	end
end

Humanoid:UnequipTools()

for i, v in pairs({ Hats, Tools }) do
	for ii, vv in pairs(v) do
		vv.Parent = nil
	end
end

Redesign(Character)

local GhostModel = Instance.new("Model")
GhostModel.Name = "GhostModel"

for i, v in pairs(Character:GetChildren()) do
	if v:IsA("BasePart") then
		if v.Name ~= "HumanoidRootPart" then
			local FakePart = v:Clone()
			FakePart.Name = "Part"
			FakePart.CanCollide = false
			for ii, vv in pairs(FakePart:GetChildren()) do
				if not vv:IsA("DataModelMesh") then
					vv:Destroy()
				end
			end
			table.insert(FakeParts, FakePart)
			local Mass = (v:GetMass() * Gravity ^ 2)
			local BodyVelocity = Instance.new("BodyVelocity")
			BodyVelocity.maxForce = Vector3.new(Mass, Mass, Mass)
			BodyVelocity.velocity = (WindDirection.Value * Force.Value)
			BodyVelocity.Parent = FakePart
			FakePart.Parent = GhostModel
			local FireParticle = Fire:Clone()
			FireParticle.Enabled = true
			table.insert(Particles, FireParticle)
			FireParticle.Parent = FakePart
		end
		v:Destroy()
	end
end

Spawn(function()
	local Start = Classes.BasePart.Transparency
	local End = 1
	local Time = 0.75
	local Rate = (1 / 30)
	local Frames = (Time / Rate)
	for i = 1, Frames do
		local Transparency = (Start + TweenNumber(Start, End, (Frames / (i + 1))))
		for ii, vv in pairs(FakeParts) do
			if vv and vv.Parent then
				vv.Transparency = Transparency
			end
		end
		wait(Rate)
	end
	for i, v in pairs(Particles) do
		v.Enabled = false
	end
end)

Debris:AddItem(GhostModel, 5)
GhostModel.Parent = game:GetService("Workspace")
