/*PLUGIN.Name = "Server-side NWVars"
PLUGIN.Description = "Server-side managment of nwvars"
PLUGIN.Author = "KatNotDinner"*/

if CLIENT then
	return
end

/*function PLUGIN.Init()
	print( "This is the server side NWVars plugin." )
end*/
--Major update tons of fixes and optimizations both on client and server
local nwents = {}
local meta1 = FindMetaTable( "Entity" )
local meta2 = FindMetaTable( "Player" )

function meta1:SetNWString( str, val )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.String = self.NWvars.String or {}
	--self.NWvars.String[ str ] = self.NWvars.String[ str ] or {}
	self.NWvars.String[ str ] = val
	net.Start( "String" )
	    net.WriteEntity( self )
	    net.WriteString( str )
	    net.WriteString( val )
	net.Broadcast()
end

function meta1:SetNWEntity( str, ent )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Entity = self.NWvars.Entity or {}
	--self.NWvars.Entity[ str ] = self.NWvars.Entity[ str ] or {}
	self.NWvars.Entity[ str ] = ent
	net.Start( "Entity" )
	    net.WriteEntity( self )
	    net.WriteString( str )
	    net.WriteEntity( ent )
	net.Broadcast()
end

function meta1:SetNWBool( str, bool )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Bool = self.NWvars.Bool or {}
	--self.NWvars.Bool[ str ] = self.NWvars.Bool[ str ] or {}
	self.NWvars.Bool[ str ] = bool
	net.Start( "Bool" )
	    net.WriteEntity( self )
	    net.WriteString( str )
		net.WriteBit( bool )
	net.Broadcast()
end

function meta1:SetNWFloat( str, fl )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Float = self.NWvars.Float or {}
	--self.NWvars.Float[ str ] = self.NWvars.Float[ str ] or {}
	self.NWvars.Float[ str ] = fl
	net.Start( "Float" )
	    net.WriteEntity( self )
		net.WriteString( str )
		net.WriteFloat( fl )
	net.Broadcast()
end

function meta1:SetNWInt( str, int )
	print("\n"..int)
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Int = self.NWvars.Int or {}
	--self.NWvars.Int[ str ] = self.NWvars.Int[ str ] or {}
	self.NWvars.Int[ str ] = int
	net.Start( "Int" )
	    net.WriteEntity( self )
	    net.WriteString( str )
	    net.WriteInt( int, 32 )
	net.Broadcast()
end

function meta1:SetNWAngle( str, ang, b )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Angle = self.NWvars.Angle or {}
	--self.NWvars.Angle[ str ] = self.NWvars.Angle[ str ] or {}
	self.NWvars.Angle[ str ] = ang
	net.Start( "Angle" )
	    net.WriteEntity( self )
	    net.WriteString( str )
	    net.WriteAngle( ang )
	net.Broadcast()
end

function meta1:SetNWVector( str, vec )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Vector = self.NWvars.Vector or {}
	--self.NWvars.Vector[ str ] = self.NWvars.Vector[ str ] or {}
	self.NWvars.Vector[ str ] = vec
	net.Start( "Vector" )
	    net.WriteEntity( self )
	    net.WriteString( str )
	    net.WriteVector( vec )
	net.Broadcast()
end

function meta1:GetNWBool( str )
	if !self.NWvars then Error( "No NWVars for Entity "..self:EntIndex().."!" ) debug.Trace() return end
    if !self.NWvars.Bool[ str ] then return end
	return self.NWvars.Bool[ str ]
end

function meta1:GetNWString( str )
	if !self.NWvars then Error( "No NWVars for Entity "..self:EntIndex().."!" ) debug.Trace() return end
    if !self.NWvars.String[ str ] then return end
	return self.NWvars.String[ str ]
end

function meta1:GetNWAngle( str )
	if !self.NWvars then Error( "No NWVars for Entity "..self:EntIndex().."!" ) debug.Trace() return end
    if !self.NWvars.Angle[ str ] then return end
	return self.NWvars.Angle[ str ]
end

function meta1:GetNWVector( str )
	if !self.NWvars then Error( "No NWVars for Entity "..self:EntIndex().."!" ) debug.Trace() return end
    if !self.NWvars.Vector[ str ] then return end
	return self.NWvars.Vector[ str ]
end

function meta1:GetNWFloat( str )
	if !self.NWvars then Error( "No NWVars for Entity "..self:EntIndex().."!" ) debug.Trace() return end
	
    if !self.NWvars.Float[ str ] then return end
	return self.NWvars.Float[ str ]
end

function meta1:GetNWInt( str )
	if !self.NWvars then Error( "No NWVars for Entity "..self:EntIndex().."!" ) debug.Trace() return end
    if !self.NWvars.Int[ str ] then return end
	return self.NWvars.Int[ str ]
end

function meta1:GetNWEntity( str )
	if !self.NWvars then Error( "No NWVars for Entity "..self:EntIndex().."!" ) debug.Trace() return end
    if !self.NWvars.Entity[ str ] then return end
	return self.NWvars.Entity[ str ]
end

function meta1:GetNetworkedVar( str )
    if self.NWvars.Vector[ str ] then
    	return self.NWvars.Vector[ str ]
	elseif self.NWvars.Entity[ str ] then
	    return self.NWvars.Entity[ str ]
	elseif self.NWvars.String[ str ] then
	    return self.NWvars.String[ str ]
	elseif self.NWvars.Float[ str ] then
	    return self.NWvars.Float
	elseif self.NWvars.Angle[ str ] then
	    return self.NWvars.Angle[ str ]
	elseif self.NWvars.Bool[ str ] then
	    return self.NWvars.Bool[ str ]
	end
end

function meta1:SetNetworkedVar( str, var )
    if type(var) == "string" then
	    self:SetNWString( str, var )
		return
	elseif type(var) == "number" then
	    if tostring(var):find( "." ) then
		    self:SetNWFloat( str, var )
		else
		    self:SetNWInt( str, var )
		end
	elseif type(var) == "bool" then
	    self:SetNWBool( str, var )
	elseif var.p and var.y and var.r then
	    self:SetNWAngle( str, var )
	elseif var.x and var.y and var.z then
	    self:SetNWVector( str, var )
	elseif IsValid(var) then
	    self:SetNWEntity( str, var )
	end
end

/*function meta2:SetNWString( str, val )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.String[ str ] = self.NWvars.String[ str ] or {}
	self.NWvars.String[ str ] = val
	net.Start( "String" )
	    net.WriteEntity( self )
	    net.WriteString( str )
	    net.WriteString( val )
	net.Broadcast()
end

function meta2:SetNWEntity( str, ent )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Entity[ str ] = self.NWvars.Entity[ str ] or {}
	self.NWvars.Entity[ str ] = ent
	net.Start( "Entity" )
	    net.WriteEntity( self )
	    net.WriteString( str )
	    net.WriteEntity( ent )
	net.Broadcast()
end

function meta2:SetNWBool( str, bool )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Bool[ str ] = self.NWvars.Bool[ str ] or {}
	self.NWvars.Bool[ str ] = bool
	net.Start( "Bool" )
	    net.WriteEntity( self )
	    net.WriteString( str )
		if bool then	
			net.WriteInt( 1 )
		else
			net.WriteInt( 2 )
		end
	net.Broadcast()
end

function meta2:SetNWFloat( str, fl )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Float[ str ] = self.NWvars.Float[ str ] or {}
	self.NWvars.Float[ str ] = fl
	net.Start( "Float" )
	    net.WriteEntity( self )
		net.WriteString( str )
		net.WriteFloat( fl )
	net.Broadcast()
end

function meta2:SetNWInt( str, int )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Int[ str ] = self.NWvars.Int[ str ] or {}
	self.NWvars.Int[ str ] = int
	net.Start( "Int" )
	    net.WriteEntity( self )
	    net.WriteString( str )
	    net.WriteInt( int )
	net.Broadcast()
end

function meta2:SetNWAngle( str, ang, b )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Angle[ str ] = self.NWvars.Angle[ str ] or {}
	self.NWvars.Angle[ str ] = ang
	net.Start( "Angle" )
	    net.WriteEntity( self )
	    net.WriteString( str )
	    net.WriteAngle( ang )
	net.Broadcast()
end

function meta2:SetNWVector( str, vec )
    nwents[self] = nwents[self] or true
	self.NWvars = self.NWvars or {}
	self.NWvars.Vector[ str ] = self.NWvars.Vector[ str ] or {}
	self.NWvars.Vector[ str ] = vec
	net.Start( "Vector" )
	    net.WriteEntity( self )
	    net.WriteString( str )
	    net.WriteVector( vec )
	net.Broadcast()
end

function meta2:SetNetworkedVar( str, var )
    if type(var) == "string" then
	    self:SetNWString( str, var )
		return
	elseif type(var) == "number" then
	    if tostring(var):find( "." ) then
		    self:SetNWFloat( str, var )
		else
		    self:SetNWInt( str, var )
		end
	elseif type(var) == "bool" then
	    self:SetNWBool( str, var )
	elseif var.p and var.y and var.r then
	    self:SetNWAngle( str, var )
	elseif var.x and var.y and var.z then
	    self:SetNWVector( str, var )
	elseif IsValid(var) then
	    self:SetNWEntity( str, var )
	end
end

function meta2:GetNWBool( str )
    if !self.NWvars.Bool[ str ] then return end
	return self.NWvars.Bool[ str ]
end

function meta2:GetNWString( str )
    if !self.NWvars.String[ str ] then return end
	return self.NWvars.String[ str ]
end

function meta2:GetNWAngle( str )
    if !self.NWvars.Angle[ str ] then return end
	return self.NWvars.Angle[ str ]
end

function meta2:GetNWVector( str )
    if !self.NWvars.Vector[ str ] then return end
	return self.NWvars.Vector[ str ]
end

function meta2:GetNWFloat( str )
    if !self.NWvars.Float[ str ] then return end
	return self.NWvars.Float[ str ]
end

function meta2:GetNWInt( str )
    if !self.NWvars.Int[ str ] then return end
	return self.NWvars.Int[ str ]
end

function meta2:GetNWEntity( str )
    if !self.NWvars.Entity[ str ] then return end
	return self.NWvars.Entity[ str ]
end

function meta2:GetNetworkedVar( str )
    if self.NWvars.Vector[ str ] then
    	return self.NWvars.Vector[ str ]
	elseif self.NWvars.Entity[ str ] then
	    return self.NWvars.Entity[ str ]
	elseif self.NWvars.String[ str ] then
	    return self.NWvars.String[ str ]
	elseif self.NWvars.Float[ str ] then
	    return self.NWvars.Float
	elseif self.NWvars.Angle[ str ] then
	    return self.NWvars.Angle[ str ]
	elseif self.NWvars.Bool[ str ] then
	    return self.NWvars.Bool[ str ]
	end
end
*/
hook.Add( "PlayerInitialSpawn", "NWVars", function( ply )
	local time = 0 -- We should create some delays between the datastreams
	if nwents then
		timer.Simple( 0, function()
			for k, v in pairs(nwents) do
				time = time + .3
				timer.Simple( time, function()
					if k.NWvars then
						net.Start( "NWVars", ply )
							net.WriteEntity( k )
							net.WriteTable(k.NWvars)
						net.Send(ply)
					end
				end )
			end
		end )
	end
end )

hook.Add( "PlayerDisconnected", "lolwut", function( ply )
    if nwents and nwents[ply] then
	    nwents[ply] = nil
	end
end )

net.Receive( "AngleCL", function(ply, len ) -- kinda messed up argument names
    local ent = net.ReadEntity()
	local str = net.ReadString()
	local var = net.ReadAngle()
	ent.NWvars = ent.NWvars or {}
	ent.NWvars.Angle = ent.NWvars.Angle or {}
	ent.NWvars.Angle[ str ] = ent.NWvars.Angle[ str ] or {}
	ent.NWvars.Angle[ str ] = var
	timer.Simple( .5, function()
	ent:SetNWAngle( str, var )
	end )
end )

net.Receive( "VectorCL", function(ply, len )
    local ent = net.ReadEntity()
	local str = net.ReadString()
	local var = net.ReadVector()
	ent.NWvars = ent.NWvars or {}
	ent.NWvars.Vector = ent.NWvars.Vector or {}
	ent.NWvars.Vector[ str ] = ent.NWvars.Vector[ str ] or {}
	ent.NWvars.Vector[ str ] = var
	timer.Simple( .5, function()
	ent:SetNWVector( str, var )
	end )
end )

net.Receive( "EntityCL", function(ply, len )
    local ent = net.ReadEntity()
	local str = net.ReadString()
	local var = net.ReadEntity()
	ent.NWvars = ent.NWvars or {}
	ent.NWvars.Entity = ent.NWvars.Entity or {}
	ent.NWvars.Entity[ str ] = ent.NWvars.String[ str ] or {}
	ent.NWvars.Entity[ str ] = var
	timer.Simple( .5, function()
	ent:SetNWEntity( str, var )
	end )
end )

net.Receive( "StringCL", function(ply, len )
    local ent = net.ReadEntity()
	local str = net.ReadString()
	local var = net.ReadString()
	ent.NWvars = ent.NWvars or {}
	ent.NWvars.String = ent.NWvars.String or {}
	ent.NWvars.String[ str ] = ent.NWvars.String[ str ] or {}
	ent.NWvars.String[ str ] = var
	timer.Simple( .5, function()
	ent:SetNWString( str, var )
	end )
end )

net.Receive( "FloatCL", function(ply, len )
    local ent = net.ReadEntity()
	local str = net.ReadString()
	local var = net.ReadFloat()
	ent.NWvars = ent.NWvars or {}
	ent.NWvars.Float = ent.NWvars.Float or {}
	ent.NWvars.Float[ str ] = ent.NWvars.Float[ str ] or {}
	ent.NWvars.Float[ str ] = var
	timer.Simple( .5, function()
	ent:SetNWFloat( str, var )
	end )
end )

net.Receive( "IntCL", function( le, ply )
    local ent = net.ReadEntity()
	local str = net.ReadString()
	local var = net.ReadInt( 32 )
	ent.NWvars = ent.NWvars or {}
	ent.NWvars.Int = ent.NWvars.Int or {}
	ent.NWvars.Int[ str ] = ent.NWvars.Int[ str ] or {}
	ent.NWvars.Int[ str ] = var
	timer.Simple( .5, function()
	ent:SetNWInt( str, var )
	end )
end  )

net.Receive( "BoolCL", function(ply, len )
    local ent = net.ReadEntity()
	local str = net.ReadString()
	local var = net.ReadBit()
	ent.NWvars = ent.NWvars or {}
	ent.NWvars.Bool = ent.NWvars.Bool or {}
	ent.NWvars.Bool[ str ] = ent.NWvars.Bool[ str ] or {}
	ent.NWvars.Bool[ str ] = var
	timer.Simple( .5, function()
	ent:SetNWBool( str, var )
	end )
end )

meta1.SetNWVar = meta1.SetNetworkedVar -- making sure that I override ALL of the nwvar functions
meta1.SetNetworkedInt = meta1.SetNWInt
meta1.SetNetworkedFloat = meta1.SetNWFloat
meta1.SetNetworkedEntity = meta1.SetNWEntity
meta1.SetNetworkedString = meta1.SetNWString
meta1.SetNetworkedBool = meta1.SetNWBool
meta1.SetNetworkedAngle = meta1.SetNWAngle
meta1.SetNetworkedVector = meta1.SetNWVector
/*
_R.Player.SetNWVar = meta2.SetNetworkedVar -- making sure that I override ALL of the nwvar functions
_R.Player.SetNetworkedInt = meta2.SetNWInt
_R.Player.SetNetworkedFloat = meta2.SetNWFloat
_R.Player.SetNetworkedEntity = meta2.SetNWEntity
_R.Player.SetNetworkedString = meta2.SetNWString
_R.Player.SetNetworkedBool = meta2.SetNWBool
_R.Player.SetNetworkedAngle = meta2.SetNWAngle
_R.Player.SetNetworkedVector = meta2.SetNWVector*/