New object types for Wave, Sound, Music and Light.

1 files changed, 146 insertions, 688 deletions

diff --git a/src/audio.c b/src/audio.c
index 3ba9cb0..935bf1f 100644
--- a/src/audio.c
+++ b/src/audio.c
@@ -3,147 +3,21 @@
 #include "audio.h"
 #include "lua_core.h"
 
-static bool validSound( size_t id ) {
-	if ( id < 0 || state->soundCount < id || state->sounds[ id ] == NULL ) {
-		TraceLog( state->logLevelInvalid, "%s %d", "Invalid sound", id );
-		return false;
-	}
-	else {
-		return true;
-	}
-}
-
-static bool validWave( size_t id ) {
-	if ( id < 0 || state->waveCount < id || state->waves[ id ] == NULL ) {
-		TraceLog( state->logLevelInvalid, "%s %d", "Invalid wave", id );
-		return false;
-	}
-	else {
-		return true;
-	}
-}
-
-static bool validMusic( size_t id ) {
-	if ( id < 0 || state->musicCount < id || state->musics[ id ] == NULL ) {
-		TraceLog( state->logLevelInvalid, "%s %d", "Invalid music", id );
-		return false;
-	}
-	else {
-		return true;
-	}
-}
-
-static void checkSoundRealloc( int i ) {
-	if ( i == state->soundCount ) {
-		state->soundCount++;
-	}
-
-	if ( state->soundCount == state->soundAlloc ) {
-		state->soundAlloc += ALLOC_PAGE_SIZE;
-		state->sounds = realloc( state->sounds, state->soundAlloc * sizeof( Sound* ) );
-
-		for ( i = state->soundCount; i < state->soundAlloc; i++ ) {
-			state->sounds[i] = NULL;
-		}
-	}
-}
-
-static void checkWaveRealloc( int i ) {
-	if ( i == state->waveCount ) {
-		state->waveCount++;
-	}
-
-	if ( state->waveCount == state->waveAlloc ) {
-		state->waveAlloc += ALLOC_PAGE_SIZE;
-		state->waves = realloc( state->waves, state->waveAlloc * sizeof( Wave* ) );
-
-		for ( i = state->waveCount; i < state->waveAlloc; i++ ) {
-			state->waves[i] = NULL;
-		}
-	}
-}
-
-static void checkMusicRealloc( int i ) {
-	if ( i == state->musicCount ) {
-		state->musicCount++;
-	}
-
-	if ( state->musicCount == state->musicAlloc ) {
-		state->musicAlloc += ALLOC_PAGE_SIZE;
-		state->musics = realloc( state->musics, state->musicAlloc * sizeof( Music* ) );
-
-		for ( i = state->musicCount; i < state->musicAlloc; i++ ) {
-			state->musics[i] = NULL;
-		}
-	}
-}
-
-static int newSound() {
-	int i = 0;
-
-	for ( i = 0; i < state->soundCount; i++ ) {
-		if ( state->sounds[i] == NULL ) {
-			break;
-		}
-	}
-	state->sounds[i] = malloc( sizeof( Sound ) );
-	checkSoundRealloc( i );
-
-	return i;
-}
-
-static int newWave() {
-	int i = 0;
-
-	for ( i = 0; i < state->waveCount; i++ ) {
-		if ( state->waves[i] == NULL ) {
-			break;
-		}
-	}
-	state->waves[i] = malloc( sizeof( Wave ) );
-	checkWaveRealloc( i );
-
-	return i;
-}
-
-static int newMusic() {
-	int i = 0;
-
-	for ( i = 0; i < state->musicCount; i++ ) {
-		if ( state->musics[i] == NULL ) {
-			break;
-		}
-	}
-	state->musics[i] = malloc( sizeof( Music ) );
-	checkMusicRealloc( i );
-
-	return i;
-}
-
 /*
 ## Audio - Audio device management
 */
 
 /*
-> success = RL.SetMasterVolume( float volume )
+> RL.SetMasterVolume( float volume )
 
-Set master volume ( listener )
-
-- Failure return false
-- Success return true
+Set master volume (listener)
 */
 int laudioSetMasterVolume( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.SetMasterVolume( float volume )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	float volume = lua_tonumber( L, 1 );
+	float volume = luaL_checknumber( L, 1 );
 
 	SetMasterVolume( volume );
-	lua_pushboolean( L, true );
 
-	return 1;
+	return 0;
 }
 
 /*
@@ -155,26 +29,19 @@ int laudioSetMasterVolume( lua_State *L ) {
 
 Load sound from file
 
-- Failure return -1
-- Success return int
+- Failure return nil
+- Success return Sound
 */
 int laudioLoadSound( lua_State *L ) {
-	if ( !lua_isstring( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.LoadSound( string fileName )" );
-		lua_pushinteger( L, -1 );
-		return 1;
-	}
+	if ( FileExists( luaL_checkstring( L, 1 ) ) ) {
+		uluaPushSound( L, LoadSound( lua_tostring( L, 1 ) ) );
 
-	if ( FileExists( lua_tostring( L, 1 ) ) ) {
-		int i = newSound();
-		*state->sounds[i] = LoadSound( lua_tostring( L, 1 ) );
-		lua_pushinteger( L, i );
-		return 1;
-	}
-	else {
-		lua_pushinteger( L, -1 );
 		return 1;
 	}
+	TraceLog( state->logLevelInvalid, "Invalid file '%s'", lua_tostring( L, 1 ) );
+	lua_pushnil( L );
+
+	return 1;
 }
 
 /*
@@ -182,26 +49,19 @@ int laudioLoadSound( lua_State *L ) {
 
 Load wave data from file
 
-- Failure return -1
-- Success return int
+- Failure return nil
+- Success return Wave
 */
 int laudioLoadWave( lua_State *L ) {
-	if ( !lua_isstring( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.LoadWave( string fileName )" );
-		lua_pushinteger( L, -1 );
-		return 1;
-	}
+	if ( FileExists( luaL_checkstring( L, 1 ) ) ) {
+		uluaPushWave( L, LoadWave( lua_tostring( L, 1 ) ) );
 
-	if ( FileExists( lua_tostring( L, 1 ) ) ) {
-		int i = newWave();
-		*state->waves[i] = LoadWave( lua_tostring( L, 1 ) );
-		lua_pushinteger( L, i );
-		return 1;
-	}
-	else {
-		lua_pushinteger( L, -1 );
 		return 1;
 	}
+	TraceLog( state->logLevelInvalid, "Invalid file '%s'", lua_tostring( L, 1 ) );
+	lua_pushnil( L );
+
+	return 1;
 }
 
 /*
@@ -209,78 +69,12 @@ int laudioLoadWave( lua_State *L ) {
 
 Load sound from wave data
 
-- Failure return -1
-- Success return int
+- Success return Sound
 */
 int laudioLoadSoundFromWave( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.LoadSoundFromWave( Wave wave )" );
-		lua_pushinteger( L, -1 );
-		return 1;
-	}
-	size_t waveId = lua_tointeger( L, 1 );
+	Wave *wave = luaL_checkudata( L, 1, "Wave" );
 
-	if ( !validWave( waveId ) ) {
-		lua_pushinteger( L, -1 );
-		return 1;
-	}
-	int i = newSound();
-	*state->sounds[i] = LoadSoundFromWave( *state->waves[ waveId ] );
-	lua_pushinteger( L, i );
-
-	return 1;
-}
-
-/*
-> success = RL.UnloadSound( Sound sound )
-
-Unload sound
-
-- Failure return false
-- Success return true
-*/
-int laudioUnloadSound( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.UnloadSound( Sound sound )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t soundId = lua_tointeger( L, 1 );
-
-	if ( !validSound( soundId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	UnloadSound( *state->sounds[ soundId ] );
-	state->sounds[ soundId ] = NULL;
-	lua_pushboolean( L, true );
-
-	return 1;
-}
-
-/*
-> success = RL.UnloadWave( Wave wave )
-
-Unload wave data
-
-- Failure return false
-- Success return true
-*/
-int laudioUnloadWave( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.UnloadWave( Wave wave )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t waveId = lua_tointeger( L, 1 );
-
-	if ( !validWave( waveId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	UnloadWave( *state->waves[ waveId ] );
-	state->waves[ waveId ] = NULL;
-	lua_pushboolean( L, true );
+	uluaPushSound( L, LoadSoundFromWave( *wave ) );
 
 	return 1;
 }
@@ -290,22 +84,12 @@ int laudioUnloadWave( lua_State *L ) {
 
 Export wave data to file, returns true on success
 
-- Failure return false
-- Success return true
+- Success return bool
 */
 int laudioExportWave( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isstring( L, 2 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.ExportWave( Wave wave, string fileName )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t waveId = lua_tointeger( L, 1 );
+	Wave *wave = luaL_checkudata( L, 1, "Wave" );
 
-	if ( !validWave( waveId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	lua_pushboolean( L, ExportWave( *state->waves[ waveId ], lua_tostring( L, 2 ) ) );
+	lua_pushboolean( L, ExportWave( *wave, luaL_checkstring( L, 2 ) ) );
 
 	return 1;
 }
@@ -315,22 +99,12 @@ int laudioExportWave( lua_State *L ) {
 
 Export wave sample data to code (.h), returns true on success
 
-- Failure return false
 - Success return true
 */
 int laudioExportWaveAsCode( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isstring( L, 2 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.ExportWaveAsCode( Wave wave, string fileName )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t waveId = lua_tointeger( L, 1 );
+	Wave *wave = luaL_checkudata( L, 1, "Wave" );
 
-	if ( !validWave( waveId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	lua_pushboolean( L, ExportWaveAsCode( *state->waves[ waveId ], lua_tostring( L, 2 ) ) );
+	lua_pushboolean( L, ExportWaveAsCode( *wave, luaL_checkstring( L, 2 ) ) );
 
 	return 1;
 }
@@ -340,107 +114,55 @@ int laudioExportWaveAsCode( lua_State *L ) {
 */
 
 /*
-> success = RL.PlaySound( Sound sound )
+> RL.PlaySound( Sound sound )
 
 Play a sound
-
-- Failure return false
-- Success return true
 */
 int laudioPlaySound( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.PlaySound( Sound sound )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t soundId = lua_tointeger( L, 1 );
+	Sound *sound = luaL_checkudata( L, 1, "Sound" );
 
-	if ( !validSound( soundId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	PlaySound( *state->sounds[ soundId ] );
-	lua_pushboolean( L, true );
+	PlaySound( *sound );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.StopSound( Sound sound )
+> RL.StopSound( Sound sound )
 
 Stop playing a sound
-
-- Failure return false
-- Success return true
 */
 int laudioStopSound( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.StopSound( Sound sound )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t soundId = lua_tointeger( L, 1 );
+	Sound *sound = luaL_checkudata( L, 1, "Sound" );
 
-	if ( !validSound( soundId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	StopSound( *state->sounds[ soundId ] );
-	lua_pushboolean( L, true );
+	StopSound( *sound );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.PauseSound( Sound sound )
+> RL.PauseSound( Sound sound )
 
 Pause a sound
-
-- Failure return false
-- Success return true
 */
 int laudioPauseSound( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.PauseSound( Sound sound )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t soundId = lua_tointeger( L, 1 );
+	Sound *sound = luaL_checkudata( L, 1, "Sound" );
 
-	if ( !validSound( soundId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	PauseSound( *state->sounds[ soundId ] );
-	lua_pushboolean( L, true );
+	PauseSound( *sound );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.ResumeSound( Sound sound )
+> RL.ResumeSound( Sound sound )
 
 Resume a paused sound
-
-- Failure return false
-- Success return true
 */
 int laudioResumeSound( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.ResumeSound( Sound sound )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t soundId = lua_tointeger( L, 1 );
+	Sound *sound = luaL_checkudata( L, 1, "Sound" );
 
-	if ( !validSound( soundId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	ResumeSound( *state->sounds[ soundId ] );
-	lua_pushboolean( L, true );
+	ResumeSound( *sound );
 
-	return 1;
+	return 0;
 }
 
 /*
@@ -448,134 +170,72 @@ int laudioResumeSound( lua_State *L ) {
 
 Check if a sound is currently playing
 
-- Failure return nil
 - Success return bool
 */
 int laudioIsSoundPlaying( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.IsSoundPlaying( Sound sound )" );
-		lua_pushnil( L );
-		return 1;
-	}
-	size_t soundId = lua_tointeger( L, 1 );
+	Sound *sound = luaL_checkudata( L, 1, "Sound" );
 
-	if ( !validSound( soundId ) ) {
-		lua_pushnil( L );
-		return 1;
-	}
-	lua_pushboolean( L, IsSoundPlaying( *state->sounds[ soundId ] ) );
+	lua_pushboolean( L, IsSoundPlaying( *sound ) );
 
 	return 1;
 }
 
 /*
-> success = RL.SetSoundVolume( Sound sound, float volume )
-
-Set volume for a sound ( 1.0 is max level )
+> RL.SetSoundVolume( Sound sound, float volume )
 
-- Failure return false
-- Success return true
+Set volume for a sound (1.0 is max level)
 */
 int laudioSetSoundVolume( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.SetSoundVolume( Sound sound, float volume )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t soundId = lua_tointeger( L, 1 );
-	float volume = lua_tonumber( L, 2 );
+	Sound *sound = luaL_checkudata( L, 1, "Sound" );
+	float volume = luaL_checknumber( L, 2 );
 
-	if ( !validSound( soundId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	SetSoundVolume( *state->sounds[ soundId ], volume );
-	lua_pushboolean( L, true );
+	SetSoundVolume( *sound, volume );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.SetSoundPitch( Sound sound, float pitch )
+> RL.SetSoundPitch( Sound sound, float pitch )
 
-Set pitch for a sound ( 1.0 is base level )
-
-- Failure return false
-- Success return true
+Set pitch for a sound (1.0 is base level)
 */
 int laudioSetSoundPitch( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.SetSoundPitch( Sound sound, float pitch )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t soundId = lua_tointeger( L, 1 );
-	float pitch = lua_tonumber( L, 2 );
+	Sound *sound = luaL_checkudata( L, 1, "Sound" );
+	float pitch = luaL_checknumber( L, 2 );
 
-	if ( !validSound( soundId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	SetSoundPitch( *state->sounds[ soundId ], pitch );
-	lua_pushboolean( L, true );
+	SetSoundPitch( *sound, pitch );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.SetSoundPan( Sound sound, float pan )
-
-Set pan for a sound ( 0.5 is center )
+> RL.SetSoundPan( Sound sound, float pan )
 
-- Failure return false
-- Success return true
+Set pan for a sound (0.5 is center)
 */
 int laudioSetSoundPan( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.SetSoundPan( Sound sound, float pitch )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t soundId = lua_tointeger( L, 1 );
-	float pan = lua_tonumber( L, 2 );
+	Sound *sound = luaL_checkudata( L, 1, "Sound" );
+	float pan = luaL_checknumber( L, 2 );
 
-	if ( !validSound( soundId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	SetSoundPan( *state->sounds[ soundId ], pan );
-	lua_pushboolean( L, true );
+	SetSoundPan( *sound, pan );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.WaveFormat( Wave wave, int sampleRate, int sampleSize, int channels )
+> RL.WaveFormat( Wave wave, int sampleRate, int sampleSize, int channels )
 
 Convert wave data to desired format
-
-- Failure return false
-- Success return true
 */
 int laudioWaveFormat( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) || !lua_isnumber( L, 4 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.WaveFormat( Wave wave, int sampleRate, int sampleSize, int channels )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t waveId = lua_tointeger( L, 1 );
-	int sampleRate = lua_tointeger( L, 2 );
-	int sampleSize = lua_tointeger( L, 3 );
-	int channels = lua_tointeger( L, 4 );
+	Wave *wave = luaL_checkudata( L, 1, "Wave" );
+	int sampleRate = luaL_checkinteger( L, 2 );
+	int sampleSize = luaL_checkinteger( L, 3 );
+	int channels = luaL_checkinteger( L, 4 );
 
-	if ( !validWave( waveId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	WaveFormat( state->waves[ waveId ], sampleRate, sampleSize, channels );
-	lua_pushboolean( L, true );
+	WaveFormat( wave, sampleRate, sampleSize, channels );
 
-	return 1;
+	return 0;
 }
 
 /*
@@ -583,54 +243,29 @@ int laudioWaveFormat( lua_State *L ) {
 
 Copy a wave to a new wave
 
-- Failure return -1
-- Success return int
+- Success return Wave
 */
 int laudioWaveCopy( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.WaveCopy( Wave wave )" );
-		lua_pushinteger( L, -1 );
-		return 1;
-	}
-	size_t waveId = lua_tointeger( L, 1 );
+	Wave *wave = luaL_checkudata( L, 1, "Wave" );
 
-	if ( !validWave( waveId ) ) {
-		lua_pushinteger( L, -1 );
-		return 1;
-	}
-	int i = newWave();
-	*state->waves[i] = WaveCopy( *state->waves[ waveId ] );
-	lua_pushinteger( L, i );
+	uluaPushWave( L, WaveCopy( *wave ) );
 
 	return 1;
 }
 
 /*
-> success = RL.WaveCrop( Wave wave, int initSample, int finalSample )
+> RL.WaveCrop( Wave wave, int initSample, int finalSample )
 
 Crop a wave to defined samples range
-
-- Failure return false
-- Success return true
 */
 int laudioWaveCrop( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.WaveCrop( Wave wave, int initSample, int finalSample )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t waveId = lua_tointeger( L, 1 );
-	int initSample = lua_tointeger( L, 2 );
-	int finalSample = lua_tointeger( L, 3 );
+	Wave *wave = luaL_checkudata( L, 1, "Wave" );
+	int initSample = luaL_checkinteger( L, 2 );
+	int finalSample = luaL_checkinteger( L, 3 );
 
-	if ( !validWave( waveId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	WaveCrop( state->waves[ waveId ], initSample, finalSample );
-	lua_pushboolean( L, true );
+	WaveCrop( wave, initSample, finalSample );
 
-	return 1;
+	return 0;
 }
 
 /*
@@ -642,51 +277,31 @@ int laudioWaveCrop( lua_State *L ) {
 
 Load music stream from file
 
-- Failure return -1
-- Success return int
+- Success return Music
 */
 int laudioLoadMusicStream( lua_State *L ) {
-	if ( !lua_isstring( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.LoadMusicStream( string fileName )" );
-		lua_pushinteger( L, -1 );
-		return 1;
-	}
-	if ( !FileExists( lua_tostring( L, 1 ) ) ) {
-		lua_pushinteger( L, -1 );
+	if ( FileExists( luaL_checkstring( L, 1 ) ) ) {
+		uluaPushMusic( L, LoadMusicStream( lua_tostring( L, 1 ) ) );
+
 		return 1;
 	}
-	int i = newMusic();
-	*state->musics[i] = LoadMusicStream( lua_tostring( L, 1 ) );
-	state->musics[i]->looping = true;
-	lua_pushinteger( L, i );
+	TraceLog( state->logLevelInvalid, "Invalid file '%s'", lua_tostring( L, 1 ) );
+	lua_pushnil( L );
 
 	return 1;
 }
 
 /*
-> success = RL.PlayMusicStream( Music music )
+> RL.PlayMusicStream( Music music )
 
 Start music playing
-
-- Failure return false
-- Success return true
 */
 int laudioPlayMusicStream( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.PlayMusicStream( Music music )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	PlayMusicStream( *state->musics[ musicId ] );
-	lua_pushboolean( L, true );
+	PlayMusicStream( *music );
 
-	return 1;
+	return 0;
 }
 
 /*
@@ -694,263 +309,136 @@ int laudioPlayMusicStream( lua_State *L ) {
 
 Check if music is playing
 
-- Failure return nil
 - Success return bool
 */
 int laudioIsMusicStreamPlaying( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.IsMusicStreamPlaying( Music music )" );
-		lua_pushnil( L );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushnil( L );
-		return 1;
-	}
-	lua_pushboolean( L, IsMusicStreamPlaying( *state->musics[ musicId ] ) );
+	lua_pushboolean( L, IsMusicStreamPlaying( *music ) );
 
 	return 1;
 }
 
 /*
-> success = RL.UpdateMusicStream( Music music )
+> RL.UpdateMusicStream( Music music )
 
 Updates buffers for music streaming
-
-- Failure return false
-- Success return true
 */
 int laudioUpdateMusicStream( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.UpdateMusicStream( Music music )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	UpdateMusicStream( *state->musics[ musicId ] );
-	lua_pushboolean( L, true );
+	UpdateMusicStream( *music );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.StopMusicStream( Music music )
+> RL.StopMusicStream( Music music )
 
 Stop music playing
-
-- Failure return false
-- Success return true
 */
 int laudioStopMusicStream( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.StopMusicStream( Music music )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	StopMusicStream( *state->musics[ musicId ] );
-	lua_pushboolean( L, true );
+	StopMusicStream( *music );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.PauseMusicStream( Music music )
+> RL.PauseMusicStream( Music music )
 
 Pause music playing
-
-- Failure return false
-- Success return true
 */
 int laudioPauseMusicStream( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.PauseMusicStream( Music music )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	PauseMusicStream( *state->musics[ musicId ] );
-	lua_pushboolean( L, true );
+	PauseMusicStream( *music );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.ResumeMusicStream( Music music )
+> RL.ResumeMusicStream( Music music )
 
 Resume playing paused music
-
-- Failure return false
-- Success return true
 */
 int laudioResumeMusicStream( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.ResumeMusicStream( Music music )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	ResumeMusicStream( *state->musics[ musicId ] );
-	lua_pushboolean( L, true );
+	ResumeMusicStream( *music );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.SeekMusicStream( Music music, float position )
-
-Seek music to a position ( in seconds )
+> RL.SeekMusicStream( Music music, float position )
 
-- Failure return false
-- Success return true
+Seek music to a position (in seconds)
 */
 int laudioSeekMusicStream( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.SeekMusicStream( Music music, float position )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
-	float position = lua_tonumber( L, 2 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
+	float position = luaL_checknumber( L, 2 );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	SeekMusicStream( *state->musics[ musicId ], position );
-	lua_pushboolean( L, true );
+	SeekMusicStream( *music, position );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.SetMusicVolume( Music music, float volume )
+> RL.SetMusicVolume( Music music, float volume )
 
-Set volume for music ( 1.0 is max level )
-
-- Failure return false
-- Success return true
+Set volume for music (1.0 is max level)
 */
 int laudioSetMusicVolume( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.SetMusicVolume( Music music, float volume )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
-	float volume = lua_tonumber( L, 2 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
+	float volume = luaL_checknumber( L, 2 );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	SetMusicVolume( *state->musics[ musicId ], volume );
-	lua_pushboolean( L, true );
+	SetMusicVolume( *music, volume );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.SetMusicPitch( Music music, float pitch )
-
-Set pitch for a music ( 1.0 is base level )
+> RL.SetMusicPitch( Music music, float pitch )
 
-- Failure return false
-- Success return true
+Set pitch for a music (1.0 is base level)
 */
 int laudioSetMusicPitch( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.SetMusicPitch( Music music, float pitch )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
-	float pitch = lua_tonumber( L, 2 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
+	float pitch = luaL_checknumber( L, 2 );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	SetMusicPitch( *state->musics[ musicId ], pitch );
-	lua_pushboolean( L, true );
+	SetMusicPitch( *music, pitch );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.SetMusicPan( Music music, float pan )
-
-Set pan for a music ( 0.5 is center )
+> RL.SetMusicPan( Music music, float pan )
 
-- Failure return false
-- Success return true
+Set pan for a music (0.5 is center)
 */
 int laudioSetMusicPan( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.SetMusicPan( Music music, float pan )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
-	float pan = lua_tonumber( L, 2 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
+	float pan = luaL_checknumber( L, 2 );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	SetMusicPitch( *state->musics[ musicId ], pan );
-	lua_pushboolean( L, true );
+	SetMusicPitch( *music, pan );
 
-	return 1;
+	return 0;
 }
 
 /*
-> success = RL.SetMusicLooping( Music music, bool looping )
+> RL.SetMusicLooping( Music music, bool looping )
 
 Set looping for a music
-
-- Failure return false
-- Success return true
 */
 int laudioSetMusicLooping( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) || !lua_isboolean( L, 2 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.SetMusicLooping( Music music, bool looping )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
-	bool looping = lua_toboolean( L, 2 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
+	bool looping = uluaGetBoolean( L, 2 );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	state->musics[ musicId ]->looping = looping;
-	lua_pushboolean( L, true );
+	music->looping = looping;
 
-	return 1;
+	return 0;
 }
 
 /*
@@ -958,22 +446,12 @@ int laudioSetMusicLooping( lua_State *L ) {
 
 Get looping of a music
 
-- Failure return nil
 - Success return bool
 */
 int laudioGetMusicLooping( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.GetMusicLooping( Music music )" );
-		lua_pushnil( L );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushnil( L );
-		return 1;
-	}
-	lua_pushboolean( L, state->musics[ musicId ]->looping );
+	lua_pushboolean( L, music->looping );
 
 	return 1;
 }
@@ -981,49 +459,29 @@ int laudioGetMusicLooping( lua_State *L ) {
 /*
 > length = RL.GetMusicTimeLength( Music music )
 
-Get music time length ( in seconds )
+Get music time length (in seconds)
 
-- Failure return false
 - Success return float
 */
 int laudioGetMusicTimeLength( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.GetMusicTimeLength( Music music )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	lua_pushnumber( L, GetMusicTimeLength( *state->musics[ musicId ] ) );
+	lua_pushnumber( L, GetMusicTimeLength( *music ) );
 
 	return 1;
 }
 
 /*
-> played = RL.GetMusicTimePlayed( Music music )
+> timePlayed = RL.GetMusicTimePlayed( Music music )
 
-Get current music time played ( in seconds )
+Get current music time played (in seconds)
 
-- Failure return false
 - Success return float
 */
 int laudioGetMusicTimePlayed( lua_State *L ) {
-	if ( !lua_isnumber( L, 1 ) ) {
-		TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.GetMusicTimePlayed( Music music )" );
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	size_t musicId = lua_tointeger( L, 1 );
+	Music *music = luaL_checkudata( L, 1, "Music" );
 
-	if ( !validMusic( musicId ) ) {
-		lua_pushboolean( L, false );
-		return 1;
-	}
-	lua_pushnumber( L, GetMusicTimePlayed( *state->musics[ musicId ] ) );
+	lua_pushnumber( L, GetMusicTimePlayed( *music ) );
 
 	return 1;
 }