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