fe ro-vacuum 2012

if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,game,owner = owner,game
local RealPlayer = Player
do
	print("FE Compatibility code by Mokiros")
	local rp = RealPlayer
	script.Parent = rp.Character

	--RemoteEvent for communicating
	local Event = Instance.new("RemoteEvent")
	Event.Name = "UserInput_Event"

	--Fake event to make stuff like Mouse.KeyDown work
	local function fakeEvent()
		local t = {_fakeEvent=true,Functions={},Connect=function(self,f)table.insert(self.Functions,f) end}
		t.connect = t.Connect
		return t
	end

	--Creating fake input objects with fake variables
    local m = {Target=nil,Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent(),Button2Up=fakeEvent(),Button2Down=fakeEvent()}
	local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
	local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)
		CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil
	end}
	--Merged 2 functions into one by checking amount of arguments
	CAS.UnbindAction = CAS.BindAction

	--This function will trigger the events that have been :Connect()'ed
	local function te(self,ev,...)
		local t = m[ev]
		if t and t._fakeEvent then
			for _,f in pairs(t.Functions) do
				f(...)
			end
		end
	end
	m.TrigEvent = te
	UIS.TrigEvent = te

	Event.OnServerEvent:Connect(function(plr,io)
	    if plr~=rp then return end
		m.Target = io.Target
		m.Hit = io.Hit
		if not io.isMouse then
			local b = io.UserInputState == Enum.UserInputState.Begin
			if io.UserInputType == Enum.UserInputType.MouseButton1 then
				return m:TrigEvent(b and "Button1Down" or "Button1Up")
			end
			if io.UserInputType == Enum.UserInputType.MouseButton2 then
				return m:TrigEvent(b and "Button2Down" or "Button2Up")
			end
			for _,t in pairs(CAS.Actions) do
				for _,k in pairs(t.Keys) do
					if k==io.KeyCode then
						t.Function(t.Name,io.UserInputState,io)
					end
				end
			end
			m:TrigEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
			UIS:TrigEvent(b and "InputBegan" or "InputEnded",io,false)
	    end
	end)
	Event.Parent = NLS([==[
	local Player = game:GetService("Players").LocalPlayer
	local Event = script:WaitForChild("UserInput_Event")
	local Mouse = Player:GetMouse()
	local UIS = game:GetService("UserInputService")
	local input = function(io,a)
		if a then return end
		--Since InputObject is a client-side instance, we create and pass table instead
		Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState,Hit=Mouse.Hit,Target=Mouse.Target})
	end
	UIS.InputBegan:Connect(input)
	UIS.InputEnded:Connect(input)
	local h,t
	--Give the server mouse data 30 times every second, but only if the values changed
	--If player is not moving their mouse, client won't fire events
	while wait(1/30) do
		if h~=Mouse.Hit or t~=Mouse.Target then
			h,t=Mouse.Hit,Mouse.Target
			Event:FireServer({isMouse=true,Target=t,Hit=h})
		end
	end]==],Player.Character)

	----Sandboxed game object that allows the usage of client-side methods and services
	--Real game object
	local _rg = game

	--Metatable for fake service
	local fsmt = {
		__index = function(self,k)
			local s = rawget(self,"_RealService")
			if s then
				return typeof(s[k])=="function"
				and function(_,...)return s[k](s,...)end or s[k]
			end
		end,
		__newindex = function(self,k,v)
			local s = rawget(self,"_RealService")
			if s then s[k]=v end
		end
	}
	local function FakeService(t,RealService)
		t._RealService = typeof(RealService)=="string" and _rg:GetService(RealService) or RealService
		return setmetatable(t,fsmt)
	end

	--Fake game object
	local g = {
		GetService = function(self,s)
			return rawget(self,s) or _rg:GetService(s)
		end,
		Players = FakeService({
			LocalPlayer = FakeService({GetMouse=function(self)return m end},Player)
		},"Players"),
		UserInputService = FakeService(UIS,"UserInputService"),
		ContextActionService = FakeService(CAS,"ContextActionService"),
		RunService = FakeService({
			_btrs = {},
			RenderStepped = _rg:GetService("RunService").Heartbeat,
			BindToRenderStep = function(self,name,_,fun)
				self._btrs[name] = self.Heartbeat:Connect(fun)
			end,
			UnbindFromRenderStep = function(self,name)
				self._btrs[name]:Disconnect()
			end,
		},"RunService")
	}
	rawset(g.Players,"localPlayer",g.Players.LocalPlayer)
	g.service = g.GetService
	FakeService(g,game)
	--Changing owner to fake player object to support owner:GetMouse()
	game,owner = g,g.Players.LocalPlayer
end

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")
Script1 = Instance.new("Script")
Part2 = Instance.new("Part")
SpecialMesh3 = Instance.new("SpecialMesh")
Part4 = Instance.new("Part")
SpecialMesh5 = Instance.new("SpecialMesh")
Sound6 = Instance.new("Sound")
Motor7 = Instance.new("Motor")
LocalScript8 = Instance.new("LocalScript")
Tool0.Name = "Vacuum"
Tool0.Parent = mas
Tool0.TextureId = "http://www.roblox.com/asset/?id=84394194 "
Tool0.GripForward = Vector3.new(-0, -2.18556949e-07, -1)
Tool0.GripPos = Vector3.new(-1.5, -0.800000012, -2.70000005)
Tool0.GripRight = Vector3.new(-1, 0, 0)
Tool0.GripUp = Vector3.new(0, -1, 2.18556949e-07)
Script1.Name = "SoundScript"
Script1.Parent = Tool0
table.insert(cors,sandbox(Script1,function()
--Stickmasterluke


sp=script.Parent
handle=sp.Handle


script.ChildAdded:connect(function(item)
	if item~=nil then
		local s=handle:FindFirstChild(item.Name)
		if s~=nil then
			s:Play()
		end
		item:remove()
	end
end)


end))
Part2.Name = "Handle"
Part2.Parent = Tool0
Part2.BrickColor = BrickColor.new("White")
Part2.Reflectance = 0.40000000596046
Part2.Rotation = Vector3.new(0, 0, 180)
Part2.Locked = true
Part2.FormFactor = Enum.FormFactor.Custom
Part2.Size = Vector3.new(1.79999995, 2.5, 1)
Part2.CFrame = CFrame.new(-0.100000001, 2.5, 0.5, -1, -0, 0, -0, -1, 0, -0, -0, 1)
Part2.BottomSurface = Enum.SurfaceType.Smooth
Part2.TopSurface = Enum.SurfaceType.Smooth
Part2.Color = Color3.new(0.94902, 0.952941, 0.952941)
Part2.Position = Vector3.new(-0.100000001, 2.5, 0.5)
Part2.Orientation = Vector3.new(0, 0, -180)
Part2.Color = Color3.new(0.94902, 0.952941, 0.952941)
SpecialMesh3.Parent = Part2
SpecialMesh3.MeshId = "http://www.roblox.com/asset/?id=84313478 "
SpecialMesh3.Scale = Vector3.new(1.5, 1.5, 1.5)
SpecialMesh3.TextureId = "http://www.roblox.com/asset/?id=84313638 "
SpecialMesh3.MeshType = Enum.MeshType.FileMesh
SpecialMesh3.Scale = Vector3.new(1.5, 1.5, 1.5)
Part4.Name = "HosePart"
Part4.Parent = Part2
Part4.BrickColor = BrickColor.new("Pastel Blue")
Part4.Rotation = Vector3.new(90, 0, -180)
Part4.Locked = true
Part4.FormFactor = Enum.FormFactor.Custom
Part4.Size = Vector3.new(0.200000003, 0.200000003, 0.200000003)
Part4.CFrame = CFrame.new(1.75909936, 3.53135443, -0.0850819349, -0.999999523, 5.96046235e-08, 0, 0, 5.96046341e-08, -0.999999702, -5.96046164e-08, -0.999999523, -5.96046164e-08)
Part4.Color = Color3.new(0.501961, 0.733333, 0.858824)
Part4.Position = Vector3.new(1.75909936, 3.53135443, -0.0850819349)
Part4.Orientation = Vector3.new(89.9599991, 180, 0)
Part4.Color = Color3.new(0.501961, 0.733333, 0.858824)
SpecialMesh5.Parent = Part4
SpecialMesh5.MeshId = "http://www.roblox.com/asset/?id=84313555 "
SpecialMesh5.Scale = Vector3.new(1.5, 1.5, 1.5)
SpecialMesh5.TextureId = "http://www.roblox.com/asset/?id=84313638 "
SpecialMesh5.MeshType = Enum.MeshType.FileMesh
SpecialMesh5.Scale = Vector3.new(1.5, 1.5, 1.5)
Sound6.Name = "HoseSound"
Sound6.Parent = Part2
Sound6.SoundId = "http://www.roblox.com/asset/?id=81699764"
Sound6.Volume = 0.69999998807907
Motor7.Parent = Part2
Motor7.C0 = CFrame.new(0, 0, 0, -0.999999881, 0, 0, 0, -0.99999994, 0, 0, 0, 0.999999881)
Motor7.C1 = CFrame.new(1.85910034, -0.585082412, 1.0313549, -0.999999642, 0, -5.96046235e-08, 5.96046306e-08, 5.96046377e-08, -0.999999642, 0, -0.999999762, -5.96046235e-08)
Motor7.Part0 = Part2
Motor7.Part1 = Part4
Motor7.MaxVelocity = 0.050000000745058
LocalScript8.Parent = Tool0
table.insert(cors,sandbox(LocalScript8,function()
--Stickmasterluke
--Altered by QuantumSama


local Tool=script.Parent
local Backpack = Tool.Handle

rate=1/30

equipped=false
check=true
debris=game:GetService("Debris")


while Tool.Handle:FindFirstChild("Motor")==nil do
	wait()
end
local storeWeld=Tool.Handle.Motor

local HoseSound


function playsound(soundname)
	if soundname and Tool:FindFirstChild("SoundScript")~=nil then
		local soundtag=Instance.new("StringValue")
		soundtag.Name=soundname
		soundtag.Parent=Tool.SoundScript
	end
end

function setwelds()
	if storeWeld then
		storeWeld.Parent=Tool.Handle
	end
	if equipped then
		local ra=Tool.Parent:FindFirstChild("Right Arm")
		local t=Tool.Parent:FindFirstChild("Torso")
		if ra~=nil and t~=nil then
			local rightgrip=ra:FindFirstChild("RightGrip")
			if rightgrip~=nil then
				rightgrip.Part0=t
				rightgrip.C0=CFrame.new(0,0,1)*CFrame.Angles(0,0,math.pi)
				rightgrip.C1=CFrame.new(0,0,0)
			end
		end
	end
end

function doSuck()
	local plr=game.Players.LocalPlayer
	if plr~=nil then
		local radiusVec = Vector3.new(6,6,6)
		local handle = Tool:FindFirstChild("Handle")
		local hose = handle:FindFirstChild("HosePart")
		local hoseCFrame = hose.CFrame*CFrame.Angles(math.pi/2,0,0)
		local hoseTarget = hoseCFrame + hoseCFrame.lookVector*9
		local suckTarget = hoseCFrame + hoseCFrame.lookVector*3
		local suckPart = Instance.new("Part")
		suckPart.CanCollide = false
		suckPart.FormFactor = "Custom"
		--suckPart.Shape = "Ball"
		suckPart.Size = Vector3.new(.2,.2,.2)
		suckPart.CFrame = hoseTarget + Vector3.new((math.random()-.5)*10,(math.random()-.5)*10,(math.random()-.5)*10)
		suckPart2 = suckPart:Clone()
		suckPart2.CFrame = hoseTarget + Vector3.new((math.random()-.5)*10,(math.random()-.5)*10,(math.random()-.5)*10)
		debris:AddItem(suckPart,3)
		debris:AddItem(suckPart2,3)
		suckPart.Parent = game.Workspace
		suckPart2.Parent = game.Workspace

		local suckRegion = Region3.new(hoseTarget.p - radiusVec, hoseTarget.p + radiusVec)

		local suckableParts = game.Workspace:FindPartsInRegion3(suckRegion, Tool.Parent,50)

		local limbChance = .075
		for i,v in pairs(suckableParts) do
			if v and v.Parent and v:IsA("BasePart") and not v:IsA("Terrain") and v:getMass() < 40 and not v:FindFirstChild("bp") then
				local bp = Instance.new("BodyPosition")
				bp.Name = "bp"
				bp.maxForce = Vector3.new(99999,99999,99999)
				bp.D = 3000
				bp.P = 30000
				bp.position = suckTarget.p
				debris:AddItem(bp,.5)
				local hum = v.Parent:FindFirstChild("Humanoid")
				if hum then
					if math.random() < limbChance or hum.Health == 0 then
						local creatorTag = Instance.new("ObjectValue")
						creatorTag.Value = plr
						creatorTag.Name = "creator"
						debris:AddItem(creatorTag,.5)
						creatorTag.Parent = hum

						v:BreakJoints()
						bp.Parent = v
						debris:AddItem(v,.15)
					end
				else
					bp.Parent = v
					if not v.Parent:IsA("Tool") then
						delay(0,function()
							local pos = v.Position
							wait(.15)
							if (pos-v.Position).magnitude > .1 then
								v:Destroy()
							end
						end)
					end
				end
			end
		end
	end
end

function onEquipped(mouse)
	if mouse==nil then
		print("Mouse not found")
		return
	end
	equipped=true
	mouse.Icon="rbxasset://textures\\GunCursor.png"
	mouse.Button1Down:connect(function()
		if check and equipped then
			check=false
			mouse.Icon="rbxasset://textures\\GunWaitCursor.png"
			local hum=Tool.Parent:FindFirstChild("Humanoid")
			local torso=Tool.Parent:FindFirstChild("Torso")
			--local rightArm=Tool.Parent:FindFirstChild("Right Arm")
			if torso and hum then
				if hum.Health>0 then
					HoseSound = Backpack:FindFirstChild("HoseSound")
					if HoseSound then HoseSound:Play() end
					--theanim:Play()
					playsound("Spray")
					if storeWeld then
						storeWeld.DesiredAngle=-.5
					end
					local frames = 10
					for i = 1, frames do
						if not equipped then break end
						doSuck()
						wait(.2)
					end
					if storeWeld then
						storeWeld.DesiredAngle=0
					end
					wait(2)
				end
			end
			mouse.Icon="rbxasset://textures\\GunCursor.png"
			check=true
		end
	end)
	setwelds()
end

function onUnequipped()
	equipped=false
	if HoseSound then HoseSound:Stop() end
end


Tool.Equipped:connect(onEquipped)
Tool.Unequipped:connect(onUnequipped)
setwelds()



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