Userdata objects can be passed in table.

changelog

@@ -10,6 +10,7 @@ KEY CHANGES:
 	- CHANGE: Object libraries like Vector2 optimizations. Separated table argument style for new and set methods.
 	Option for pre generated temp objects. There was a lot of overhead on old new method.
 	- CHANGE: Use GetApplicationDirectory instead of GetWorkingDirectory for basePath if no path argument given.
+	- ADDED Userdata objects can be passed in table. Useful on wrapper libraries. Name should be in camelCase.
 
 DETAILED CHANGES:
 	- ADDED: GetBufferElementSize and GetBufferLength.

src/lua_core.c

@@ -2405,16 +2405,16 @@ Color uluaGetColor( lua_State* L, int index ) {
 				}
 			}
 			else if ( lua_isstring( L, -2 ) ) {
-				if ( strcmp( "r", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				if ( TextIsEqual( "r", lua_tostring( L, -2 ) ) ) {
 					color.r = (uint8_t)lua_tointeger( L, -1 );
 				}
-				else if ( strcmp( "g", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "g", lua_tostring( L, -2 ) ) ) {
 					color.g = (uint8_t)lua_tointeger( L, -1 );
 				}
-				else if ( strcmp( "b", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "b", lua_tostring( L, -2 ) ) ) {
 					color.b = (uint8_t)lua_tointeger( L, -1 );
 				}
-				else if ( strcmp( "a", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "a", lua_tostring( L, -2 ) ) ) {
 					color.a = (uint8_t)lua_tointeger( L, -1 );
 				}
 			}
@@ -2447,10 +2447,10 @@ Vector2 uluaGetVector2( lua_State* L, int index ) {
 				}
 			}
 			else if ( lua_isstring( L, -2 ) ) {
-				if ( strcmp( "x", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				if ( TextIsEqual( "x", lua_tostring( L, -2 ) ) ) {
 					vector.x = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "y", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "y", lua_tostring( L, -2 ) ) ) {
 					vector.y = lua_tonumber( L, -1 );
 				}
 			}
@@ -2486,13 +2486,13 @@ Vector3 uluaGetVector3( lua_State* L, int index ) {
 				}
 			}
 			else if ( lua_isstring( L, -2 ) ) {
-				if ( strcmp( "x", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				if ( TextIsEqual( "x", lua_tostring( L, -2 ) ) ) {
 					vector.x = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "y", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "y", lua_tostring( L, -2 ) ) ) {
 					vector.y = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "z", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "z", lua_tostring( L, -2 ) ) ) {
 					vector.z = lua_tonumber( L, -1 );
 				}
 			}
@@ -2531,16 +2531,16 @@ Vector4 uluaGetVector4( lua_State* L, int index ) {
 				}
 			}
 			else if ( lua_isstring( L, -2 ) ) {
-				if ( strcmp( "x", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				if ( TextIsEqual( "x", lua_tostring( L, -2 ) ) ) {
 					vector.x = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "y", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "y", lua_tostring( L, -2 ) ) ) {
 					vector.y = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "z", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "z", lua_tostring( L, -2 ) ) ) {
 					vector.z = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "w", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "w", lua_tostring( L, -2 ) ) ) {
 					vector.w = lua_tonumber( L, -1 );
 				}
 			}
@@ -2579,16 +2579,16 @@ Rectangle uluaGetRectangle( lua_State* L, int index ) {
 				}
 			}
 			else if ( lua_isstring( L, -2 ) ) {
-				if ( strcmp( "x", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				if ( TextIsEqual( "x", lua_tostring( L, -2 ) ) ) {
 					rect.x = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "y", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "y", lua_tostring( L, -2 ) ) ) {
 					rect.y = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "width", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "width", lua_tostring( L, -2 ) ) ) {
 					rect.width = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "height", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "height", lua_tostring( L, -2 ) ) ) {
 					rect.height = lua_tonumber( L, -1 );
 				}
 			}
@@ -2627,16 +2627,16 @@ Quaternion uluaGetQuaternion( lua_State* L, int index ) {
 				}
 			}
 			else if ( lua_isstring( L, -2 ) ) {
-				if ( strcmp( "x", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				if ( TextIsEqual( "x", lua_tostring( L, -2 ) ) ) {
 					quaternion.x = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "y", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "y", lua_tostring( L, -2 ) ) ) {
 					quaternion.y = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "z", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "z", lua_tostring( L, -2 ) ) ) {
 					quaternion.z = lua_tonumber( L, -1 );
 				}
-				else if ( strcmp( "w", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "w", lua_tostring( L, -2 ) ) ) {
 					quaternion.w = lua_tonumber( L, -1 );
 				}
 			}
@@ -2714,10 +2714,10 @@ BoundingBox uluaGetBoundingBox( lua_State* L, int index ) {
 				}
 			}
 			else if ( lua_isstring( L, -2 ) ) {
-				if ( strcmp( "min", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				if ( TextIsEqual( "min", lua_tostring( L, -2 ) ) ) {
 					box.min = uluaGetVector3( L, lua_gettop( L ) );
 				}
-				else if ( strcmp( "max", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "max", lua_tostring( L, -2 ) ) ) {
 					box.max = uluaGetVector3( L, lua_gettop( L ) );
 				}
 			}
@@ -2750,10 +2750,10 @@ Ray uluaGetRay( lua_State* L, int index ) {
 				}
 			}
 			else if ( lua_isstring( L, -2 ) ) {
-				if ( strcmp( "position", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				if ( TextIsEqual( "position", lua_tostring( L, -2 ) ) ) {
 					ray.position = uluaGetVector3( L, lua_gettop( L ) );
 				}
-				else if ( strcmp( "direction", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "direction", lua_tostring( L, -2 ) ) ) {
 					ray.direction = uluaGetVector3( L, lua_gettop( L ) );
 				}
 			}
@@ -2798,22 +2798,22 @@ NPatchInfo uluaGetNPatchInfo( lua_State* L, int index ) {
 			}
 		}
 		else if ( lua_isstring( L, -2 ) ) {
-			if ( strcmp( "source", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+			if ( TextIsEqual( "source", lua_tostring( L, -2 ) ) ) {
 				npatch.source = uluaGetRectangle( L, lua_gettop( L ) );
 			}
-			else if ( strcmp( "left", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+			else if ( TextIsEqual( "left", lua_tostring( L, -2 ) ) ) {
 				npatch.left = lua_tointeger( L, -1 );
 			}
-			else if ( strcmp( "top", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+			else if ( TextIsEqual( "top", lua_tostring( L, -2 ) ) ) {
 				npatch.top = lua_tointeger( L, -1 );
 			}
-			else if ( strcmp( "right", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+			else if ( TextIsEqual( "right", lua_tostring( L, -2 ) ) ) {
 				npatch.right = lua_tointeger( L, -1 );
 			}
-			else if ( strcmp( "bottom", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+			else if ( TextIsEqual( "bottom", lua_tostring( L, -2 ) ) ) {
 				npatch.bottom = lua_tointeger( L, -1 );
 			}
-			else if ( strcmp( "layout", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+			else if ( TextIsEqual( "layout", lua_tostring( L, -2 ) ) ) {
 				npatch.layout = lua_tointeger( L, -1 );
 			}
 		}
@@ -2846,10 +2846,10 @@ BoneInfo uluaGetBoneInfo( lua_State* L, int index ) {
 		}
 		else if ( lua_istable( L, -1 ) ) {
 			if ( lua_isstring( L, -2 ) ) {
-				if ( strcmp( "name", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				if ( TextIsEqual( "name", lua_tostring( L, -2 ) ) ) {
 					strncpy( bone.name, lua_tostring( L, lua_gettop( L ) ), 32 );
 				}
-				else if ( strcmp( "parent", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "parent", lua_tostring( L, -2 ) ) ) {
 					bone.parent = lua_tointeger( L, -1 );
 				}
 			}
@@ -2886,13 +2886,13 @@ Transform uluaGetTransform( lua_State* L, int index ) {
 		}
 		else if ( lua_istable( L, -1 ) ) {
 			if ( lua_isstring( L, -2 ) ) {
-				if ( strcmp( "translation", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				if ( TextIsEqual( "translation", lua_tostring( L, -2 ) ) ) {
 					transform.translation = uluaGetVector3( L, lua_gettop( L ) );
 				}
-				else if ( strcmp( "rotation", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "rotation", lua_tostring( L, -2 ) ) ) {
 					transform.rotation = uluaGetQuaternion( L, lua_gettop( L ) );
 				}
-				else if ( strcmp( "scale", (char*)lua_tostring( L, -2 ) ) == 0 ) {
+				else if ( TextIsEqual( "scale", lua_tostring( L, -2 ) ) ) {
 					transform.scale = uluaGetVector3( L, lua_gettop( L ) );
 				}
 			}
@@ -2904,143 +2904,503 @@ Transform uluaGetTransform( lua_State* L, int index ) {
 }
 
 Buffer* uluaGetBuffer( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Buffer*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "buffer", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Buffer*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Buffer" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Buffer" );
+	}
 }
 
 Image* uluaGetImage( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Image*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "image", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Image*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Image" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Image" );
+	}
 }
 
 Texture* uluaGetTexture( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Texture*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "texture", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Texture*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Texture" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Texture" );
+	}
 }
 
 RenderTexture* uluaGetRenderTexture( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (RenderTexture*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "renderTexture", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (RenderTexture*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "RenderTexture" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "RenderTexture" );
+	}
 }
 
 Shader* uluaGetShader( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Shader*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "shader", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Shader*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Shader" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Shader" );
+	}
 }
 
 Mesh* uluaGetMesh( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Mesh*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "mesh", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Mesh*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Mesh" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Mesh" );
+	}
 }
 
 Camera2D* uluaGetCamera2D( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Camera2D*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "camera2D", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Camera2D*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Camera2D" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Camera2D" );
+	}
 }
 
 Camera3D* uluaGetCamera3D( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Camera3D*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "camera3D", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Camera3D*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Camera3D" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Camera3D" );
+	}
 }
 
 Font* uluaGetFont( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Font*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "font", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Font*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Font" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Font" );
+	}
 }
 
 GlyphInfo* uluaGetGlyphInfo( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (GlyphInfo*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "glyphInfo", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (GlyphInfo*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "GlyphInfo" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "GlyphInfo" );
+	}
 }
 
 Wave* uluaGetWave( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Wave*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "wave", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Wave*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Wave" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Wave" );
+	}
 }
 
 Sound* uluaGetSound( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Sound*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "sound", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Sound*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Sound" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Sound" );
+	}
 }
 
 Music* uluaGetMusic( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Music*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "music", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Music*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Music" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Music" );
+	}
 }
 
 Light* uluaGetLight( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Light*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "light", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Light*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Light" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Light" );
+	}
 }
 
 Material* uluaGetMaterial( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Material*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "material", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Material*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Material" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Material" );
+	}
 }
 
 Model* uluaGetModel( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (Model*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "model", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (Model*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "Model" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "Model" );
+	}
 }
 
 ModelAnimation* uluaGetModelAnimation( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (ModelAnimation*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "modelAnimation", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (ModelAnimation*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "ModelAnimation" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "ModelAnimation" );
+	}
 }
 
 rlRenderBatch* uluaGetRLRenderBatch( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (rlRenderBatch*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "rlRenderBatch", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (rlRenderBatch*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "rlRenderBatch" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "rlRenderBatch" );
+	}
 }
 
 AutomationEvent* uluaGetAutomationEvent( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (AutomationEvent*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "automationEvent", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (AutomationEvent*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "AutomationEvent" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "AutomationEvent" );
+	}
 }
 
 AutomationEventList* uluaGetAutomationEventList( lua_State* L, int index ) {
-	if ( lua_islightuserdata( L, index ) ) {
+	switch ( lua_type( L, index ) )	{
+	case LUA_TLIGHTUSERDATA:
 		return (AutomationEventList*)lua_touserdata( L, index );
+	case LUA_TTABLE:
+		int t = index, i = 0;
+		lua_pushnil( L );
+		while ( lua_next( L, t ) != 0 ) {
+			if ( TextIsEqual( "automationEventList", lua_tostring( L, -2 ) ) ) {
+				if ( lua_islightuserdata( L, lua_gettop( L ) ) ) {
+					return (AutomationEventList*)lua_touserdata( L, lua_gettop( L ) );
 				}
+				else {
+					return luaL_checkudata( L, lua_gettop( L ), "AutomationEventList" );
+				}
+			}
+			i++;
+			lua_pop( L, 1 );
+		}
+		/* Don't brake here, we want to get error from default if not found. */
+	default:
 		return luaL_checkudata( L, index, "AutomationEventList" );
+	}
 }
 
 /* Push types. */