PhysGun_LSB

local ScriptENV,NewENV do -- Basically EZConvert, but better :)
	--Be warned! Scripts may or may not have a noticable performance issue depending on the senario (unoptimized expensive loops etc)

	local Players = game:GetService("Players")
	local RunService = game:GetService("RunService")

	local _ENV = getfenv()

	local Player = _ENV.owner or Players:GetPlayerFromCharacter(script.Parent) or (script.Parent.Parent:IsA("Player") and script.Parent.Parent)

	if not Player then
		error("Cannot run script : must be ran in a sandbox, inside a character, or inside playergui/backpack")
	end

	local Remote = Player:FindFirstChild("SyncInput")

	if not Remote then
		Remote = Instance.new("UnreliableRemoteEvent")
		Remote.Name = "SyncInput"
		Remote.Parent = Player
	end

	local Signal = (function() -- GoodSignal module by stravant
		local freeRunnerThread = nil
		local function acquireRunnerThreadAndCallEventHandler(fn, ...)
			local acquiredRunnerThread = freeRunnerThread
			freeRunnerThread = nil
			fn(...)
			freeRunnerThread = acquiredRunnerThread
		end
		local function runEventHandlerInFreeThread()
			while true do
				acquireRunnerThreadAndCallEventHandler(coroutine.yield())
			end
		end
		local Connection = {}
		Connection.__index = Connection
		function Connection.new(signal, fn)
			return setmetatable({
				_connected = true,
				_signal = signal,
				_fn = fn,
				_next = false,
			}, Connection)
		end
		function Connection:Disconnect()
			self._connected = false
			if self._signal._handlerListHead == self then
				self._signal._handlerListHead = self._next
			else
				local prev = self._signal._handlerListHead
				while prev and prev._next ~= self do
					prev = prev._next
				end
				if prev then
					prev._next = self._next
				end
			end
		end
		Connection.disconnect = Connection.Disconnect
		setmetatable(Connection, {
			__index = function(tb, key)
				error(("Attempt to get Connection::%s (not a valid member)"):format(tostring(key)), 2)
			end,
			__newindex = function(tb, key, value)
				error(("Attempt to set Connection::%s (not a valid member)"):format(tostring(key)), 2)
			end
		})
		local Signal = {}
		Signal.__index = Signal
		function Signal.new()
			return setmetatable({
				_handlerListHead = false,
			}, Signal)
		end
		function Signal:Connect(fn)
			local connection = Connection.new(self, fn)
			if self._handlerListHead then
				connection._next = self._handlerListHead
				self._handlerListHead = connection
			else
				self._handlerListHead = connection
			end
			return connection
		end
		function Signal:DisconnectAll()
			self._handlerListHead = false
		end
		function Signal:Fire(...)
			local item = self._handlerListHead
			while item do
				if item._connected then
					if not freeRunnerThread then
						freeRunnerThread = coroutine.create(runEventHandlerInFreeThread)
						-- Get the freeRunnerThread to the first yield
						coroutine.resume(freeRunnerThread)
					end
					task.spawn(freeRunnerThread, item._fn, ...)
				end
				item = item._next
			end
		end
		function Signal:Wait()
			local waitingCoroutine = coroutine.running()
			local cn;
			cn = self:Connect(function(...)
				cn:Disconnect()
				task.spawn(waitingCoroutine, ...)
			end)
			return coroutine.yield()
		end
		function Signal:Once(fn)
			local cn;
			cn = self:Connect(function(...)
				if cn._connected then
					cn:Disconnect()
				end
				fn(...)
			end)
			return cn
		end

		Signal.wait = Signal.Wait 
		Signal.fire = Signal.Fire 
		Signal.connect = Signal.Connect 

		-- Signal.once doesn't exist in luau, so we don't add it here.

		setmetatable(Signal, {
			__index = function(tb, key)
				error(("Attempt to get Signal::%s (not a valid member)"):format(tostring(key)), 2)
			end,
			__newindex = function(tb, key, value)
				error(("Attempt to set Signal::%s (not a valid member)"):format(tostring(key)), 2)
			end
		})
		return Signal
	end)()

	local NLS = _ENV.NLS

	if NLS then -- If NLS doesn't exist, a local script should be parented to this script (with the same code).
		NLS([[local Player = game:GetService("Players").LocalPlayer
	local Remote = Player:WaitForChild("SyncInput")

	local UserInputService = game:GetService("UserInputService")

	if not Remote then
		error("Cannot run script: Unable to find remote - Client failed to launch")
	end

	local UpdateInterval = 1 / 40

	local Mouse = Player:GetMouse()

	Mouse.TargetFilter = Player.Character

	local InputObjectProperties = {
		"Position",
		"KeyCode",
		"UserInputType",
		"UserInputState",
		"Delta",
	}

	local MouseProperties = {
		"Hit",
		"Icon",
		"Origin",
		"Target",
		"TargetFilter",
		"TargetSurface",
		"UnitRay",
		"ViewSizeX",
		"ViewSizeY",
		"X",
		"Y",
		"hit",
		"target",
	}

	UserInputService.InputBegan:Connect(function(Input, GP)
		local Package = {}

		for i = 1, #InputObjectProperties do
			local Name = InputObjectProperties[i]
			Package[Name] = Input[Name]
		end

		Remote:FireServer(1, Package, GP)
	end)

	UserInputService.InputChanged:Connect(function(Input, GP)
		local Package = {}

		for i = 1, #InputObjectProperties do
			local Name = InputObjectProperties[i]
			Package[Name] = Input[Name]
		end

		Remote:FireServer(2, Package, GP)
	end)

	UserInputService.InputEnded:Connect(function(Input, GP)
		local Package = {}

		for i = 1, #InputObjectProperties do
			local Name = InputObjectProperties[i]
			Package[Name] = Input[Name]
		end

		Remote:FireServer(0, Package, GP)
	end)

	local ReplicateList = {}

	Remote.OnClientEvent:Connect(function(Type, Package)
		if Type == 0 then
			local Object = Package[1]
			local Properties = Package[2]

			ReplicateList[Object] = Properties

			for i = 1, #Properties do
				local Name = Properties[i]
				Object:GetPropertyChangedSignal(Name):Connect(function()
					if table.find(ReplicateList, Name) then return end

					table.insert(ReplicateList[Object], Object[Name])
				end)
			end
		end
	end)

	function Update()
		local MousePackage = {}

		for i = 1, #MouseProperties do
			local Name = MouseProperties[i]
			MousePackage[Name] = Mouse[Name]
		end

		Remote:FireServer(3, {
			Mouse = MousePackage,
			Replicate = ReplicateList
		})
	end

	Update()

	while true do
		task.wait(UpdateInterval)

		Update()
	end]], Player.PlayerGui)
	end

	task.wait(0.5)

	local Mouse = {}
	local UserInputService = {}

	Mouse.KeyDown = Signal.new()
	Mouse.KeyUp = Signal.new()
	Mouse.Button1Down = Signal.new()
	Mouse.Button1Up = Signal.new()
	Mouse.Button2Down = Signal.new()
	Mouse.Button2Up = Signal.new()

	--TODO: Implement these
	Mouse.Move = Signal.new()
	Mouse.Idle = Signal.new()

	-- TODO: More UserInputService properties.
	UserInputService.InputBegan = Signal.new()
	UserInputService.InputEnded = Signal.new()
	UserInputService.InputChanged = Signal.new()

	UserInputService.InputBegan:Connect(function(Input, GP)
		if not GP then
			if Input.KeyCode ~= Enum.KeyCode.Unknown then
				Mouse.KeyDown:Fire(utf8.char(Input.KeyCode.Value))
			end
			if Input.UserInputType == Enum.UserInputType.MouseButton1 then
				Mouse.Button1Down:Fire()
			end
			if Input.UserInputType == Enum.UserInputType.MouseButton2 then
				Mouse.Button2Down:Fire()
			end
		end
	end)

	UserInputService.InputEnded:Connect(function(Input, GP)
		if not GP then
			if Input.KeyCode ~= Enum.KeyCode.Unknown then
				Mouse.KeyUp:Fire(utf8.char(Input.KeyCode.Value))
			end
			if Input.UserInputType == Enum.UserInputType.MouseButton1 then
				Mouse.Button1Up:Fire()
			end
			if Input.UserInputType == Enum.UserInputType.MouseButton2 then
				Mouse.Button2Up:Fire()
			end
		end
	end)

	local MouseProperties = {
		["Hit"] = CFrame.new(),
		["Icon"] = "",
		["Origin"] = CFrame.new(),
		["Target"] = nil,
		["TargetFilter"] = nil,
		["TargetSurface"] = nil,
		["UnitRay"] = nil,
		["ViewSizeX"] = 0,
		["ViewSizeY"] = 0,
		["X"] = 0,
		["Y"] = 0,
		["hit"] = CFrame.new(),
		["target"] = nil
	}

	for Name, Connection in Mouse do 
		Mouse[Name:sub(1,1)..Name:sub(2)] = Connection
	end

	for Name, Connection in UserInputService do 
		Mouse[Name:sub(1,1)..Name:sub(2)] = Connection
	end

	local InputTypes = {
		[0] = "InputEnded",
		[1] = "InputBegan",
		[2] = "InputChanged",
		-- Number 3 is specially handled
	}

	local ReplicatedProperties = {

	}

	Remote.OnServerEvent:Connect(function(Sender, Type, Package, ...)
		local UISType = InputTypes[Type]
		if UISType then
			UserInputService[UISType]:Fire(Package, ...)
		end

		if Type == 3 then -- Mouse and replication stuff
			for k,v in pairs(Package.Mouse) do
				MouseProperties[k] = v
			end
			--MouseProperties = Package.Mouse
			for k,v in pairs(Package.Replicate) do
				ReplicatedProperties[k] = v
			end
			--ReplicatedProperties = Package.Replicate
		end
	end)

	function Unsandbox(Value)
		if Value and typeof(Value) == "table" then
			local Real = Value._Real
			if Real then
				return Real
			end
		end
	end

	function GetReplicated(Object, Property)
		if not ReplicatedProperties[Object] then
			local Replicate = {
				[Property] = 0
			}
			ReplicatedProperties[Object] = Replicate
			Remote:FireClient(Player, 0, {Object, Replicate})
		end

		local ReplicatedProperty = ReplicatedProperties[Object]

		if not ReplicatedProperty[Property] then
			ReplicatedProperties[Object][Property] = Object[Property]
		end

		return ReplicatedProperty[Property]
	end

	function Sandbox(Object, Custom)
		if Object == nil then
			return
		end
		if Unsandbox(Object) then
			return Object
		end
		return setmetatable({}, {
			__index = function(self, Property)
				if Property == "_Real" then
					return Object
				end

				local CustomValue = (Custom and Custom[Property])
				if CustomValue then
					return CustomValue
				end

				local Value = Object[Property]

				local Unsandboxed = Unsandbox(Value)

				if Property == "PlaybackLoudness" or Property == "playbackLoudness" then					
					return GetReplicated(Object, "PlaybackLoudness")
				end

				if Value and typeof(Value) == "function" then
					return function(_, ...)
						local UnsandboxedArgs = {...}
						for i = 1, #UnsandboxedArgs do 
							UnsandboxedArgs[i] = Unsandbox(UnsandboxedArgs[i]) or UnsandboxedArgs[i]
						end
						local Result = Value(Object, table.unpack(UnsandboxedArgs))
						if Result then
							if typeof(Result) == "Instance" then
								Result = Sandbox(Result)
							end
							if typeof(Result) == "table" then
								for Index, Object in Result do 
									if typeof(Object) == "Instance" then
										Result[Index] = Sandbox(Object)
									end
								end
							end
						end
						return Result
					end
				end
				if Value and typeof(Value) == "Instance" then
					Value = Sandbox(Value)
				end

				return Value
			end,
			__newindex = function(self, Property, Value)
				Object[Property] = Unsandbox(Value) or Value
			end,
			__metatable = "The metatable is locked",
			__type = "Instance",
			__tostring = function()
				return Object.Name
			end,
		})
	end

	NewENV = {}
	NewENV.typeof = function(Object)
		local Unsandboxed = Unsandbox(Object)
		return (Unsandboxed and typeof(Unsandboxed) or typeof(Object))
	end

	NewENV.type = function(Object)
		local Unsandboxed = Unsandbox(Object)
		return (Unsandboxed and type(Unsandboxed) or type(Object))
	end

	local FakeMouse = setmetatable({}, {
		__index = function(self, Property)
			return Mouse[Property] or MouseProperties[Property]
		end,
		__newindex = function(self, Property, Value)
			error("Cant set property of \"Mouse\"", 2)
		end,
		__metatable = "The metatable is locked",
		__type = "Instance",
		__tostring = function()
			return "Mouse"
		end,
	})

	function GetMouse()
		return FakeMouse
	end

	local FakePlayer = Sandbox(Player, {
		GetMouse = GetMouse,
		getMouse = GetMouse
	})

	local FakePlayers = Sandbox(Players, {
		LocalPlayer = FakePlayer,
		localPlayer = FakePlayer
	})

	local Services = {
		Players = FakePlayers,
		players = FakePlayers,
		UserInputService = UserInputService,
		userInputService = UserInputService,
	}

	function GetService(_, Name)
		return Sandbox(Services[Name] or game:GetService(Name))
	end

	NewENV.script = Sandbox(script, {
		Parent = Player.Character,
		parent = Player.Character
	})

	NewENV.game = Sandbox(game, {
		table.unpack(Services),
		GetService = GetService,
		getService = GetService,
		service = GetService,
	})

	NewENV.Instance = {
		new = function(Class, Parent)
			return Sandbox(Instance.new(Class, Unsandbox(Parent) or Parent))
		end,
	}

	NewENV.owner = Player	
	NewENV.mouse = FakeMouse

	NewENV.LoadLibrary = function(Library)
		if Library == "RbxUtility" then
			return {
				Create = function(Class)
					local Object = NewENV.Instance.new(Class)
					return function(Properties)
						for Name, Value in Properties do
							Object[Name] = Value
						end
						return Object
					end
				end
			}
		end
	end

	ScriptENV = setmetatable({}, {
		__index = function(self, Index)
			return NewENV[Index] or _ENV[Index]
		end,
		__newindex = function(self, Index, Value)
			rawset(ScriptENV, Index, Value)
		end,
		__metatable = "The metatable is locked"
	})
end

setfenv(1, ScriptENV)

local STRENGTH = 40
local BRING_SPEED = 10
local UPDATE_RATE = 1 / 60
local VIEWMODEL_LERP_SPEED = 20
local VIEWMODEL_OFFSET = Vector3.xAxis * 0.45 + Vector3.yAxis * -0.8 + Vector3.zAxis * -2.2

local RIGHT_ARM_CFRAME = CFrame.new(0,0.2,1.2) * CFrame.Angles(math.rad(90),0,0)
local LEFT_ARM_CFRAME = CFrame.new(-0.7,-0.3,1.4) * CFrame.Angles(0,math.rad(-30),0) * CFrame.Angles(math.rad(110),0,0)

local _ENV = getfenv()

local NLS = _ENV.NLS
local LoadAssets = _ENV.LoadAssets

local player = _ENV.owner :: Player
local character = player.Character or player.CharacterAdded:Wait()
local mouse = _ENV.mouse or player:GetMouse()

local isGrabbingObject = false
local grabbedObject: BasePart = nil
local grabbedObjectDistance: number = 10
local bringCloser = false
local pushFurther = false

local cameraCFrame = CFrame.new()
local cameraRemote = player:FindFirstChild("CameraRemote") :: UnreliableRemoteEvent

if not cameraRemote then
	cameraRemote = Instance.new("UnreliableRemoteEvent")
	cameraRemote.Name = "CameraRemote"
	cameraRemote.Parent = player
end

local humanoid = character:FindFirstChildWhichIsA("Humanoid") or character:WaitForChild("Humanoid") :: Humanoid

assert(humanoid.RootPart,"No Humanoid, go away.")
assert(humanoid.RigType == Enum.HumanoidRigType.R6,"You ain't R6, go away.")

local function CreateSound(name: string,id: number,volume: number,speed: number,looped: boolean,parent: Instance): Sound
	local sound = Instance.new("Sound")
	sound.Name = name
	sound.SoundId = "rbxassetid://" .. id

	sound.Volume = volume
	sound.PlaybackSpeed = speed
	sound.Looped = looped

	sound.Parent = parent
	return sound
end

local function PlaySound(sound: Sound)
	if sound.IsPlaying then return end
	sound:Play()
end

local function StopSound(sound: Sound)
	if not sound.IsPlaying then return end
	sound:Stop()
end

local function WeldFromMotor6D(motor: Motor6D): Weld
	local weld = Instance.new("Weld")

	weld.Name = motor.Name .. "Weld"
	weld.Part0 = motor.Part0
	weld.Part1 = motor.Part1
	weld.C0 = motor.C0
	weld.C1 = motor.C1
	weld.Parent = motor.Parent

	return weld
end

local head = character:WaitForChild("Head") :: Part
local torso = character:WaitForChild("Torso") :: Part

local rightShoulderM6D = torso:WaitForChild("Right Shoulder") :: Motor6D
local leftShoulderM6D = torso:WaitForChild("Left Shoulder") :: Motor6D

local rightShoulder = WeldFromMotor6D(rightShoulderM6D)
local leftShoulder = WeldFromMotor6D(leftShoulderM6D)

local cameraPart = Instance.new("Part")
cameraPart.Name = "CamPart"
cameraPart.Size = Vector3.one * 0.5
cameraPart.Transparency = 0.5
cameraPart.Anchored = false
cameraPart.CanCollide = false
cameraPart.CanQuery = false
cameraPart.CanTouch = false
cameraPart.Parent = character

local cameraPartWeld = Instance.new("Motor6D")
cameraPartWeld.Name = "CameraWeld"
cameraPartWeld.Parent = head
cameraPartWeld.Part0 = head
cameraPartWeld.Part1 = cameraPart

local physGunMesh

if LoadAssets then
	local assets = LoadAssets(108178658193241)
	physGunMesh = assets:Get("PhysGunMesh"):Clone() :: MeshPart
else
	physGunMesh = game:GetService("ReplicatedStorage").PhysGunMesh:Clone() :: MeshPart
end

physGunMesh.Parent = character

local beam = physGunMesh:WaitForChild("Beam") :: Beam
local beamEnd = physGunMesh:WaitForChild("BeamEnd") :: Attachment

local physGunLoop1 = CreateSound("Loop1",119960158123039,0.5,1,true,physGunMesh)
local physGunLoop2 = CreateSound("Loop2",85596412341924,1,1,true,physGunMesh)

local physGunWeld = Instance.new("Motor6D")
physGunWeld.Name = "PhysGunWeld"
physGunWeld.Parent = cameraPart
physGunWeld.Part0 = cameraPart
physGunWeld.Part1 = physGunMesh

local rightArmIkPos = physGunMesh:WaitForChild("RightArmIK") :: Attachment
local leftArmIkPos = physGunMesh:WaitForChild("LeftArmIK") :: Attachment

local globalPhysGunTarget = workspace:FindFirstChild("PhysGunTarget") :: Part

if not globalPhysGunTarget then
	local globalPhysGunTarget = Instance.new("Part")
	globalPhysGunTarget.Name = "PhysGunTarget"
	globalPhysGunTarget.Transparency = 1
	globalPhysGunTarget.Position = Vector3.yAxis * -10
	globalPhysGunTarget.Anchored = true
	globalPhysGunTarget.CanCollide = false
	globalPhysGunTarget.CanQuery = false
	globalPhysGunTarget.CanTouch = false
	globalPhysGunTarget.Parent = workspace
end


if NLS then
	NLS([[
local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local camera = workspace.CurrentCamera
local remote = player:WaitForChild("CameraRemote")

local RenderStepName = "PhysGunUpdate"
local IsBound = true

local physGun = character:WaitForChild("PhysGunMesh")
local rightArm = character:WaitForChild("Right Arm")
local leftArm = character:WaitForChild("Left Arm")

local beam = physGun:WaitForChild("Beam")

physGun:GetPropertyChangedSignal("LocalTransparencyModifier"):Connect(function()
	physGun.LocalTransparencyModifier = physGun.Transparency
end)

rightArm:GetPropertyChangedSignal("LocalTransparencyModifier"):Connect(function()
	rightArm.LocalTransparencyModifier = rightArm.Transparency
end)

leftArm:GetPropertyChangedSignal("LocalTransparencyModifier"):Connect(function()
	leftArm.LocalTransparencyModifier = leftArm.Transparency
end)

beam:GetPropertyChangedSignal("LocalTransparencyModifier"):Connect(function()
	beam.LocalTransparencyModifier = 0
end)

local function Update()
	remote:FireServer(camera.CFrame)
end

local function UnbindRenderStep()
	if not IsBound then return end
	
	game:GetService("RunService"):UnbindFromRenderStep(RenderStepName)
end

game:GetService("RunService"):BindToRenderStep(RenderStepName,Enum.RenderPriority.Camera.Value + 1,function()
	Update()
end)

Update()

character.Destroying:Connect(UnbindRenderStep)
	]],player.PlayerGui)
end

mouse.Button1Down:Connect(function()
	if isGrabbingObject then return end
	if mouse.Target ~= nil and mouse.Target.Anchored == false then
		local model = mouse.Target:FindFirstAncestorWhichIsA("Model")

		if model and model.PrimaryPart ~= nil and model.PrimaryPart.Anchored == false then
			grabbedObject = model.PrimaryPart
		else
			grabbedObject = mouse.Target
		end

		grabbedObjectDistance = (grabbedObject.CFrame.Position - head.CFrame.Position).Magnitude
		isGrabbingObject = true
	end
end)

mouse.Button1Up:Connect(function()
	if not isGrabbingObject then return end
	
	if grabbedObject then grabbedObject.AssemblyLinearVelocity = Vector3.zero end
	
	isGrabbingObject = false
end)

mouse.KeyDown:Connect(function(key)
	if key == "e" then
		pushFurther = true
	end
	if key == "q" then
		bringCloser = true
	end
end)

mouse.KeyUp:Connect(function(key)
	if key == "e" then
		pushFurther = false
	end
	if key == "q" then
		bringCloser = false
	end
end)

cameraRemote.OnServerEvent:Connect(function(player: Player,cframe: CFrame)
	cameraCFrame = cframe
end)

local function Update(dt: number)
	local cameraRot = Vector3.new(cameraCFrame:ToOrientation())

	cameraPartWeld.C0 = cameraPartWeld.C0:Lerp(CFrame.Angles(cameraRot.X,0,0),1 - math.pow(0.5,dt * VIEWMODEL_LERP_SPEED))

	local newCframe = CFrame.new(VIEWMODEL_OFFSET)
	physGunWeld.C0 = newCframe

	local raCF = rightArmIkPos.WorldCFrame * RIGHT_ARM_CFRAME
	rightShoulder.C0 = raCF:ToObjectSpace(rightShoulder.Part0.CFrame):Inverse()

	local laCF = leftArmIkPos.WorldCFrame * LEFT_ARM_CFRAME
	leftShoulder.C0 = laCF:ToObjectSpace(leftShoulder.Part0.CFrame):Inverse()

	if isGrabbingObject and grabbedObject ~= nil then
		if pushFurther then
			grabbedObjectDistance += BRING_SPEED * dt
		end

		if bringCloser and grabbedObjectDistance > 3 then
			grabbedObjectDistance -= BRING_SPEED * dt
		end

		local mouseDir = (mouse.Hit.Position - head.CFrame.Position).Unit
		local newPos = head.Position + mouseDir * grabbedObjectDistance
		local distanceToNewPos = (grabbedObject.Position - newPos).Magnitude
		
		grabbedObject.AssemblyLinearVelocity = (newPos - grabbedObject.CFrame.Position).Unit * distanceToNewPos * STRENGTH * grabbedObject:GetMass()
		PlaySound(physGunLoop1)
		PlaySound(physGunLoop2)

		beamEnd.WorldPosition = grabbedObject.Position
		beam.Enabled = true
	else
		beam.Enabled = false
		StopSound(physGunLoop1)
		StopSound(physGunLoop2)
	end
end

local UpdateConnection = game:GetService("RunService").Heartbeat:Connect(Update)

local function Cleanup()
	if beamEnd then
		beamEnd:Destroy()
	end
	if grabbedObject then
		grabbedObject.AssemblyLinearVelocity = Vector3.zero
	end
	if not UpdateConnection or not UpdateConnection.Connected then return end
	UpdateConnection:Disconnect()
end

character.Destroying:Connect(Cleanup)
humanoid.Died:Connect(Cleanup)