Adding a Question GUI?

You may recongize this script, Its the Handto GUI. I was able to get all Thet encrypting out of the way. I want to add a thing to where it ask the player getting the tool if they want it. If clicks Yes add the Tool If No Dont add tool, That kinda thing. I know may be a bit more to ask but can anyone help me figure this out?

groupid=0
minrank=0

local StringConstants = {"You can't give something to yourself. Nice try.";"HopperBin";"Tool";" could not be VKEFNIYNZM on the server.";"Somehow you're holding more than one tool.";"You're not holding anything to give ";".";"TextButton";"List";"Size18";"Give holding item to '";"'?";"TextLabel";"Dead";"You hit something you shouldent be hitting. Contact the operator.";}
plr=script.Parent.Parent.Parent
other=nil
script.Parent.Problem.Close.MouseButton1Click:connect(function()
	if script.Parent.Problem.Visible==true then
		script.Parent.Problem.Visible=false
		script.Parent.HandTo.Visible=true
	end	
end)	
script.Parent.Accept.Yes.MouseButton1Click:connect(function()
	if script.Parent.Accept.Visible==true then
		if plr.Name==other then
			script.Parent.Accept.Visible=false
			script.Parent.Problem.Visible=true
			script.Parent.Problem.Title.Text=StringConstants[1]
		else
			script.Parent.Accept.Visible=false
			local VKEFNIYNZM=0
			local tool=nil
			all=plr.Character:getChildren()
			for a=1,#all do
				if all[a].className==StringConstants[2] or all[a].className==StringConstants[3]then
					VKEFNIYNZM=VKEFNIYNZM+1
					tool=all[a]
				end
			end
		end
	end
end)
if VKEFNIYNZM==1 then
				if game.Players:findFirstChild(other)==nil then
					script.Parent.Problem.Visible=true
					script.Parent.Problem.Title.Text=other..StringConstants[4]
				else
					script.Parent.Accept1.Visible = true
					if script.Parent.Accept1.Yes.MouseButton1Click:connect() then
						tool.Parent=game.Players[other].Backpack
					end
				end
				else
					if script.Parent.Accept1.No.MouseButton1Click:connect() then
						script.Parent.Accept1.Visible = false	
					end
				end 
              elseif
               VKEFNIYNZM==2 then
				script.Parent.Problem.Visible=true
				script.Parent.Problem.Title.Text=StringConstants[5]
			elseif VKEFNIYNZM==0 then
				script.Parent.Problem.Visible=true
				script.Parent.Problem.Title.Text=StringConstants[6]..other..StringConstants[7]
			end
            end 
script.Parent.Accept.No.MouseButton1Click:connect(function()
	if script.Parent.Accept.Visible==true then
		script.Parent.Accept.Visible=false
		script.Parent.HandTo.Visible=true
	end
end)
script.Parent.Open.MouseButton1Click:connect(function()
	if script.Parent.HandTo.Visible==false then
		script.Parent.HandTo.Visible=true
	else
		script.Parent.HandTo.Visible=false
	end 
end)

function List(UserName,Time,SizeY,Pos)
	local ins = Instance.new(StringConstants[8])
	ins.BackgroundTransparency = 1
	ins.Name = StringConstants[9]
	ins.TextScaled = true
	ins.TextWrapped = true
	ins.Text = UserName
	ins.Size = UDim2.new(1,0,SizeY,0)
	ins.Position = UDim2.new(0,0,Pos,0)
	ins.Parent = script.Parent.HandTo.List
	ins.TextColor3 = Color3.new(1,1,1)
	ins.FontSize = StringConstants[10]
	ins.MouseButton1Click:connect(function()
		if script.Parent.HandTo.Visible==true then 
			other=UserName
			script.Parent.HandTo.Visible=false
			script.Parent.Accept.Visible=true
			script.Parent.Accept.Title.Text=StringConstants[11]..other.."'?"
		end 
	end)
end
while true do
	script.Parent.HandTo.List:ClearAllChildren()
	all = game.Players:getChildren()
	if
#all == 0 then
		local ins Instance.new(StringConstants[13])
		ins.BackgroundTransparency = 1
		ins.Name = StringConstants[14]
		ins.TextScaled = true
		ins.Text = StringConstants[15]
		ins.Size = UDim2.new(1,0,1,0)
		ins.Position = UDim2.new(0,0,0,0)
		ins.Parent = script.Parent.HandTo.List
		ins.TextColor3 = Color3.new(1,1,1)
	else
		for a,v in pairs(all) do
			local val = 1/#all
			local pos = (a-1)/#all
			List(v.Name,v.Name,val,pos)
		end 
	end
	wait(1)
end