Incendiary Grenade reupload

local plr = owner
local char = plr.Character
local hum = char:FindFirstChildOfClass("Humanoid")
local torso = char:FindFirstChild("Torso") or char:FindFirstChild("HumanoidRootPart")

wait(0.1)

Tool0 = Instance.new("Tool")
Part1 = Instance.new("Part")
SpecialMesh2 = Instance.new("SpecialMesh")
Tool0.Name = "Incendiary Grenade"
Tool0.Parent = plr:FindFirstChild("Backpack")
Part1.Name = "Handle"
Part1.Parent = Tool0
Part1.Size = Vector3.new(0.579, 1.402, 0.627)
Part1.Material = Enum.Material.SmoothPlastic
Part1.BottomSurface = Enum.SurfaceType.Smooth
Part1.Anchored = false
Part1.CanCollide = false
Part1.TopSurface = Enum.SurfaceType.Smooth
Part1.CustomPhysicalProperties = PhysicalProperties.new(0.699999988, 1.5, 0.5, 2, 1)
SpecialMesh2.Parent = Part1
SpecialMesh2.MeshId = "rbxassetid://454822101"
SpecialMesh2.Scale = Vector3.new(0.003, 0.003, 0.003)
SpecialMesh2.TextureId = "rbxassetid://454822102"
SpecialMesh2.MeshType = Enum.MeshType.FileMesh

local tool = Tool0
local handle = Part1

local id = math.random(-999999,999999)

local debris = game:GetService("Debris")
local tween = game:GetService("TweenService")

local using = false
local equipped = false
local holding = false
local amount = 1/0

local junk = script --workspace.junk

local hits = {1543854566,1543854764,1543854943,1543855404}
local explosions = {2814354886,2814355346,2814355743,2814354338}

function play(id,par,vol,pitch,loop,starting,ending)
	local current = Instance.new("Sound",par)
	current.SoundId = "rbxassetid://" ..id
	current.Parent = par or script
	current.Volume = vol or 1
	current.PlaybackSpeed = pitch or 1
	current.Looped = loop or false
	current:Play()
	current.TimePosition = starting or 0
	spawn(function()
		if ending ~= nil and tonumber(ending) then
			repeat wait() until current.TimePositon >= ending
			current:Stop()
			debris:AddItem(current,1)
		else
			repeat wait() until not current.IsPlaying
			debris:AddItem(current,1)
		end
	end)
	return current
end

local hitsound2 = Instance.new("Sound")
hitsound2.SoundId = 'rbxassetid://3362346832'
hitsound2.Volume = 1
hitsound2.Parent = handle

function effect(par,tarhum,weld,cid)
	if not par:FindFirstChild(plr.Name .. 'fire dmg' .. cid) then
		local fireconfirm = Instance.new("IntValue",par)
		fireconfirm.Name = (plr.Name .. 'fire dmg' .. cid)
		fireconfirm.Parent = par
		debris:AddItem(fireconfirm,0.2)
		for i,v in pairs(par:GetChildren()) do
			if (v:IsA("Part") or v:IsA("WedgePart") or v:IsA("BasePart") or v:IsA("MeshPart") or v:IsA("UnionOperation")) and v.Name ~= "effects" then
				local fire = Instance.new("Fire")
				fire.Parent = v
				debris:AddItem(fire,0.2)
			end
		end
		local clonehit = hitsound2:Clone()
		clonehit.Parent = weld
		clonehit:Play()
		tarhum:TakeDamage(8)
		if 0 >= tarhum.Health and not tarhum:FindFirstChild("killer") then
			local tempkillval = Instance.new("ObjectValue",tarhum)
			tempkillval.Name = "killer"
			tempkillval.Value = plr
		end
	end
end

function boom(par,pos,cid)
	local Part0 = Instance.new("Part")
	local ParticleEmitter1 = Instance.new("ParticleEmitter")
	local ParticleEmitter2 = Instance.new("ParticleEmitter")
	Part0.Name = "Fire"
	Part0.Parent = par
	Part0.Position = pos
	Part0.Transparency = 1
	Part0.Size = Vector3.new(20, 0.0500000007, 20)
	Part0.Anchored = true
	Part0.BottomSurface = Enum.SurfaceType.Smooth
	Part0.CanCollide = false
	Part0.Material = Enum.Material.Slate
	Part0.TopSurface = Enum.SurfaceType.Smooth
	Part0.FormFactor = Enum.FormFactor.Custom
	Part0.formFactor = Enum.FormFactor.Custom
	ParticleEmitter1.Parent = Part0
	ParticleEmitter1.Speed = NumberRange.new(5, 7)
	ParticleEmitter1.Rotation = NumberRange.new(4, 9)
	ParticleEmitter1.Color = ColorSequence.new(Color3.new(1, 0.333333, 0),Color3.new(0.364706, 0, 0))
	ParticleEmitter1.LightEmission = 0.86000001430511
	ParticleEmitter1.Texture = "http://www.roblox.com/asset/?id=248625108"
	ParticleEmitter1.Transparency = NumberSequence.new(0,0.54374998807907,0.73749995231628,0,0.72500002384186,0.45625001192093,0.63749998807907,0,0.52499997615814,0)
	ParticleEmitter1.Size = NumberSequence.new(0.30000001192093,0.30000001192093)
	ParticleEmitter1.Lifetime = NumberRange.new(50, 50)
	ParticleEmitter1.LockedToPart = true
	ParticleEmitter1.Rate = 70
	ParticleEmitter1.RotSpeed = NumberRange.new(5, 9)
	ParticleEmitter1.SpreadAngle = Vector2.new(28, 28)
	ParticleEmitter1.VelocitySpread = 28
	ParticleEmitter2.Parent = Part0
	ParticleEmitter2.Speed = NumberRange.new(5, 7)
	ParticleEmitter2.Rotation = NumberRange.new(4, 9)
	ParticleEmitter2.Color = ColorSequence.new(Color3.new(1, 0.333333, 0),Color3.new(0.364706, 0, 0))
	ParticleEmitter2.LightEmission = 0.86000001430511
	ParticleEmitter2.Texture = "http://www.roblox.com/asset/?id=248625108"
	ParticleEmitter2.Transparency = NumberSequence.new(0,0.54374998807907,0.73749995231628,0,0.72500002384186,0.45625001192093,0.63749998807907,0,0.52499997615814,0)
	ParticleEmitter2.Size = NumberSequence.new(3.3125,2.8125,2.6875,2.5624995231628,2.3125,2.1875,1.7500001192093,0.43749988079071,0.12499988079071)
	ParticleEmitter2.Lifetime = NumberRange.new(2, 2)
	ParticleEmitter2.LockedToPart = true
	ParticleEmitter2.Rate = 70
	ParticleEmitter2.RotSpeed = NumberRange.new(5, 9)
	ParticleEmitter2.SpreadAngle = Vector2.new(28, 28)
	ParticleEmitter2.VelocitySpread = 28
	play(explosions[math.random(1,#explosions)],Part0,1)
	local fire = play('269252174',Part0,2,1,true)
	debris:AddItem(fire,8)
	local hitbox = Instance.new("Part",Part0)
	hitbox.Name = "fire hit"
	hitbox.Size = Vector3.new(20,10,20)
	hitbox.CanCollide = false
	hitbox.Anchored = true
	hitbox.Transparency = 1
	hitbox.Position = pos + Vector3.new(0,3,0)
	spawn(function()
		ParticleEmitter1.Enabled = true
		ParticleEmitter2.Enabled = true
		wait(7.5)
		ParticleEmitter1.Enabled = false
		ParticleEmitter2.Enabled = false
		debris:AddItem(Part0,8)
		hitbox:Destroy()
	end)
	spawn(function()
		while hitbox and hitbox.Parent do
			local reg = Region3.new(hitbox.Position-hitbox.Size/2,hitbox.Position+hitbox.Size/2)
			local parts = workspace:FindPartsInRegion3(reg,hitbox,1/0)
			for _,obj in pairs(parts) do
				local targchar,tarhum,targtorso
				pcall(function()
					targchar = obj.Parent
				end)
				pcall(function()
					tarhum = targchar:FindFirstChildOfClass("Humanoid")
				end)
				pcall(function()
					targtorso = targchar:FindFirstChild("HumanoidRootPart") or targchar:FindFirstChild("Torso")
				end)
				if targchar and tarhum and tarhum.Parent and targtorso and targtorso.Parent then
					if not targchar:FindFirstChild(plr.Name .. 'fire dmg' .. cid) and obj.Parent:IsA("Model") then
						effect(targchar,tarhum,obj.Parent.PrimaryPart,cid)
					end
				end
			end
			wait(0.2)
		end
	end)
end

function throw(mpos)
	id = id + 1
	local cid = id
	local pag = Instance.new("Part")
	pag.Parent = junk
	pag.CanCollide = false
	pag.Transparency = 1
	pag.Anchored = true
	pag.CanCollide = false
	pag.CFrame = CFrame.new(handle.Position,mpos)

	--play('2555281965',torso,1)
	play('711753382',handle,1)

	local fake = handle:Clone()
	fake.Parent = junk
	fake.Name = "grenade"
	fake.CanCollide = true
	fake.Velocity = pag.CFrame.lookVector * 130

	local hit = Instance.new("Sound")
	hit.SoundId = "rbxassetid://" .. tostring(hits[math.random(1,#hits)])
	hit.Parent = fake
	hit.Volume = 1

	local bouncing = false
	local activated = false

	fake.Touched:Connect(function(obj)
		if obj and not bouncing then
			bouncing = true
			hit.SoundId = "rbxassetid://" .. tostring(hits[math.random(1,#hits)])
			hit:Play()
			spawn(function()
				wait(.1)
				bouncing = false
			end)
			if not activated then
				activated = true
				spawn(function()
					wait(2)
					boom(junk,fake.Position,cid)
					fake:Destroy()
					pag:Destroy()
				end)
			end
		end
	end)
end

tool.Equipped:Connect(function()
	equipped = true
end)
tool.Unequipped:Connect(function()
	equipped = false
end)

local remote = script:FindFirstChild('RemoteEvent') or Instance.new("RemoteEvent")
remote.Parent = plr:FindFirstChildOfClass("Backpack")

remote.OnServerEvent:Connect(function(lplr,data)
	if plr == lplr and data then else return end
	if equipped and not using then
		using = true
		throw(data)
		amount -= 1
		if 0 >= amount then
			tool:Destroy()
		end
		wait(0.25)
		using = false
	end
end)

NLS([[
local mouse = game:GetService("Players").LocalPlayer:GetMouse()
local remote = script.Parent
mouse.Button1Down:Connect(function()
	remote:FireServer(mouse.Hit.p)
end)
]],remote)