Nuke Rocket

--Converted with ttyyuu12345's model to script plugin v4
function sandbox(var,func)
	local env = getfenv(func)
	local newenv = setmetatable({},{
		__index = function(self,k)
			if k=="script" then
				return var
			else
				return env[k]
			end
		end,
	})
	setfenv(func,newenv)
	return func
end
cors = {}
mas = Instance.new("Model",game:GetService("Lighting"))
Tool0 = Instance.new("Tool")
Sound1 = Instance.new("Sound")
Sound2 = Instance.new("Sound")
Part3 = Instance.new("Part")
SpecialMesh4 = Instance.new("SpecialMesh")
LocalScript5 = Instance.new("LocalScript")
Script6 = Instance.new("Script")
Script7 = Instance.new("Script")
Script8 = Instance.new("Script")
Part9 = Instance.new("Part")
SpecialMesh10 = Instance.new("SpecialMesh")
Part11 = Instance.new("Part")
SpecialMesh12 = Instance.new("SpecialMesh")
Part13 = Instance.new("Part")
SpecialMesh14 = Instance.new("SpecialMesh")
Part15 = Instance.new("Part")
SpecialMesh16 = Instance.new("SpecialMesh")
Part17 = Instance.new("Part")
SpecialMesh18 = Instance.new("SpecialMesh")
Model19 = Instance.new("Model")
Sound20 = Instance.new("Sound")
Sound21 = Instance.new("Sound")
Script22 = Instance.new("Script")
ObjectValue23 = Instance.new("ObjectValue")
BodyGyro24 = Instance.new("BodyGyro")
Script25 = Instance.new("Script")
LocalScript26 = Instance.new("LocalScript")
Tool0.Name = "Nuclear Missle"
Tool0.Parent = mas
Tool0.GripForward = Vector3.new(-1, 0, 0)
Tool0.GripPos = Vector3.new(-1.89999998, -0.5, 0)
Tool0.GripRight = Vector3.new(0, 0, -1)
Sound1.Name = "Explosion"
Sound1.Parent = Tool0
Sound1.Pitch = 0.10000000149012
Sound1.SoundId = "rbxasset://sounds/collide.wav"
Sound1.Volume = 10
Sound2.Name = "Swoosh"
Sound2.Parent = Tool0
Sound2.SoundId = "rbxasset://sounds/Rocket whoosh 01.wav"
Sound2.Volume = 10
Sound2.Looped = true
Part3.Name = "Handle"
Part3.Parent = Tool0
Part3.BrickColor = BrickColor.new("Dark stone grey")
Part3.Reflectance = 0.40000000596046
Part3.Rotation = Vector3.new(-63.1999969, -89.9799957, -63.1999969)
Part3.FormFactor = Enum.FormFactor.Plate
Part3.Size = Vector3.new(8, 1.60000002, 1)
Part3.CFrame = CFrame.new(46.4000015, 1.11000001, -15.8500004, 3.42282149e-08, 6.77513441e-08, -0.99999994, 1.21428911e-06, 1, 6.77513441e-08, 0.99999994, -1.21428911e-06, 3.42281297e-08)
Part3.BottomSurface = Enum.SurfaceType.Smooth
Part3.TopSurface = Enum.SurfaceType.Smooth
Part3.Color = Color3.new(0.388235, 0.372549, 0.384314)
Part3.Position = Vector3.new(46.4000015, 1.11000001, -15.8500004)
Part3.Orientation = Vector3.new(0, -90, 0)
Part3.Color = Color3.new(0.388235, 0.372549, 0.384314)
SpecialMesh4.Parent = Part3
SpecialMesh4.MeshId = "http://www.roblox.com/asset/?id=1030777"
SpecialMesh4.Scale = Vector3.new(1.10000002, 1.20000005, 1.10000002)
SpecialMesh4.TextureId = "http://www.roblox.com/asset/?id=1030776"
SpecialMesh4.MeshType = Enum.MeshType.FileMesh
SpecialMesh4.Scale = Vector3.new(1.10000002, 1.20000005, 1.10000002)
LocalScript5.Name = "Local Gui"
LocalScript5.Parent = Tool0
table.insert(cors,sandbox(LocalScript5,function()
local Tool = script.Parent;

enabled = true
function onButton1Down(mouse)
	if not enabled then
		return
	end

	enabled = false
	mouse.Icon = "rbxasset://textures\\GunWaitCursor.png"

	wait(15)
	mouse.Icon = "rbxasset://textures\\GunCursor.png"
	enabled = true

end

function onEquippedLocal(mouse)

	if mouse == nil then
		print("Mouse not found")
		return
	end

	mouse.Icon = "rbxasset://textures\\GunCursor.png"
	mouse.Button1Down:connect(function() onButton1Down(mouse) end)
end


Tool.Equipped:connect(onEquippedLocal)
end))
Script6.Name = "RocketScript"
Script6.Parent = Tool0
table.insert(cors,sandbox(Script6,function()
 r = game:service("RunService")

shaft = script.Parent
position = shaft.Position

script.Parent.Explosion.PlayOnRemove = true -- play explosion sound when projectile removed from game

function fly()
	direction = shaft.CFrame.lookVector
	position = position + direction * 3
	error = position - shaft.Position
	shaft.Velocity = 7*error

end

function blow()

swoosh:stop()
	explosion = Instance.new("Explosion")
	explosion.Position = shaft.Position
	explosion.BlastRadius = 10
	explosion.BlastPressure = 0.1



	-- find instigator tag
	local creator = script.Parent:findFirstChild("creator")
	if creator ~= nil then
		explosion.Hit:connect(function(part, distance)  onPlayerBlownUp(part, distance, creator) end)
	end

	explosion.Parent = game.Workspace
	connection:disconnect()
	wait(.1)
	shaft:remove()
end

function onPlayerBlownUp(part, distance, creator)

	if part.Name == "Head" then

		local humanoid = part.Parent.Humanoid
		tagHumanoid(humanoid, creator)
	end
end

function tagHumanoid(humanoid, creator)
	-- tag does not need to expire iff all explosions lethal

	if creator ~= nil then
		local new_tag = creator:clone()
		new_tag.Parent = humanoid

	end
end

function untagHumanoid(humanoid)
	if humanoid ~= nil then
		local tag = humanoid:findFirstChild("creator")
		if tag ~= nil then

			tag.Parent = nil
		end
	end
end

t, s = r.Stepped:wait()

swoosh = script.Parent.Swoosh
swoosh:play()

d = t + 10.0 - s
connection = shaft.Touched:connect(blow)

while t < d do
	fly()
	t = r.Stepped:wait()
end

-- at max range
script.Parent.Explosion.PlayOnRemove = false
swoosh:stop()
shaft:remove()

end))
Script7.Name = "Server Launcher"
Script7.Parent = Tool0
table.insert(cors,sandbox(Script7,function()


local Rocket = Instance.new("Part")

local Tool = script.Parent

Rocket.Locked = true
Rocket.BackSurface = 3
Rocket.BottomSurface = 3
Rocket.FrontSurface = 3
Rocket.LeftSurface = 3
Rocket.RightSurface = 3
Rocket.TopSurface = 3
Rocket.Size = Vector3.new(1,1,4)
Rocket.BrickColor = BrickColor.Random()

Tool.RocketScript:clone().Parent = Rocket
Tool.Explosion:clone().Parent = Rocket
Tool.Swoosh:clone().Parent = Rocket
Tool.Disco:clone().Parent = Rocket

function fire(angle)

	local vCharacter = Tool.Parent;

	local vHandle = Tool:findFirstChild("Handle")
	if vHandle == nil then
		print("Handle not found")
		return
	end

	local y = 0
	local x = math.cos(angle) * 7
	local z = math.sin(angle) * 7
	local launch = Vector3.new(x, y, z)
	local missile = Rocket:Clone()
	missile.CFrame = CFrame.new(vHandle.Position + launch, vHandle.Position + launch * 2)

	local creator_tag = Instance.new("ObjectValue")

	local vPlayer = game.Players:playerFromCharacter(vCharacter)

	if vPlayer == nil then
		print("Player not found")
	else
		if (vPlayer.Neutral == false) then -- nice touch
			missile.BrickColor = vPlayer.TeamColor
		end
	end

	creator_tag.Value =vPlayer
	creator_tag.Name = "creator"
	creator_tag.Parent = missile

	missile.RocketScript.Disabled = false

	missile.Parent = game.Workspace
end

function computeDirection(vec)
	local lenSquared = vec.magnitude * vec.magnitude
	local invSqrt = 1 / math.sqrt(lenSquared)
	return Vector3.new(vec.x * invSqrt, vec.y * invSqrt, vec.z * invSqrt)
end

Tool.Enabled = true
function onActivated()
	if not Tool.Enabled then
		return
	end

	Tool.Enabled = false

	local character = Tool.Parent;
	local humanoid = character.Humanoid
	if humanoid == nil then
		print("Humanoid not found")
		return
	end

	for i=0,200,10 do
		fire(i)
	end

	wait(0)
	Tool.Enabled = true
end


script.Parent.Activated:connect(onActivated)


end))
Script8.Name = "qPerfectionWeld"
Script8.Parent = Tool0
table.insert(cors,sandbox(Script8,function()
-- Created by Quenty (@Quenty, follow me on twitter).
-- Should work with only ONE copy, seamlessly with weapons, trains, et cetera.
-- Parts should be ANCHORED before use. It will, however, store relatives values and so when tools are reparented, it'll fix them.

--[[ INSTRUCTIONS
- Place in the model
- Make sure model is anchored
- That's it. It will weld the model and all children.

THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.

This script is designed to be used is a regular script. In a local script it will weld, but it will not attempt to handle ancestory changes.
]]

--[[ DOCUMENTATION
- Will work in tools. If ran more than once it will not create more than one weld.  This is especially useful for tools that are dropped and then picked up again.
- Will work in PBS servers
- Will work as long as it starts out with the part anchored
- Stores the relative CFrame as a CFrame value
- Takes careful measure to reduce lag by not having a joint set off or affected by the parts offset from origin
- Utilizes a recursive algorith to find all parts in the model
- Will reweld on script reparent if the script is initially parented to a tool.
- Welds as fast as possible
]]

-- qPerfectionWeld.lua
-- Created 10/6/2014
-- Author: Quenty
-- Version 1.0.3

-- Updated 10/14/2014 - Updated to 1.0.1
--- Bug fix with existing ROBLOX welds ? Repro by asimo3089

-- Updated 10/14/2014 - Updated to 1.0.2
--- Fixed bug fix.

-- Updated 10/14/2014 - Updated to 1.0.3
--- Now handles joints semi-acceptably. May be rather hacky with some joints. :/

local NEVER_BREAK_JOINTS = false -- If you set this to true it will never break joints (this can create some welding issues, but can save stuff like hinges).


local function CallOnChildren(Instance, FunctionToCall)
	-- Calls a function on each of the children of a certain object, using recursion.

	FunctionToCall(Instance)

	for _, Child in next, Instance:GetChildren() do
		CallOnChildren(Child, FunctionToCall)
	end
end

local function GetNearestParent(Instance, ClassName)
	-- Returns the nearest parent of a certain class, or returns nil

	local Ancestor = Instance
	repeat
		Ancestor = Ancestor.Parent
		if Ancestor == nil then
			return nil
		end
	until Ancestor:IsA(ClassName)

	return Ancestor
end

local function GetBricks(StartInstance)
	local List = {}

	-- if StartInstance:IsA("BasePart") then
	-- 	List[#List+1] = StartInstance
	-- end

	CallOnChildren(StartInstance, function(Item)
		if Item:IsA("BasePart") then
			List[#List+1] = Item;
		end
	end)

	return List
end

local function Modify(Instance, Values)
	-- Modifies an Instance by using a table.

	assert(type(Values) == "table", "Values is not a table");

	for Index, Value in next, Values do
		if type(Index) == "number" then
			Value.Parent = Instance
		else
			Instance[Index] = Value
		end
	end
	return Instance
end

local function Make(ClassType, Properties)
	-- Using a syntax hack to create a nice way to Make new items.

	return Modify(Instance.new(ClassType), Properties)
end

local Surfaces = {"TopSurface", "BottomSurface", "LeftSurface", "RightSurface", "FrontSurface", "BackSurface"}
local HingSurfaces = {"Hinge", "Motor", "SteppingMotor"}

local function HasWheelJoint(Part)
	for _, SurfaceName in pairs(Surfaces) do
		for _, HingSurfaceName in pairs(HingSurfaces) do
			if Part[SurfaceName].Name == HingSurfaceName then
				return true
			end
		end
	end

	return false
end

local function ShouldBreakJoints(Part)
	--- We do not want to break joints of wheels/hinges. This takes the utmost care to not do this. There are
	--  definitely some edge cases.

	if NEVER_BREAK_JOINTS then
		return false
	end

	if HasWheelJoint(Part) then
		return false
	end

	local Connected = Part:GetConnectedParts()

	if #Connected == 1 then
		return false
	end

	for _, Item in pairs(Connected) do
		if HasWheelJoint(Item) then
			return false
		elseif not Item:IsDescendantOf(script.Parent) then
			return false
		end
	end

	return true
end

local function WeldTogether(Part0, Part1, JointType, WeldParent)
	--- Weld's 2 parts together
	-- @param Part0 The first part
	-- @param Part1 The second part (Dependent part most of the time).
	-- @param [JointType] The type of joint. Defaults to weld.
	-- @param [WeldParent] Parent of the weld, Defaults to Part0 (so GC is better).
	-- @return The weld created.

	JointType = JointType or "Weld"
	local RelativeValue = Part1:FindFirstChild("qRelativeCFrameWeldValue")

	local NewWeld = Part1:FindFirstChild("qCFrameWeldThingy") or Instance.new(JointType)
	Modify(NewWeld, {
		Name = "qCFrameWeldThingy";
		Part0  = Part0;
		Part1  = Part1;
		C0     = CFrame.new();--Part0.CFrame:inverse();
		C1     = RelativeValue and RelativeValue.Value or Part1.CFrame:toObjectSpace(Part0.CFrame); --Part1.CFrame:inverse() * Part0.CFrame;-- Part1.CFrame:inverse();
		Parent = Part1;
	})

	if not RelativeValue then
		RelativeValue = Make("CFrameValue", {
			Parent     = Part1;
			Name       = "qRelativeCFrameWeldValue";
			Archivable = true;
			Value      = NewWeld.C1;
		})
	end

	return NewWeld
end

local function WeldParts(Parts, MainPart, JointType, DoNotUnanchor)
	-- @param Parts The Parts to weld. Should be anchored to prevent really horrible results.
	-- @param MainPart The part to weld the model to (can be in the model).
	-- @param [JointType] The type of joint. Defaults to weld.
	-- @parm DoNotUnanchor Boolean, if true, will not unachor the model after cmopletion.

	for _, Part in pairs(Parts) do
		if ShouldBreakJoints(Part) then
			Part:BreakJoints()
		end
	end

	for _, Part in pairs(Parts) do
		if Part ~= MainPart then
			WeldTogether(MainPart, Part, JointType, MainPart)
		end
	end

	if not DoNotUnanchor then
		for _, Part in pairs(Parts) do
			Part.Anchored = false
		end
		MainPart.Anchored = false
	end
end

local function PerfectionWeld()
	local Tool = GetNearestParent(script, "Tool")

	local Parts = GetBricks(script.Parent)
	local PrimaryPart = Tool and Tool:FindFirstChild("Handle") and Tool.Handle:IsA("BasePart") and Tool.Handle or script.Parent:IsA("Model") and script.Parent.PrimaryPart or Parts[1]

	if PrimaryPart then
		WeldParts(Parts, PrimaryPart, "Weld", false)
	else
		warn("qWeld - Unable to weld part")
	end

	return Tool
end

local Tool = PerfectionWeld()


if Tool and script.ClassName == "Script" then
	--- Don't bother with local scripts

	script.Parent.AncestryChanged:connect(function()
		PerfectionWeld()
	end)
end

-- Created by Quenty (@Quenty, follow me on twitter).

end))
Part9.Parent = Tool0
Part9.BrickColor = BrickColor.new("Dark stone grey")
Part9.FormFactor = Enum.FormFactor.Symmetric
Part9.Size = Vector3.new(1, 1, 4)
Part9.CFrame = CFrame.new(45.8700027, 1.11000037, -15.8500061, 1.00000012, 6.8934213e-08, 8.19519555e-14, -7.32670458e-08, 1, -2.132698e-07, -5.96047158e-08, 2.29058813e-07, 1)
Part9.BottomSurface = Enum.SurfaceType.Smooth
Part9.TopSurface = Enum.SurfaceType.Smooth
Part9.Color = Color3.new(0.388235, 0.372549, 0.384314)
Part9.Position = Vector3.new(45.8700027, 1.11000037, -15.8500061)
Part9.Color = Color3.new(0.388235, 0.372549, 0.384314)
SpecialMesh10.Parent = Part9
SpecialMesh10.MeshId = "http://www.roblox.com/asset/?id=2251534"
SpecialMesh10.Scale = Vector3.new(0.5, 0.5, 0.25)
SpecialMesh10.TextureId = "http://none"
SpecialMesh10.MeshType = Enum.MeshType.FileMesh
SpecialMesh10.Scale = Vector3.new(0.5, 0.5, 0.25)
Part11.Parent = Tool0
Part11.BrickColor = BrickColor.new("Dark stone grey")
Part11.FormFactor = Enum.FormFactor.Symmetric
Part11.Size = Vector3.new(1, 1, 4)
Part11.CFrame = CFrame.new(46.9700127, 1.11000037, -15.8500061, 1.00000012, 6.8934213e-08, 8.19519555e-14, -7.32670458e-08, 1, -2.132698e-07, -5.96047158e-08, 2.29058813e-07, 1)
Part11.BottomSurface = Enum.SurfaceType.Smooth
Part11.TopSurface = Enum.SurfaceType.Smooth
Part11.Color = Color3.new(0.388235, 0.372549, 0.384314)
Part11.Position = Vector3.new(46.9700127, 1.11000037, -15.8500061)
Part11.Color = Color3.new(0.388235, 0.372549, 0.384314)
SpecialMesh12.Parent = Part11
SpecialMesh12.MeshId = "http://www.roblox.com/asset/?id=2251534"
SpecialMesh12.Scale = Vector3.new(0.5, 0.5, 0.25)
SpecialMesh12.TextureId = "http://none"
SpecialMesh12.MeshType = Enum.MeshType.FileMesh
SpecialMesh12.Scale = Vector3.new(0.5, 0.5, 0.25)
Part13.Parent = Tool0
Part13.BrickColor = BrickColor.new("Dark stone grey")
Part13.FormFactor = Enum.FormFactor.Symmetric
Part13.Size = Vector3.new(1, 1, 4)
Part13.CFrame = CFrame.new(45.4700089, 1.39000022, -15.8500061, 1.00000036, 6.46013731e-08, -5.96045453e-08, -7.75998856e-08, 1, -1.97480787e-07, -1.19209346e-07, 2.44847826e-07, 1)
Part13.BottomSurface = Enum.SurfaceType.Smooth
Part13.TopSurface = Enum.SurfaceType.Smooth
Part13.Color = Color3.new(0.388235, 0.372549, 0.384314)
Part13.Position = Vector3.new(45.4700089, 1.39000022, -15.8500061)
Part13.Color = Color3.new(0.388235, 0.372549, 0.384314)
SpecialMesh14.Parent = Part13
SpecialMesh14.MeshId = "http://www.roblox.com/asset/?id=2251534"
SpecialMesh14.Scale = Vector3.new(0.5, 0.5, 0.25)
SpecialMesh14.TextureId = "http://none"
SpecialMesh14.MeshType = Enum.MeshType.FileMesh
SpecialMesh14.Scale = Vector3.new(0.5, 0.5, 0.25)
Part15.Parent = Tool0
Part15.BrickColor = BrickColor.new("Dark stone grey")
Part15.FormFactor = Enum.FormFactor.Symmetric
Part15.Size = Vector3.new(1, 1, 4)
Part15.CFrame = CFrame.new(47.2500153, 1.43000019, -15.8500061, 1.00000012, 6.8934213e-08, 8.19519555e-14, -7.32670458e-08, 1, -2.132698e-07, -5.96047158e-08, 2.29058813e-07, 1)
Part15.BottomSurface = Enum.SurfaceType.Smooth
Part15.TopSurface = Enum.SurfaceType.Smooth
Part15.Color = Color3.new(0.388235, 0.372549, 0.384314)
Part15.Position = Vector3.new(47.2500153, 1.43000019, -15.8500061)
Part15.Color = Color3.new(0.388235, 0.372549, 0.384314)
SpecialMesh16.Parent = Part15
SpecialMesh16.MeshId = "http://www.roblox.com/asset/?id=2251534"
SpecialMesh16.Scale = Vector3.new(0.5, 0.5, 0.25)
SpecialMesh16.TextureId = "http://none"
SpecialMesh16.MeshType = Enum.MeshType.FileMesh
SpecialMesh16.Scale = Vector3.new(0.5, 0.5, 0.25)
Part17.Name = "MissleLaunched"
Part17.Parent = Tool0
Part17.BrickColor = BrickColor.new("Dark stone grey")
Part17.FormFactor = Enum.FormFactor.Symmetric
Part17.Size = Vector3.new(1, 1, 4)
Part17.CFrame = CFrame.new(46.4000168, 1.5, -17.9800167, 1.00000012, 6.8934213e-08, 8.19519555e-14, -7.32670458e-08, 1, -2.132698e-07, -5.96047158e-08, 2.29058813e-07, 1)
Part17.BottomSurface = Enum.SurfaceType.Smooth
Part17.TopSurface = Enum.SurfaceType.Smooth
Part17.Color = Color3.new(0.388235, 0.372549, 0.384314)
Part17.Position = Vector3.new(46.4000168, 1.5, -17.9800167)
Part17.Color = Color3.new(0.388235, 0.372549, 0.384314)
SpecialMesh18.Parent = Part17
SpecialMesh18.MeshId = "http://www.roblox.com/asset/?id=2251534"
SpecialMesh18.Scale = Vector3.new(0.600000024, 0.600000024, 0.600000024)
SpecialMesh18.TextureId = "http://none"
SpecialMesh18.VertexColor = Vector3.new(0.600000024, 0.600000024, 0.600000024)
SpecialMesh18.MeshType = Enum.MeshType.FileMesh
SpecialMesh18.Scale = Vector3.new(0.600000024, 0.600000024, 0.600000024)
Model19.Name = "BombScale"
Model19.Parent = Tool0
Sound20.Name = "Explosion"
Sound20.Parent = Model19
Sound20.SoundId = "rbxasset://sounds/collide.wav"
Sound20.Volume = 1
Sound20.PlayOnRemove = true
Sound21.Name = "Swoosh"
Sound21.Parent = Model19
Sound21.SoundId = "rbxasset://sounds/Rocket whoosh 01.wav"
Sound21.Volume = 0.69999998807907
Sound21.Looped = true
Script22.Name = "RocketScript"
Script22.Parent = Model19
table.insert(cors,sandbox(Script22,function()
r = game:service("RunService")

shaft = script.Parent
position = shaft.Position

script.Parent.Explosion.PlayOnRemove = true -- play explosion sound when projectile removed from game

function fly()
	direction = shaft.CFrame.lookVector
	position = position + direction * 5
	error = position - shaft.Position
	shaft.Velocity = 7*error
end

function blow()
	swoosh:stop()
	explosion = Instance.new("Explosion")
	explosion.BlastRadius = 25
	explosion.BlastPressure = 10000000 -- these are really wussy units
	explosion.Position = shaft.Position


	-- find instigator tag
	local creator = script.Parent:findFirstChild("creator")
	if creator ~= nil then
		explosion.Hit:connect(function(part, distance)  onPlayerBlownUp(part, distance, creator) end)
	end

	explosion.Parent = game.Workspace
	connection:disconnect()
	wait(.1)
	shaft:remove()
end

function onPlayerBlownUp(part, distance, creator)

	if part.Name == "Head" then

		local humanoid = part.Parent.Humanoid
		tagHumanoid(humanoid, creator)
	end
end

function tagHumanoid(humanoid, creator)
	-- tag does not need to expire iff all explosions lethal

	if creator ~= nil then
		local new_tag = creator:clone()
		new_tag.Parent = humanoid

	end
end

function untagHumanoid(humanoid)
	if humanoid ~= nil then
		local tag = humanoid:findFirstChild("creator")
		if tag ~= nil then

			tag.Parent = nil
		end
	end
end

t, s = r.Stepped:wait()

swoosh = script.Parent.Swoosh
swoosh:play()

d = t + 100.0 - s
connection = shaft.Touched:connect(blow)

while t < d do
	fly()
	t = r.Stepped:wait()
end



end))
ObjectValue23.Name = "creator"
ObjectValue23.Parent = Model19
BodyGyro24.Parent = Model19
BodyGyro24.maxTorque = Vector3.new(0, 0, 0)
BodyGyro24.MaxTorque = Vector3.new(0, 0, 0)
Script25.Name = "Disco"
Script25.Parent = Tool0
table.insert(cors,sandbox(Script25,function()


local dance = script.Parent

while true do

	dance.BrickColor = BrickColor.new("Really red")
	wait(0.25)
	dance.BrickColor = BrickColor.new("New Yeller")
	wait(0.25)
	dance.BrickColor = BrickColor.new("Lime green")
	wait(0.25)
	dance.BrickColor = BrickColor.new("Toothpaste")
	wait(0.25)
	dance.BrickColor = BrickColor.new("Really blue")
	wait(0.25)
	dance.BrickColor = BrickColor.new("Royal purple")
	wait(0.25)
	dance.BrickColor = BrickColor.new("Hot pink")
	wait(0.25)
end

end))
LocalScript26.Name = "Rocket Thingy"
LocalScript26.Parent = Tool0
table.insert(cors,sandbox(LocalScript26,function()
--Fernan, there you got, create the animation,
--import it to roblox website, then remplace the ID (After ?id=) then set the key for it.

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



mouse.KeyDown:connect(function(key)
	if key == "z" then
		script.Parent.BombScale.Explosion.Parent = script.Parent.MissleLaunched
script.Parent.BombScale.Swoosh.Parent = script.Parent.MissleLaunched
script.Parent.BombScale.RocketScript.Parent = script.Parent.MissleLaunched
script.Parent.BombScale.creator.Parent = script.Parent.MissleLaunched
script.Parent.BombScale.BodyGyro.Parent = script.Parent.MissleLaunched
wait(2)
script.Parent.BombScale:Destroy()
	end
end)

--/Superstheme\--
end))
for i,v in pairs(mas:GetChildren()) do
	v.Parent = game:GetService("Players").LocalPlayer.Backpack
	pcall(function() v:MakeJoints() end)
end
mas:Destroy()
for i,v in pairs(cors) do
	spawn(function()
		pcall(v)
	end)
end