local lights = {}

function light1_main(e)
 
	local tl = lights[ e ]
	
	if tl == nil then 	
		local lightNum = GetEntityLightNumber( e )
		local x, y, z = GetLightPosition( lightNum )

		lights[ e ] =
		  { ln = lightNum,
		    xo = x - g_PlayerPosX,
		    yo = y - g_PlayerPosY,
			zo = z - g_PlayerPosZ }
			
	else
		SetLightPosition( tl.ln, g_PlayerPosX + tl.xo,
		                         g_PlayerPosY + tl.yo,
								 g_PlayerPosZ + tl.zo )	
	end
end

// Lua control of dynamic light
// get the light number using entity e number 
// then use that in the other light functions
int GetEntityLightNumber( lua_State *L )
{
	lua = L;
	int n = lua_gettop( L );
	if ( n < 1 ) return 0;

	// get lightentity e number
	int iID = lua_tonumber( L, 1 );
	if ( iID <= 0 ) return 0;

	for ( int i = 1; i <= g.infinilightmax; i++)
	{
		if ( t.infinilight[ i ].used == 1 && t.infinilight[ i ].e == iID )
		{
			lua_pushinteger( L, i );
			return 1;
		}
	}
	return 0;
}
int GetLightPosition( lua_State *L )
{
	lua = L;
	int n = lua_gettop( L );
	if ( n < 1 )
		return 0;

	// get light number
	int i = lua_tointeger( L, 1 );

	if ( i > 0 && i <= g.infinilightmax && t.infinilight[ i ].used == 1 )
	{
		lua_pushnumber( L, t.infinilight[i].x );
		lua_pushnumber( L, t.infinilight[i].y );
		lua_pushnumber( L, t.infinilight[i].z );
		return 3;
	}
	return 0;
}
int GetLightRGB( lua_State *L )
{
	lua = L;
	int n = lua_gettop( L );
	if ( n < 1 )
		return 0;

	// get light number
	int i = lua_tointeger( L, 1 );

	if (i > 0 && i <= g.infinilightmax && t.infinilight[i].used == 1)
	{
		lua_pushnumber( L, t.infinilight[i].colrgb.r );
		lua_pushnumber( L, t.infinilight[i].colrgb.g );
		lua_pushnumber( L, t.infinilight[i].colrgb.b );
		return 3;
	}
	return 0;
}
int GetLightRange(lua_State *L)
{
	lua = L;
	int n = lua_gettop( L );
	if ( n < 1 )
		return 0;

	// get light number
	int i = lua_tointeger( L, 1 );

	if ( i > 0 && i <= g.infinilightmax && t.infinilight[ i ].used == 1 )
	{
		lua_pushnumber( L, t.infinilight[ i ].range );
		return 1;
	}
	return 0;
}
// uses light number from above
int SetLightPosition( lua_State *L )
{
	lua = L;
	// get number of arguments
	int n = lua_gettop( L );
	// Not enough params, return out
	if ( n < 4 )
		return 0;

	// get light number
	int i = lua_tonumber( L, 1 );

	if ( i > 0 && i <= g.infinilightmax && t.infinilight[ i ].used == 1 )
	{
		t.infinilight[ i ].x = lua_tonumber( L, 2 );
		t.infinilight[ i ].y = lua_tonumber( L, 3 );
		t.infinilight[ i ].z = lua_tonumber( L, 4 );
	}
	return 0;
}

int SetLightRGB( lua_State *L ) 
{
	lua = L;
	// get number of arguments
	int n = lua_gettop( L );
	// Not enough params, return out
	if ( n < 4 )
		return 0;

	// get light number
	int i = lua_tonumber( L, 1 );

	if ( i > 0 && i <= g.infinilightmax && t.infinilight[ i ].used == 1 )
	{
		t.infinilight[ i ].colrgb.r = lua_tonumber( L, 2 );
		t.infinilight[ i ].colrgb.g = lua_tonumber( L, 3 );
		t.infinilight[ i ].colrgb.b = lua_tonumber( L, 4 );
	}
	return 0;
}

int SetLightRange( lua_State *L )
{
	lua = L;
	// get number of arguments
	int n = lua_gettop(L);
	// Not enough params, return out
	if (n < 2)
		return 0;

	// get light number
	int i = lua_tointeger(L, 1);

	if ( i > 0 && i <= g.infinilightmax && t.infinilight[i].used == 1 )
	{
		float rng = lua_tonumber(L, 2);
		if ( rng < 1.0f )
		{
			rng = 1.0f;
		}
		else if ( rng > 10000.0f )
		{
			rng = 10000.0f;
		}
		t.infinilight[ i ].range = rng;
	}
	return 0;
}