Long Gun

-- Created by 129K

local animations = {
	requip = {
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(90), 0, math.rad(-10)) * CFrame.new(1.5, -.5, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(180), 0, math.rad(-15)) * CFrame.new(1.5, -.5, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(210), 0, math.rad(-40)) * CFrame.new(1.5, -.5, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(180), 0, math.rad(-10)) * CFrame.new(1.5, -.5, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(90), 0, 0) * CFrame.new(1.5, -.5, 0);
	};
	lequip = {
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(90), 0, math.rad(60)) * CFrame.new(-1, -.75, 0);
	};
	runequip = {
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(90), 0, math.rad(-10)) * CFrame.new(1.5, -.5, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(180), 0, math.rad(-15)) * CFrame.new(1.5, -.5, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(210), 0, math.rad(-40)) * CFrame.new(1.5, -.5, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(180), 0, math.rad(-10)) * CFrame.new(1.5, -.5, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(90), 0, 0) * CFrame.new(1.5, -.5, 0);
		CFrame.new(1.5, 0, 0);
	};
	rshoot = {
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(170), 0, 0) * CFrame.new(1.5, -.5, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(90), 0, 0) * CFrame.new(1.5, -.5, 0);
	};
	lshoot = {
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(170), 0, math.rad(60)) * CFrame.new(-1, -.75, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(90), 0, math.rad(60)) * CFrame.new(-1, -.75, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(90), 0, math.rad(80)) * CFrame.new(-.5, -.35, 0);
		CFrame.new(0, .5, 0) * CFrame.Angles(math.rad(90), 0, math.rad(60)) * CFrame.new(-1, -.75, 0);
	};
}
local player = game:GetService("Players").LocalPlayer
local pmouse = player:GetMouse()
local char = player.Character
local bin = Instance.new("HopperBin", player.Backpack)
local barrelsize = .3
local handleweld = nil
local temp = true
local etemp = true
bin.Name = "L96A1 Magnum"

function weld(part0, part1, c0, c1, parent)
	local w = Instance.new("Weld", parent)
	w.Part0 = part0
	w.Part1 = part1
	w.C0 = c0
	w.C1 = c1
	w.Name = "NewWeld"
	return w
end

function interpolateCFrame(cf1, cf2)
	local t1 = {cf1:components()}
	local t2 = {cf2:components()}
	local newcf = {}
	for i, v in pairs(t1) do
		local dif = t2[i] - v
		if i < 4 then
			local newValue = nil
			if math.abs(dif) < .1 then
				newValue = t2[i]
			else
				newValue = v +  ((dif/math.abs(dif)) * .1)
			end
			newcf[i] = newValue
		else
			local newValue = nil
			if math.abs(dif) < .1 then
				newValue = t2[i]
			else
				newValue = v + ((dif/math.abs(dif)) * .1)
			end
			newcf[i] = newValue
		end
	end
	return CFrame.new(unpack(newcf))
end

function prop(name, sx, sy, sz, px, py, pz, anc, canc, col, par, mesh, meshtype, scalex, scaley, scalez, meshid, textureid)
	local part = Instance.new("Part", par)
	part.Name = name
	part.TopSurface = 0
	part.BottomSurface = 0
	part.formFactor = 3
	part.Size = Vector3.new(sx, sy, sz)
	part.Position = Vector3.new(px, py, pz)
	part.Anchored = anc
	part.CanCollide = canc
	part.BrickColor = BrickColor.new(col)
	if mesh then
		local m = Instance.new("SpecialMesh", part)
		m.MeshType = meshtype
		m.MeshId = meshid
		m.Scale = Vector3.new(scalex, scaley, scalez)
		m.TextureId = textureid
	end
	return part
end

function fade(part, speed)
	for i = part.Transparency, 1, speed do
		part.Transparency = i
		wait()
	end
	part:Destroy()
end

function clearWelds(par)
	for i, v in pairs(par:GetChildren()) do
		if v.Name == "NewWeld" and v:IsA("Weld") then
			v:Destroy()
		end
	end
end

function sound(pitch, id, par)
	local s = Instance.new("Sound", par)
	s.Pitch = pitch
	s.SoundId = id
	return s
end

function traceRay(pos, pos2, col, trans)
	local distance = (pos - pos2).magnitude
	local trace = Instance.new("Part", char)
	trace.Anchored = true
	trace.CanCollide = false
	trace.TopSurface = 0
	trace.BottomSurface = 0
	trace.formFactor = 3
	trace.Size = Vector3.new(.2, .2, distance)
	trace.BrickColor = BrickColor.new(col)
	trace.Transparency = trans
	trace.CFrame = CFrame.new(pos2, pos) * CFrame.new(0, 0, -distance/2)
	return trace
end

clearWelds(char.Torso)
local back1 = prop("Part1", .1, .7, .5, 0, 0, 0, false, false, "Black", char, false)
local back1weld = weld(char.Torso, back1, CFrame.new(1, -2, .6) * CFrame.Angles(math.rad(90), math.rad(20), math.rad(90)), CFrame.new(), char.Torso)
local back2 = prop("Part2", .1, .2, .1, 0, 0, 0, false, false, "Grime", char, false)
local back2weld = weld(back1, back2, CFrame.new(0, -.25, -.35), CFrame.new(), char.Torso)
local back3 = prop("Part3", .1, .5, 1, 0, 0, 0, false, false, "Grime", char, false)
local back3weld = weld(back1, back3, CFrame.new(0, .1, -.75), CFrame.new(), char.Torso)
local back4 = prop("Part4", .1, .1, 1, 0, 0, 0, false, false, "Grime", char, false)
local back4weld = weld(back3, back4, CFrame.new(0, .3, 0), CFrame.new(), char.Torso)
local back5 = prop("Part5", .1, .1, .7, 0, 0, 0, false, false, "Grime", char, false)
local back5weld = weld(back1, back5, CFrame.new(0, .4, -1.6), CFrame.new(), char.Torso)
local trigger1 = prop("Part6", .1, .1, .6, 0, 0, 0, false, false, "Grime", char, false)
local trigger1weld = weld(back4, trigger1, CFrame.new(0, -.6, -.4) * CFrame.Angles(-math.rad(30), 0, 0), CFrame.new(), char.Torso)
local trigger2 = prop("Part7", .1, .1, .5, 0, 0, 0, false, false, "Grime", char, false)
local trigger2weld = weld(back4, trigger2, CFrame.new(0, -.675, -.8) * CFrame.Angles(math.rad(15), 0, 0), CFrame.new(), char.Torso)
local trigger3 = prop("Part8", .1, .1, .7, 0, 0, 0, false, false, "Grime", char, false)
local trigger3weld = weld(back4, trigger3, CFrame.new(0, -.4, -.95) * CFrame.Angles(math.rad(90), 0, 0), CFrame.new(), char.Torso)
local middle1 = prop("Part9", .1, .1, 1, 0, 0, 0, false, false, "Black", char, true, "Brick", .1, .0, .1, "", "") -- dis
local middle1weld = weld(back5, middle1, CFrame.new(0, .05, -.8), CFrame.new(), char.Torso)
local trigframe = prop("Part10", .1, .3, .3, 0, 0, 0, false, false, "Grime", char, true, "FileMesh", .3, .3, .3, "http://www.roblox.com/asset/?id=3270017", "")
local trigframeweld = weld(back5, trigframe, CFrame.new(0, -.2, -.3) * CFrame.Angles(0, math.rad(90), 0), CFrame.new(), char.Torso)
local middle2 = prop("Part11", .1, .3, 2, 0, 0, 0, false, false, "Grime", char, false)
local middle2weld = weld(middle1, middle2, CFrame.new(0, -.1, -.4), CFrame.new(), char.Torso)
local barrel = prop("Part12", .1, .1, 4, 0, 0, 0, false, false, "Black", char, true, "Brick", .5, .5, 1, "", "")
local barrelweld = weld(middle1, barrel, CFrame.new(0, -.05, -2), CFrame.new(), char.Torso)
local barrel2 = prop("Part13", barrelsize, 2, barrelsize, 0, 0, 0, false, false, "Black", char, false) Instance.new("CylinderMesh", barrel2)
local barrel2weld = weld(barrel, barrel2, CFrame.new(0, 0, -2.5) * CFrame.Angles(math.rad(90), 0, 0), CFrame.new(), char.Torso)
local scope1 = prop("Part14", .1, .2, .1, 0, 0, 0, false, false, "Black", char, true, "Brick", .5, .5, .5, "", "")
local scope1weld = weld(middle1, scope1, CFrame.new(0, .1, .25), CFrame.new(), char.Torso)
local scope2 = prop("Part14", .1, .2, .1, 0, 0, 0, false, false, "Black", char, true, "Brick", .5, .5, .5, "", "")
local scope2weld = weld(middle1, scope2, CFrame.new(0, .1, -.25), CFrame.new(), char.Torso)
local scope3 = prop("Part15", .1, 1.5, .1, 0, 0, 0, false, false, "Black", char, false) Instance.new("CylinderMesh", scope3)
local scope3weld = weld(middle1, scope3, CFrame.new(0, .2, 0) * CFrame.Angles(math.rad(90), 0, 0), CFrame.new(), char.Torso)
local scope4 = prop("Part16", .2, .3, .2, 0, 0, 0, false, false, "Black", char, true, "FileMesh", .2, .3, .2, "http://www.roblox.com/asset/?id=1033714", "")
local scope4weld = weld(middle1, scope4, CFrame.new(0, .2, .7) * CFrame.Angles(math.rad(270), 0, 0), CFrame.new(), char.Torso)
local scope5 = prop("Part17", .3, .35, .3, 0, 0, 0, false, false, "Black", char, true, "FileMesh", .3, .35, .3, "http://www.roblox.com/asset/?id=1033714", "")
local scope5weld = weld(middle1, scope5, CFrame.new(0, .2, -.7) * CFrame.Angles(math.rad(-270), 0, 0), CFrame.new(), char.Torso)
local rarmweld = weld(char.Torso, nil, CFrame.new(1.5, 0, 0), CFrame.new(), char.Torso)
local larmweld = weld(char.Torso, nil, CFrame.new(-1.5, 0, 0), CFrame.new(), char.Torso)
local gyro = Instance.new("BodyGyro", char.Torso)
gyro.P = 10000
gyro.maxTorque = Vector3.new(math.huge, math.huge, math.huge)
pmouse.Move:connect(function()
	gyro.cframe = CFrame.new(char.Torso.Position, Vector3.new(pmouse.Hit.p.X, char.Torso.Position.Y, pmouse.Hit.p.Z))
end)


function onEquip(mouse)
	repeat wait() until etemp and temp
	etemp = false
	rarmweld.Part1 = char["Right Arm"]
	local frame = 1
	coroutine.wrap(function()
		while rarmweld and animations.requip[frame] do
			rarmweld.C0 = interpolateCFrame(rarmweld.C0, animations.requip[frame])
			if rarmweld.C0 == animations.requip[frame] then
				frame = frame + 1
			else
				wait()
			end
		end
	end)()
	repeat wait() until frame == 3
	back1weld.Part0 = nil
	handleweld = weld(char["Right Arm"], back1, CFrame.new(-.5, 1, -.3) * CFrame.Angles(math.rad(270), 0, 0), CFrame.new(), char.Torso)
	repeat wait() until frame == 5
	larmweld.Part1 = char["Left Arm"]
	local frame2 = 1
	coroutine.wrap(function()
		while larmweld and animations.lequip[frame2] do
			larmweld.C0 = interpolateCFrame(larmweld.C0, animations.lequip[frame2])
			if larmweld.C0 == animations.lequip[frame2] then
				frame2 = frame2 + 1
			else
				wait()
			end
		end
		etemp = true
	end)()
	repeat wait() until frame == 6


	mouse.Button1Down:connect(function()
		if not temp then return end
		temp = false
		local frame3 = 1
		coroutine.wrap(function()
			while rarmweld and animations.rshoot[frame3] do
				rarmweld.C0 = interpolateCFrame(rarmweld.C0, animations.rshoot[frame3])
				if rarmweld.C0 == animations.rshoot[frame3] then
					frame3 = frame3 + 1
				else
					wait()
				end
			end
		end)()
		local frame4 = 1
		coroutine.wrap(function()
			while larmweld and animations.lshoot[frame4] do
				larmweld.C0 = interpolateCFrame(larmweld.C0, animations.lshoot[frame4])
				if larmweld.C0 == animations.lshoot[frame4] then
					frame4 = frame4 + 1
				else
					wait()
				end
			end
			wait(.1)
			temp = true
		end)()
		local ray = Ray.new(barrel2.Position, (mouse.Hit.p - barrel2.Position).unit * 500)
		sound(1, "http://roblox.com/asset/?id=10209875", barrel2):play()
		local hit, pos = workspace:FindPartOnRay(ray, char)
		if hit and hit.Parent:FindFirstChild("Humanoid") then
			local dmg = math.random(70, 100)
			if hit.Name ~= "Head" then
				hit.Parent.Humanoid:TakeDamage(dmg)
				hit.Parent.Humanoid.Sit = true
			else
				hit.Parent:BreakJoints()
				sound(1, "http://www.roblox.com/asset/?id=1876552", workspace):play()
			end
			if game:GetService("Players"):GetPlayerFromCharacter(hit.Parent) == nil then return end
			local bl = Instance.new("Part", workspace)
			bl.Name = "Blood"
			bl.BrickColor = BrickColor.new("Really red")
			bl.FormFactor = 3
			bl.TopSurface = 0
			bl.BottomSurface = 0
			bl.Size = Vector3.new(1, .1, 1)
			bl.Position = hit.Parent.Head.Position + Vector3.new(0, 3, 0)
			local bbg = Instance.new("BillboardGui", bl)
			bbg.Adornee = bl
			bbg.Size = UDim2.new(1, 0, 1, 0)
			bbg.StudsOffset = Vector3.new(0, 1, 0)
			local txt = Instance.new("TextLabel", bbg)
			txt.Position = UDim2.new(0.5, 0, 0.5, 0)
			txt.FontSize = "Size14"
			txt.TextColor3 = Color3.new(1, 1, 1)
			txt.Text = hit.Name ~= "Head" and dmg or "HEADSHOT"
			coroutine.wrap(fade)(bl, 0.005)
		end
		if hit and hit.Parent:IsA("Hat") then
			hit:BreakJoints()
		end
		Spawn(function()
			local tr = traceRay(barrel2.Position, pos, "White", .5)
			fade(tr, .01)
		end)
		repeat wait() until frame4 == 3
		sound(1, "http://roblox.com/asset/?id=10209881", middle2):play()
	end)


end

function onUnequip()
	repeat wait() until etemp and temp
	etemp = false
	local frame = 1
	coroutine.wrap(function()
		while rarmweld and animations.runequip[frame] do
			rarmweld.C0 = interpolateCFrame(rarmweld.C0, animations.runequip[frame])
			if rarmweld.C0 == animations.runequip[frame] then
				frame = frame + 1
			else
				wait()
			end
		end
		etemp = true
	end)()
	coroutine.wrap(function()
		while larmweld do
			larmweld.C0 = interpolateCFrame(larmweld.C0, CFrame.new(-1.5, 0, 0))
			if larmweld.C0 == CFrame.new(-1.5, 0, 0) then
				break
			else
				wait()
			end
		end
	end)()
	repeat wait() until frame == 4
	handleweld:Remove()
	back1weld:Remove()
	back1weld = weld(char.Torso, back1, CFrame.new(1, -2, .6) * CFrame.Angles(math.rad(90), math.rad(20), math.rad(90)), CFrame.new(), char.Torso)
	repeat wait() until frame == 7
	rarmweld.Part1 = nil
	larmweld.Part1 = nil
end

bin.Selected:connect(onEquip)
bin.Deselected:connect(onUnequip)