local PLAYER = _R.Player

function PLAYER:AddChat( r, g, b, m, r2, g2, b2, m2 )
    if !r or !g or !b or !msg then return end
    if msg2 and !r2 or !g2 or !b2 then return end
    if msg then
        chat.AddText( Color( r, g, b ), msg )
    elseif msg and msg2 then
        chat.AddText( Color( r, g, b ), msg, Color( r2, g2, b2 ), msg2 )
    else
        print("||--> AddChat error, something dun goof'd. <--||")
    end
end
-- Lua generated by DermaDesigner

concommand.Add("vb4_register", function( p, c, a )
    local DFrame1 = vgui.Create('DFrame')
    DFrame1:SetSize(300, 300)
    DFrame1:SetPos(0, 0)
    DFrame1:SetTitle('Forum Registeration')
    DFrame1:SetSizable(true)
    DFrame1:SetDeleteOnClose(false)
    DFrame1:MakePopup()

    local DTextEntry1 = vgui.Create('DTextEntry', DFrame1)
    DTextEntry1:SetSize(100, 20)
    DTextEntry1:SetPos(5, 50)
    DTextEntry1:SetText('')

    local DLabel1 = vgui.Create('DLabel', DFrame1)
    DLabel1:SetPos(8, 30)
    DLabel1:SetText('Username:')
    DLabel1:SizeToContents()

    local DTextEntry2 = vgui.Create('DTextEntry', DFrame1)
    DTextEntry2:SetSize(100, 20)
    DTextEntry2:SetPos(5, 100)
    DTextEntry2:SetText('')

    local DLabel2 = vgui.Create('DLabel', DFrame1)
    DLabel2:SetPos(8, 80)
    DLabel2:SetText('Password:')
    DLabel2:SizeToContents()

    local DLabel3 = vgui.Create('DLabel', DFrame1)
    DLabel3:SetPos(8, 130)
    DLabel3:SetText('Email:')
    DLabel3:SizeToContents()

    local DTextEntry3 = vgui.Create('DTextEntry', DFrame1)
    DTextEntry3:SetSize(100, 20)
    DTextEntry3:SetPos(5, 150)
    DTextEntry3:SetText('')

    // This is if you want a logo right of your username, password, and email.
    /*
    local DPanel1 = vgui.Create('DImage', DFrame1)
    DPanel1:SetSize(296, 272)
    DPanel1:SetPos(1, 25)
    Dpanel1:SetMaterial( ) // Place some image here
    */

    local DButton1 = vgui.Create('DButton', DFrame1)
    DButton1:SetSize(70, 25)
    DButton1:SetPos(115, 271)
    DButton1:SetText('Submit')
    DButton1.DoClick = function()
        p:Register( DTextEntry1:GetValue(), DTextEntry2:GetValue(), DTextEntry3:GetValue() )
    end
end)