local function transferpoints()
    local amount
    local who

    local f = vgui.Create("DFrame")
    f:MakePopup()
    f:SetSize(360,180)
    f:SetPos(85,100)
    f:SetDraggable(false)
    f:ShowCloseButton(true)
    f:SetTitle("Points Transfer")
    f:ShowCloseButton(false)

    local left = vgui.Create("DSizeToContents", f)
    left:SetSizeX(false)
    left:Dock(LEFT)
    left:DockPadding(0,10,0,0)
    left:DockMargin(0, 0, 20, 0)
    left:SetWide(f:GetWide() / 2)
    left:InvalidateLayout()

    local right = vgui.Create("DSizeToContents", f)
    right:SetSizeX(false)
    right:Dock(FILL)
    right:DockPadding(20,10,0,0)
    right:InvalidateLayout()

    local text = vgui.Create("RichText", left)
    text:Dock(FILL)
    text:SetText("How many points would you like to transfer?")
    text:SetVerticalScrollbarEnabled(false)
    function text:PerformLayout()
        self:SetFontInternal("Trebuchet24")
    end

    local entry = vgui.Create("DTextEntry", right)
    entry:Dock(TOP)
    entry:SetNumeric(true)
    entry:SetValue(1)
    function entry:OnChange()
        amount = tonumber(self:GetValue())
    end

    local players = vgui.Create("DComboBox", right)
    players:Dock(TOP)
    function players:OnSelect(_, _, userid)
        who = userid
    end

    local accept = vgui.Create("DButton", right)
    accept:Dock(TOP)
    accept:SetText("Transfer Now")
    function accept:DoClick()
        net.Start("oc_transferpoints")
            net.WriteUInt(amount, 8)
            net.WriteUInt(who, 4)
        net.SendToServer()
    end

    local cancel = vgui.Create("DButton", right)
    cancel:Dock(TOP)
    cancel:SetText("Cancel")
    function cancel:DoClick()
        f:Close()
    end

    for _,p in ipairs(player.GetAll()) do
        players:AddChoice(p:Name(), p:UserID())
    end
end

transferpoints()