Machine face

local pjts = {}

function FireProjectile(origin, velocity, raycallback, ignore, draw)
    table.insert(pjts,{origin, origin, velocity, raycallback, ignore, draw})
end

local player = game:GetService("Players").LocalPlayer
local mouse = player:GetMouse()
local mousedown = false
local downtime = 0
local spin = false
local selected = false
local swagbullets = 200
local neck = player.Character.Torso.Neck
local neckc0 = neck.C0

local bin = Instance.new("HopperBin", player.Backpack)
bin.Name = "Machine Face"

local staspin = Instance.new("Sound", player.Character.Head)
staspin.SoundId = "http://roblox.com/asset/?id=10209788"

local stospin = Instance.new("Sound", player.Character.Head)
stospin.SoundId = "http://roblox.com/asset/?id=10209786"

local sping = Instance.new("Sound", player.Character.Head)
sping.SoundId = "http://roblox.com/asset/?id=10209780"
sping.Looped = true

local bang = Instance.new("Sound", player.Character.Head)
bang.SoundId = "http://roblox.com/asset/?id=10209776"
bang.Looped = true

local clicking = Instance.new("Sound", player.Character.Head)
clicking.SoundId = "http://roblox.com/asset/?id=10209771"
clicking.Looped = true

local face = nil

if player.Character.Head:FindFirstChild("face") then
	face = player.Character.Head.face:clone()
end

local controlpart = Instance.new("Part", player.Character)
controlpart.Anchored = false
controlpart.CanCollide = false
controlpart.TopSurface = 0
controlpart.BottomSurface = 0
controlpart.FormFactor = "Custom"
controlpart.Size = Vector3.new(0,0,0)
controlpart.Transparency = 1

local muzzle = Instance.new("Part", player.Character)
muzzle.Anchored = false
muzzle.CanCollide = false
muzzle.TopSurface = 0
muzzle.BottomSurface = 0
muzzle.FormFactor = "Custom"
muzzle.Size = Vector3.new(0,0,0)
muzzle.Transparency = 1

local casething = Instance.new("Part", player.Character)
casething.Anchored = false
casething.CanCollide = false
casething.TopSurface = 0
casething.BottomSurface = 0
casething.FormFactor = "Custom"
casething.Size = Vector3.new(0.5,0.3,0.7)
casething.BrickColor = BrickColor.new("Really black")

local control = Instance.new("Weld", controlpart)
control.Part0 = player.Character.Head
control.Part1 = controlpart
control.C0 = CFrame.new(0,0,1)

local muzweld = Instance.new("Weld", controlpart)
muzweld.Part0 = player.Character.Head
muzweld.Part1 = muzzle
muzweld.C0 = CFrame.new(0,0.2,-1.4)

local ctweld = Instance.new("Weld", controlpart)
ctweld.Part0 = player.Character.Head
ctweld.Part1 = casething
ctweld.C0 = CFrame.new(0,0,0.1)

local muzflash = Instance.new("PointLight", muzzle)
muzflash.Range = 10
muzflash.Color = Color3.new(1,0.8,0)
muzflash.Enabled = false

for i = 0,300,60 do
	local mpart = Instance.new("Part", player.Character)
	mpart.Anchored = false
	mpart.CanCollide = false
	mpart.TopSurface = 0
	mpart.BottomSurface = 0
	mpart.FormFactor = "Custom"
	mpart.Size = Vector3.new(0.2,1,0.2)
	mpart.BrickColor = BrickColor.new("Black")
	Instance.new("CylinderMesh",mpart)
	local weld = Instance.new("Weld", mpart)
	weld.Part0 = controlpart
	weld.Part1 = mpart
	weld.C0 = CFrame.new(0,0,-1) * CFrame.Angles(math.rad(90),0,0) * CFrame.Angles(0,math.rad(i),0) * CFrame.new(0,0,0.2)
end

local dpart = Instance.new("Part", player.Character)
dpart.Anchored = false
dpart.CanCollide = false
dpart.TopSurface = 0
dpart.BottomSurface = 0
dpart.FormFactor = "Custom"
dpart.Size = Vector3.new(0.7,0.2,0.7)
dpart.BrickColor = BrickColor.new("Black")
Instance.new("CylinderMesh",dpart).Scale = Vector3.new(1,0.6,1)
local dweld = Instance.new("Weld", dpart)
dweld.Part0 = controlpart
dweld.Part1 = dpart
dweld.C0 = CFrame.new(0,0,-0.9) * CFrame.Angles(math.rad(90),0,0)

local dpart = Instance.new("Part", player.Character)
dpart.Anchored = false
dpart.CanCollide = false
dpart.TopSurface = 0
dpart.BottomSurface = 0
dpart.FormFactor = "Custom"
dpart.Size = Vector3.new(0.7,0.2,0.7)
dpart.BrickColor = BrickColor.new("Black")
Instance.new("CylinderMesh",dpart).Scale = Vector3.new(1,0.6,1)
local dweld = Instance.new("Weld", dpart)
dweld.Part0 = controlpart
dweld.Part1 = dpart
dweld.C0 = CFrame.new(0,0,-1.3) * CFrame.Angles(math.rad(90),0,0)

bin.Selected:connect(function()
	local asd = 1
	local tcount = 0
	if player.Character.Head:FindFirstChild("face") then player.Character.Head.face:Destroy() end
	while true do
		local dt = wait()
		tcount = tcount + dt
		asd = 1+math.cos((math.pi/2)+(tcount*4))*1.1
		if tcount >= 0.5 then
			break
		end
		control.C0 = CFrame.new(0,0,asd)
	end
	control.C0 = CFrame.new()
	local asd = 0.1
	while true do
		local dt = wait()
		asd = asd + dt
		if asd >= 0.3 then
			break
		end
		ctweld.C0 = CFrame.new(0,0,asd)
	end
	ctweld.C0 = CFrame.new(0,0,0.3)
	selected = true
end)
bin.Deselected:connect(function()
	selected = false
	if spin then
		sping:Stop()
		staspin:Stop()
		bang:Stop()
		clicking:Stop()
		stospin:Play()
	end
	spin = false
	mousedown = false
	local asd = 0.3
	while true do
		local dt = wait()
		asd = asd - dt
		if asd <= 0.1 then
			break
		end
		ctweld.C0 = CFrame.new(0,0,asd)
	end
	ctweld.C0 = CFrame.new(0,0,0.1)
	local asd = 0
	local tcount = 0
	while true do
		local dt = wait()
		tcount = tcount + dt
		asd = 1+math.sin(((tcount-0.1)*4)-(math.pi/2))*1.1
		if tcount >= 0.48 then
			break
		end
		control.C0 = CFrame.new(0,0,asd)
	end
	control.C0 = CFrame.new(0,0,1)
	face:clone().Parent = player.Character.Head
end)

mouse.KeyDown:connect(function(key)
	if key == "q" and selected then
		spin = true
		staspin:Play()
		coroutine.wrap(function()
			wait(0.8)
			if spin then
				staspin:Stop()
				sping:Play()
			end
		end)()
	elseif key == "r" and selected then

		swagbullets = 200
	end
end)

mouse.KeyUp:connect(function(key)
	if key == "q" and selected and spin then
		spin = false
		mousedown = false
		sping:Stop()
		staspin:Stop()
		bang:Stop()
		clicking:Stop()
		stospin:Play()
	end
end)

mouse.Button1Down:connect(function()
	if spin then
		mousedown = true
		bang:Play()
	end
end)

mouse.Button1Up:connect(function()
	mousedown = false
	bang:Stop()
	clicking:Stop()
end)

function gethums(part)
	local hums = {}
	local function scanparent(asd)
		local humscan = {}
		for _,v in pairs(asd.Parent:GetChildren()) do
			if v:IsA("Humanoid") then
				table.insert(humscan,v)
			end
		end
		return asd.Parent, humscan
	end
	local currentasd = part
	while true do
		if currentasd.Parent ~= workspace then
			local parent, humscan = scanparent(currentasd)
			hums = {unpack(hums),unpack(humscan)}
			currentasd = parent
		else
			break
		end
	end
	return hums
end

--FireProjectile(player.Character.Head.Position, player.Character.Head.Velocity+mouse.UnitRay.Direction*400, function(self,...) return false end, {player.Character})

while true do
	local dt = wait()
	local ax,ay,az = player.Character.Torso.CFrame:toEulerAnglesXYZ()
	local cx,cy,cz = CFrame.new(Vector3.new(),mouse.UnitRay.Direction):toEulerAnglesXYZ()
	neck.C0 = CFrame.new(0,1,0)*(CFrame.Angles(ax,ay,az):inverse())*CFrame.Angles(cx,cy,cz)*CFrame.Angles(-math.pi/2,0,math.pi)
	if spin then
		control.C0 = control.C0 * CFrame.Angles(0,0,10*dt)
	end
	if mousedown and spin then
		downtime = downtime + dt
	else
		downtime = 0
	end
	if downtime >= 0.05 then
		muzflash.Enabled = true
		for i = 0.05, downtime, 0.05 do
			if swagbullets > 0 then
				downtime = downtime - 0.05
				swagbullets = swagbullets - 1
				FireProjectile((muzzle.CFrame).p, player.Character.Head.Velocity+((Vector3.new(math.random()-0.5,math.random()-0.5,math.random()-0.5)*0.05)+mouse.UnitRay.Direction)*250, function(self,opart)
					local humans = gethums(opart)
					for _,hum in pairs(humans) do
						hum:TakeDamage(5)
					end
					return false
				end, {player.Character}, function(p1,p2)
					asdpart = Instance.new("Part")
					asdpart.Anchored = true
					asdpart.CanCollide = false
					asdpart.TopSurface = 0
					asdpart.BottomSurface = 0
					asdpart.FormFactor = "Custom"
					asdpart.Size = Vector3.new(1,1,1)
					asdpart.BrickColor = BrickColor.new("Bright yellow")
					asdpart.Reflectance = 0.5
					asdpart.CFrame = CFrame.new(p1:Lerp(p2,0.5),p2)+Vector3.new(100,100,0)
					local asdmesh = Instance.new("BlockMesh",asdpart)
					asdmesh.Scale = Vector3.new(0.1,0.1,(p1-p2).magnitude)
					asdmesh.Offset = ((asdpart.CFrame - asdpart.CFrame.p):inverse() * CFrame.new(-100,-100,0)).p
					asdpart.Parent = workspace
					coroutine.wrap(function()
						local noobfacepartlol = asdpart
						wait()
						if noobfacepartlol then noobfacepartlol:Destroy() end
					end)()
					return asdpart
				end)
			else
				if not clicking.IsPlaying then
					clicking:Play()
					bang:Stop()
				end
			end
		end
		coroutine.wrap(function()
			if swagbullets <= 0 then
				muzflash.Enabled = false
			end
			wait()
			if swagbullets > 0 then
				muzflash.Enabled = false
				local scr = Instance.new("BillboardGui", muzzle)
				scr.Adornee = muzzle
				scr.Size = UDim2.new(2, 0, 2, 0)
				scr.StudsOffset = Vector3.new(0,0,0.2)
				scr.Name = "flash"
				local pic = Instance.new("ImageLabel", scr)
				pic.Image = "http://www.roblox.com/asset/?id=62701218"
				pic.Size = UDim2.new(1, 0, 1, 0)
				pic.BorderSizePixel = 0
				pic.BackgroundTransparency = 1
				game:GetService("Debris"):AddItem(scr,0.1)
				local case = Instance.new("Part", player.Character)
				case.Name = "BulletShell"
				case.Anchored = false
				case.CanCollide = true
				case.TopSurface = "Smooth"
				case.BottomSurface = "Smooth"
				case.FormFactor = "Custom"
				case.Size = Vector3.new(0.2, 0.4, 0.2)
				case.Elasticity = 0
				case.Reflectance = 0.1
				case.BrickColor = BrickColor.new("Bright yellow")
				case.CFrame = player.Character.Head.CFrame * CFrame.new(0,0,0.9) * CFrame.Angles(0,0,math.pi/2)
				case.Velocity = Vector3.new(0,11,0)-mouse.UnitRay.Direction*7
				local casemesh = Instance.new("CylinderMesh", case)
				casemesh.Scale = Vector3.new(0.7, 0.7, 0.7)
				game:GetService("Debris"):AddItem(case,0.6)
				ctweld.C0 = CFrame.new(0,0,0.7)
				wait()
				ctweld.C0 = CFrame.new(0,0,0.3)
			end
		end)()
	end
	for i,pjt in pairs(pjts) do
		pjt[2] = pjt[1]
		pjt[1] = pjt[1] + pjt[3]*dt
		pjt[3] = pjt[3] - Vector3.new(0,196.2,0)*dt
		local pjtray = Ray.new(pjt[2],pjt[1]-pjt[2])
		local pjtig = {unpack(pjt[5]),pjt[7]}
		for _,opjt in pairs(pjts) do
			if opjt[7] then
				table.insert(pjtig,opjt[7])
			end
		end
		local hpart, hpos = workspace:FindPartOnRayWithIgnoreList(pjtray, pjtig, false)
		if hpart and hpos then
			local stillgoes = pjt[4](pjt,hpart,hpos,pjt[3])
			if stillgoes then
				hpos = pjt[1]
			else
				pjts[i] = nil
			end
		end
		if pjt[6] then
			pjt[7] = pjt[6](pjt[2],hpos)
		else
			pjt[7] = Instance.new("Part")
			pjt[7].Anchored = true
			pjt[7].CanCollide = false
			pjt[7].TopSurface = 0
			pjt[7].BottomSurface = 0
			pjt[7].FormFactor = "Custom"
			pjt[7].Size = Vector3.new(1,1,1)
			pjt[7].CFrame = CFrame.new(pjt[2]:Lerp(hpos,0.5),hpos)+Vector3.new(100,100,0)
			local asdmesh = Instance.new("BlockMesh",pjt[7])
			asdmesh.Scale = Vector3.new(0.2,0.2,(pjt[2]-hpos).magnitude)
			asdmesh.Offset = ((pjt[7].CFrame - pjt[7].CFrame.p):inverse() * CFrame.new(-100,-100,0)).p
			pjt[7].Parent = workspace
			coroutine.wrap(function()
				local noobfacepartlol = pjt[7]
				wait()
				if noobfacepartlol then noobfacepartlol:Destroy() end
			end)()
		end
		if pjt[1].y < -300 then
			pjts[i] = nil
		end
	end
end