Adds IsColor, net.WriteColor, net.ReadColor

IsColor returns true when the argument has the correct COLOR metatable.

garrysmod/lua/includes/modules/net.lua

@@ -53,6 +53,31 @@ function net.ReadEntity()
 
 end
 
+--
+-- Read/Write a color to/from the stream
+--
+function net.WriteColor( col )
+
+	assert( IsColor( col ), "net.WriteColor: color expected, got ".. type( col ) )
+
+	net.WriteUInt( col.r, 8 )
+    net.WriteUInt( col.g, 8 )
+    net.WriteUInt( col.b, 8 )
+    net.WriteUInt( col.a, 8 )
+
+end
+
+function net.ReadColor()
+
+    local r, g, b, a = net.ReadUInt( 8 ),
+                       net.ReadUInt( 8 ),
+                       net.ReadUInt( 8 ),
+                       net.ReadUInt( 8 )
+
+    return Color( r, g, b, a )
+
+end
+
 --
 -- Write a whole table to the stream
 -- This is less optimal than writing each

garrysmod/lua/includes/util/color.lua

@@ -26,6 +26,16 @@ function ColorAlpha( c, a )
 	
 end
 
+--[[---------------------------------------------------------
+	Checks if the given varible is a color object
+-----------------------------------------------------------]]
+function IsColor( obj )
+
+	return getmetatable(obj) == COLOR
+
+end
+
+
 --[[---------------------------------------------------------
 	Returns color as a string
 -----------------------------------------------------------]]