Tweaked networking stuff

gamemode/engine/core/server/sv_player_init.lua

@@ -16,6 +16,8 @@ end
 
 local function setUpPlayer( ply )
     
+    Quantum.Server.Char.SetCurrentCharacter( ply, ply.charindex || 1 )
+
     if( ply:GetModel() ~= nil ) then
         ply:SetupHands()
     else
@@ -26,8 +28,8 @@ end
 
 function GM:PlayerSpawn( ply )
 
-    if( !ply.isloaded ) then 
-        ply:Spectate( OBS_MODE_CHASE ) 
+    if( ply.isloaded ) then 
+        ply:Spectate( OBS_MODE_FIXED ) 
     else
         setUpPlayer( ply )
     end

gamemode/engine/derma/cl_character.lua

@@ -9,7 +9,22 @@ local function char_derma()
     local sw, sh = ScrW(), ScrH()
     if( !f ) then
         local f = vgui.Create( "DFrame" )
-        f:SetTitle( "Character Derma" )
+        f:SetTitle( "Character Menu" )
         f:SetSize( sw, sh )
+
+        local txt = vgui.Create( "DTextEntry" )
+        txt:SetText( "Enter name here" )
+        txt:SizeToContents()
+        txt:SetPos( 100, 100 )
+
+        local b = vgui.Create( "DButton" )
+        b:SetText( "Create char" )
+        b:SizeToContents()
+        b.DoClick = function()
+            net.Start( "quantum_menu_button_net" )
+                net.WriteString( "createchar" )
+                net.WriteTable( { name = txt:GetValue() } )
+            net.SendToServer()
+        end
     end
 end