How can I reduce the laggyness of this script?

mouse.Move:connect(function()
	if player.PlayerGui:FindFirstChild("PickUpItemsNames") ~= nil then
		player.PlayerGui:FindFirstChild("PickUpItemsNames"):Destroy()
	end
	if mouse.Target and mouse.Target.Parent and mouse.Target.Parent.Parent and (mouse.Target.Parent.Parent:FindFirstChild("InvStats") ~= nil or mouse.Target.Parent.Parent:FindFirstChild("StorStats") ~= nil) and (mouse.Target.Position - player.Character.Torso.Position).magnitude <= setdistance then
	if mouse.Target.Parent.Parent:FindFirstChild("InvStats") ~= nil then
			local stats = mouse.Target.Parent.Parent:FindFirstChild("InvStats")
			local screengui = basescreengui:Clone()
			screengui.TextLabel.Text = stats.ItemName.Value
			screengui.TextLabel.Position = UDim2.new(0,mouse.X,0,mouse.Y - screengui.TextLabel.Size.Y.Offset)
			screengui.Parent = player.PlayerGui
			screengui.TextLabel.Visible = true
			if screengui.TextLabel.TextFits == false then
				screengui.TextLabel.Size = UDim2.new(0, screengui.TextLabel.TextBounds.X + 10, 0, screengui.TextLabel.TextBounds.Y)
			end
		else
			local stats = mouse.Target.Parent.Parent:FindFirstChild("StorStats")
			local screengui = basescreengui:Clone()
			screengui.TextLabel.Text = stats.ItemName.Value
			screengui.TextLabel.Position = UDim2.new(0,mouse.X,0,mouse.Y - screengui.TextLabel.Size.Y.Offset)
			screengui.Parent = player.PlayerGui
			screengui.TextLabel.Visible = true
			if screengui.TextLabel.TextFits == false then
				screengui.TextLabel.Size = UDim2.new(0, screengui.TextLabel.TextBounds.X + 10, 0, screengui.TextLabel.TextBounds.Y)
			end
		end
		
	end
	mouse.Button1Down:connect(function()
		if player.PlayerGui:FindFirstChild("PickUpItemsNames") ~= nil then
			player.PlayerGui:FindFirstChild("PickUpItemsNames"):Destroy()
		end
		if mouse.Target and mouse.Target.Parent and mouse.Target.Parent.Parent and mouse.Target.Parent.Parent.ClassName == "Model" and mouse.Target.Parent.Parent:FindFirstChild("InvStats") ~= nil  and (mouse.Target.Position - player.Character.Torso.Position).magnitude <= setdistance then
			local model = mouse.Target.Parent.Parent
		local storageitem = lookthroughstorage(storage:GetChildren(), model.InvStats.Weight.Value)
		if storageitem ~= nil and model.Name == "Primary" then
			model.Parent = toolsquipped.Primary
			model:MoveTo(teleportposition)
			local actualgunbase = gunstorage:FindFirstChild(model.InvStats.ItemName.Value)
			actualgun = actualgunbase:Clone()
			actualgun.Parent = player.Backpack
		elseif storageitem ~= nil then
			storageitem.StorStats.StorageLeft.Value = storageitem.StorStats.StorageLeft.Value - model.InvStats.Weight.Value 
			model.Parent = storageitem.Items
			model:MoveTo(teleportposition)
		end
		elseif mouse.Target and mouse.Target.Parent and mouse.Target.Parent.Parent and mouse.Target.Parent.Parent.ClassName == "Model" and mouse.Target.Parent.Parent:FindFirstChild("StorStats") ~= nil  and (mouse.Target.Position - player.Character.Torso.Position).magnitude <= setdistance then
				local model = mouse.Target.Parent.Parent
			if model.Name == "Backpack" and storage:FindFirstChild("Backpack") == nil then
				local parts = model.Parts
				parts.Name = "Backpack"
				parts.Parent = player.Character
				WeldToTorso(parts.Base, parts.WeldStatsPos.Value, parts.WeldStatsRot.Value)
				model.Items:MoveTo(teleportposition)
				model.Parent = storage
			elseif model.Name == "Belt" and storage:FindFirstChild("Belt") == nil then
				model.Parent = storage
			elseif model.Name == "Shirt" and storage:FindFirstChild("Shirt") == nil then
				model.Parent = storage
				local parts = model.Parts
				parts:MoveTo(teleportposition)
				player.Character.Shirt.ShirtTemplate = model.StorStats.ShirtAsset.Value
			elseif model.Name == "Pants" and storage:FindFirstChild("Pants") == nil then
				model.Parent = storage
				local parts = model.Parts
				parts:MoveTo(teleportposition)
				player.Character.Pants.PantsTemplate = model.StorStats.PantsAsset.Value
			elseif model.Name == "Hat" and storage:FindFirstChild("Hat") == nil then
				model.Parent = storage
			end
		end
	end)
end)

LocalScript that runs under PlayerGui, not full script(missing variables at the top).

I know this is a bit messy, and if cleaning it up will help increase the efficiency, then you'll have to show me how. I was mainly wondering why it is so laggy, and what could I do to fix it? Thanks in advance.

(BTW there are no errors, and I wanted to compress all the picking up items of my storage system into one script.)

-Stats under Script Performance-
Rate			Activity

29/s			0.1%-0.2%		-When mouse is just moving around
285/s- 400/s	5%-30%		-When mouse clicks


--(Put in code block to see it correctly)

Edit 2:If I am missing any needed info put in comments