[Lua] 8xsp's Gear Giver Script 1.2

lplr = game.Players.LocalPlayer
lchar = lplr.Character
lhum = lchar:FindFirstChild("Humanoid")
lrootpart = lhum:FindFirstChild("HumanoidRootPart")
torso = lchar:FindFirstChild("Torso")
animator = lhum.Animator
backpack = lplr.Backpack
ls = torso:FindFirstChild("Left Shoulder")
ra = lchar:FindFirstChild("Right Arm")
lh = torso:FindFirstChild("Left Hip")
la = lchar:FindFirstChild("Left Arm")
rs = torso:FindFirstChild("Right Shoulder")
rh = torso:FindFirstChild("Right Hip")
rl = lchar:FindFirstChild("Right Leg")
ll = lchar:FindFirstChild("Left Leg")
neck = torso:FindFirstChild("Neck")
v3 = Vector3.new
cf = CFrame
create = Instance.new
pixelsizepreferred = 2.75
pgui = lplr.PlayerGui
--Making the gui
screenGUI = create("ScreenGui", pgui)
--Making the textbox
local generalframe = create("Frame")
generalframe.Size = UDim2.new(0, 250, 0, 110)
generalframe.Position = UDim2.new(0.5, 0, 0.5, 0)
generalframe.Active = true
generalframe.Draggable = true
generalframe.BackgroundColor3 = BrickColor.new("Really black").Color
generalframe.BorderSizePixel = 5
generalframe.Transparency = 0.1
generalframe.Parent = screenGUI
local textbox = create("TextBox", generalframe)
textbox.Position = UDim2.new(0.5/5, 0, 0.375, 0)
textbox.Size = UDim2.new(0, 200, 0, 25)
textbox.BackgroundColor3 = BrickColor.new("Really black").Color
textbox.Text = "Insert ID Here"
textbox.TextColor = BrickColor.new("Institutional white")
textbox.Font = "SciFi"
textbox.FontSize = "Size24"
textbox.BorderSizePixel = pixelsizepreferred
--Making give gear button
local execbutton = create("TextButton", generalframe)
execbutton.Position = textbox.Position + UDim2.new(0, 0, 0, 32.5)
execbutton.Size = UDim2.new(0, 95, 0, 20)
execbutton.Text = "Insert"
execbutton.BackgroundColor3 = BrickColor.new("Really black").Color
execbutton.TextColor = BrickColor.new("Institutional white")
execbutton.Font = "SciFi"
execbutton.FontSize = Enum.FontSize.Size18
execbutton.BorderSizePixel = pixelsizepreferred
--Making clear inventory button
local clearbutton = create("TextButton", generalframe)
clearbutton.Position = execbutton.Position + UDim2.new(0, 105, 0, 0)
clearbutton.Size = UDim2.new(0, 95, 0, 20)
clearbutton.Text = "Clear"
clearbutton.BackgroundColor3 = BrickColor.new("Really black").Color
clearbutton.TextColor = BrickColor.new(255, 255, 255)
clearbutton.Font = "SciFi"
clearbutton.FontSize = Enum.FontSize.Size18
clearbutton.BorderSizePixel = pixelsizepreferred
--Making credits text
local credits = Instance.new("TextLabel")
credits.Parent = generalframe
credits.Position = textbox.Position - UDim2.new(0, 0, 0, 30)
credits.Size = UDim2.new(0, 200, 0, 25)
credits.BackgroundColor3 = BrickColor.new("Really black").Color
credits.Text = "Programmed by 8xsp"
credits.Font = "SciFi"
credits.FontSize = "Size18"
credits.TextColor = BrickColor.new(255, 255, 255)
credits.BorderSizePixel = pixelsizepreferred
function givegear()
	local gearid = textbox.Text
	local InsertService = game:GetService('InsertService')
	local gearmodel = InsertService:LoadAsset(gearid)
	vgear = gearmodel:GetChildren()[1]
	vgear.Parent = backpack
end
execbutton.MouseButton1Down:connect(function()
	givegear()
	if vgear:IsA("Hat") then
		vgear.Parent = lchar
	end
end)
clearbutton.MouseButton1Down:connect(function()
	for i, v in pairs (backpack:GetChildren()) do
		if v:IsA("Tool") then
			v:Remove()
		end
	end
end)