Turrets

me = game.Players.LocalPlayer


h = Instance.new("HopperBin",me.Backpack)
h.Name = "Turrets"
script.Parent = h

bin = script.Parent

function prop(part, parent, collide, tran, ref, x, y, z, color, anchor)
part.Parent = parent
part.formFactor = 0
part.CanCollide = collide
part.Transparency = tran
part.Reflectance = ref
part.Size = Vector3.new(x,y,z)
part.BrickColor = BrickColor.new(color)
part.TopSurface = 0
part.BottomSurface = 0
part.Anchored = anchor
part:BreakJoints()
end

function weld(w, p, p0, p1, a, b, c, x, y, z)
w.Parent = p
w.Part0 = p0
w.Part1 = p1
w.C1 = CFrame.fromEulerAnglesXYZ(a,b,c) * CFrame.new(x,y,z)
end

function mesh(mesh, parent, x, y, z, type)
mesh.Parent = parent
mesh.Scale = Vector3.new(x, y, z)
mesh.MeshType = type
end

function placeturret(mainplace)
local turret = Instance.new("Model",workspace)
turret.Name = "Turret"

local main = Instance.new("Part")
prop(main, turret, true, 0, 0, 3, 1, 3, "Dark grey", true)
main.CFrame = CFrame.new(mainplace)
mainmesh = Instance.new("CylinderMesh",main)

local neck = Instance.new("Part")
prop(neck,turret,true,0,0,1,2,1,"Dark grey", true)
neck.CFrame = CFrame.new(mainplace) * CFrame.new(0,1.1,0)
neckmesh = Instance.new("CylinderMesh",neck)
neckmesh.Scale = Vector3.new(1,1.5,1)

local move = Instance.new("Part")
prop(move, turret, false, 0, 0, 1, 1, 5,"Dark grey", false)
move.CFrame = CFrame.new(mainplace) * CFrame.new(0,3,0)

local bg = Instance.new("BodyGyro")
bg.Parent = move
bg.maxTorque = Vector3.new(1e+008,1e+008,1e+008)

local bp = Instance.new("BodyPosition",move)
bp.maxForce = Vector3.new(1e+008,1e+008,1e+008)
bp.position = bp.Parent.Position

local gunner = Instance.new("Part")
gunner.FrontSurface = "Hinge"
prop(gunner,turret,true,0,0,1,1,1,"Dark grey",false)
gunner.CFrame = CFrame.new(mainplace) * CFrame.new(0,3,2.5)

local gunweld = Instance.new("Weld")
weld(gunweld,move,move,gunner,0,0,0,0,0,2.5)

local sound = Instance.new("Sound",gunner)
sound.Volume = 0.8
sound.Pitch = 4
sound.SoundId = "http://www.roblox.com/asset/?id=2760979"

function find(pos)
	local list = game.Workspace:children()
	local torso = nil
	local dist = 40
	local temp = nil
	local human = nil
	local temp2 = nil
	for x = 1, #list do
		temp2 = list[x]
		if (temp2.className == "Model") and (temp2 ~= script.Parent) then
			temp = temp2:findFirstChild("Torso")
			human = temp2:findFirstChild("Humanoid")
			if (temp ~= nil) and (human ~= nil) and (human.Health > 0) then
				if (temp.Position - pos).magnitude < dist then
					torso = temp
					dist = (temp.Position - pos).magnitude
				end
			end
		end
	end
	return torso
end

coroutine.resume(coroutine.create(function()
while true do
	if gunner.Parent ~= nil then
	wait(0.1)
	local target = find(gunner.Position)
	if target ~= nil then
		bg.cframe = CFrame.new(move.Position, target.Position)
		local meh = math.random(1,6)
		if meh == 1 then
			local bulls = {}
			local dis = (gunner.Position - target.Position).magnitude
			local bullet = Instance.new("Part")
			prop(bullet,workspace,false,0,0,1,1,1,"Bright yellow",true)
			bullet.CFrame = CFrame.new(gunner.Position, target.Position) * CFrame.new(0,0,-dis/2)
			local meu = Instance.new("SpecialMesh")
			mesh(meu,bullet,0.23,0.23,dis,"Brick")
			local huo = target.Parent:findFirstChild("Humanoid")
			huo:TakeDamage(math.random(huo.MaxHealth/34,huo.MaxHealth/8))
			local randompitch = math.random(500,1200)/1000
			sound.Pitch = randompitch
			sound:play()
			table.insert(bulls,bullet)
			for i=1, math.random(3,6) do
				local msi = math.random(8,23)/10
				local th = Instance.new("Part")
				prop(th,workspace,false,0,0,1,1,1,"Bright yellow",true)
				th.CFrame = CFrame.new(gunner.Position,target.Position) * CFrame.new(0,0,-dis)
				th.CFrame = th.CFrame * CFrame.Angles(math.random(-100,100),math.random(-100,100),math.random(-100,100))
				th.CFrame = th.CFrame * CFrame.new(0,0,-msi/2)
				thme = Instance.new("SpecialMesh")
				mesh(thme,th,0.13,0.13,msi, "Brick")
				table.insert(bulls,th)
				for duh=1, math.random(2,5) do
					local bag = math.random(5,18)/10
					local bah = Instance.new("Part")
					prop(bah,workspace,false,0,0,1,1,1,"Bright yellow",true)
					bah.CFrame = CFrame.new(th.Position) * CFrame.new(0,0,msi/2)
					bah.CFrame = bah.CFrame * CFrame.Angles(math.random(-100,100),math.random(-100,100),math.random(-100,100))
					bah.CFrame = bah.CFrame * CFrame.new(0,0,-bag/2)
					bahme = Instance.new("SpecialMesh")
					mesh(bahme,bah,0.02,0.02,bag, "Brick")
					table.insert(bulls,bah)
				end
			end
			coroutine.resume(coroutine.create(function()
				for i=1, #bulls do
					coroutine.resume(coroutine.create(function()
						wait(0.1)
						for k=0, 1, 0.25 do
							wait()
							bulls[i].Transparency = k
						end
						bulls[i]:remove()
					end))
				end
			end))
		end
	end
	end
end
end))
end

bin.Selected:connect(function(mouse)
	mouse.Button1Down:connect(function()
		placeturret(mouse.Hit.p)
	end)
end)