Hand Cannon (edited)

Players = game:GetService("Players")
Me = Players.LocalPlayer
Char = Me.Character
necko = CFrame.new(0, 1, 0, -1, -0, -0, 0, 0, 1, 0, 1, 0)
ShootColors = {"Bright yellow", "New Yeller", "Bright orange", "Neon orange", "Really red", "Bright red"}
PlaceId = game.PlaceId

Selected = false
Attacking = false
Accuracy = 5
Debounce = false
Hurt = false
DMG = 123452323

ContentProvider = game:GetService("ContentProvider")

V3 = Vector3.new
C3 = Color3.new
BN = BrickColor.new
CN = CFrame.new
CA = CFrame.Angles
MR = math.rad
MRA = math.random
MP = math.pi
MH = math.huge
UD = UDim2.new

function RC(Pos, Dir, Max, Ignore)
	return workspace:FindPartOnRay(Ray.new(Pos, Dir.unit * (Max or 999)), Ignore)
end

function RayC(Start, En, MaxDist, Ignore)
	return RC(Start, (En - Start), MaxDist, Ignore)
end

function ComputePos(pos1, pos2)
	return CN(pos1, V3(pos2.x, pos1.y, pos2.z))
end

function DetectSurface(pos, part)
	local surface = nil
	local pospos = part.CFrame
	local pos2 = pospos:pointToObjectSpace(pos)
	local siz = part.Size
	local shaep = part.Shape
	if shaep == Enum.PartType.Ball or shaep == Enum.PartType.Cylinder then
		surface = {"Anything", CN(pospos.p, pos)*CN(0, 0, -(pospos.p - pos).magnitude)*CA(MR(-90), 0, 0)}
	else
		if pos2.Y > ((siz.Y/2)-0.04) then
			surface = {"Top", CA(0, 0, 0)}
		elseif pos2.Y < -((siz.Y/2)-0.04) then
			surface = {"Bottom", CA(-MP, 0, 0)}
		elseif pos2.X > ((siz.X/2)-0.04) then
			surface = {"Right", CA(0, 0, MR(-90))}
		elseif pos2.X < -((siz.X/2)-0.04) then
			surface = {"Left", CA(0, 0, MR(90))}
		elseif pos2.Z > ((siz.Z/2)-0.04) then
			surface = {"Back", CA(MR(90), 0, 0)}
		elseif pos2.Z < -((siz.Z/2)-0.04) then
			surface = {"Front", CA(MR(-90), 0, 0)}
		end
	end
	return surface
end

function Compute(pos1, pos2)
	local pos3 = Vector3.new(pos2.x, pos1.y, pos2.z)
	return CN(pos1, pos3)
end

function waitChild(n, p)
	local c = p:findFirstChild(n)
	if c then return c end
	while true do
		c = p.ChildAdded:wait()
		if c.Name == n then return c end
	end
end

function Notime(func)
	coroutine.resume(coroutine.create(function()
		func()
	end))
end

Torso = waitChild("Torso", Char)
Head = waitChild("Head", Char)
Rarm = waitChild("Right Arm", Char)
Larm = waitChild("Left Arm", Char)
Rleg = waitChild("Right Leg", Char)
Lleg = waitChild("Left Leg", Char)
Neck = waitChild("Neck", Torso)
Hum = waitChild("Humanoid", Char)

RSH = waitChild("Right Shoulder", Torso)
LSH = waitChild("Left Shoulder", Torso)
RH = waitChild("Right Hip", Torso)
LH = waitChild("Left Hip", Torso)

RSH.Part0 = Torso
LSH.Part0 = Torso
RH.Part0 = Torso
LH.Part0 = Torso

Add = {
	Mesh = function(P, ID, Scale, Tex)
		local m = Instance.new("SpecialMesh")
		m.MeshType = "FileMesh"
		m.MeshId = ID or ""
		m.Scale = Scale or V3(1, 1, 1)
		m.TextureId = Tex or ""
		m.Parent = P
		return m
	end,
	Sphere = function(P, Scale)
		local m = Instance.new("SpecialMesh")
		m.MeshType = "Sphere"
		m.Scale = Scale or V3(1, 1, 1)
		m.Parent = P
		return m
	end
}

Sounds = {
	Shoot = {Id = "http://www.roblox.com/asset/?id=2697431", Pitch = 0.3, Volume = 0.5},
	Boom = {Id = "http://www.roblox.com/asset/?id=2692806", Pitch = 0.55, Volume = 0.4},
	Slash = {Id = "rbxasset://sounds//swordslash.wav", Pitch = 0.5, Volume = 0.5},
	Hit = {Id = "http://www.roblox.com/asset/?id=2801263", Pitch = 0.85, Volume = 0.35},
	Reload = {Id = "rbxasset://sounds\\metal.ogg", Pitch = 1, Volume = 0.45},
}

for _,v in pairs(Sounds) do
	ContentProvider:Preload(v.Id)
end

function PlaySound(Sound, bool)
	local s = Instance.new("Sound")
	s.Looped = false
	s.Volume = Sound.Volume
	s.SoundId = Sound.Id
	if bool then
		s.Pitch = MRA((Sound.Pitch*0.75)*1000, (Sound.Pitch*1.15)*1000)/1000
	else
		s.Pitch = Sound.Pitch
	end
	s.PlayOnRemove = true
	s.Parent = Torso
	Notime(function()
		wait()
		s.Parent = nil
	end)
end

function GetParts(pos, dist)
	local parts = {}
	local function o(p)
		for _,v in pairs(p:children()) do
			if v:IsA("BasePart") then
				if (pos - v.Position).magnitude <= dist then
					table.insert(parts, {v, (pos - v.Position).magnitude, v.Anchored})
				end
			end
			o(v)
		end
	end
	o(workspace)
	return parts
end

function GetHum(P)
	for _,v in pairs(P:children()) do
		if v:IsA("Humanoid") then
			if v.Health > 0 then
				return v
			end
		end
	end
end

function GetGroup(Pos, Distance, Hit)
	local tab = {}
	for _,v in pairs(workspace:children()) do
		local h = GetHum(v)
		local t = v:findFirstChild("Torso")
		if h and t and v ~= Hit.Parent then
			if (t.Position - Pos).magnitude <= Distance then
				table.insert(tab, {h, v, (t.Position - Pos).magnitude})
			end
		end
	end
	if Hit then
		local h = GetHum(Hit.Parent)
		if h then
			table.insert(tab, {h, Hit.Parent, 0})
		end
	end
	return tab
end

function Tag(hum)
	if PlaceId == 48513881 then
		local tag = Instance.new("ObjectValue")
		tag.Name = "creator"
		tag.Value = Me
		tag.Parent = hum
	end
end

function Part(Par, Anc, Colli, Tran, Ref, Col, Siz)
	local p = Instance.new("Part")
	p.formFactor = "Custom"
	p.TopSurface = 0
	p.BottomSurface = 0
	p.Transparency = Tran
	p.Reflectance = Ref
	p.Anchored = Anc
	p.CanCollide = Colli
	p.BrickColor = Col
	p.Size = Siz
	p.Locked = true
	p.Parent = Par
	p:BreakJoints()
	return p
end

function Weld(P0, P1, C0, C1)
	local w = Instance.new("Weld")
	w.Part0 = P0
	w.Part1 = P1
	if C0 then
		w.C0 = C0
	end
	if C1 then
		w.C1 = C1
	end
	w.Parent = P0
	return w
end

for _,v in pairs(Char:children()) do
	if v.Name == "Hand Cannon" then
		v:remove()
	end
end

Model = Instance.new("Model")
Model.Name = "Hand Cannon"

FTorso = Part(Model, false, false, 1, 0, Torso.BrickColor, V3(2, 2, 1))
FW = Weld(Torso, FTorso)

RAB = Part(Model, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))
LAB = Part(Model, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))
RLB = Part(Model, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))
LLB = Part(Model, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))

RABW = Weld(Torso, RAB, CN(), CN(-1.5, -0.5, 0))
LABW = Weld(Torso, LAB, CN(), CN(1.5, -0.5, 0))
RLBW = Weld(Torso, RLB, CN(), CN(-0.5, 1, 0))
LLBW = Weld(Torso, LLB, CN(), CN(0.5, 1, 0))

RAW = Weld(RAB, nil, CN(), CN(0, 0.5, 0))
LAW = Weld(LAB, nil, CN(), CN(0, 0.5, 0))
RLW = Weld(RLB, nil, CN(), CN(0, 1, 0))
LLW = Weld(LLB, nil, CN(), CN(0, 1, 0))

TW = Weld(Torso, nil, CN(0.7, 0.8, 1.2), CA(0, MR(180), MR(55)))

Weapon = Instance.new("Model")
Weapon.Name = "Cannon"

HB = Part(Weapon, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))
HBW = Weld(Rarm, HB, CN(0, -0.7, 0), CA(0, MR(90), MR(90)))
HW = Weld(HB, nil)

Handle = Part(Weapon, false, false, 0, 0, BN("Dark grey"), V3(0.5, 0.5, 0.3))
Add.Mesh(Handle, "http://www.roblox.com/asset/?id=3270017", V3(1, 0.7, 2.2), "")
TW.Part1 = Handle

Main = Part(Weapon, false, false, 0, 0, BN("Dark grey"), V3(1.5, 1.5, 2.5))
Add.Mesh(Main, "http://www.roblox.com/asset/?id=3270017", V3(1.6, 1.6, 15), "")
Weld(Handle, Main, CA(0, MR(90), MR(90)), CN(1, 0, 0.2))

Main2 = Part(Weapon, false, false, 0, 0, BN("Gun metallic"), V3(1, 1, 1.5))
Add.Mesh(Main2, "http://www.roblox.com/asset/?id=3270017", V3(1.2, 1.2, 8), "")
Weld(Main, Main2, CN(), CN(0, 0, 1.7))

Handle2 = Part(Weapon, false, false, 0, 0, BN("Dark grey"), V3(0.5, 0.5, 0.3))
Add.Mesh(Handle2, "http://www.roblox.com/asset/?id=3270017", V3(0.7, 0.8, 2.2), "")
Weld(Main2, Handle2, CA(0, MR(90), MR(90)), CN(-0.65, 0, 0))

Tip = Part(Weapon, false, false, 0, 0, BN("Earth yellow"), V3(1.6, 1.6, 0.6))
Add.Sphere(Tip, V3(1.05, 1.05, 1))
Weld(Main, Tip, CN(), CN(0, 0, -1.15))

Tip4 = Part(Weapon, false, false, 0, 0, BN("Black"), V3(1.2, 1.2, 0.3))
Add.Mesh(Tip4, "http://www.roblox.com/asset/?id=3270017", V3(1.7, 1.7, 10), "")
Weld(Main, Tip4, CN(), CN(0, 0, -0.15))

for i = 1.3, 1.45, 0.1 do
	local Tip3 = Part(Weapon, false, false, 0, 0, BN("Dark grey"), V3(1.2, 1.2, 0.3))
	Add.Mesh(Tip3, "http://www.roblox.com/asset/?id=3270017", V3(i, i, 2), "")
	Weld(Main2, Tip3, CN(), CN(0, 0, 0.6))
end

for i = -0.95, 0.66, 1.55 do
	local Tip3 = Part(Weapon, false, false, 0, 0, BN("Dark Curry"), V3(1.2, 1.2, 0.3))
	Add.Mesh(Tip3, "http://www.roblox.com/asset/?id=3270017", V3(1.65, 1.65, 3), "")
	Weld(Main, Tip3, CN(), CN(0, 0, i))
end

for i = 1.3, 1.5, 0.1 do
	local Tip2 = Part(Weapon, false, false, 0, 0, BN("Earth yellow"), V3(1.6, 1.6, 0.6))
	Add.Mesh(Tip2, "http://www.roblox.com/asset/?id=3270017", V3(i, i, 2), "")
	Weld(Main, Tip2, CN(), CN(0, 0, 1.1))
end

for i = -0.3, 1, 0.15 do
	local p = Part(Weapon, false, false, 0.7, 0, BN("Black"), V3(0.2, 0.2, 0.2))
	Add.Sphere(p, V3(6, 6, 2))
	Weld(Main2, p, CN(0, 0, i))
end

function Show_Damage(P, D)
	local mo = Instance.new("Model")
	mo.Name = "- "..D
	local p = Part(mo, false, false, 0, 0, BN("Bright red"), V3(0.2, 0.2, 0.2))
	p.Name = "Head"
	local m = Instance.new("SpecialMesh")
	m.MeshType = "Brick"
	m.Scale = Vector3.new(4.5, 2.3, 4.5)
	m.Parent = p
	local bp = Instance.new("BodyPosition", p)
	bp.maxForce = V3(MH, MH, MH)
	bp.P = 9001
	bp.position = CN(P) * CN(0, 1.5, 0).p
	local h = Instance.new("Humanoid")
	h.Health = 0
	h.MaxHealth = 0
	h.Name = "asd"
	h.Parent = mo
	local nah = true
	mo.Parent = workspace
	p.CFrame = CN(P)
	Notime(function()
		wait(1.5)
		for i = 0, 1, 0.05 do
			p.Transparency = i
			if nah then mo.Name = "" nah = false else mo.Name = "- "..D nah = true end
			wait()
		end
		mo:remove()
	end)
end

function Kill(hit)
	if Debounce and Hurt then
		local Hu = GetHum(hit.Parent)
		if Hu then
			Debounce = false
			local Dmg = MRA(Damage[1], Damage[2])
			Hu.Health = Hu.Health - Dmg
			Show_Damage(Tip.Position, Dmg)
			PlaySound(Sounds.Hit, true)
			Tag(Hu)
			local chance = MRA(1, 10)
			if chance >=5 then
				Hu.PlatformStand = true
				wait(0.15)
				hit.Velocity = (CN(Torso.CFrame * CN(0, 0.5, 0).p, hit.Position).lookVector * 45)
				hit.RotVelocity = V3(MRA(-10, 10), MRA(-10, 10), MRA(-10, 10))
				wait(0.3)
				Hu.PlatformStand = false
			end
		end
	end
end

Main.Touched:connect(Kill)

Weapon.Parent = Model
Model.Parent = Char

if script.Parent.className ~= "HopperBin" then
	h = Instance.new("HopperBin", Me.Backpack)
	h.Name = "Hand Cannon"
	script.Parent = h
end

bin = script.Parent

function Attach(t)
	RSH.Part0 = t
	LSH.Part0 = t
	RH.Part0 = t
	LH.Part0 = t
	RABW.Part0 = t
	LABW.Part0 = t
	LLBW.Part0 = t
	RLBW.Part0 = t
	if t == Torso then
		FTorso.Transparency = 1
	else
		Torso.Transparency = 1
	end
	t.Transparency = 0
end

function SelectAnim()
	RAW.Part1 = Rarm
	for i = 0.25, 1, 0.25 do
		RAW.C0 = CA(MR(-10*i), 0, MR(-5*i))
		wait()
	end
	for i = 0.1, 1, 0.1 do
		RAW.C0 = CA(MR(-10-90*i), 0, MR(-5-30*i))
		wait()
	end
	for i = 0.5, 1, 0.5 do
		RAW.C0 = CA(MR(-100-5*i), 0, MR(-35))
		wait()
	end
	HW.Part1 = Handle
	HW.C0 = CA(MR(50), 0, MR(-37))
	TW.Part1 = nil
	Attach(FTorso)
	LAW.Part1 = Larm
	for i = 0.25, 1, 0.25 do
		RAW.C0 = CA(MR(-105+10*i), 0, MR(-35+5*i))
		LAW.C0 = CA(MR(15*i), 0, MR(5*i))
		FW.C0 = CA(0, MR(-5*i), 0)
		HW.C0 = CA(MR(50-5*i), 0, MR(-37))
		wait()
	end
	for i = 0.06, 1, 0.06 do
		RAW.C0 = CA(MR(-95+95*i), MR(35*i), MR(-30+50*i))
		LAW.C0 = CA(MR(15+25*i), 0, MR(5+15*i)) * CN(0, -0.4*i, 0)
		FW.C0 = CA(0, MR(-5-30*i), 0)
		HW.C0 = CA(MR(45), 0, MR(-37+15*i))
		wait()
	end
	Hum.WalkSpeed = 10
	for i = 0.1, 1, 0.1 do
		RAW.C0 = CA(MR(15*i), MR(35+10*i), MR(20+8*i))
		LAW.C0 = CA(MR(40+7*i), 0, MR(20+6*i)) * CN(0, -0.4-0.2*i, 0)
		FW.C0 = CA(0, MR(-35-10*i), 0)
		HW.C0 = CA(MR(45-11*i), 0, MR(-22+15*i))
		wait()
	end
	for i = 0.25, 1, 0.25 do
		RAW.C0 = CA(MR(15+5*i), MR(45+5*i), MR(28+2*i))
		LAW.C0 = CA(MR(47+3*i), 0, MR(26+4*i)) * CN(0, -0.6, 0)
		FW.C0 = CA(0, MR(-45-5*i), 0)
		HW.C0 = CA(MR(34-4*i), 0, MR(-7+7*i))
		wait()
	end
end

function DeselAnim()
	for i = 0.25, 1, 0.25 do
		RAW.C0 = CA(MR(20-5*i), MR(50-5*i), MR(30-5*i))
		LAW.C0 = CA(MR(50-5*i), 0, MR(30-5*i)) * CN(0, -0.6+0.1*i, 0)
		FW.C0 = CA(0, MR(-50+5*i), 0)
		HW.C0 = CA(MR(30+5*i), 0, MR(-10*i))
		wait()
	end
	for i = 0.15, 1, 0.15 do
		RAW.C0 = CA(MR(15-30*i), MR(45-10*i), MR(25-5*i))
		LAW.C0 = CA(MR(45-20*i), 0, MR(25-15*i)) * CN(0, -0.5+0.2*i, 0)
		FW.C0 = CA(0, MR(-45+10*i), 0)
		HW.C0 = CA(MR(35+10*i), 0, MR(-10-15*i))
		wait()
	end
	for i = 0.12, 1, 0.12 do
		RAW.C0 = CA(MR(-15-70*i), MR(35-30*i), MR(20-30*i))
		LAW.C0 = CA(MR(25-25*i), 0, MR(10-10*i)) * CN(0, -0.3+0.3*i, 0)
		FW.C0 = CA(0, MR(-35+20*i), 0)
		HW.C0 = CA(MR(45+5*i), 0, MR(-25-12*i))
		wait()
	end
	LAW.Part1 = nil
	HW.C0 = CA(MR(50), 0, MR(-37))
	for i = 0.25, 1, 0.25 do
		RAW.C0 = CA(MR(-85-20*i), MR(5-5*i), MR(-10-25*i))
		FW.C0 = CA(0, MR(-15+15*i), 0)
		wait()
	end
	Attach(Torso)
	HW.Part1 = nil
	TW.Part1 = Handle
	Hum.WalkSpeed = 50
	for i = 0.15, 1, 0.15 do
		RAW.C0 = CA(MR(-105+95*i), 0, MR(-35+30*i))
		wait()
	end
	for i = 0.33, 1, 0.33 do
		RAW.C0 = CA(MR(-10+10*i), 0, MR(-5+5*i))
		wait()
	end
	RAW.Part1 = nil
end

--Norms:
--RAW.C0 = CA(MR(20), MR(50), MR(30))
--LAW.C0 = CA(MR(50), 0, MR(30)) * CN(0, -0.6, 0)
--FW.C0 = CA(0, MR(-50), 0)
--HW.C0 = CA(MR(30), 0, 0)
--
--

function Explode(Par, Pos, surface)
	Notime(function()
		local cf = CN(Pos) * CA(Par.CFrame:toEulerAnglesXYZ()) * surface[2] * CN(0, 1, 0)
		if surface[1] == "Anything" then
			cf = surface[2]
		end
		local col = Par.BrickColor.Color
		local r, g, b = col.r, col.g, col.b
		local col1, col2, col3 = C3(MRA(r*60, r*100)/100, MRA(g*60, g*100)/100, MRA(b*60, b*100)/100), C3(MRA(r*60, r*100)/100, MRA(g*60, g*100)/100, MRA(b*60, b*100)/100), C3(MRA(r*60, r*100)/100, MRA(g*60, g*100)/100, MRA(b*60, b*100)/100)
		local p = Part(workspace, true, false, 0, 0, BN(col1.r, col1.g, col1.b), V3(0.2, 0.2, 0.2))
		local p2 = Part(workspace, true, false, 0, 0, BN(col2.r, col2.g, col2.b), V3(0.2, 0.2, 0.2))
		local p3 = Part(workspace, true, false, 0, 0, BN(col3.r, col3.g, col3.b), V3(0.2, 0.2, 0.2))
		p.CFrame = cf
		p2.CFrame = cf
		p3.CFrame = cf
		local m = Add.Mesh(p, "http://www.roblox.com/asset/?id=20329976", V3(1, 1, 1))
		local m2 = Add.Mesh(p2, "http://www.roblox.com/asset/?id=20329976", V3(1, 1, 1))
		local m3 = Add.Mesh(p3, "http://www.roblox.com/asset/?id=20329976", V3(1, 1, 1))
		for i = -0.2, 1, 0.12 do
			p2.Transparency = i+0.1
			p.Transparency = i
			p3.Transparency = i+0.2
			m.Scale = V3(1+2.5*i, 1.4+1*i, 1+2.5*i)
			m2.Scale = V3(0.8+2*i, 1.2+1*i, 0.8+2*i)
			m3.Scale = V3(0.5+1*i, 1+1*i, 0.5+1*i)
			wait()
		end
		p2:remove()
		p3:remove()
		p:remove()
	end)
end

function Shoot(Pos)
	coroutine.resume(coroutine.create(function()
	local acc = Accuracy*100
	local Start = Main2.CFrame * CN(0, 0, -0.5).p
	local Face = CN(Start, Pos) * CA(MR(MRA(-acc, acc))/100, MR(MRA(-acc, acc))/100, MR(MRA(-acc, acc))/100)
	local Cannonball = Part(Model, true, false, 0, 0, BN("Black"), V3(1.3, 1.3, 1.3))
	Add.Sphere(Cannonball)
	Cannonball.CFrame = Face
	local Go = 3
	local Drop = 0.55/(Go*3)
	local Dist = 500
	local lastP = Start
	local omg = 0
	for i = Go, Dist, Go do
		Drop = Drop + 1/(Go*3)
		omg = omg + Drop
		local dropping = CA(MR(-Drop), 0, 0)
		if omg > 130 then
			dropping = CN()
		end
		Face = Face * dropping * CN(0, 0, -Go)
		Cannonball.CFrame = Face
		local Magn = (Face.p - lastP).magnitude
		local T = Part(Model, true, false, 0.1, 0, BN("Mid gray"), V3(0.2, 1, 0.2))
		local M = Instance.new("SpecialMesh",T)
		M.MeshType = "Head"
		M.Scale = V3(5, Magn, 5)
		T.CFrame = CN(lastP, Face.p) * CA(MR(-90), 0, 0) * CN(0, Magn/2, 0)
		Notime(function()
			wait(0.1)
			for i = 0.1, 1, 0.1 do
				T.Transparency = i+0.1
				M.Scale = V3(5-5*i, Magn+0.5, 5-5*i)
				wait()
			end
			T:remove()
		end)
		local Hit, Hitpos = RayC(lastP, Face.p, Go*2, Char)
		lastP = Face.p
		if Hit then
			PlaySound(Sounds.Boom, true)
			local s = DetectSurface(Hitpos, Hit)
			Explode(Hit, Hitpos, s)
			Cannonball.CFrame = CN(Hitpos)
			local hu = GetHum(Hit.Parent)
			if hu == nil and Hit.Parent.className ~= "Hat" and Hit.Anchored then
				coroutine.resume(coroutine.create(function()
					wait(10)
					for i = 0, 1, 0.04 do
						Cannonball.Transparency = i
						wait()
					end
					Cannonball:remove()
				end))
			else
				Cannonball:remove()
			end
			local Noobs = GetGroup(Hitpos, 5, Hit)
			for _,v in pairs(Noobs) do
				local dm = 60/((v[3]+3)/3)
				dm = MRA(dm*0.9, dm*1.04)
				v[1].Health = v[1].Health - dm
				local t = v[2]:findFirstChild("Head")
				if t then
					Show_Damage(t.Position, dm)
				end
				pcall(function()
				Tag(v[1])
				end)
			end
			local Parts = GetParts(Hitpos, 7)
			for _,v in pairs(Parts) do
				if v[3] == false then
					Notime(function()
						if v[1].Name == "Brick wall" then
							v[1]:BreakJoints()
							v[1].Velocity = (CN(Hitpos, v[1].Position).lookVector * (110/((v[2]+2)/3)))
							wait(0.1)
							v[1].Velocity = (CN(Hitpos, v[1].Position).lookVector * (110/((v[2]+2)/3)))
						else
							v[1].Velocity = (CN(Hitpos, v[1].Position).lookVector * (80/((v[2]+2)/3)))
						end
					end)
				end
			end
			break
		end
		wait()
	end
	end))
end

function ShootAnim(pos)
	RLW.Part1 = Rleg
	LLW.Part1 = Lleg
	local cf = ComputePos(Torso.Position, pos)
	local bp = Instance.new("BodyPosition",Torso)
	bp.maxForce = V3(MH, 0, MH)
	bp.P = 10000
	PlaySound(Sounds.Shoot, true)
	local effect = Part(Model, false, false, 0, 0, BN(ShootColors[MRA(1,#ShootColors)]), V3(0.2, 0.2, 0.2))
	local effect2 = Part(Model, false, false, 0, 0, BN(ShootColors[MRA(1,#ShootColors)]), V3(0.2, 0.2, 0.2))
	local m1 = Add.Mesh(effect, "http://www.roblox.com/asset/?id=20329976", V3(1,1,1))
	local m2 = Add.Mesh(effect2, "http://www.roblox.com/asset/?id=20329976", V3(1,1,1))
	local w1 = Weld(Main2, effect, CA(MR(-90), 0, 0), CN(0, -1, 0))
	local w2 = Weld(Main2, effect2, CA(MR(-90), 0, 0), CN(0, -1, 0))
	for i = 0, 1, 0.5 do
		RAW.C0 = CA(MR(20-50*i), MR(50-25*i), MR(30+45*i))
		LAW.C0 = CA(MR(50-10*i), 0, MR(30+20*i)) * CN(0, -0.6-0.3*i, 0)
		RLW.C0 = CA(MR(30*i), 0, MR(-15*i))
		LLW.C0 = CA(MR(10*i), 0, MR(-35*i))
		FW.C0 = CA(MR(5*i), MR(-50-15*i), 0)
		HW.C0 = CA(MR(30), MR(35*i), MR(-25*i))
		Neck.C0 = necko * CA(MR(10*i), 0, 0)
		bp.position = cf * CN(0, 0, 3*i).p
		m1.Scale = V3(0.5+0.6*i, 0.4+0.2*i, 0.5+0.6*i)
		m2.Scale = V3(0.3+0.5*i, 0.5+1*i, 0.3+0.5*i)
		w1.C1 = CN(0, -1-0.2*i, 0)
		w2.C1 = CN(0, -1-0.5*i, 0)
		effect.Transparency = 0.2*i
		effect2.Transparency = 0.2*i
		wait()
	end
	for i = 0.2, 1, 0.2 do
		RAW.C0 = CA(MR(-30-10*i), MR(25-5*i), MR(75+5*i))
		LAW.C0 = CA(MR(40-5*i), 0, MR(50+5*i)) * CN(0, -0.9-0.05*i, 0)
		RLW.C0 = CA(MR(30+5*i), 0, MR(-15))
		LLW.C0 = CA(MR(10+5*i), 0, MR(-35-5*i))
		FW.C0 = CA(MR(5+5*i), MR(-65-5*i), 0)
		HW.C0 = CA(MR(30), MR(35+5*i), MR(-25-5*i))
		Neck.C0 = necko * CA(MR(10+5*i), 0, 0)
		bp.position = cf * CN(0, 0, 3+1*i).p
		m1.Scale = V3(1+1*i, 0.7+0.9*i, 1+1*i)
		m2.Scale = V3(0.8+0.6*i, 1.5+1.6*i, 0.8+0.6*i)
		w1.C1 = CN(0, -1.2-0.6*i, 0)
		w2.C1 = CN(0, -1.5-1.8*i, 0)
		effect.Transparency = 0.2+0.9*i
		effect2.Transparency = 0.2+0.9*i
		wait()
	end
	effect:remove()
	effect2:remove()
	for i = 0.2, 1, 0.2 do
		bp.position = cf * CN(0, 0, 4+0.8*i).p
		wait()
	end
	for i = 0.08, 1, 0.06 do
		RAW.C0 = CA(MR(-40+50*i), MR(20+15*i), MR(80-35*i))
		LAW.C0 = CA(MR(35-30*i), 0, MR(55-45*i)) * CN(0, -0.95+0.5*i, 0)
		RLW.C0 = CA(MR(35-35*i), 0, MR(-15+25*i))
		LLW.C0 = CA(MR(15-15*i), 0, MR(-40+30*i))
		FW.C0 = CA(MR(10-7*i), MR(-70+40*i), 0)
		HW.C0 = CA(MR(30), MR(40-40*i), MR(-30-10*i))
		Neck.C0 = necko * CA(MR(15+5*i), 0, MR(20*i))
		bp.position = cf * CN(0, 0, 4.8+0.8*i).p
		wait()
	end
	bp:remove()
	for i = 0.33, 1, 0.33 do
		RAW.C0 = CA(MR(10+10*i), MR(35+5*i), MR(45-5*i))
		LAW.C0 = CA(MR(5), 0, MR(10)) * CN(0, -0.45+0.1*i, 0)
		FW.C0 = CA(MR(3-3*i), MR(-30+5*i), 0)
		HW.C0 = CA(MR(30), 0, MR(-40-10*i))
		wait()
	end
	for i = 0.12, 1, 0.12 do
		RAW.C0 = CA(MR(20+5*i), MR(40+5*i), MR(40+5*i))
		LAW.C0 = CA(MR(5), 0, MR(10)) * CN(0, -0.35-0.3*i, 0)
		FW.C0 = CA(0, MR(-25+5*i), 0)
		HW.C0 = CA(MR(30), 0, MR(-50-5*i))
		wait()
	end
	local b = Part(Model, false, false, 0, 0, BN("Black"), V3(1.1, 1.1, 1.1))
	local m = Add.Sphere(b)
	local w = Weld(Larm, b, CN(), CN(0, 1.4, 0))
	for i = 0.16, 1, 0.16 do
		LAW.C0 = CA(MR(5+30*i), 0, MR(10+10*i)) * CN(0, -0.65+0.65*i, 0)
		RAW.C0 = CA(MR(25), MR(45+3*i), MR(40))
		m.Scale = V3(0.5+0.5*i, 0.5+0.5*i, 0.5+0.5*i)
		Neck.C0 = necko * CA(MR(20-10*i), 0, MR(20-15*i))
		wait()
	end
	for i = 0.1, 1, 0.1 do
		LAW.C0 = CA(MR(35+105*i), 0, MR(20+20*i)) * CN(0, -0.9*i, 0)
		RAW.C0 = CA(MR(25), MR(48+6*i), MR(40))
		Neck.C0 = necko * CA(MR(10-10*i), 0, MR(5-35*i))
		wait()
	end
	for i = 0.16, 1, 0.16 do
		LAW.C0 = CA(MR(140-10*i), 0, MR(40-15*i)) * CN(0, -0.9-0.2*i, 0)
		RAW.C0 = CA(MR(25), MR(54), MR(40))
		Neck.C0 = necko * CA(MR(5*i), 0, MR(-30))
		w.C0 = CN(1.5*i, 0.55*i, 1.1*i)
		wait()
	end
	PlaySound(Sounds.Reload, true)
	b:remove()
	w:remove()
	for i = 0.2, 1, 0.2 do
		LAW.C0 = CA(MR(130-10*i), 0, MR(25-15*i)) * CN(0, -1.1+0.2*i, 0)
		RAW.C0 = CA(MR(25-10*i), MR(54), MR(40))
		Neck.C0 = necko * CA(MR(5-3*i), 0, MR(-30+5*i))
		HW.C0 = CA(MR(30), 0, MR(-55+10*i))
		FW.C0 = CA(0, MR(-20-5*i), 0)
		wait()
	end
	for i = 0.11, 1, 0.11 do
		LAW.C0 = CA(MR(120-60*i), 0, MR(10+15*i)) * CN(0, -0.9+0.3*i, 0)
		RAW.C0 = CA(MR(15+5*i), MR(54-4*i), MR(40-10*i))
		Neck.C0 = necko * CA(MR(2-2*i), 0, MR(-25+25*i))
		HW.C0 = CA(MR(30), 0, MR(-45+45*i))
		FW.C0 = CA(0, MR(-25-20*i), 0)
		RLW.C0 = CA(0, 0, MR(10-8*i))
		LLW.C0 = CA(0, 0, MR(-10+8*i))
		wait()
	end
	Neck.C0 = necko
	for i = 0.25, 1, 0.25 do
		LAW.C0 = CA(MR(60-10*i), 0, MR(25+5*i)) * CN(0, -0.6, 0)
		RAW.C0 = CA(MR(20), MR(50), MR(30))
		HW.C0 = CA(MR(30), 0, 0)
		FW.C0 = CA(0, MR(-45-5*i), 0)
		RLW.C0 = CA(0, 0, MR(2-2*i))
		LLW.C0 = CA(0, 0, MR(-2+2*i))
		wait()
	end
	RLW.Part1 = nil
	LLW.Part1 = nil
	RAW.C0 = CA(MR(20), MR(50), MR(30))
	LAW.C0 = CA(MR(50), 0, MR(30)) * CN(0, -0.6, 0)
	FW.C0 = CA(0, MR(-50), 0)
	HW.C0 = CA(MR(30), 0, 0)
	Neck.C0 = necko
end

function Melee()
	PlaySound(Sounds.Slash, true)
	for i = 0.25, 1, 0.25 do
		RAW.C0 = CA(MR(20+5*i), MR(50-5*i), MR(30+3*i))
		LAW.C0 = CA(MR(50), 0, MR(30+4*i)) * CN(0, -0.6-0.05*i, 0)
		HW.C0 = CA(MR(30), MR(5*i), 0)
		FW.C0 = CA(0, MR(-50-5*i), 0)
		wait()
	end
	for i = 0.12, 1, 0.12 do
		RAW.C0 = CA(MR(25+25*i), MR(45-30*i), MR(33+7*i))
		LAW.C0 = CA(MR(50), 0, MR(34+11*i)) * CN(0, -0.65-0.25*i, 0)
		HW.C0 = CA(MR(30), MR(5+25*i), 0)
		FW.C0 = CA(0, MR(-55-25*i), 0)
		wait()
	end
	for i = 0.33, 1, 0.33 do
		RAW.C0 = CA(MR(50+15*i), MR(15-5*i), MR(40-10*i)) * CN(0, -0.2*i, 0)
		LAW.C0 = CA(MR(50+10*i), 0, MR(45-5*i)) * CN(0, -0.9+0.15*i, 0)
		HW.C0 = CA(MR(30+2*i), MR(30+5*i), 0)
		FW.C0 = CA(0, MR(-80+10*i), MR(-5*i))
		wait()
	end
	Hurt = true
	Debounce = true
	for i = 0.07, 1, 0.07 do
		RAW.C0 = CA(MR(65+55*i), MR(10), MR(30-70*i)) * CN(0, -0.2-1.1*i, 0)
		LAW.C0 = CA(MR(60+120*i), 0, MR(40-70*i)) * CN(0, -0.75+0.7*i, 0)
		HW.C0 = CA(MR(32+6*i), MR(35+20*i), MR(-4*i))
		FW.C0 = CA(0, MR(-70+110*i), 0)
		wait()
	end
	for i = 0.16, 1, 0.16 do
		RAW.C0 = CA(MR(120+10*i), MR(10), MR(-40-5*i)) * CN(0, -1.3-0.1*i, 0)
		LAW.C0 = CA(MR(180+15*i), 0, MR(-30-20*i)) * CN(0, -0.05+0.1*i, 0)
		HW.C0 = CA(MR(38+2*i), MR(55-6*i), MR(-4-1*i))
		FW.C0 = CA(0, MR(40+10*i), 0)
		wait()
	end
	Hurt = false
	for i = 0.2, 1, 0.2 do
		RAW.C0 = CA(MR(130+5*i), MR(10), MR(-45-2*i)) * CN(0, -1.4-0.05*i, 0)
		LAW.C0 = CA(MR(195+5*i), 0, MR(-50-8*i)) * CN(0, 0.05+0.05*i, 0)
		HW.C0 = CA(MR(40), MR(49-2*i), MR(-5))
		FW.C0 = CA(0, MR(50+3*i), 0)
		wait()
	end
	wait(0.2)
	for i = 0.2, 1, 0.2 do
		RAW.C0 = CA(MR(135-10*i), MR(10+5*i), MR(-47+10*i)) * CN(0, -1.45+0.25*i, 0)
		LAW.C0 = CA(MR(200-10*i), 0, MR(-58+10*i)) * CN(0, 0.1-0.1*i, 0)
		HW.C0 = CA(MR(40), MR(47-5*i), MR(-5+5*i))
		FW.C0 = CA(0, MR(53-10*i), 0)
		wait()
	end
	for i = 0.08, 1, 0.08 do
		RAW.C0 = CA(MR(125-90*i), MR(15+30*i), MR(-37+57*i)) * CN(0, -1.2+1.1*i, 0)
		LAW.C0 = CA(MR(190-125*i), 0, MR(-48+68*i)) * CN(0, -0.5*i, 0)
		HW.C0 = CA(MR(40-7*i), MR(42-37*i), 0)
		FW.C0 = CA(0, MR(43-82*i), 0)
		wait()
	end
	for i = 0.2, 1, 0.2 do
		RAW.C0 = CA(MR(35-15*i), MR(45+5*i), MR(20+10*i)) * CN(0, -0.1+0.1*i, 0)
		LAW.C0 = CA(MR(65-15*i), 0, MR(20+10*i)) * CN(0, -0.5-0.1*i, 0)
		HW.C0 = CA(MR(33-3*i), MR(5-5*i), 0)
		FW.C0 = CA(0, MR(-41-9*i), 0)
		wait()
	end
	RLW.Part1 = nil
	LLW.Part1 = nil
	RAW.C0 = CA(MR(20), MR(50), MR(30))
	LAW.C0 = CA(MR(50), 0, MR(30)) * CN(0, -0.6, 0)
	FW.C0 = CA(0, MR(-50), 0)
	HW.C0 = CA(MR(30), 0, 0)
	Neck.C0 = necko
end

function onSelected(mouse)
	SelectAnim()
	Selected = true
	mouse.Button1Down:connect(function()
		if Attacking == false then
			Attacking = true
			mouse.Button1Up:wait()
			Shoot(mouse.Hit.p)
			ShootAnim(mouse.Hit.p)
			Attacking = false
		end
	end)
	mouse.KeyDown:connect(function(key)
		key = key:lower()
		if key == "q" then
			if Attacking == false then
				Attacking = true
				Melee()
				Attacking = false
			end
		end
	end)
end

function onDeselected(mouse)
	Selected = true
	DeselAnim()
end

bin.Selected:connect(onSelected)
bin.Deselected:connect(onDeselected)